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.