datamodal.pas

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

unit datamodal;

interface

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

type
  TDataModule1 = class(TDataModule)
    ds_patrolrec: TDataSource;
    ds_point: TDataSource;
    q_patrolrec: TQuery;
    q_point: TQuery;
    q_patrolrecDataseq: TIntegerField;
    q_patrolrecPdate: TDateField;
    q_patrolrecPtime: TTimeField;
    q_patrolrecPencode: TStringField;
    q_patrolrecNode: TStringField;
    q_patrolrecWorkercode: TStringField;
    q_patrolrecNodename: TStringField;
    q_patrolrecNodeplace: TStringField;
    q_patrolrecWorkername: TStringField;
    q_patrolrecLinename: TStringField;
    q_patrolrecLseq: TSmallintField;
    q_patrolrecPstatu: TStringField;
    q_pointcode: TStringField;
    q_pointlinename: TStringField;
    q_pointname: TStringField;
    q_pointlseq: TSmallintField;
    q_pointnodeplace: TStringField;
    q_pointnodename: TStringField;
    q_pointnode: TStringField;
    T_PATROLREC: TTable;
    q_view: TQuery;
    ds_view: TDataSource;
    q_viewDataseq: TIntegerField;
    q_viewPdate: TDateField;
    q_viewPtime: TTimeField;
    q_viewPencode: TStringField;
    q_viewNode: TStringField;
    q_viewWorkercode: TStringField;
    q_viewNodename: TStringField;
    q_viewNodeplace: TStringField;
    q_viewWorkername: TStringField;
    q_viewLinename: TStringField;
    q_viewLseq: TSmallintField;
    q_viewPstatu: TStringField;
    q_node: TQuery;
    ds_node: TDataSource;
    q_worker: TQuery;
    ds_worker: TDataSource;
    q_line: TQuery;
    ds_line: TDataSource;
    q_workerId: TIntegerField;
    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_linelinename: TStringField;
    q_nodenode: TStringField;
    q_name: TQuery;
    ds_name: TDataSource;
    q_place: TQuery;
    DataSource2: TDataSource;
    q_namename: TStringField;
    q_placenodeplace: TStringField;
    T_PATROLRECDataseq: TAutoIncField;
    T_PATROLRECPdate: TDateField;
    T_PATROLRECPtime: TTimeField;
    T_PATROLRECPencode: TStringField;
    T_PATROLRECNode: TStringField;
    T_PATROLRECWorkercode: TStringField;
    T_PATROLRECNodename: TStringField;
    T_PATROLRECNodeplace: TStringField;
    T_PATROLRECWorkername: TStringField;
    T_PATROLRECLinename: TStringField;
    T_PATROLRECLseq: TSmallintField;
    T_PATROLRECPstatu: TStringField;
    q_find_pen: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.DFM}

end.