dm_yxxx_pas.pas

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

unit dm_yxxx_pas;

interface

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

type
  Tdm_yxxx_form = class(TDataModule)
    Q_worker: TQuery;
    ds_worker: TDataSource;
    q_line: TQuery;
    ds_line: TDataSource;
    q_shifts: TQuery;
    ds_shifts: TDataSource;
    q_point: TQuery;
    ds_point: TDataSource;
    q_fpxl: TQuery;
    q_choose_point: TQuery;
    q_ysxx: TQuery;
    q_yxxx: TQuery;
    ds_yxxx: TDataSource;
    q_choose_shifts: TQuery;
    q_ldxx_view: TQuery;
    ds_ldxx_view: TDataSource;
    ds_yxxx_fl: TDataSource;
    q_yxxx_fl: TTable;
    q_wzxx_view: TQuery;
    ds_wzxx_view: TDataSource;
    q_lxxx_view: TQuery;
    ds_lxxx_view: TDataSource;
    Table1: TTable;
    ds_sjyc: TDataSource;
    q_sjyc: TQuery;
    BatchMove1: TBatchMove;
    t_yxxx_view: TTable;
    q_xxlr: TQuery;
    q_xxwh: TQuery;
    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_pointnode: TStringField;
    q_pointname: TStringField;
    q_pointlseq: TSmallintField;
    q_pointnodeplace: TStringField;
    q_shiftsshifts: TStringField;
    q_fpxlcode: TStringField;
    q_fpxllinename: TStringField;
    q_fpxlshift: TStringField;
    q_choose_pointId: TIntegerField;
    q_choose_pointNode: TStringField;
    q_choose_pointLinename: TStringField;
    q_choose_pointName: TStringField;
    q_choose_pointNodeplace: TStringField;
    q_choose_pointLseq: TSmallintField;
    q_choose_pointNtime: TSmallintField;
    q_choose_shiftsId: TIntegerField;
    q_choose_shiftsLinename: TStringField;
    q_choose_shiftsShifts: TStringField;
    q_choose_shiftsFirstp: TTimeField;
    q_choose_shiftsLastp: TTimeField;
    q_choose_shiftsChkcycl: TIntegerField;
    q_choose_shiftsDltp: TIntegerField;
    q_choose_shiftsDltt: TIntegerField;
    q_choose_shiftsDgpcsx: TIntegerField;
    q_choose_shiftsDgpcxx: TIntegerField;
    q_ysxxdataseq: TIntegerField;
    q_ysxxworkercode: TStringField;
    q_ysxxpencode: TStringField;
    q_ysxxpdate: TDateField;
    q_ysxxptime: TTimeField;
    q_ysxxpstatu: TStringField;
    q_ysxxnode: TStringField;
    q_ysxxlinename: TStringField;
    q_ysxxname: TStringField;
    q_ysxxnodeplace: TStringField;
    q_ysxxlseq: TSmallintField;
    q_ysxxntime: TSmallintField;
    q_ysxxworkername: TStringField;
    q_ysxxnumber: TStringField;
    q_ysxxshifts: TStringField;
    q_ysxxfirstp: TTimeField;
    q_ysxxlastp: TTimeField;
    q_ysxxchkcycl: TIntegerField;
    q_ysxxdgpcsx: TIntegerField;
    q_ysxxdgpcxx: TIntegerField;
    Table1Dataseq: TAutoIncField;
    Table1Pdate: TDateField;
    Table1Ptime: TTimeField;
    Table1Pencode: TStringField;
    Table1Node: TStringField;
    Table1Workercode: TStringField;
    Table1Nodename: TStringField;
    Table1Nodeplace: TStringField;
    Table1Linename: TStringField;
    Table1Lseq: TSmallintField;
    Table1Pstatu: TStringField;
    Table1Shifts: TStringField;
    Table1Firstp: TTimeField;
    Table1Lastp: TTimeField;
    Table1Chkcycl: TIntegerField;
    Table1Dgpcxx: TIntegerField;
    Table1Dgpcsx: TIntegerField;
    Table1Ntime: TSmallintField;
    q_yxxxDataseq: TIntegerField;
    q_yxxxPdate: TDateField;
    q_yxxxPtime: TTimeField;
    q_yxxxPencode: TStringField;
    q_yxxxNode: TStringField;
    q_yxxxWorkercode: TStringField;
    q_yxxxNodename: TStringField;
    q_yxxxNodeplace: TStringField;
    q_yxxxLinename: TStringField;
    q_yxxxLseq: TSmallintField;
    q_yxxxPstatu: TStringField;
    q_yxxxShifts: TStringField;
    q_yxxxFirstp: TTimeField;
    q_yxxxLastp: TTimeField;
    q_yxxxChkcycl: TIntegerField;
    q_yxxxDgpcxx: TIntegerField;
    q_yxxxDgpcsx: TIntegerField;
    q_yxxxNtime: TSmallintField;
    t_yxxx_viewDataseq: TAutoIncField;
    t_yxxx_viewPdate: TDateField;
    t_yxxx_viewPtime: TTimeField;
    t_yxxx_viewPencode: TStringField;
    t_yxxx_viewNode: TStringField;
    t_yxxx_viewWorkercode: TStringField;
    t_yxxx_viewNodename: TStringField;
    t_yxxx_viewNodeplace: TStringField;
    t_yxxx_viewLinename: TStringField;
    t_yxxx_viewLseq: TSmallintField;
    t_yxxx_viewPstatu: TStringField;
    t_yxxx_viewShifts: TStringField;
    t_yxxx_viewFirstp: TTimeField;
    t_yxxx_viewLastp: TTimeField;
    t_yxxx_viewChkcycl: TIntegerField;
    t_yxxx_viewDgpcxx: TIntegerField;
    t_yxxx_viewDgpcsx: TIntegerField;
    t_yxxx_viewNtime: TSmallintField;
    q_xxlrworkercode: TStringField;
    q_xxlrnode: TStringField;
    q_ldxx_viewpdate: TDateField;
    q_ldxx_viewcode: TStringField;
    q_ldxx_viewlinename: TStringField;
    q_ldxx_viewshifts: TStringField;
    q_ldxx_viewnode: TStringField;
    q_ldxx_viewxxbs: TStringField;
    q_ldxx_viewcase: TStringField;
    q_ldxx_viewname: TStringField;
    q_ldxx_viewnodeplace: TStringField;
    q_ldxx_viewlseq: TSmallintField;
    q_ldxx_viewworkername: TStringField;
    q_wzxx_viewxxbs: TStringField;
    q_wzxx_viewlinename: TStringField;
    q_wzxx_viewshifts: TStringField;
    q_wzxx_viewcode: TStringField;
    q_wzxx_viewpdate: TDateField;
    q_wzxx_viewptime: TTimeField;
    q_wzxx_viewendtime: TTimeField;
    q_wzxx_viewworkername: TStringField;
    q_lxxx_viewpencode: TStringField;
    q_lxxx_viewpstatu: TStringField;
    q_lxxx_viewnode: TStringField;
    q_lxxx_viewcode: TStringField;
    q_lxxx_viewpdate: TDateField;
    q_lxxx_viewlinename: TStringField;
    q_lxxx_viewshifts: TStringField;
    q_lxxx_viewptime: TTimeField;
    q_lxxx_viewworkername: TStringField;
    q_lxxx_viewlseq: TSmallintField;
    q_lxxx_viewname: TStringField;
    q_lxxx_viewnodeplace: TStringField;
    q_sjycpdate: TDateField;
    q_sjycptime: TTimeField;
    q_sjyccode: TStringField;
    q_sjyclinename: TStringField;
    q_sjycshifts: TStringField;
    q_sjyccase: TStringField;
    q_sjycconifo: TStringField;
    q_sjycname: TStringField;
    q_sjycxxbs: TStringField;
    q_yxxx_flId: TAutoIncField;
    q_yxxx_flPdate: TDateField;
    q_yxxx_flPtime: TTimeField;
    q_yxxx_flCode: TStringField;
    q_yxxx_flLinename: TStringField;
    q_yxxx_flShifts: TStringField;
    q_yxxx_flNode: TStringField;
    q_yxxx_flXxbs: TStringField;
    q_yxxx_flCase: TStringField;
    q_yxxx_flConifo: TStringField;
    q_yxxx_flPencode: TStringField;
    q_yxxx_flPstatu: TStringField;
    q_yxxx_flNodeplace: TStringField;
    q_yxxx_flName: TStringField;
    q_yxxx_flLseq: TSmallintField;
    q_yxxx_flEndtime: TTimeField;
    t_yxxx_viewWorkername: TStringField;
    q_yxxxWorkername: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm_yxxx_form: Tdm_yxxx_form;

implementation

{$R *.DFM}

end.