unit2.pas

学校教职工工资管理系统可实现工资的增加、删除和修改。

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Image1: TImage;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    N2: TMenuItem;
    Edit2: TEdit;
    Button8: TButton;
    N3: TMenuItem;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Button9: TButton;
    Button10: TButton;
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit6, Unit7;

{$R *.dfm}

procedure TForm2.N2Click(Sender: TObject);
begin
   application.Terminate ;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
    form2.Close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
   adoquery1.Close;
   adoquery1.SQL.Clear ;
   adoquery1.SQL.Add('select * from Staffview1');
   adoquery1.Open ;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
    form2.Close;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
    adoquery1.Close;
    adoquery1.SQL.Clear ;
    adoquery1.SQL.Add('select * from kktableview1');
    adoquery1.Open;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
      adoquery1.Close ;
      adoquery1.SQL.Clear ;
      adoquery1.SQL.Add('select * from jintieview1');
      adoquery1.Open;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
     adoquery1.Close ;
     adoquery1.SQL.Clear ;
     adoquery1.SQL.Add('select * from jibensalaryview1');
     adoquery1.Open ;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
     adoquery1.Close;
     adoquery1.SQL.Clear ;
     adoquery1.SQL.Add('select * from qview1');
     adoquery1.Open ;
end;

procedure TForm2.N1Click(Sender: TObject);
begin
     adoquery1.Close ;
     adoquery1.SQL.Clear ;
     adoquery1.SQL.Add(edit1.Text);
     adoquery1.Open;

end;

procedure TForm2.Button8Click(Sender: TObject);
begin
       adoquery1.Close ;
       adoquery1.SQL.Clear ;
       adoquery1.SQL.Add('select * from qview1 where 工号='+quotedstr(edit2.Text));
       adoquery1.Open ;
end;

procedure TForm2.Button7Click(Sender: TObject);
var
   str:string;
begin
    if combobox1.Text ='员工信息' then
    str:='select * from Staffview1'
    else if combobox1.Text ='基本工资信息' then
    str:='select * from jibensalaryview1'
    else if combobox1.Text ='津贴' then
    str:='select * from jintieview1'
    else if combobox1.Text ='扣款' then
    str:='select * from kktableview1';
    adoquery1.Close ;
    adoquery1.SQL.Clear ;
    adoquery1.SQL.Add(str);
    adoquery1.Open ;
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
    form6.show
end;

procedure TForm2.Button10Click(Sender: TObject);
begin
      form7.show;
end;

end.