gzj_tiaojia.pas

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

unit GzJ_TiaoJia;

interface

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

type
  TfrmGzJ_TiaoJia = class(TForm)
    DataSource1: TDataSource;
    MyGrid1: TMyGrid;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    cmdQuery: TBitBtn;
    qryBrowse: TADOQry;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseUnit: TStringField;
    qryBrowseCostNum: TIntegerField;
    qryBrowsePrice: TBCDField;
    qryBrowseCpGxs: TIntegerField;
    qryBrowseDept: TStringField;
    qryBrowseNote: TStringField;
    qryBrowsesDept: TStringField;
    qryBrowseDeptName: TStringField;
    Label8: TLabel;
    cedCp: TAdoCodeEd;
    qryCp: TADOQry;
    qryCpCode: TStringField;
    qryCpName: TStringField;
    Label2: TLabel;
    dpDate: TDateTimePicker;
    Label3: TLabel;
    edDdNo: TEdit;
    Panel2: TPanel;
    Splitter1: TSplitter;
    MyGrid2: TMyGrid;
    Panel3: TPanel;
    Label4: TLabel;
    cmdAdd: TBitBtn;
    cmdEdit: TBitBtn;
    cmdDel: TBitBtn;
    qryTiaoJia: TADOQry;
    DataSource2: TDataSource;
    qryTiaoJiaID: TAutoIncField;
    qryTiaoJiaPrice: TBCDField;
    qryTiaoJiaDate0: TDateTimeField;
    qryTiaoJiaDate1: TDateTimeField;
    qryTiaoJiaDdNo: TStringField;
    qryTiaoJiaNote: TStringField;
    qryTiaoJialIsNow: TIntegerField;
    qryDelTiaoJia: TADOQry;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure rgIfLz0Click(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdQueryClick(Sender: TObject);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure cedCpGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure qryBrowseAfterScroll(DataSet: TDataSet);
    procedure MyGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure cedCpCodeChange(Sender: TObject);
    procedure MyGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure MyGrid2DblClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
  private
  	dlgGzJ_TiaoJiaE :TfrmGzJ_TiaoJiaE;
  public
    { Public declarations }
  end;

var
  frmGzJ_TiaoJia: TfrmGzJ_TiaoJia;

implementation

uses RptExcel, SelfFunc, Main, DsLocate;

{$R *.DFM}

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

procedure TfrmGzJ_TiaoJia.FormCreate(Sender: TObject);
begin
	dlgGzJ_TiaoJiaE :=TfrmGzJ_TiaoJiaE.Create(Self);
	dpDate.DateTime :=Date();
end;

procedure TfrmGzJ_TiaoJia.rgIfLz0Click(Sender: TObject);
begin
    cmdQuery.OnClick(nil);
end;

procedure TfrmGzJ_TiaoJia.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt(Self.Caption, qryBrowse
    	,['玻珇絪絏', qryCpCode.Value
         ,'玻珇