gx_zlkzq.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit Gx_zlkzQ;

interface

uses Gx_zlkzQD,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBCtrls,
  ComCtrls, Mask, FormStore, MyGrid, MacroQuery, ADODB, AdoMacroQry,
  StoreForm;

type
  TfrmGx_zlkzQ = class(TForm)
    DataSource1: TDataSource;
    Panel2: TPanel;
    StoreForm1: TStoreForm;
    qryZldz: TAdoMacroQry;
    qryZldzCode: TStringField;
    qryZldzName: TStringField;
    qryZldzUnit: TStringField;
    qryZldzKzZl: TFloatField;
    qryZldzSjZl: TFloatField;
    qryZldzCyZl: TFloatField;
    qryZldzID: TIntegerField;
    qryZldzPerCost: TFloatField;
    qryZldzKzJe: TFloatField;
    qryZldzSjJe: TFloatField;
    qryZldzSlCyl: TFloatField;
    qryZldzCyJe: TFloatField;
    qryZldzJeCyl: TFloatField;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    qryZldzByD: TAdoMacroQry;
    DataSource2: TDataSource;
    MyGrid1: TMyGrid;
    MyGrid2: TMyGrid;
    qryZldzByDKzZl: TFloatField;
    qryZldzByDSjZl: TFloatField;
    qryZldzByDCyZl: TFloatField;
    qryZldzByDKzJe: TFloatField;
    qryZldzByDSjJe: TFloatField;
    qryZldzByDSlCyl: TFloatField;
    qryZldzByDCyJe: TFloatField;
    qryZldzByDJeCyl: TFloatField;
    qryZldzByDDept: TStringField;
    qryZldzByDsDept: TStringField;
    qrySum: TAdoMacroQry;
    FloatField1: TFloatField;
    FloatField2: TFloatField;
    FloatField3: TFloatField;
    FloatField4: TFloatField;
    FloatField5: TFloatField;
    FloatField6: TFloatField;
    FloatField7: TFloatField;
    FloatField8: TFloatField;
    DataSource3: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    cmdExit: TBitBtn;
    cmdPrint: TBitBtn;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MyGrid2DblClick(Sender: TObject);
  private
    { Private declarations }
    dlgGx_zlkzQD :TfrmGx_zlkzQD;
  public
    { Public declarations }
  	procedure Requery();
  end;

var
  frmGx_zlkzQ: TfrmGx_zlkzQ;

implementation

uses SelfFunc, Main, RptExcel, Gx_zlkz;

{$R *.DFM}

procedure TfrmGx_zlkzQ.Requery();
begin
    qryZldzByD.Close;
    qryZldzByD.ParamByN('nAmount').Value :=FormatFloat('0.00',TfrmGx_zlkz(Owner).qryBrowseAmount.Value);
    qryZldzByD.ParamByN('dDate0').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseDate0.AsString +'''';
    qryZldzByD.ParamByN('dDate1').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseDate1.AsString +'''';
    qryZldzByD.ParamByN('sDept').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseDept.AsString +'%''';
    qryZldzByD.ParamByN('sGxFl').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseGxFl.AsString +'%''';
    qryZldzByD.Open;

    qryZldz.Close;
    qryZldz.ParamByN('nAmount').Value :=FormatFloat('0.00',TfrmGx_zlkz(Owner).qryBrowseAmount.Value);
    qryZldz.ParamByN('dDate0').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseDate0.AsString +'''';
    qryZldz.ParamByN('dDate1').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseDate1.AsString +'''';
    qryZldz.ParamByN('sDept').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseDept.AsString +'%''';
    qryZldz.ParamByN('sGxFl').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseGxFl.AsString +'%''';
    qryZldz.Open;

    qrySum.Close;
    qrySum.ParamByN('nAmount').Value :=FormatFloat('0.00',TfrmGx_zlkz(Owner).qryBrowseAmount.Value);
    qrySum.ParamByN('dDate0').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseDate0.AsString +'''';
    qrySum.ParamByN('dDate1').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseDate1.AsString +'''';
    qrySum.ParamByN('sDept').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseDept.AsString +'%''';
    qrySum.ParamByN('sGxFl').Value :=''''+ TfrmGx_zlkz(Owner).qryBrowseGxFl.AsString +'%''';
    qrySum.Open;

    Self.ShowModal;
end;

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

procedure TfrmGx_zlkzQ.cmdPrintClick(Sender: TObject);
begin
	if oPages.ActivePageIndex =0 then
	  with frmGx_zlkz do
	  frmRptExcel.PrintRpt(Self.Caption +'-