zldepte.pas

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

unit ZlDeptE;

interface

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

type
  TfrmZlDeptE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryEditCode: TStringField;
    qryEditName: TStringField;
    qryEditTreeLevel: TSmallintField;
    qryEditCurCode: TStringField;
    qryEditUpCode: TStringField;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    lblUpCode: TStaticText;
    qryUpClass: TADOQry;
    qryUpClassTreeLevel: TSmallintField;
    qryCodeLen: TADOQry;
    qryCodeLenLastCode: TStringField;
    qryEditManager: TStringField;
    qryEditTel: TStringField;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    qryEditNote: TStringField;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    qryEditBianZhiRs: TIntegerField;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    qryEditLongName: TStringField;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    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 qryEditBeforePost(DataSet: TDataSet);
    procedure qryEditLongNameChange(Sender: TField);
  private
  	lIsNew :Boolean;
    sUpCode :string;
    nTreeLevel :integer;
    procedure FModify(tsCode:string);
    { Private declarations }
  public
	Function Add(tsUpCode:string):Boolean;
	Function Edit(tsCode:string):Boolean;
	{ Public declarations }
  end;

var
  frmZlDeptE: TfrmZlDeptE;

implementation

uses SelfFunc, ZlDept;

{$R *.DFM}

procedure TfrmZlDeptE.FModify(tsCode:string);
begin
    with qryEdit do
    begin
    	Close;
        Parameters[0].Value :=tsCode;
        Open;
        if lIsNew then Append;
	end;
    with qryCodeLen do
    begin
    	Close;
        Parameters[0].Value :=qryEditUpCode.Value;
        Parameters[1].Value :=qryEditCode.Value;
        Open;
        if qryCodeLenLastCode.IsNull then qryEditCurCode.EditMask :=''
        else qryEditCurCode.EditMask :='!>'
        	+StringOfChar('C', Length(qryCodeLenLastCode.Value) ) +';1; ';
    end;
    Self.SelectFirst;
end;

Function TfrmZlDeptE.Add(tsUpCode:string):Boolean;
begin
	lIsNew :=True;
	sUpCode :=tsUpCode;
    lblUpCode.Caption :=sUpCode;
    if sUpCode='' then nTreeLevel :=1
    else begin
    	qryUpClass.Close;
        qryUpClass.Parameters[0].Value :=sUpCode;
        qryUpClass.Open;
    	nTreeLevel :=qryUpClassTreeLevel.Value +1;
    end;

	Self.Caption :='糤