addsup.pas

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

unit addsup;

interface

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

type
  TForm27 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    GroupBox2: TGroupBox;
    SpeedButton3: TSpeedButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure FormPaint(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form27: TForm27;

implementation
uses login;
{$R *.dfm}

procedure TForm27.FormPaint(Sender: TObject);
begin
canvas.Pen.Color:=clteal;
canvas.Rectangle(speedbutton1.Left-1,speedbutton1.Top-1,speedbutton1.Left+speedbutton1.Width+1,speedbutton1.Top+speedbutton1.Height+1);
canvas.Rectangle(speedbutton2.Left-1,speedbutton2.Top-1,speedbutton2.Left+speedbutton2.Width+1,speedbutton2.Top+speedbutton2.Height+1);
canvas.Rectangle(speedbutton3.Left-1,speedbutton3.Top-1,speedbutton3.Left+speedbutton3.Width+1,speedbutton3.Top+speedbutton3.Height+1);
end;

procedure TForm27.FormShow(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from sup_admin');
adoquery1.Open;
label1.Caption:='当前数据库中有'+inttostr(ADOQuery1.RecordCount)+'位管理员';
end;

procedure TForm27.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm27.SpeedButton1Click(Sender: TObject);
var n,p,s:string;
begin
n:=edit1.Text;
p:=edit2.Text;
if radiobutton1.Checked then s:='super' else s:='guest';
if edit1.Text<>'' then
begin
while not adoquery1.Eof do
if (adoquery1.FieldByName('sup_name').AsString<>n) then
begin
    with adoquery1 do
        begin
          try
          append;
          fieldbyname('sup_name').AsString:=n;
          fieldbyname('sup_pass').AsString:=p;
          fieldbyname('sup_pope').AsString:=s;
          post;
          showmessage('管理员添加成功！');
          except
          cancel;
          showmessage('管理员添加失败！！');
          end;
        end;
close;
break;
end
else
begin
showmessage('对不起该管理员名称已存在，请你重新输入一个不同的！');
break;
end;

end;

end;

procedure TForm27.SpeedButton3Click(Sender: TObject);
begin
if speedbutton3.Caption='权限>' then
begin
 self.Width:=322;
 speedbutton3.Caption:='权限<';
end
else
if speedbutton3.Caption='权限<' then
begin
 self.Width:=202;
 speedbutton3.Caption:='权限>';
end;
end;

end.