kq_jbssylb.pas

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

unit Kq_Jbssylb;

interface

uses Variants,
  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, ADOQry, ADODB, AdoMacroQry;

type
  TfrmKq_Jbssylb = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    Label3: TLabel;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    cedDept: TAdoCodeEd;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseEmpID: TIntegerField;
    qrySession: TADOQry;
    qrySessionID: TIntegerField;
    qrySessionMemo: TStringField;
    DataSource3: TDataSource;
    cboSession: TDBLookupComboBox;
    qryCurSession: TADOQry;
    qryCurSessionCurID: TIntegerField;
    qrySessionDate0: TDateTimeField;
    qrySessionDate1: TDateTimeField;
    cmdPrint: TBitBtn;
    qryBrowseZjb: TFloatField;
    qryBrowseJb1: TFloatField;
    qryBrowseJb2: TFloatField;
    qryBrowseJb3: TFloatField;
    qryBrowseJb4: TFloatField;
    qryBrowseJb5: TFloatField;
    qryBrowseJb6: TFloatField;
    qryBrowseJb7: TFloatField;
    qryBrowseJb8: TFloatField;
    qryBrowseJb9: TFloatField;
    qryBrowseJb10: TFloatField;
    qryBrowseJb11: TFloatField;
    qryBrowseJb12: TFloatField;
    qryBrowseJb13: TFloatField;
    qryBrowseJb14: TFloatField;
    qryBrowseJb15: TFloatField;
    qryBrowseJb16: TFloatField;
    qryBrowseJb17: TFloatField;
    qryBrowseJb18: TFloatField;
    qryBrowseJb19: TFloatField;
    qryBrowseJb20: TFloatField;
    qryBrowseJb21: TFloatField;
    qryBrowseJb22: TFloatField;
    qryBrowseJb23: TFloatField;
    qryBrowseJb24: TFloatField;
    qryBrowseJb25: TFloatField;
    qryBrowseJb26: TFloatField;
    qryBrowseJb27: TFloatField;
    qryBrowseJb28: TFloatField;
    qryBrowseJb29: TFloatField;
    qryBrowseJb30: TFloatField;
    qryBrowseJb31: TFloatField;
    qryBrowseZzb: TFloatField;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure cboSessionExit(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cmdPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmKq_Jbssylb: TfrmKq_Jbssylb;

implementation

uses RptExcel, SelfFunc, Main, DsLocate;

{$R *.DFM}

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

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