workstatetjdm.pas

一个电力企业的后台管理程序

unit WorkStateTJDM;

interface

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

type
  TDM_WorkStateTJ = class(TDataModule)
    Tbl_Worker: TTable;
    DS_Worker: TDataSource;
    Qr_WorkStateTJ: TQuery;
    DS_WorkStateTJ: TDataSource;
    Qr_WorkStateTJWorkId: TStringField;
    Qr_WorkStateTJWorkName: TStringField;
    Qr_WorkStateTJGZBX_Num: TIntegerField;
    Qr_WorkStateTJYKZX_Num: TIntegerField;
    Qr_WorkStateTJYHTS_Num: TIntegerField;
    Qr_WorkStateTJYHZX_Num: TIntegerField;
    Qr_Total: TQuery;
    Qr_TotalGZBX_Total: TIntegerField;
    Qr_TotalYKZX_Total: TIntegerField;
    Qr_TotalYHTS_Total: TIntegerField;
    Qr_TotalYHZX_Total: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_WorkStateTJ: TDM_WorkStateTJ;

implementation

{$R *.DFM}

end.