usermanunit.~pas

delphi 环境下邮件管理程序。

unit UserManUnit;

interface

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

type
  TUserMan = class(TForm)
    GroupBox1: TGroupBox;
    UserList: TListBox;
    btn_AddUser: TButton;
    btn_ModUser: TButton;
    btn_DelUser: TButton;
    btn_Close: TButton;
    procedure btn_CloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn_DelUserClick(Sender: TObject);
    procedure btn_AddUserClick(Sender: TObject);
    procedure btn_ModUserClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserMan: TUserMan;

implementation

{$R *.dfm}
uses
   UserAddUnit,DBTables;

var
    TempQuery:TQuery;
procedure TUserMan.btn_CloseClick(Sender: TObject);
begin
    Close;
end;

procedure TUserMan.FormCreate(Sender: TObject);
var
    TempString:String;
begin
    UserList.Items.Clear;
    TempQuery:=TQuery.Create(self);
    TempQuery.RequestLive:=True;

    TempQuery.Close;
    TempQuery.SQL.Clear;
    TempQuery.SQL.Add('SELECT * FROM 用户信息');
    TempQuery.Open;

    while not TempQuery.Eof do
    begin
        TempString:=TempQuery.FieldByName('用户名称').AsString;
        UserList.Items.Add(TempString);
        TempQuery.Next;
    end;
end;

procedure TUserMan.FormDestroy(Sender: TObject);
begin
     TempQuery.Free;
end;

procedure TUserMan.btn_DelUserClick(Sender: TObject);
begin
    if self.UserList.ItemIndex<0 then Exit;
    if UserList.ItemIndex=0 then
    begin
        Application.MessageBox('不能删除系统管理员。','错误',MB_OK or MB_ICONEXCLAMATION);
        Exit;
    end;
    TempQuery.Close;
    TempQuery.SQL.Clear;
    TempQuery.SQL.Add('DELETE FROM 用户信息 WHERE 用户名称='+''''+UserList.Items[UserList.ItemIndex]+'''');
    TempQuery.ExecSQL;
    UserList.Items.Delete(UserList.ItemIndex);
end;

procedure TUserMan.btn_AddUserClick(Sender: TObject);
begin
    UserAdd:=TUserAdd.Create(self);
    if UserAdd.ShowModal=mrOK then
    begin
        with TempQuery do
        begin
            Close;
            SQL.Clear;
            SQL.Add('SELECT * FROM 用户信息 WHERE 用户名称='+''''+UserAdd.UserName.Text+'''');
            Open;

            if RecordCount>0 then
            begin
                Application.MessageBox('用户已存在。','错误',MB_OK or MB_ICONEXCLAMATION);
                Exit;
            end;

            Append;
            FieldByName('用户名称').AsString:=UserAdd.UserName.Text;
            FieldByName('用户密码').AsString:=UserAdd.UserPass.Text;
            FieldByName('用户权限').AsString:=UserAdd.UserMemo.Text;
            Post;

            UserList.Items.Add(UserAdd.UserName.Text);
        end;
    end;
end;

procedure TUserMan.btn_ModUserClick(Sender: TObject);
begin
    if self.UserList.ItemIndex<0 then Exit;
    UserAdd:=TUserAdd.Create(self);
    UserAdd.Caption:='用户属性';
    with UserAdd do
    begin
        with TempQuery do
        begin
            Close;
            SQL.Clear;
            SQL.Add('SELECT * FROM 用户信息 WHERE 用户名称='+''''+UserAdd.UserName.Text+'''');
            Open;

            if RecordCount<0 then Exit;
            UserName.Text:=FieldByName('用户名称').AsString;
            UserPass.Text:=FieldByName('用户密码').AsString;
            UserMemo.Text:=FieldByName('用户权限').AsString;
        end;
        UserName.ReadOnly:=True;
    end;
    if UserAdd.ShowModal=mrOK then
    begin
        with TempQuery do
        begin
            Edit;
            FieldByName('用户密码').AsString:=UserAdd.UserPass.Text;
            FieldByName('用户权限').AsString:=UserAdd.UserMemo.Text;
            Post;
        end;
    end;
end;

end.