zlgxe.pas

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

unit ZlGxE;

interface

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

type
  TfrmZlGxE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    lblClass: TStaticText;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    edCode: TEdit;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryEditID: TIntegerField;
    qryEditCode: TStringField;
    qryEditName: TStringField;
    qryEditUnit: TStringField;
    qryEditCostNum: TIntegerField;
    qryEditPerCost: TFloatField;
    qryEditNote: TStringField;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    qrySysSet: TADOQry;
    qrySysSetGxCostNum: TIntegerField;
    qryEditCpGxs: TIntegerField;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    cedDept: TAdoCodeEd;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    qryEditDept: TStringField;
    qryEditSxTs: TIntegerField;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure qryEditNewRecord(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptCodeChange(Sender: TObject);
  private
    { Private declarations }
  	lIsNew :Boolean;
    sClass :string;

    nCostNum :integer;
    nPerCost :double;
    sUnit:string;
    procedure FModify(tnID:integer);
  public
	{ Public declarations }
	Function Add(tsClass:string):Boolean;
	Function Edit(tnID:integer):Boolean;
  end;

var
  frmZlGxE: TfrmZlGxE;

implementation

uses SelfFunc, ZlGx;

{$R *.DFM}

procedure TfrmZlGxE.FModify(tnID:integer);
begin
    with qryEdit do
    begin
    	Close;
        Parameters[0].Value :=tnID;
        Open;
        if lIsNew then
        begin
        	Append;
            edCode.Text :='';
            qryEditDept.Value :=cedDept.CodeText;
        end
        else cedDept.CodeText :=qryEditDept.Value;
	end;
    Self.SelectFirst;
end;

Function TfrmZlGxE.Add(tsClass:string):Boolean;
begin
	lIsNew :=True;
	sClass :=tsClass;

    lblClass.Caption :=sClass;
    edCode.Left :=lblClass.Left +lblClass.Width +1;

    lblClass.Visible :=True;
    edCode.Visible :=True;
    DBEdit1.Visible :=False;
    

	Self.Caption :='糤