gz_tiaoxinp.pas

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

unit Gz_TiaoXinP;

interface

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

type
  TfrmGz_TiaoXinP = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryEditEmpID: TIntegerField;
    qryEditXuHao: TIntegerField;
    qryEditDate0: TDateTimeField;
    qryEditDate1: TDateTimeField;
    qryEditNote: TStringField;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Bevel1: TBevel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    DBEdit51: TDBEdit;
    DBEdit52: TDBEdit;
    DBEdit53: TDBEdit;
    DBEdit54: TDBEdit;
    DBEdit55: TDBEdit;
    DBEdit56: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    DBEdit59: TDBEdit;
    DBEdit60: TDBEdit;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    qryUpdLast: TADOQry;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure FormCreate(Sender: TObject);
    procedure qryEditBeforePost(DataSet: TDataSet);
  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_TiaoXinP: TfrmGz_TiaoXinP;

implementation

uses SelfFunc, Gz_TiaoXin, Main;

{$R *.DFM}

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

    Self.SelectFirst;

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

procedure TfrmGz_TiaoXinP.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_TiaoXinP.Edit(tnEmpID:integer;tnXuHao:integer):Boolean;
begin
	lIsNew :=False;
    FModify(tnEmpID,tnXuHao);

    Self.ActiveControl :=cmdCancel;

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

procedure TfrmGz_TiaoXinP.cmdOKClick(Sender: TObject);
begin
	if qryEditEmpID.Value =0 then
    begin
    	//cedEmp.SetFocus;
    	Exit;
    end;
    if not ValidRecord(qryEdit, ['Date0',vrvNull])
    	then Exit;

    if qryEdit.State in [dsInsert,dsEdit]
    	then qryEdit.Post
    else begin
    	Self.ModalResult :=mrCancel;
        Exit;
    end;

    Self.ModalResult :=mrOK;
end;

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

procedure TfrmGz_TiaoXinP.qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
	//if ErrPost(E, qryEditCode) then Action :=daAbort;
end;

procedure TfrmGz_TiaoXinP.FormCreate(Sender: TObject);
begin
	SetHsxmEdit(qryEdit, qryG_Hsxm, Self, 51);
end;

procedure TfrmGz_TiaoXinP.qryEditBeforePost(DataSet: TDataSet);
begin
	if qryEditXuHao.Value >0 then
    with qryUpdLast do
    begin
		Parameters[0].Value :=qryEditDate0.Value -1;
		Parameters[1].Value :=qryEditEmpID.Value;
		Parameters[2].Value :=qryEditXuHao.Value -1;
        ExecSQL;
    end;
end;

end.