zlgx.pas

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

unit ZlGx;

interface

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

type
  TfrmZlGx = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    qryBrowse: TADOQry;
    Image1: TImage;
    qryDelete: TADOQry;
    qryClass0: TADOQry;
    qryClass0nChilds: TIntegerField;
    panClass: TPanel;
    DBGrid2: TMyGrid;
    qryClass: TADOQry;
    DataSource2: TDataSource;
    qryClassCode: TStringField;
    qryClassLName: TStringField;
    cmdDel: TBitBtn;
    cmdEdit: TBitBtn;
    cmdAdd: TBitBtn;
    Label2: TLabel;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    qryBrowseID: TIntegerField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseUnit: TStringField;
    qryBrowseCostNum: TIntegerField;
    qryBrowsePerCost: TFloatField;
    qryBrowseNote: TStringField;
    cmdUpdGzJj: TBitBtn;
    procSetPerCost: TADOProcedure;
    Splitter1: TSplitter;
    qryDelCheck: TADOQry;
    qryDelChecklCanDel: TIntegerField;
    qryBrowseCpGxs: TIntegerField;
    qryBrowseDept: TStringField;
    qryBrowsesDept: TStringField;
    qryClassPerCost: TFloatField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure qryClassAfterScroll(DataSet: TDataSet);
    procedure cmdUpdGzJjClick(Sender: TObject);
  private
    dlgZlGxE :TfrmZlGxE;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmZlGx: TfrmZlGx;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmZlGx.cmdAddClick(Sender: TObject);
begin
    if qryClassCode.Value ='' then
    begin
    	MsgBox('叫