unit5.pas

DELPHI7.0+SQL2005环境下开发 2008年8月假期所写

unit Unit5;
//用户管理
interface

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

type
  Tfrm_manager = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Button3: TButton;
    Button4: TButton;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Button5: TButton;
    Button6: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox2: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_manager: Tfrm_manager;
implementation

uses Unit13;

{$R *.dfm}
//------------------添加用户-----------------------//
procedure Tfrm_manager.Button1Click(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') then
begin
try
  with data1.ADO_man do
    begin
      close;
      sql.Clear;
      sql.Add('insert admin values(:a,:b)');  //向管理员表中添加数据
      parameters.ParamByName('a').Value:=trim(edit1.Text); //用户名
      parameters.ParamByName('b').Value:=trim(edit2.Text); //密码
      execsql;
    end;
    application.MessageBox('添加成功','提示',64);
except
  application.MessageBox('用户已经存在','失败',64)
end;
end
else
  application.MessageBox('用户或密码不能为空','提示',64);
end;
//----------------------取消--------------------//
procedure Tfrm_manager.Button2Click(Sender: TObject);
begin
close;
end;
//-------窗体建立时显示用户名到EDIT3与COMBOX控件中--------//
procedure Tfrm_manager.FormCreate(Sender: TObject);
var
i:integer;
begin
  combobox1.Clear;
with data1.ADO_Man do
begin
  close;
  sql.Clear;
  sql.Add('select * from admin');
  open;
  if recordcount>0 then
  begin
    first;
    for i:=0 to recordcount-1 do
    begin
    combobox1.Items.Add(fieldbyname('admin').AsString);
    combobox2.Items.Add(fieldbyname('admin').AsString);
    next;
    end;
  end
  else
    application.MessageBox('无法获取用户','提示',64)
end;
end;
//-------------------修改用户密码---------------------//
procedure Tfrm_manager.Button3Click(Sender: TObject);
begin
  if edit4.Text<>'' then
    begin
      try
      with data1.ADO_man do
        begin
          close;
          sql.Clear;
          sql.Add('update admin set pass =:a where admin=:b');
          parameters.ParamByName('a').Value:=trim(edit4.Text);
          parameters.ParamByName('b').Value:=trim(combobox2.Text);
          execsql;
        end;
      application.MessageBox('修改成功','提示',64);
      except
        application.MessageBox('修密失败','提示',64);
      end;
    end
  else
    application.MessageBox('密码不能为空','提示',64);
end;
//-----------------删除用户-------------------------//
procedure Tfrm_manager.Button5Click(Sender: TObject);
begin
  if combobox1.items[combobox1.ItemIndex]<>'' then
  begin
    try
    with data1.ADO_man do
      begin
        close;
        sql.Clear;
        sql.Add('delete from admin where admin=:a');
        parameters.ParamByName('a').Value:=combobox1.Text;
        execsql;
      end;
      application.MessageBox('删除成功','提示',64);
    except
      application.MessageBox('删除失败','提示',64);
    end;
  end
  else
    application.MessageBox('请选择要删除的用户','提示',64);
end;
//-----------------------修改密码取消-------------//
procedure Tfrm_manager.Button4Click(Sender: TObject);
begin
close;
end;
//------------------------删除用户退出--------//
procedure Tfrm_manager.Button6Click(Sender: TObject);
begin
close;
end;

end.