dm_xjysxx_view_pas.pas

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

unit dm_xjysxx_view_pas;

interface

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

type
  Tdm_xjysxx_view = class(TDataModule)
    q_temp: TQuery;
    ds_xjysxx_view: TDataSource;
    ds_xjysxx_order: TDataSource;
    q_worker: TQuery;
    ds_worker: TDataSource;
    q_line: TQuery;
    ds_line: TDataSource;
    q_point: TQuery;
    ds_point: TDataSource;
    q_xjysxx_order: TTable;
    q_xjysxx_view: TQuery;
    q_del: TQuery;
    q_pointnode: TStringField;
    q_pointname: TStringField;
    q_pointlseq: TSmallintField;
    q_pointnodeplace: TStringField;
    q_xjysxx_orderDataseq: TAutoIncField;
    q_xjysxx_orderPdate: TDateField;
    q_xjysxx_orderPtime: TTimeField;
    q_xjysxx_orderPencode: TStringField;
    q_xjysxx_orderNode: TStringField;
    q_xjysxx_orderWorkercode: TStringField;
    q_xjysxx_orderNodename: TStringField;
    q_xjysxx_orderNodeplace: TStringField;
    q_xjysxx_orderLinename: TStringField;
    q_xjysxx_orderLseq: TSmallintField;
    q_xjysxx_orderPstatu: TStringField;
    q_xjysxx_orderShifts: TStringField;
    q_xjysxx_orderFirstp: TTimeField;
    q_xjysxx_orderLastp: TTimeField;
    q_xjysxx_orderChkcycl: TIntegerField;
    q_xjysxx_orderDgpcxx: TIntegerField;
    q_xjysxx_orderDgpcsx: TIntegerField;
    q_xjysxx_orderNtime: TSmallintField;
    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;
    T_PATROLREC: TTable;
    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_tempdataseq: TIntegerField;
    q_temppdate: TDateField;
    q_tempptime: TTimeField;
    q_temppencode: TStringField;
    q_tempnode: TStringField;
    q_tempworkercode: TStringField;
    q_temppstatu: TStringField;
    q_tempworkername: TStringField;
    q_tempnodename: TStringField;
    q_tempnodeplace: TStringField;
    Query1: TQuery;
    Query1Id: TIntegerField;
    Query1Node: TStringField;
    Query1Linename: TStringField;
    Query1Name: TStringField;
    Query1Nodeplace: TStringField;
    Query1Lseq: TSmallintField;
    Query1Ntime: TSmallintField;
    q_templinename: TStringField;
    q_templseq: TStringField;
    q_xjysxx_viewDataseq: TIntegerField;
    q_xjysxx_viewPdate: TDateField;
    q_xjysxx_viewPtime: TTimeField;
    q_xjysxx_viewPencode: TStringField;
    q_xjysxx_viewNode: TStringField;
    q_xjysxx_viewWorkercode: TStringField;
    q_xjysxx_viewNodename: TStringField;
    q_xjysxx_viewNodeplace: TStringField;
    q_xjysxx_viewLinename: TStringField;
    q_xjysxx_viewLseq: TSmallintField;
    q_xjysxx_viewPstatu: TStringField;
    q_xjysxx_viewWorkername: TStringField;
    Query2: TQuery;
    Query2Id: TIntegerField;
    Query2Code: TStringField;
    Query2Name: TStringField;
    Query2Birthday: TDateField;
    Query2Sex: TStringField;
    Query2Address: TStringField;
    Query2Phone: TStringField;
    Query2Pager: TStringField;
    Query2Number: TStringField;
    Query2Pencode: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm_xjysxx_view: Tdm_xjysxx_view;

implementation

{$R *.DFM}

end.