dm_worker_pas.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit dm_worker_pas;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  Tdm_worker = class(TDataModule)
    q_worker: TQuery;
    ds_worker: TDataSource;
    q_worker_view: TQuery;
    ds_worker_view: TDataSource;
    Q_FIND: TQuery;
    q_workerId: TAutoIncField;
    q_workerCode: TStringField;
    q_workerName: TStringField;
    q_workerBirthday: TDateField;
    q_workerSex: TStringField;
    q_workerAddress: TStringField;
    q_workerPhone: TStringField;
    q_workerPager: TStringField;
    q_workerNumber: TStringField;
    q_worker_viewId: TIntegerField;
    q_worker_viewCode: TStringField;
    q_worker_viewName: TStringField;
    q_worker_viewBirthday: TDateField;
    q_worker_viewSex: TStringField;
    q_worker_viewAddress: TStringField;
    q_worker_viewPhone: TStringField;
    q_worker_viewPager: TStringField;
    q_worker_viewNumber: TStringField;
    Q_FINDId: TIntegerField;
    Q_FINDCode: TStringField;
    Q_FINDName: TStringField;
    Q_FINDBirthday: TDateField;
    Q_FINDSex: TStringField;
    Q_FINDAddress: TStringField;
    Q_FINDPhone: TStringField;
    Q_FINDPager: TStringField;
    Q_FINDNumber: TStringField;
    q_worker_ls: TQuery;
    q_worker_lsId: TAutoIncField;
    q_worker_lsCode: TStringField;
    q_worker_lsName: TStringField;
    q_worker_lsBirthday: TDateField;
    q_worker_lsSex: TStringField;
    q_worker_lsAddress: TStringField;
    q_worker_lsPhone: TStringField;
    q_worker_lsPager: TStringField;
    q_worker_lsNumber: TStringField;
    q_workerPencode: TStringField;
    q_worker_viewPencode: TStringField;
    Q_FINDPencode: TStringField;
    q_worker_lsPencode: TStringField;
    q_edit: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm_worker: Tdm_worker;

implementation

{$R *.DFM}

end.