untdm.pas

1、通过串口连接手机或短信终端发送短信； 2、内置Access数据库

unit UntDM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM1 = class(TDataModule)
    Conn: TADOConnection;
    QCorp: TADOQuery;
    QCorpID: TWideStringField;
    QCorpDSDesigner: TWideStringField;
    QCorpDSDesigner2: TWideStringField;
    QCorpDSDesigner3: TWideStringField;
    QCorpDSDesigner4: TWideStringField;
    QCorpDSDesigner5: TWideStringField;
    QCorpDSDesigner6: TWideStringField;
    QCorpDSDesigner7: TWideStringField;
    QHuman: TADOQuery;
    QHumanID: TWideStringField;
    QHumanDSDesigner: TWideStringField;
    QHumanDSDesigner2: TWideStringField;
    QHumanDSDesigner3: TWideStringField;
    QHumanDSDesigner4: TDateTimeField;
    QHumanDSDesigner5: TWideStringField;
    QHumanDSDesigner6: TWideStringField;
    QHumanDSDesigner7: TWideStringField;
    QHumanDSDesigner8: TWideStringField;
    QHumanDSDesigner9: TWideStringField;
    QHumanDSDesigner10: TWideStringField;
    QHumanDSDesigner11: TWideStringField;
    QHumanDSDesigner12: TWideStringField;
    QHumanDSDesigner13: TWideStringField;
    dsCorp: TDataSource;
    dsHuman: TDataSource;
    QryMaintain: TADOQuery;
    QryMaintainVS: TADOQuery;
    QryLogin: TADOQuery;
    dsMaintain: TDataSource;
    dsMaintainVS: TDataSource;
    QryHumanVG: TADOQuery;
    QryHumanVGDSDesigner: TStringField;
    QryHumanVGDSDesigner2: TStringField;
    QryHumanVGID: TStringField;
    QryHumanVGID2: TStringField;
    QryCoVG: TADOQuery;
    QryGUI2DB: TADOQuery;
    procedure QryMaintainNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM1: TDM1;
  sQHuman: string;
  
function GetRandomStr:string;


implementation

uses UntMaintain, UntMain;

{$R *.dfm}

procedure TDM1.QryMaintainNewRecord(DataSet: TDataSet);
begin
  if MaintainTableName='用户信息字典' then
  begin
    DM1.QryMaintain.FieldByName('用户ID').AsString := GetRandomStr;
    DM1.QryMaintain.FieldByName('登记时间').AsDateTime := now();
    exit;
  end;
  if MaintainTableName='联系人字典' then
  begin
    DM1.QryMaintain.FieldByName('联系人ID').AsString := GetRandomStr;
    exit;
  end;
  if MaintainTableName='联系人组别定义字典' then
  begin
    DM1.QryMaintain.FieldByName('组ID').AsString := GetRandomStr;
    exit;
  end;
  if MaintainTableName='公司字典' then
  begin
    DM1.QryMaintain.FieldByName('公司ID').AsString := GetRandomStr;
    exit;
  end;

end;

function GetRandomStr:string;
var
  sTmp:string;
  i,n:integer;
begin
  sTmp := IntToStr(random(1000));
  n := Length(sTmp);
  For i:=1 to 3-n do sTmp := '0' + sTmp;
  Result := FormatDatetime('yyyyMMddHHmmssZZZ',now) + sTmp;
end;

Initialization
  Randomize();
  sQHuman := 'select 联系人ID,姓名,关键词,性别,出生日期,城市,邮编,地址,公司,职务,电子邮箱,通讯方式,电话,手机  from 联系人字典';
  
end.