dm_fpxl_pas.pas

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

unit dm_fpxl_pas;

interface

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

type
  Tdm_fpxl = class(TDataModule)
    Q_xl: TQuery;
    q_ry: TQuery;
    Q_xllinename: TStringField;
    Q_xlshifts: TStringField;
    q_rycode: TStringField;
    q_ryname: TStringField;
    ds_xl: TDataSource;
    ds_ry: TDataSource;
    q_fpxl: TQuery;
    ds_fpxl: TDataSource;
    q_fpxlNumber: TIntegerField;
    q_fpxlCode: TStringField;
    q_fpxlShift: TStringField;
    q_fpxlLinename: TStringField;
    q_fpxl_test: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm_fpxl: Tdm_fpxl;

implementation

{$R *.DFM}

end.