gx_zlkzqd.pas

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

unit Gx_zlkzQD;

interface

uses
  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_zlkzQD = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel2: TPanel;
    cmdExit: TBitBtn;
    StoreForm1: TStoreForm;
    qryZldzD: TAdoMacroQry;
    qryZldzDCode: TStringField;
    qryZldzDName: TStringField;
    qryZldzDZsl: TFloatField;
    MyGrid1: TMyGrid;
    qryZldzD2: TAdoMacroQry;
    DataSource2: TDataSource;
    qryZldzD2FDate: TDateTimeField;
    qryZldzD2Amount: TFloatField;
    qryZldzDID: TIntegerField;
    qryZldzDZje: TFloatField;
    qryZldzD2Cost: TFloatField;
    procedure cmdExitClick(Sender: TObject);
    procedure qryZldzDAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  	procedure Requery();
  end;

var
  frmGx_zlkzQD: TfrmGx_zlkzQD;

implementation

uses SelfFunc, Main, RptExcel, Gx_zlkzQ;

{$R *.DFM}

procedure TfrmGx_zlkzQD.Requery();
begin
    qryZldzD2.Close;
    qryZldzD2.ParamByN('dDate0').Value :=TfrmGx_zlkzQ(Owner)
    	.qryZldz.ParamByN('dDate0').Value;
    qryZldzD2.ParamByN('dDate1').Value :=TfrmGx_zlkzQ(Owner)
    	.qryZldz.ParamByN('dDate1').Value;
    qryZldzD2.ParamByN('nGxID').Value :=TfrmGx_zlkzQ(Owner)
    	.qryZldzID.AsString;

    qryZldzD.Close;
    qryZldzD.ParamByN('dDate0').Value :=TfrmGx_zlkzQ(Owner)
    	.qryZldz.ParamByN('dDate0').Value;
    qryZldzD.ParamByN('dDate1').Value :=TfrmGx_zlkzQ(Owner)
    	.qryZldz.ParamByN('dDate1').Value;
    qryZldzD.ParamByN('sDept').Value :=TfrmGx_zlkzQ(Owner)
    	.qryZldz.ParamByN('sDept').Value;
    qryZldzD.ParamByN('nGxID').Value :=TfrmGx_zlkzQ(Owner)
    	.qryZldzID.AsString;
    qryZldzD.Open;

    Self.ShowModal;
end;

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

procedure TfrmGx_zlkzQD.qryZldzDAfterScroll(DataSet: TDataSet);
begin
	with qryZldzD2 do
    begin
    	Close;
        ParamByN('nEmpID').Value :=qryZldzDID.AsString;
        Open;
    end;
end;

end.