umgruserf.pas

图书管理系统的原码.

unit uMgrUserF;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, dbtables;

type
  TMgrUserF = class(TFrame)
    Button1: TButton;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    ListView1: TListView;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button2: TButton;
    GroupBox4: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Button3: TButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    ComboBox1: TComboBox;
    StaticText3: TStaticText;
    Panel2: TPanel;
    StaticText4: TStaticText;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure ListView1Change(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure ListView1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure RefreshUser;
    function GetUserPwd(UserName : string):string;
    function CheckExistUserName(UserName : string):boolean;
    procedure InsUser(UserName,UserPwd:string;Power : integer);
    procedure UpdateUser(UserName,UserPwd:string;Power : integer);
    procedure DelUser(UserName : string);
    constructor Create(AOwner : TComponent);override;
  end;

var
  MgrUserF : TMgrUserF;

implementation

uses uMainF,uGloabVar;

{$R *.DFM}

procedure TMgrUserF.Button1Click(Sender: TObject);
begin
  Parent := nil;
  MainF.Caption := '图书管理系统';
end;

constructor TMgrUserF.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  try
    RefreshUser;
  except
    ListView1.Items.Clear;
    MessageDlg('得到用户信息出错',mtError,[mbok],0);
  end;
  ComboBox1.ItemIndex := 2;
end;

procedure TMgrUserF.RefreshUser;
var
  Query : TQuery;
begin
  Query := TQuery.Create(nil);
  Query.DatabaseName := DBName;
  Query.SQL.Add('select * from tsyhb order by Class ');
  Query.Open;
  ListView1.Items.Clear;
  while not Query.Eof do
  begin
    with ListView1.Items.Add do
    begin
      Caption := Query.FieldByName('UserName').AsString;
      SubItems.Add(Query.FieldByName('Class').AsString);
    end;
    Query.Next;
  end;
  Query.Close;
  Query.Free;
end;

procedure TMgrUserF.RadioButton1Click(Sender: TObject);
begin
  Edit1.Enabled := True;
  Edit1.Color := clWindow;
end;

procedure TMgrUserF.RadioButton2Click(Sender: TObject);
begin
  Edit1.Enabled := False;
  Edit1.Color := clBtnFace;
end;

function TMgrUserF.GetUserPwd(UserName: string): string;
var
  Query : TQuery;
begin
  try
    Query := TQuery.Create(nil);
    Query.DatabaseName := DBName;
    Query.SQL.Add('select UserPwd from tsyhb where UserName =:UserName');
    Query.ParamByName('UserName').AsString := UserName;
    Query.Open;
    Result := Query.FieldByName('UserPwd').AsString;
    Query.Close;
    Query.Free;
  except
    Result := '';
  end;
end;

procedure TMgrUserF.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  if ListView1.Selected <> nil then
  begin
    Edit1.Text := ListView1.Selected.Caption;
    Edit2.Text := GetUserPwd(Edit1.Text);
    ComboBox1.ItemIndex := StrToInt(ListView1.Selected.SubItems.Strings[0]);
  end;
end;

procedure TMgrUserF.ListView1Click(Sender: TObject);
begin
  if ListView1.Selected <> nil then
  begin
    Edit1.Text := ListView1.Selected.Caption;
    Edit2.Text := GetUserPwd(Edit1.Text);
    ComboBox1.ItemIndex := StrToInt(ListView1.Selected.SubItems.Strings[0]);
  end;
end;

function TMgrUserF.CheckExistUserName(UserName: string): boolean;
var
  Query : TQuery;
begin
  try
    Query := TQuery.Create(nil);
    Query.DatabaseName := DBName;
    Query.SQL.Add('select UserName from tsyhb where UserName =:UserName');
    Query.ParamByName('UserName').AsString := UserName;
    Query.Open;
    Result := Query.RecordCount >0;
    Query.Close;
    Query.Free;
  except
    Result := False;
  end;
end;

procedure TMgrUserF.DelUser(UserName: string);
var
  Query : TQuery;
begin
  Query := TQuery.Create(nil);
  Query.DatabaseName := DBName;
  Query.SQL.Add('delete from tsyhb where UserName =:UserName');
  Query.ParamByName('UserName').AsString := UserName;
  Query.ExecSQL;
  Query.Free;
end;

procedure TMgrUserF.InsUser(UserName, UserPwd: string; Power: integer);
var
  Query : TQuery;
begin
  Query := TQuery.Create(nil);
  Query.DatabaseName := DBName;
  Query.SQL.Add('insert into tsyhb(UserName,UserPwd,Class) '+
                 'values(:UserName,:UserPwd,:Class)');
  Query.ParamByName('UserName').AsString := UserName;
  Query.ParamByName('UserPwd').AsString := UserPwd;
  Query.ParamByName('Class').AsInteger:= Power;
  Query.ExecSQL;
  Query.Free;
end;

procedure TMgrUserF.UpdateUser(UserName, UserPwd: string; Power: integer);
var
  Query : TQuery;
begin
  Query := TQuery.Create(nil);
  Query.DatabaseName := DBName;
  Query.SQL.Add('update tsyhb set UserPwd=:UserPwd,Class=:Class'+
                 ' where UserName=:UserName');
  Query.ParamByName('UserName').AsString := UserName;
  Query.ParamByName('UserPwd').AsString := UserPwd;
  Query.ParamByName('Class').AsInteger:= Power;
  Query.ExecSQL;
  Query.Free;
end;

procedure TMgrUserF.Button3Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    if CheckExistUserName(Edit1.Text) then
    begin
      MessageDlg('此用户已经存在',mtError,[mbok],0);
      Exit;

    end;
    try
      InsUser(Edit1.Text,Edit2.Text,ComboBox1.ItemIndex);
    except
      MessageDlg('新建用户出错',mtError,[mbok],0);
      Exit;
    end;
  end;
  if RadioButton2.Checked then
  begin
    try
      UpdateUser(Edit1.Text,Edit2.Text,ComboBox1.ItemIndex);
    except
      MessageDlg('修改用户出错',mtError,[mbok],0);
      Exit;
    end;
  end;
  Edit1.Text := '';
  Edit2.Text := '';
  ComboBox1.ItemIndex := 2;
  RefreshUser;
end;

procedure TMgrUserF.Button2Click(Sender: TObject);
var
  i : integer;
begin
  for i := ListView1.Items.Count -1 downto 0 do
   if ListView1.Items[i].Selected then
   try
     DelUser(ListView1.Items[i].Caption);
     ListView1.Items.Delete(i);
   except
     MessageDlg('删除用户<'+ListView1.Items[i].Caption+'>出错',mtError,[mbok],0);
   end;
end;

end.