kq_cqzk2.pas

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

unit Kq_Cqzk2;

interface

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

type
  TfrmKq_Cqzk2 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TADOQry;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    Label2: TLabel;
    dpDate0: TDateTimePicker;
    cmdQuery: TBitBtn;
    qryBrowseCode: TStringField;
    qryBrowseKgRs: TIntegerField;
    qryBrowseSdRs: TIntegerField;
    Label3: TLabel;
    panDeptFilter: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    qryBrowseZrs: TIntegerField;
    qryBrowseLzrs: TIntegerField;
    qryBrowseGxRs: TIntegerField;
    qryBrowseName: TStringField;
    qryBrowseTreeLevel: TSmallintField;
    qryBrowseLName: TStringField;
    qryBrowseJxfs: TStringField;
    qryBrowsesJxfs: TStringField;
    qryBrowsePyRs: TIntegerField;
    qryBrowseDrRs: TIntegerField;
    qryBrowseDcRs: TIntegerField;
    qryBrowseQjRs: TIntegerField;
    qryBrowseLongName: TStringField;
    qryBrowseYdRs: TIntegerField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton1Click(Sender: TObject);
    procedure qryBrowseCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmKq_Cqzk2: TfrmKq_Cqzk2;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmKq_Cqzk2.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt(Self.Caption, qryBrowse ,['ら戳', dpDate0.Date]);
end;

procedure TfrmKq_Cqzk2.FormCreate(Sender: TObject);
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

    dpDate0.Date :=Date() -1;
    //cmdQuery.OnClick(nil);
end;

procedure TfrmKq_Cqzk2.cmdQueryClick(Sender: TObject);
begin
	with qryBrowse do
    begin
    	Close;
        Parameters[0].Value :=dpDate0.Date;
        Open;
    end;
end;

procedure TfrmKq_Cqzk2.FormKeyPress(Sender: TObject; var Key: Char);
begin
	if Key =#13 then
    begin
    	Key :=#0;
        Self.SelectNext(Self.ActiveControl, True,True);
    end;
end;

procedure TfrmKq_Cqzk2.RadioButton1Click(Sender: TObject);
var tn :integer;
begin
	with qryBrowse do
    begin
    	Close;
        //Parameters[0].Value :=dpDate0.Date;
		tn :=GetRdsIndex(panDeptFilter);
		if tn < 2 then Parameters[1].Value :=tn+1
    	else Parameters[1].Value :=99;
        Open;
    end;
end;

procedure TfrmKq_Cqzk2.qryBrowseCalcFields(DataSet: TDataSet);
begin
	qryBrowseLName.Value :=StringOfChar(' ',(qryBrowseTreeLevel.Value-1)*2)
    	+qryBrowseName.Value;
end;

end.