qxsz.pas

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

unit qxsz;

interface

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

type
  TForm25 = class(TForm)
    Panel1: TPanel;
    spSkinToolBar1: TspSkinToolBar;
    spSkinBevel1: TspSkinBevel;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinSpeedButton2: TspSkinSpeedButton;
    spSkinBevel2: TspSkinBevel;
    spSkinSpeedButton3: TspSkinSpeedButton;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure spSkinSpeedButton3Click(Sender: TObject);
    procedure spSkinSpeedButton1Click(Sender: TObject);
    procedure spSkinSpeedButton2Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form25: TForm25;

implementation
uses login,sjjs;
{$R *.dfm}

procedure TForm25.FormShow(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select sup_name,sup_pope,sup_lastT from sup_admin');
adoquery1.open;
end;

procedure TForm25.spSkinSpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm25.spSkinSpeedButton1Click(Sender: TObject);
begin
form17:=tform17.Create(nil);
form17.Caption:='管理员权限修改';
form17.ShowModal;
end;

procedure TForm25.spSkinSpeedButton2Click(Sender: TObject);
begin
if application.MessageBox('你真的要删除该管理员吗？','系统提示',mb_yesno or mb_defbutton2 or mb_iconquestion or mb_applmodal)=idyes then
begin
with adoquery1 do
begin
try
delete;
showmessage('管理员已删除，操作成功！');
except
cancel;
showmessage('删除失败，该次操作未能成功！');
end;
end;
end;
end;

procedure TForm25.DBGridEh1DblClick(Sender: TObject);
begin
form17:=tform17.Create(nil);
form17.Caption:='管理员权限修改';
form17.ShowModal;
end;

end.