gz_daye2.pas

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

unit Gz_DayE2;

interface

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

type
  TfrmGz_DayE2 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    cedGx: TAdoCodeEd;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryZlGx: TADOQry;
    qryZlGxID: TIntegerField;
    qryZlGxCode: TStringField;
    qryZlGxName: TStringField;
    qryZlGxUnit: TStringField;
    qryZlGxPerCost: TFloatField;
    dsGz_jj: TDataSource;
    qryZlGxCostNum: TIntegerField;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdOKClick(Sender: TObject);
    procedure cedGxCodeChange(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function Edit() :Boolean;
  end;

var
  frmGz_DayE2: TfrmGz_DayE2;

implementation

uses SelfFunc, Gz_DayE;

{$R *.DFM}

function TfrmGz_DayE2.Edit() :Boolean;
begin
	cedGx.CodeText :=TfrmGz_DayE(Owner).qryGz_JjCode.Text;

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

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

procedure TfrmGz_DayE2.cmdOKClick(Sender: TObject);
begin
  with TfrmGz_DayE(Owner) do
  begin
	if not (qryGz_Jj.State in [dsEdit,dsInsert]) then
    begin
    	Close;
        Exit;
    end;

    if qryGz_JjCode.Value ='' then
    begin
    	MsgBox('叫块