unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, ADODB;

type
  TForm7 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOTable2: TADOTable;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOTable3: TADOTable;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    ADOTable4: TADOTable;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    TabSheet2: TTabSheet;
    ADOTable5: TADOTable;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    Label3: TLabel;
    Edit2: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation
 uses Unit2;
{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
 var number:string;
begin
 number:=trim(edit1.Text);
 if ComboBox1.ItemIndex=0 then
 begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('select * from ygb where 編號='+''''+number+'''');
 ADOQuery1.Open;
 if ADOQuery1.RecordCount<>0 then
 begin

 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('delete from ygb where 編號='+''''+number+'''');
 ADOQuery1.ExecSQL;
 showmessage(' 員工表刪除成功！');
   end else
  showmessage('員工表中無此記錄！');
  ADOQuery2.Close;
 ADOQuery2.SQL.Clear;
 ADOQuery2.SQL.Add('select * from salary where 員工編號='+''''+number+'''');
 ADOQuery2.Open;
 if ADOQuery2.RecordCount<>0 then
 begin
 ADOQuery2.Close;
 ADOQuery2.SQL.Clear;
 ADOQuery2.SQL.Add('delete from salary where 員工編號='+''''+number+'''');
 ADOQuery2.ExecSQL;
 showmessage(' 工資表刪除成功！');
 end else
 showmessage('工資表中無此記錄！');

 ADOQuery3.Close;
 ADOQuery3.SQL.Clear;
 ADOQuery3.SQL.Add('select * from kaoqin where 員工編號='+''''+number+'''');
 ADOQuery3.Open;
 if ADOQuery3.RecordCount<>0 then
 begin
 ADOQuery3.Close;
 ADOQuery3.SQL.Clear;
 ADOQuery3.SQL.Add('delete from kaoqin where 員工編號='+''''+number+'''');
 ADOQuery3.ExecSQL;
 showmessage(' 考勤表刪除成功！');
  end else
 showmessage('考勤表中無此記錄！');

 ADOQuery4.Close;
 ADOQuery4.SQL.Clear;
 ADOQuery4.SQL.Add('select * from qingjia where 員工編號='+''''+number+'''');
 ADOQuery4.Open;
 if ADOQuery4.RecordCount<>0 then
 begin
  ADOQuery4.Close;
 ADOQuery4.SQL.Clear;
 ADOQuery4.SQL.Add('delete from qingjia where 員工編號='+''''+number+'''');
 ADOQuery4.ExecSQL;
 showmessage(' 請假表刪除成功！');
 end else
 showmessage('請假表中無此記錄！');
 end;


 if ComboBox1.ItemIndex=1 then
 begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('select * from ygb where 編號='+''''+number+'''');
 ADOQuery1.Open;
 if ADOQuery1.RecordCount<>0 then
 begin

 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('delete from ygb where 編號='+''''+number+'''');
 ADOQuery1.ExecSQL;
 showmessage(' 刪除成功！');
   end else
  showmessage('無此記錄！');


 end;



  if ComboBox1.ItemIndex=2 then
  begin
  ADOQuery2.Close;
 ADOQuery2.SQL.Clear;
 ADOQuery2.SQL.Add('select * from salary where 員工編號='+''''+number+'''');
 ADOQuery2.Open;
 if ADOQuery2.RecordCount<>0 then
 begin
 ADOQuery2.Close;
 ADOQuery2.SQL.Clear;
 ADOQuery2.SQL.Add('delete from salary where 員工編號='+''''+number+'''');
 ADOQuery2.ExecSQL;
 showmessage(' 刪除成功！');
 end else
 showmessage('無此記錄！');


 end;
  if ComboBox1.ItemIndex=3 then
  begin
  ADOQuery3.Close;
 ADOQuery3.SQL.Clear;
 ADOQuery3.SQL.Add('select * from kaoqin where 員工編號='+''''+number+'''');
 ADOQuery3.Open;
 if ADOQuery3.RecordCount<>0 then
 begin
 ADOQuery3.Close;
 ADOQuery3.SQL.Clear;
 ADOQuery3.SQL.Add('delete from kaoqin where 員工編號='+''''+number+'''');
 ADOQuery3.ExecSQL;
 showmessage(' 刪除成功！');
  end else
 showmessage('無此記錄！');


 end;
 if ComboBox1.ItemIndex=4 then
  begin
  ADOQuery4.Close;
 ADOQuery4.SQL.Clear;
 ADOQuery4.SQL.Add('select * from qingjia where 員工編號='+''''+number+'''');
 ADOQuery4.Open;
 if ADOQuery4.RecordCount<>0 then
 begin
  ADOQuery4.Close;
 ADOQuery4.SQL.Clear;
 ADOQuery4.SQL.Add('delete from qingjia where 員工編號='+''''+number+'''');
 ADOQuery4.ExecSQL;
 showmessage(' 刪除成功！');
 end else
 showmessage('無此記錄！');


 end;
 end;

procedure TForm7.Button2Click(Sender: TObject);
begin
edit1.Text:='';
ComboBox1.ItemIndex:=-1;
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
main.Show();
Form7.Hide;
end;

procedure TForm7.Button4Click(Sender: TObject);
var number,de:string;
begin
number:=edit2.Text;
adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.SQL.Add('select * from dept where 部門編號='+''''+number+'''');
adoquery5.Open;
   if adoquery5.RecordCount=0 then
      begin
       showmessage('無此部門');
       end else
    begin
     Adoquery3.Close;
 ADOquery3.SQL.Clear;
 ADOQuery3.SQL.Add('select * from dept where 部門編號='+''''+number+'''');
 ADoquery3.Open;



 if adoquery3.RecordCount=1 then
 begin
 de:=adoquery3.FieldByName('部門名稱').asstring;
 adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select  * from ygb where 部門='+''''+de+'''');
  adoquery1.Open;
  if adoquery1.RecordCount<>0 then
  begin
    showmessage('請先確認該部門員工人數是否為0');
    end else
    begin
    showmessage('刪除成功');
    end;

end;
 end;
 end;
procedure TForm7.Button5Click(Sender: TObject);
begin
edit2.Text:='';
end;

procedure TForm7.Button6Click(Sender: TObject);
begin
main.Show();
Form7.Hide;
end;

end.