SQL Server数据库设计表和字段
1. 原始单据与实体之间的关系
可以是一对一、一对多、多对多的关系。在一般情况下，它们是一对一的关系：即一张原始单据对应且只对应一个实体。在特殊情况下，它们可能是一对多或多对一的关系，即一张原始单证对应多个实体，或多张原始单证对应一个实体。这里的实体可以理解为基本表。明确这种对应关系后，对我们设计录入界面大有好处。
〖例1〗：一份员工履历资料，在人力资源信息系统中，就对应三个基本表：员工基本情况表、社会关系表、工作简历表。这就是“一张原始单证对应多个实体”的典型例子。
2. 主键与外键
一般而言，一个实体不能既无主键又无外键。在E—R 图中, 处于叶子部位的实体, 可以定义主键，也可以不定义主键(因为它无子孙), 但必须要有外键(因为它有父亲)。
主键与外键的设计，在全局数据库的设计中，占有重要地位。当全局数据库的设计完成以后，有个美国数据库设计专家说：“键，到处都是键，除了键之外，什么也没有”，这就是他的数据库设计经验之谈，也反映了他对信息系统核心(数据模型)的高度抽象思想。因为：主键是实体的高度抽象，主键与外键的配对，表示实体之� ......
var
arrChar : array [0..4] of Char;
b : Byte;
s : string;
begin
s := 'Test';
Move(Pointer(s)^, arrChar, Length(s)); //string to array of char
ShowMessage(arrChar);
b := Ord(s[1]); //First byte string to one single byte
ShowMessage(Char(b));
end; ......
现在应用系统流行用B/S开发，早几年前可是C/S的天下呢，我现在做的某航空公司货运结算维护工作，其系统就是利用Delphi开发的C/S应用程序！在日常的维护工作中，难免要对已经做好的COM+组件进行调试，以查看具体的处理逻辑！本文就是介绍在WindowsXP环境下如何在Delphi中调试COM+组件！
第一步：记录下你希望调试的COM+组件的GUID。可通过如下方式获取。可以通过打开“控制面板”，找到“管理工具”，然后打开“组件服务”，展开“计算机”，找到“COM+应用程序”，在希望调试的COM+应用程序上右键以打开它的属性，一串类似{2F240A4F-7A70-4573-BD91-FC7AC00EB409}的值就是我们所需要的，就是我们需要的信息，将此记录值复制下来存储于某记事本文件中。
第二步：关闭欲调试的COM+组件。
第三步：打开你要调试查看的组件应用程序，转到菜单Run，点击Parameters...项，
在Local选项条中，在Host Application下的输入框内，输入C:\WINDOWS\system32\dllhost.exe (这里的C盘请使用实际的操作系统路径替代，在Win2000或Win2003当中，则输入C:\WINNT\system32\dllhost.exe) ；在Parameters下的输入� ......
DELPHI
//////////////////////////////////
Function EncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer;
offset :Integer;
dest :string;
SrcPos :Integer;
SrcAsc :Integer;
TmpSrcAsc :Integer;
Range :Integer;
begin
KeyLen:=Length(Key);
if KeyLen = 0 then key:='Think Space';
KeyPos:=0;
SrcPos:=0;
SrcAsc:=0;
Range:=256;
Randomize;
......
问题背景：
公司希望使用Magento来进行接单，而后把订单导入到一个ERP系统中(订单处理引擎)。
问题：
在使用WebService从Magento中获取Payment信息时，信用卡是被加密的(法律规定不允许在数据库中存储信用卡的明文信息)！
仔细研究了一下Magento的加密方式(/magento/app/code/core/Mage/Core/Model/Encryption.php)发现Magento对于敏感信息的处理是先加密、再用base64进行编码。
(其实这个问题可以变通一下，用PHP写一个解密文件，以加密后的信用卡号做为参数，返回值为信用卡的明文。Delphi中可以用Msxml2.XMLHTTP直接发送参数，但总觉得别扭。不过这是一个保底方案)
BlowFish是PHP自身提供的算法模块(用mcrypt_list_algorithms()查看其所支持的的算法模块的命令)。
public function encrypt($data)
{
return base64_encode($this->_getCrypt()->encrypt((string)$data));
}
知道这些后，进而跟踪其使用的加密方式是BlowFish。那下面的工作就简单了。
需要分二步骤来完成解密工作：
一.找到Delphi版的BlowFish(之所以找Delphi版源码而不是� ......
Delphi 7之后的版本，增加了运算符的重载。虽然不尽人意（需要写特定英文），但有总比没有强。
例：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
T3DPoint = record
X, Y, Z: Double;
class operator ADD(ALeftPoint, ARightPoint: T3DPoint): T3DPoint; {重载'+'运算符}
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ T3DPoint }
class operator T3DPoint.ADD(ALeftPoint, ARightPoint: T3DPoint): T3DPoint;
begin
Result.X := ALeftPoint.X + ARightPoint.X;
Result.Y := ALeftPoint.Y + ARightPoint.Y;
Result.Z := ALeftPoint.Z + ARightPoint.Z;
end;
procedure T ......
最新文章 :