gz_gxtje.pas

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

unit Gz_GxTjE;

interface

uses Variants,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, ObeyTable, Buttons,
  CodeEd, OleCtnrs, ComCtrls, TimeIntField, ADODB, ADOQry, AdoCodeEd;

type
  TfrmGz_GxTjE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    cedEmp: TAdoCodeEd;
    qryGx: TADOQry;
    lblCode: TLabel;
    qryGxID: TIntegerField;
    qryEditXuHao: TIntegerField;
    qryEditDate0: TDateTimeField;
    qryEditDate1: TDateTimeField;
    qryEditNote: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    qryLast: TADOQry;
    qryLastXuHao: TIntegerField;
    qryLastDate0: TDateTimeField;
    qryLastDate1: TDateTimeField;
    qryLastNote: TStringField;
    qryUpdLast: TADOQry;
    qryEditGxID: TIntegerField;
    qryEditPerCost: TFloatField;
    qryEditPerCost2: TFloatField;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    qryLastGxID: TIntegerField;
    qryLastPerCost: TFloatField;
    qryLastPerCost2: TFloatField;
    qryGxCode: TStringField;
    qryGxName: TStringField;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure cedEmpCodeChange(Sender: TObject);
    procedure qryEditNewRecord(DataSet: TDataSet);
    procedure cedEmpGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure qryEditBeforePost(DataSet: TDataSet);
    procedure qryEditGxIDChange(Sender: TField);
  private
    { Private declarations }
  	lIsNew :Boolean;
	procedure FModify(tnEmpID:integer;tnXuHao:integer);
  public
	Function Add():Boolean;
	Function Edit(tnEmpID:integer;tnXuHao:integer):Boolean;
	{ Public declarations }
  end;

var
  frmGz_GxTjE: TfrmGz_GxTjE;

implementation

uses SelfFunc, Gz_GxTj, Main;

{$R *.DFM}

Function TfrmGz_GxTjE.Add():Boolean;
begin
	lIsNew :=True;
    FModify(0,0);

    cedEmp.CodeText :=''; //TfrmGz_GxTj(Owner).qryBrowseCode.Value;
    //qryEditEmpID.Value :=TfrmGz_GxTj(Owner).qryBrowseEmpID.Value;
    cedEmp.Enabled :=True;
    Self.SelectFirst;

    Result :=(Self.ShowModal() =mrOK);
end;

procedure TfrmGz_GxTjE.FModify(tnEmpID:integer;tnXuHao:integer);
begin
    with qryEdit do
    begin
    	Close;
        if lIsNew then Parameters[0].Value :=Null
        else Parameters[0].Value :=tnEmpID;
        if lIsNew then Parameters[1].Value :=Null
        else Parameters[1].Value :=tnXuHao;
        Open;
        if lIsNew then Append;
	end;
    Self.SelectFirst;
end;

Function TfrmGz_GxTjE.Edit(tnEmpID:integer;tnXuHao:integer):Boolean;
begin
    with qryLast do
    begin
    	Close;
        Parameters[0].Value :=tnEmpID;
        Open;
    end;
    if qryLastXuHao.Value <>tnXuHao then
    begin
    	MsgBox('癗Τ赣