qgxtotal.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 103 行

unit QGxTotal;

interface

uses MultiFilter,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, MyGrid, FormStore, AdoCodeEd, ComCtrls,
  StoreForm, ADODB, ADOQry;

type
  TfrmQGxTotal = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    qryByDept: TADOQry;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    MyGrid1: TMyGrid;
    TabSheet2: TTabSheet;
    qryByEmp: TADOQry;
    DataSource2: TDataSource;
    MyGrid2: TMyGrid;
    qryByEmpEmpCode: TStringField;
    qryByEmpEmpName: TStringField;
    qryByEmpGxCode: TStringField;
    qryByEmpGxName: TStringField;
    qryByEmpAmount: TFloatField;
    qryByEmpCost: TFloatField;
    qryByDeptDeptCode: TStringField;
    qryByDeptDeptName: TStringField;
    qryByDeptGxCode: TStringField;
    qryByDeptGxName: TStringField;
    qryByDeptAmount: TFloatField;
    qryByDeptCost: TFloatField;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    Label2: TLabel;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    Label3: TLabel;
    cedDept: TAdoCodeEd;
    cmdQuery: TBitBtn;
    qryGxFl: TADOQry;
    qryGxFlCode: TStringField;
    qryGxFlName: TStringField;
    Label4: TLabel;
    cedGxFl: TAdoCodeEd;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure oPagesChange(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cmdQueryClick(Sender: TObject);
    procedure cedGxFlGetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
  	oQuerys :Array[0..5] of TADOQry;
    sSQL :Array[0..5] of string;
  public
    { Public declarations }
    procedure Total(tsWhere:string);
  end;

var
  frmQGxTotal: TfrmQGxTotal;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

procedure TfrmQGxTotal.Total(tsWhere:string);
var i :integer;
begin
    for i :=0 to 1 do
    with oQuerys[i] do
    begin
    	Close;
        SQL.Clear;
        SQL.Append(StringReplace(sSQL[i], '@sWhere', tsWhere, [rfReplaceAll]));
    end;

    Self.ShowModal;
end;

procedure TfrmQGxTotal.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmQGxTotal.FormCreate(Sender: TObject);
var ts :string;
	n,i :integer;
begin
	if frmMain.czyQxDept <>'' then //场