mc_ygcx.pas

一个通用的餐饮管理软件

unit MC_YGCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, DB;

type
  TYGCX = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    GB:integer;
    { Public declarations }
  end;

var
  YGCX: TYGCX;

implementation

uses MC_TLCYGLXT, MC_DCFY_LR;

{$R *.DFM}
//回车后将焦点移到确定按钮
procedure TYGCX.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#8 then Key:=#8
 else if (key<'0') or (key>'9') then
 if key=#13 then
 begin
  Bitbtn1.Click;
 End
 Else
  key:=#0;
end;

procedure TYGCX.Edit1Enter(Sender: TObject);
begin
 Edit1.color:=clAqua;
end;

procedure TYGCX.Edit1Exit(Sender: TObject);
begin
 Edit1.color:=clWindow;
end;

procedure TYGCX.FormShow(Sender: TObject);
begin
 Edit1.SetFocus;
end;
// 确定
procedure TYGCX.BitBtn1Click(Sender: TObject);
begin
 GB:=2;
 If Length(Edit1.Text) = 0 Then
 begin
  ShowMessage('请输入员工编号');
  Edit1.Setfocus;
 End
 Else
  if TLCYGLXT.YGXXB.Locate('员工编号',StrToInt(Edit1.Text),[loCaseInsensitive]) then
 // begin
 // If Not Assigned(DCFY_LR) Then
  begin
   DCFY_LR:=TDCFY_LR.Create(Self);
   DCFY_LR.Label15.Caption:=YGCX.Edit1.Text;
   DCFY_LR.Label16.Caption:=TLCYGLXT.YGXXB.FieldByName('姓名').AsSTring;
   DCFY_LR.Label17.Caption:=DateTimeToStr(Now);
   If TLCYGLXT.JZBH.RecordCount = 0 Then
    begin
     TLCYGLXT.JZBH.Append;
     TLCYGLXT.JZBH.FieldByName('编号').AsInteger:=1;
     TLCYGLXT.JZBH.Post;
    End
   Else
   DCFY_LR.Label18.Caption:=IntToStr(TLCYGLXT.JZBH.FieldbyName('编号').AsInteger+1);
   DCFY_LR.Show;
 // end;
  GB:=1;
  YGCX.Close;
  End
  Else
  begin
   ShowMessage('对不起,没有找到此员工信息.');
   Edit1.Setfocus;
  end;
end;

procedure TYGCX.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if GB<>1 then Abort;
end;
//关闭窗体
procedure TYGCX.BitBtn2Click(Sender: TObject);
begin
 GB:=1;
 YGCX.Close;
end;

end.