account_information.pas

该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板

unit account_information;

interface

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

type
  Taccount_inf = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Image1: TImage;
    Image2: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  account_inf: Taccount_inf;

implementation

uses  password_edit,browse,browse_users, login;

{$R *.dfm}

procedure Taccount_inf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 log.show;
end;

procedure Taccount_inf.BitBtn1Click(Sender: TObject);
begin
 pass_edit.Visible:=true;
 pass_edit.StatusBar1.Panels[0].Text:=edit1.Text;
 pass_edit.Edit1.Text:='';
 pass_edit.Edit2.Text:='';
 pass_edit.Edit3.Text:='';
 account_inf.Hide;
end;

procedure Taccount_inf.BitBtn2Click(Sender: TObject);
begin
 if edit3.Text='高级管理员' then
 begin
  browser.Visible:=true;
  account_inf.Hide;
 end;
 if edit3.Text='普通管理员' then
 begin
  browser.Visible:=true;
  browser.N4.Enabled:=False;
  browser.N15.Enabled:=false;
  browser.N5.Enabled:=false;
  browser.N6.Enabled:=false;
  browser.N7.Enabled:=false;
  browser.N9.Enabled:=false;
  browser.N18.Enabled:=false;
  account_inf.Hide;
 end;
 if edit3.Text='用户' then
 begin
  browse_user.Visible:=true;
  account_inf.Hide;
 end;
end;

procedure Taccount_inf.BitBtn3Click(Sender: TObject);
begin
 Close;
end;

end.