bm.pas

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

unit bm;

interface

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

type
  TForm6 = class(TForm)
    spSkinToolBar1: TspSkinToolBar;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinSpeedButton2: TspSkinSpeedButton;
    spSkinSpeedButton3: TspSkinSpeedButton;
    spSkinBevel1: TspSkinBevel;
    spSkinSpeedButton4: TspSkinSpeedButton;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    spSkinBevel2: TspSkinBevel;
    procedure FormShow(Sender: TObject);
    procedure spSkinSpeedButton4Click(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure CheckBox1Click(Sender: TObject);
    procedure spSkinSpeedButton1Click(Sender: TObject);
    procedure spSkinSpeedButton2Click(Sender: TObject);
    procedure spSkinSpeedButton3Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation
uses login,ry,bumenadd,bumenedit,jbxishowall,ygxxedit;
{$R *.dfm}

procedure TForm6.FormShow(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from bumen where 状态="正常"' );
adoquery1.Open;
end;

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

procedure TForm6.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
if gdSelected in State then Exit;
if adoquery1.FieldByName('状态').Value='禁止' then
begin
dbgrideh1.Canvas.Brush.Color:=clred;
end
else dbgrideh1.Canvas.Brush.Color:=clwindow;
dbgrideh1.DefaultDrawColumnCell(rect,datacol,column,state);
end;

procedure TForm6.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from bumen');
adoquery1.Open;
dbgrideh1.Refresh;
end;
if  not checkbox1.Checked then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from bumen where 状态="正常"' );
adoquery1.Open;
dbgrideh1.Refresh;
end;
end;

procedure TForm6.spSkinSpeedButton1Click(Sender: TObject);
begin
form31:=tform31.Create(application);
form31.Caption:='添加新部门';
form31.ShowModal;
end;

procedure TForm6.spSkinSpeedButton2Click(Sender: TObject);
begin
IF application.MessageBox('你确认要删除该数据吗？','系统提示',MB_YesNo or mb_defbutton2 or mb_iconstop or mb_applmodal)=IdYes then
begin
with adoquery1 do
begin
try
delete;
showmessage('数据删除成功！');
except
showmessage('数据删除失败！');
end;
end;
end;
if assigned(ygshowall) then ygshowall.OnShow(self);
if assigned(form38) then form38.OnShow(self);
end;

procedure TForm6.spSkinSpeedButton3Click(Sender: TObject);
begin
form32:=tform32.Create(application);
form32.Caption:='部门修改';
form32.ShowModal;
end;

procedure TForm6.DBGridEh1DblClick(Sender: TObject);
begin
form32:=tform32.Create(application);
form32.Caption:='部门修改';
form32.ShowModal;
end;

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

end.