e_pxjhe.pas

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

unit E_PxjhE;

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,
  AdoMacroQry;

type
  TfrmE_PxjhE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    Bevel8: TBevel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    Label2: TLabel;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    cedPxjc: TAdoCodeEd;
    qryPxjc: TADOQry;
    qryPxjcCode: TStringField;
    qryPxjcName: TStringField;
    qryEditNote: TStringField;
    qryEditDate0: TDateTimeField;
    qryEditDate1: TDateTimeField;
    qryEditPxjc: TStringField;
    qryEditJiHuaRs: TIntegerField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    qryEditCode: TStringField;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    qryGenJhMx: TAdoMacroQry;
    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 cedPxjcGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedPxjcCodeChange(Sender: TObject);
  private
  	lIsNew :Boolean;
    { Private declarations }
  public
	Function Add():Boolean;
	Function Edit(tsCode:string):Boolean;
	{ Public declarations }
  end;

var
  frmE_PxjhE: TfrmE_PxjhE;

implementation

uses SelfFunc, E_Pxjh, Main;

{$R *.DFM}

Function TfrmE_PxjhE.Add():Boolean;
begin
	lIsNew :=True;

    with qryEdit do
    begin
    	Close;
        Parameters[0].Value :=Null;
        Open;
        Append;
	end;
    cedPxjc.CodeText :='';

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

Function TfrmE_PxjhE.Edit(tsCode:string):Boolean;
begin
	lIsNew :=False;

    with qryEdit do
    begin
    	Close;
        Parameters[0].Value :=tsCode;
        Open;
	end;
    cedPxjc.CodeText :=qryEditPxjc.Value;

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

procedure TfrmE_PxjhE.cmdOKClick(Sender: TObject);
begin
    if qryEditPxjc.Value ='' then
    begin
    	MsgBox('叫块