dm_class_pas.~pas

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

unit dm_class_pas;

interface

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

type
  Tdm_class_form = class(TDataModule)
    ds_line: TDataSource;
    q_line: TQuery;
    q_class: TQuery;
    ds_class: TDataSource;
    q_find: TQuery;
    q_view: TQuery;
    ds_view: TDataSource;
    q_shift: TQuery;
    ds_shift: TDataSource;
    q_linelinename: TStringField;
    q_classId: TAutoIncField;
    q_classLinename: TStringField;
    q_classShifts: TStringField;
    q_classFirstp: TTimeField;
    q_classLastp: TTimeField;
    q_classChkcycl: TIntegerField;
    q_classDltp: TIntegerField;
    q_classDltt: TIntegerField;
    q_classDgpcsx: TIntegerField;
    q_classDgpcxx: TIntegerField;
    q_findId: TIntegerField;
    q_findLinename: TStringField;
    q_findShifts: TStringField;
    q_findFirstp: TTimeField;
    q_findLastp: TTimeField;
    q_findChkcycl: TIntegerField;
    q_findDltp: TIntegerField;
    q_findDltt: TIntegerField;
    q_findDgpcsx: TIntegerField;
    q_findDgpcxx: TIntegerField;
    q_shiftshifts: TStringField;
    q_viewId: TIntegerField;
    q_viewLinename: TStringField;
    q_viewShifts: TStringField;
    q_viewFirstp: TTimeField;
    q_viewLastp: TTimeField;
    q_viewChkcycl: TIntegerField;
    q_viewDltp: TIntegerField;
    q_viewDltt: TIntegerField;
    q_viewDgpcsx: TIntegerField;
    q_viewDgpcxx: TIntegerField;
    q_class_ls: TQuery;
    AutoIncField1: TAutoIncField;
    StringField1: TStringField;
    StringField2: TStringField;
    TimeField1: TTimeField;
    TimeField2: TTimeField;
    IntegerField1: TIntegerField;
    IntegerField2: TIntegerField;
    IntegerField3: TIntegerField;
    IntegerField4: TIntegerField;
    IntegerField5: TIntegerField;
    q_edit: TQuery;
    q_classTimes: TIntegerField;
    q_viewTimes: TIntegerField;
    q_class_lsTimes: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm_class_form: Tdm_class_form;

implementation

{$R *.DFM}

end.