archdatamodule.pas

来自「档案信息管理系统」· PAS 代码 · 共 81 行

//本工程中所包含的所有数据库控件
unit ArchDataModule;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TMainDataModule = class(TDataModule)
    ArchDBConnection: TADOConnection;
    AccountTable: TADOTable;
    StuffTable: TADOTable;
    DepTable: TADOTable;
    AccountDataSource: TDataSource;
    StuffDataSource: TDataSource;
    DepDataSource: TDataSource;
    StuffQuery: TADOQuery;
    StuffTableName: TStringField;
    StuffTableArchiveNo: TIntegerField;
    StuffTableBirthday: TDateTimeField;
    StuffTableDegree: TStringField;
    StuffTablePosistion: TStringField;
    StuffTableJobStartDate: TDateTimeField;
    StuffTableJobEndDate: TDateTimeField;
    StuffTableNote: TMemoField;
    StuffTableCreateTime: TDateTimeField;
    StuffTableDepNo: TIntegerField;
    StuffTableCreater: TStringField;
    StuffTableAddress: TStringField;
    StuffTableTelnumber: TStringField;
    StuffQueryName: TStringField;
    StuffQueryArchiveNo: TIntegerField;
    StuffQueryBirthday: TDateTimeField;
    StuffQueryDegree: TStringField;
    StuffQueryPosistion: TStringField;
    StuffQueryJobStartDate: TDateTimeField;
    StuffQueryJobEndDAte: TDateTimeField;
    StuffQueryAddress: TStringField;
    StuffQueryTelNumber: TStringField;
    StuffQueryNote: TMemoField;
    StuffQueryDepName: TStringField;
    DepTableDepNo: TAutoIncField;
    DepTableDepName: TStringField;
    DepTableDepLeader: TStringField;
    DepTableDepMemberNo: TIntegerField;
    AccountTableUserName: TStringField;
    AccountTablePassword: TStringField;
    AccountTableAccountRight: TStringField;
    StuffTableGender: TStringField;
    StuffQueryGender: TStringField;
    StuffQueryDepNo: TIntegerField;
    SelectRecord: TADOQuery;
    SelectRecordName: TStringField;
    SelectRecordArchiveNo: TIntegerField;
    SelectRecordBirthday: TDateTimeField;
    SelectRecordGender: TStringField;
    SelectRecordDegree: TStringField;
    SelectRecordPosistion: TStringField;
    SelectRecordJobStartDate: TDateTimeField;
    SelectRecordJobEndDAte: TDateTimeField;
    SelectRecordAddress: TStringField;
    SelectRecordTelNumber: TStringField;
    SelectRecordNote: TMemoField;
    SelectRecordDepNo: TIntegerField;
    SelectRecordDepName: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainDataModule: TMainDataModule;

implementation

{$R *.dfm}

end.