?? empleer.~pas
字號:
unit Empleer;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mask, StdCtrls, Buttons, jpeg, ExtCtrls, Grids, DBGrids, XPMenu;
type
TEmpleerForm = class(TForm)
Image1: TImage;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Memo1: TMemo;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Edit3: TEdit;
Edit4: TEdit;
DBGrid1: TDBGrid;
XPMenu1: TXPMenu;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox2DropDown(Sender: TObject);
procedure ComboBox3DropDown(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
EmpleerForm: TEmpleerForm;
implementation
uses md;
{$R *.dfm}
procedure TEmpleerForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not(Key in ['0'..'9','.',Char(VK_BACK),Char(VK_RETURN)]) then
begin
Key:=#0;
end;
if (Key='.') and (Pos('.',Trim((sender as tedit).Text))<>0) then
begin
Key:=#0;
(sender as tedit).SetFocus;
end;
end;
procedure TEmpleerForm.ComboBox2DropDown(Sender: TObject);
var
I:integer;
begin
with datamd.ADOhouse do
begin
close;
sql.Clear;
sql.Add('select * from house');
open;
combobox2.Clear;
if RecordCount>0 then
begin
first;
for i:=0 to RecordCount-1 do
begin
combobox2.Items.Add(fieldbyname('樓房號').AsString);
next;
end;
end
else
showmessage('沒有記錄,請管理員錄入數據信息');
end;
end;
procedure TEmpleerForm.ComboBox3DropDown(Sender: TObject);
var
I:integer;
begin
with datamd.ADOhouse do
begin
close;
sql.Clear;
sql.Add('select * from house where 樓房號='''+Trim(combobox2.Text)+'''');
open;
combobox3.Clear;
if RecordCount>0 then
begin
for i:=1 to strtoint(FieldByName('樓層數').AsString) do
combobox3.Items.Add('層'+IntToStr(i));
end
else
showmessage('沒有記錄,請管理員錄入數據信息');
end;
end;
Function TryEmpty(Sender:Tobject):boolean;
begin
If Trim((sender as Tedit).Text)='' then
begin
ShowMessage('當前選項不能為空');
result:=true;
(Sender as Tedit).SetFocus;
End
else
result:=false;
end;
procedure TEmpleerForm.BitBtn1Click(Sender: TObject);
begin
With DataMD.ADOEmpleer do
begin
close;
sql.Clear;
sql.Add('select * from Empleer');
open;
if not locate('員工號',edit1.Text,[]) then
begin
if Not TryEmpty(Edit1) then
if not TryEmpty(Edit2) then
begin
Append;
FieldByName('員工號').AsString:=edit1.Text;
FieldByName('姓名').AsString:=Edit2.Text;
FieldByName('性別').AsString:=Combobox1.Text;
FieldByName('房號').AsString:=ComboBox2.Text;
FieldByName('樓層').AsString:=ComboBox3.Text;
FieldByName('職位').AsString:=ComboBox4.Text;
FieldByName('家庭住址').AsString:=Edit3.Text;
FieldByName('聯系方式').AsString:=Edit4.Text;
FieldByName('備注').AsVariant:=memo1.Text;
If MessageDlg('請確認些記錄是否正確',mtconfirmation,[mbYes,mbNo],0)=mrYes then
post
else
cancel;
end
else
cancel;
end
else
showmessage('此員工已經存在');
end;
end;
procedure TEmpleerForm.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -