lb.pas

这个工资管理系统是我今年的毕业设计

unit lb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, ExtCtrls, SkinCtrls, StdCtrls, DB, ADODB,
  SkinBoxCtrls;

type
  TForm7 = class(TForm)
    spSkinToolBar1: TspSkinToolBar;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinSpeedButton2: TspSkinSpeedButton;
    spSkinSpeedButton3: TspSkinSpeedButton;
    spSkinBevel1: TspSkinBevel;
    spSkinSpeedButton4: TspSkinSpeedButton;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    spSkinComboBox1: TspSkinComboBox;
    spSkinBevel2: TspSkinBevel;
    spSkinBevel3: TspSkinBevel;
    procedure spSkinSpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure spSkinComboBox1Click(Sender: TObject);
    procedure spSkinSpeedButton2Click(Sender: TObject);
    procedure spSkinSpeedButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation
uses login,bm,leibadd,leibedit;
{$R *.dfm}

procedure TForm7.spSkinSpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure TForm7.FormShow(Sender: TObject);
begin
spskincombobox1.Items.Clear;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 员工代码,姓名,所在部门,所属类别 from jibenxinxi');
adoquery1.Open;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from leib');
adoquery2.Open;
while not adoquery2.Eof do
begin
spskincombobox1.Items.Add(adoquery2.FieldValues['类别名称']);
adoquery2.Next;
end;
dbgrideh1.Columns[3].Color:=clcream;
end;

procedure TForm7.spSkinComboBox1Click(Sender: TObject);
begin
with adoquery1 do
begin
try
edit;
fieldbyname('所属类别').AsString:=spskincombobox1.Text;
post;
showmessage('设置成功，员工所属类别巳经修改！');
except
cancel;
showmessage('设置失败！');
end;
end;
dbgrideh1.Refresh;
end;

procedure TForm7.spSkinSpeedButton2Click(Sender: TObject);
begin
form34:=tform34.Create(application);
form34.Caption:='添加员工类别';
form34.ShowModal;
end;

procedure TForm7.spSkinSpeedButton3Click(Sender: TObject);
begin
form35:=tform35.Create(application);
form35.Caption:='员工类别修改';
form35.ShowModal;
end;

procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoquery1.Close;
adoquery2.Close;
end;

end.