【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了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.