msgdb.pas

来自「SM_Msg.rar 手机短信发送程序」· PAS 代码 · 共 96 行

unit MsgDB;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TfrmMsgDB = class(TDataModule)
    tblChatMsg: TADOTable;
    tblChatMsgSend_MobilePhone: TWideStringField;
    tblChatMsgReceive_MobilePhone: TWideStringField;
    tblChatMsgName: TWideStringField;
    tblChatMsgOccur_Date: TWideStringField;
    tblChatMsgChat_Message: TWideStringField;
    tblChatMsgBZ: TWideStringField;
    tblChatMsgFalg: TWideStringField;
    tblChatNum: TADOTable;
    qryChatNum: TADOQuery;
    qryChatNumMobilePhone: TWideStringField;
    qryChatNumName: TWideStringField;
    qryChatMsg: TADOQuery;
    qryChatMsgSub: TADOQuery;
    delChatMsg: TADOQuery;
    delChatNum: TADOQuery;
    qrySysTblSet: TADOQuery;
    qrySysTblSetTable_Name: TWideStringField;
    qrySysTblSetClass: TWideStringField;
    qrySysTblSetName: TWideStringField;
    qrySysTblSetPhoneNum1: TWideStringField;
    qrySysTblSetPhoneNum2: TWideStringField;
    qrySysTblSetFax: TWideStringField;
    qrySysTblSetHomePhone: TWideStringField;
    qrySysTblSetMobilePhone: TWideStringField;
    qrySysTblSetEmail: TWideStringField;
    qrySysTblSetUnit: TWideStringField;
    qrySysTblSetOfficeAdd: TWideStringField;
    qrySysTblSetCommAdd: TWideStringField;
    qrySysTblSetPost: TWideStringField;
    qrySysTblSetRetic: TWideStringField;
    qrySysTblSetQQNum: TWideStringField;
    qrySysTblSetBz: TWideStringField;
    updNum: TADOQuery;
    delNum: TADOQuery;
    tblNum: TADOTable;
    tblNumCurIndex: TAutoIncField;
    tblNumClass: TWideStringField;
    tblNumName: TWideStringField;
    tblNumPhoneNum1: TWideStringField;
    tblNumPhoneNum2: TWideStringField;
    tblNumFax: TWideStringField;
    tblNumHomePhone: TWideStringField;
    tblNumMobilePhone: TWideStringField;
    tblNumEmail: TWideStringField;
    tblNumUnit: TWideStringField;
    tblNumOfficeAdd: TWideStringField;
    tblNumCommAdd: TWideStringField;
    tblNumPost: TWideStringField;
    tblNumRetic: TWideStringField;
    tblNumQQNum: TWideStringField;
    tblNumBz: TWideStringField;
    qrySearchClass: TADOQuery;
    tblClass: TADOTable;
    tblClassID: TWideStringField;
    tblClassClassName: TWideStringField;
    qrySearchNum: TADOQuery;
    qrySearchNumClass: TWideStringField;
    qrySearchNumName: TWideStringField;
    qrySearchNumPhoneNum1: TWideStringField;
    qrySearchNumPhoneNum2: TWideStringField;
    qrySearchNumFax: TWideStringField;
    qrySearchNumHomePhone: TWideStringField;
    qrySearchNumMobilePhone: TWideStringField;
    qrySearchNumEmail: TWideStringField;
    qrySearchNumUnit: TWideStringField;
    qrySearchNumOfficeAdd: TWideStringField;
    qrySearchNumCommAdd: TWideStringField;
    qrySearchNumPost: TWideStringField;
    qrySearchNumRetic: TWideStringField;
    qrySearchNumQQNum: TWideStringField;
    qrySearchNumBz: TWideStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMsgDB: TfrmMsgDB;

implementation

{$R *.dfm}

end.