unit2.pas

本人生产实习的内容

unit Unit2;

interface

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

type
  Tmain = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid2: TDBGrid;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOTable2: TADOTable;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DBGrid3: TDBGrid;
    Label2: TLabel;
    Edit2: TEdit;
    Button3: TButton;
    TabSheet7: TTabSheet;
    DBGrid4: TDBGrid;
    ADOTable3: TADOTable;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    Label3: TLabel;
    Edit3: TEdit;
    Button4: TButton;
    DBGrid5: TDBGrid;
    ADOTable4: TADOTable;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    Button5: TButton;
    Label4: TLabel;
    DBGrid6: TDBGrid;
    DataSource5: TDataSource;
    ADOTable5: TADOTable;
    ADOQuery5: TADOQuery;
    Label5: TLabel;
    Edit4: TEdit;
    Button6: TButton;
    Edit5: TEdit;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Button7: TButton;
    Label6: TLabel;
    Edit6: TEdit;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Label7: TLabel;
    Memo1: TMemo;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    ADOTable6: TADOTable;
    ADOQuery6: TADOQuery;
    DataSource6: TDataSource;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Label8: TLabel;
    Edit7: TEdit;
    Button21: TButton;
    ADOTable7: TADOTable;
    ADOQuery7: TADOQuery;
    DataSource7: TDataSource;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    TabSheet8: TTabSheet;
    Button22: TButton;
    procedure N2Click(Sender: TObject);   
    procedure PageControl1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation
uses Unit1, Unit4,Unit5,Unit6,Unit7, Unit8;


{$R *.dfm}

procedure Tmain.N2Click(Sender: TObject);
begin
Form4.show();
end;



procedure Tmain.PageControl1Change(Sender: TObject);

var u:string;

  begin
  u:=trim(Form1.Edit1.Text);
  with Form1.ADOQuery1 do
   begin
     close;
     Form1.ADOQuery1.SQL.Clear;
     Form1.ADOQuery1.SQL.Add('select * from power   where usname='+''''+u+''''+' and quxian='+''''+'admin'+'''');
     form1.ADOQuery1.Open;
     if Form1.ADOQuery1.RecordCount<>0 then
     begin
     main.TabSheet3.TabVisible:=true;
     main.TabSheet7.TabVisible:=true;
     main.TabSheet8.TabVisible:=true;
     exit;
     end
     else
     begin
     main.TabSheet3.TabVisible:=false;
     main.TabSheet7.TabVisible:=false;
     exit;
     end;
   end;

end;



procedure Tmain.Button1Click(Sender: TObject);
 var number:string;
begin
 number:=trim(edit1.Text);
 Adoquery1.Close;
 ADOquery1.SQL.Clear;
 ADOQuery1.SQL.Add('select * from ygb where 编号='+''''+number+'''');
 ADoquery1.Open;
 if adoquery1.RecordCount=0 then
 begin
 showmessage('无此员工记录')
  end;
 end;

procedure Tmain.Button3Click(Sender: TObject);
 var number:string;
 var s1,s2,s3,s4:integer;
 begin
 with ADOQuery2 do
 begin
 number:=trim(edit2.Text);
 close;
 ADOQuery2.SQL.Clear;
 ADOQuery2.SQL.Add('select * from salary where 员工编号='+''''+number+'''');
 //ADOQuery2.ExecSQL;
 ADOQuery2.Open;
 if ADOQuery2.RecordCount>0 then
 begin
 DBGrid3.DataSource:=DataSource2;
 DBGrid3.Visible:=true;
 s1:=adoquery2.FieldByName('基本工资').Value;
 s2:=adoquery2.fieldbyname('奖金').Value;
 s3:=adoquery2.fieldbyname('养老金').Value;
 Adoquery5.Close;
 ADOquery5.SQL.Clear;
 ADOQuery5.SQL.Add('select * from qingjia where 员工编号='+''''+number+'''');
 adoquery5.Open;
    //if adoquery5.RecordCount<>0 then
       if adoquery5.RecordCount=0 then
       begin
       s4:=0;
       end else
        begin
           if adoquery5.FieldByName('工资扣除').Value=Null then
             begin
             s4:=0;
             end else
              begin
             s4:=adoquery5.fieldbyname('工资扣除').Value;
             end;
        end ;
   
 edit6.Text:=inttostr(s1+s2-s3-s4);
 memo1.Text:='本月请假工资扣除'+inttostr(s4)+'元';
 end else

 begin
 showmessage('无记录');
 end;
 if edit2.Text=null then
 begin
 showmessage('请输入编号');
 end;
 end;
end;

procedure Tmain.N3Click(Sender: TObject);
begin
showmessage('无法连接打印机');
end;

procedure Tmain.N4Click(Sender: TObject);
begin
close;
end;

procedure Tmain.Button7Click(Sender: TObject);
begin
if RadioButton1.Checked=true  then
begin
Form5.Show();
end else
if RadioButton2.Checked=true then
begin
form6.show();
end else
if RadioButton3.checked=true then
begin
form7.show();
end;

end;
procedure Tmain.Button4Click(Sender: TObject);
var number,de:string;
begin
number:=trim(edit3.Text);

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;
 edit7.Text:=inttostr(adoquery1.RecordCount);
  end else
  begin
 showmessage('无此部门记录')

 end;

  
 end;
 procedure Tmain.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tmain.Button8Click(Sender: TObject);
begin
close;
end;

procedure Tmain.Button5Click(Sender: TObject);
var number:string;
begin
number:=trim(edit5.Text);
 Adoquery4.Close;
 ADOquery4.SQL.Clear;
 ADOQuery4.SQL.Add('select * from kaoqin where 员工编号='+''''+number+'''');
 ADoquery4.Open;
 if adoquery4.RecordCount=0 then
 begin
 showmessage('无此员工记录')
  end;
 end;

procedure Tmain.Button9Click(Sender: TObject);
begin
close;
end;

procedure Tmain.Button6Click(Sender: TObject);
 var number:string;
begin
number:=trim(edit4.Text);
 Adoquery5.Close;
 ADOquery5.SQL.Clear;
 ADOQuery5.SQL.Add('select * from qingjia where 员工编号='+''''+number+'''');
 ADoquery5.Open;
 if adoquery5.RecordCount=0 then
 begin
 showmessage('无此员工记录')
  end;
 end;

procedure Tmain.Button10Click(Sender: TObject);
begin
close;
end;

procedure Tmain.Button11Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.SQL.Add('select * from ygb');
adoquery1.Open;
end;

procedure Tmain.Button12Click(Sender: TObject);
begin
edit3.Text:='';
edit3.SetFocus;
 edit7.Text:='';
adoquery3.close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from dept');
adoquery3.Open;
end;

procedure Tmain.Button13Click(Sender: TObject);
begin
edit5.Text:='';
edit5.SetFocus;
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select * from kaoqin');
adoquery4.Open;
end;

procedure Tmain.Button14Click(Sender: TObject);
begin
edit4.Text:='';
edit4.SetFocus;
adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.SQL.Add('select * from qingjia');
adoquery5.Open;
end;

procedure Tmain.Button15Click(Sender: TObject);

begin
edit2.Text:='';
edit2.SetFocus;
edit6.Text:='';
memo1.Text:='';
Adoquery5.Close;
 ADOquery5.SQL.Clear;
 ADOQuery5.SQL.Add('select * from qingjia ');
 adoquery5.Open;

 end;

procedure Tmain.Button16Click(Sender: TObject);
begin
close;
end;

procedure Tmain.Button17Click(Sender: TObject);
begin
adoquery6.Close;
adoquery6.SQL.Clear;
adoquery6.SQL.Add('select * from salary');
adoquery6.Open;
end;

procedure Tmain.Button18Click(Sender: TObject);
begin
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select * from salary');
adoquery4.Open;
end;

procedure Tmain.Button19Click(Sender: TObject);
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from dept');
adoquery3.Open;
end;

procedure Tmain.Button20Click(Sender: TObject);
begin
adoquery5.Close;
adoquery5.SQL.Clear;
adoquery5.SQL.Add('select * from qingjia');
adoquery5.Open;
end;

procedure Tmain.Button21Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from ygb');
adoquery1.Open;
end;

procedure Tmain.Button22Click(Sender: TObject);
begin
form8.Show();
end;

procedure Tmain.N5Click(Sender: TObject);
begin
application.HelpFile:='HELP1.HLP';
application.HelpCommand(help_finder,0);
end;

end.