?? unit4.pas
字號:
unit Unit4;
//員工管理
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, DB, Mask;
type
Tfrm_yggl = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Memo1: TMemo;
Label8: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
MaskEdit1: TMaskEdit;
Edit5: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_yggl: Tfrm_yggl;
implementation
uses Unit13;
{$R *.dfm}
//-----------------------------添加按鈕-----------------//
procedure Tfrm_yggl.Button1Click(Sender: TObject);
begin
if Edit1.Text ='' then
begin
MessageBox(handle,'員工號不能為空!','警告',MB_OK+MB_ICONWARNING);
Edit1.SetFocus ;
exit;
end;
if Edit2.Text ='' then
begin
MessageBox(handle,'員工姓名不能為空!','警告',MB_OK+MB_ICONWARNING);
Edit2.SetFocus ;
exit;
end;
try
with data1.ADO_yggl do
begin
close;
sql.Clear;
sql.Add('insert 員工管理 values (:a,:b,:c,:d,:e,:f,:g,:h)');
parameters.ParamByName('a').Value:=trim(edit1.Text);
parameters.ParamByName('b').Value:=trim(edit2.Text);
parameters.ParamByName('c').Value:=trim(combobox1.Text);
parameters.ParamByName('d').Value:=trim(edit3.Text);
parameters.ParamByName('e').Value:=trim(maskedit1.Text);
parameters.ParamByName('f').Value:=trim(edit4.Text);
parameters.ParamByName('g').Value:=trim(edit5.Text);
parameters.ParamByName('h').Value:=trim(memo1.Text);
execsql;
end;
application.MessageBox('添加成功','提示',64);
except
application.MessageBox('員工信息已存在','提示',64);
end;
end;
//------------------------取消事件--------------------//
procedure Tfrm_yggl.Button2Click(Sender: TObject);
begin
close;
end;
//-------------------------限制員工號只能為數字------------//
procedure Tfrm_yggl.Edit1KeyPress(Sender: TObject; var Key: Char); //員工號只能為數字
begin
if not(key in['0'..'9',#8])then
begin
key:=#0;
application.MessageBox('員工號只能為數字','提示',64);
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -