jc_bdce.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 95 行

unit Jc_bdcE;

interface

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

type
  TfrmJc_bdcE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryEditFDate: TDateTimeField;
    qryEditFDate1: TDateTimeField;
    qryEditID: TIntegerField;
    qryEditEmpID: TIntegerField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    cedEmpCode: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    Label3: 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 cedEmpCodeCodeChange(Sender: TObject);
    procedure cedEmpCodeGetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
    { Private declarations }
  	lIsNew :Boolean;
    procedure FModify(tnID:integer);
  public
	{ Public declarations }
	Function Add():Boolean;
	Function Edit(tnID:integer):Boolean;
  end;

var
  frmJc_bdcE: TfrmJc_bdcE;

implementation

uses SelfFunc, Jc_bdc;

{$R *.DFM}

procedure TfrmJc_bdcE.FModify(tnID:integer);
begin
    with qryEdit do
    begin
    	Close;
        Parameters[0].Value :=tnID;
        Open;
        if lIsNew then Append;
	end;
    Self.SelectFirst;
end;

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

    {Self.ShowModal();
    Result :=(cmdOK.Tag >0);}
    cedEmpCode.CodeText :='';
    Result :=(Self.ShowModal() =mrOK);
end;

Function TfrmJc_bdcE.Edit(tnID:integer):Boolean;
begin
	lIsNew :=False;
    FModify(tnID);

    cedEmpCode.CodeText :=TfrmJc_bdc(Owner).qryBrowseCode.Value;
    Result :=(Self.ShowModal() =mrOK);
end;

procedure TfrmJc_bdcE.cmdOKClick(Sender: TObject);
begin
    if not ValidRecord(qryEdit, ['FDate',vrvNull,  'FDate1',vrvNull])
    	then Exit;
    if qryEditEmpID.IsNull then
    begin
    	MsgBox('叫块