qgzbydept.pas

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

unit QGzByDept;

interface

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

type
  TfrmQGzByDept = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseTreeLevel: TSmallintField;
    qryBrowseLName: TStringField;
    MyGrid1: TMyGrid;
    qryBrowseZrs: TIntegerField;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    cboRptName: TComboBox;
    qrySysSet: TADOQry;
    qrySysSetRptNames: TStringField;
    qryBrowseLongName: TStringField;
    cmdFilter: TBitBtn;
    Label6: TLabel;
    panDept: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure qryBrowseCalcFields(DataSet: TDataSet);
    procedure cmdFilterClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    dlgMultiFilter :TfrmGz_TotalF;
  public
    { Public declarations }
  end;

var
  frmQGzByDept: TfrmQGzByDept;

implementation

uses RptExcel, SelfFunc, Main, QSumGz;

{$R *.DFM}

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

procedure TfrmQGzByDept.FormCreate(Sender: TObject);
var ts,tsFields :string;
	i :integer;
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

	dlgMultiFilter :=TfrmGz_TotalF.Create(Self);
    dlgMultiFilter.qryBrowse :=qryBrowse;

	//砞竚ゴ