unit7.pas

本人生产实习的内容

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.