dm_sjbf_pas.pas

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

unit dm_sjbf_pas;

interface

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

type
  Tdm_sjbf = class(TDataModule)
    Database1: TDatabase;
    q_worker: TQuery;
    q_point: TQuery;
    q_shiftrule: TQuery;
    q_fpxl: TQuery;
    q_pointId: TIntegerField;
    q_pointNode: TStringField;
    q_pointLinename: TStringField;
    q_pointName: TStringField;
    q_pointNodeplace: TStringField;
    q_pointLseq: TSmallintField;
    q_pointNtime: 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_shiftruleId: TIntegerField;
    q_shiftruleLinename: TStringField;
    q_shiftruleShifts: TStringField;
    q_shiftruleFirstp: TTimeField;
    q_shiftruleLastp: TTimeField;
    q_shiftruleChkcycl: TIntegerField;
    q_shiftruleDltp: TIntegerField;
    q_shiftruleDltt: TIntegerField;
    q_shiftruleDgpcsx: TIntegerField;
    q_shiftruleDgpcxx: TIntegerField;
    q_fpxlNumber: TIntegerField;
    q_fpxlCode: TStringField;
    q_fpxlShift: TStringField;
    q_fpxlLinename: TStringField;
    Session1: TSession;
    us_point: TUpdateSQL;
    us_worker: TUpdateSQL;
    us_shiftrule: TUpdateSQL;
    us_fpxl: TUpdateSQL;
    q_shiftruleTimes: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm_sjbf: Tdm_sjbf;

implementation

{$R *.DFM}

end.