unit5.pas

这是一个工资管理系统

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Image1: TImage;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
implementation
   uses unit2;
{$R *.dfm}

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form2.Show;
end;

procedure TForm5.RadioButton1Click(Sender: TObject);
begin
 if form5.RadioButton1.Checked then
  begin
   form5.Edit2.Text:='';
   form5.Edit1.Enabled:=true;
   form5.Edit2.Enabled:=false;
  end;
end;

procedure TForm5.RadioButton2Click(Sender: TObject);
begin
 if form5.RadioButton2.Checked then
  begin
   form5.Edit1.Text:='';
   form5.Edit2.Enabled:=true;
   form5.Edit1.Enabled:=false;
  end;
end;


procedure TForm5.Button1Click(Sender: TObject);

begin
  if form5.Caption='员工信息查询' then
     begin
     form5.ADOTable1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GZGL;Data Source=127.0.0.1';
     form5.ADOTable1.TableName:='员工基本信息表';
     form5.ADOTable1.Close;
     form5.ADOTable1.Open;
     form5.ADOTable1.Active:=true;
     if form5.RadioButton1.Checked then
       begin
         form5.Edit1.Enabled:=true;
         form5.Edit2.Enabled:=false;
         if form5.ADOTable1.Locate('员工编号',edit1.Text,[]) then
           showmessage('找到信息')
         else showmessage('没有此项记录');
       end
     else
       begin
         form5.Edit2.Enabled:=true;
         form5.Edit1.Enabled:=false;
         if form5.ADOTable1.Locate('姓名',edit2.Text,[]) then
           showmessage('找到信息')
         else showmessage('没有此项记录');
       end;

   end;
  if form5.Caption='员工工资查询' then
   begin
    form5.ADOTable1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GZGL;Data Source=127.0.0.1';
    form5.ADOTable1.TableName:='员工工资信息表';
    form5.ADOTable1.Close;
    form5.ADOTable1.Open;
    form5.ADOTable1.Active:=true;
    if form5.RadioButton1.Checked then
       begin
         form5.Edit1.Enabled:=true;
         form5.Edit2.Enabled:=false;
         if form5.ADOTable1.Locate('员工编号',edit1.Text,[]) then
           showmessage('找到信息')
         else showmessage('没有此项记录');
       end
     else
       begin
         form5.Edit2.Enabled:=true;
         form5.Edit1.Enabled:=false;
         if form5.ADOTable1.Locate('员工姓名',edit2.Text,[]) then
           showmessage('找到信息')
         else showmessage('没有此项记录');
       end;
   end
  else
   begin
    form5.ADOTable1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GZGL;Data Source=127.0.0.1';
    form5.ADOTable1.TableName:='部门信息表';
    form5.ADOTable1.Close;
    form5.ADOTable1.Open;
    form5.ADOTable1.Active:=true;
    if form5.RadioButton1.Checked then
       begin
         form5.Edit1.Enabled:=true;
         form5.Edit2.Enabled:=false;
         if form5.ADOTable1.Locate('部门编号',edit1.Text,[]) then
           showmessage('找到信息')
         else showmessage('没有此项记录');
       end
     else
       begin
         form5.Edit2.Enabled:=true;
         form5.Edit1.Enabled:=false;
         if form5.ADOTable1.Locate('部门名称',edit2.Text,[]) then
           showmessage('找到信息')
         else showmessage('没有此项记录');
       end;
   end;
end;


end.