right1.pas

职工信息管理系统的源代码

unit right1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls,shellapi, DB, DBTables, Buttons,
  TFlatSpeedButtonUnit;

type
  Tright = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    user: TTable;
    userBDEDesigner: TStringField;
    userBDEDesigner2: TStringField;
    userRignt: TStringField;
    Label1: TLabel;
    Label3: TLabel;
    Button5: TSpeedButton;
    button6: TSpeedButton;
    bitbtn1: TSpeedButton;
    FlatSpeedButton1: TSpeedButton;
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox2Change(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  right: Tright;

implementation
   uses quan;
{$R *.dfm}

procedure Tright.Button6Click(Sender: TObject);
begin
close;
end;

procedure Tright.FormCreate(Sender: TObject);
var i:integer;
begin
button5.Enabled:=false;
user.Active:=false;
user.DatabaseName:=s;
user.TableName:='user.db';
user.Active:=true;
combobox1.Items.Clear;
user.First;
for i:=0 to user.RecordCount-1 do
begin
combobox1.Items.Add(qu.cf(user.fieldbyname('用户名').AsString));
user.Next;
end;
combobox2.Enabled:=false;
 end;
procedure Tright.Button5Click(Sender: TObject);
begin
button5.Enabled:=false;
user.Active:=true;
user.Edit;
user.SetKey;
user.fieldbyname('用户名').AsString:=QU.cf(combobox1.Text);
if user.GotoKey then
begin
if combobox2.Text='高级管理员' then
begin
user.Edit;
user.FieldByName('rignt').AsString:=QU.cf('1');
end
else
if combobox2.Text='普通管理员' then
begin
user.Edit;
user.FieldByName('rignt').AsString:=qu.cf('2');
end
else
begin
user.Edit;
user.FieldByName('rignt').AsString:=qu.cf('3');
end;
user.Post;
end;
end;

procedure Tright.ComboBox1Change(Sender: TObject);
begin
button5.Enabled:=true;
user.Active:=true;
user.SetKey;
user.fieldbyname('用户名').AsString:=qu.cf(combobox1.Text);
if user.GotoKey then
if user.FieldByName('rignt').AsString=qu.cf('1') then
combobox2.Text:='高级管理员'
else
if user.FieldByName('rignt').AsString=qu.cf('2') then
combobox2.Text:='普通管理员'
else
combobox2.Text:='用户';
combobox2.Enabled:=true;
end;

procedure Tright.FormShow(Sender: TObject);
var i:integer;
begin
button5.Enabled:=false;
user.Active:=true;
combobox1.Items.Clear;
user.First;
for i:=0 to user.RecordCount-1 do
begin
combobox1.Items.Add( qu.cf(user.fieldbyname('用户名').AsString));
user.Next;
end;
combobox2.Text:='';
combobox2.Enabled:=false;
end;

procedure Tright.BitBtn1Click(Sender: TObject);
begin
shellexecute(application.Handle,'open',pchar(s+'\help\yong_hu.htm'),'','',SW_SHOW);
end;

procedure Tright.FormClose(Sender: TObject; var Action: TCloseAction);
begin
user.Active:=false;
action:=cafree;
end;

procedure Tright.ComboBox2Change(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure Tright.FormPaint(Sender: TObject);
var a,b:real;
i:integer;
begin
a:=clientheight/256;
b:=0;
for i:=255 downto 0 do
begin
canvas.Brush.Color:=$000000000+i*$10000;
canvas.FillRect(rect(0,round(b),clientwidth,round(a+b)));
b:=b+a;
end;
end;

procedure Tright.FlatSpeedButton1Click(Sender: TObject);
var i:integer;
begin
button5.Enabled:=false;
user.Active:=true;
combobox1.Items.Clear;
user.First;
for i:=0 to user.RecordCount-1 do
begin
combobox1.Items.Add( qu.cf(user.fieldbyname('用户名').AsString));
user.Next;
end;
combobox2.Text:='';
combobox2.Enabled:=false;
end;

end.