adduser.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

unit AddUser;

interface

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

type
  TAddUserFrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddUserFrm: TAddUserFrm;

implementation

{$R *.dfm}

procedure TAddUserFrm.Button1Click(Sender: TObject);
begin
  if edit1.text='' then
       showmessage('请输入用户名！')
    else
       if edit2.text='' then
          showmessage('请输入密码！')
       else
           if edit3.text='' then
              showmessage('请输入确认密码！')
     else
      begin
       with ADOQuery1 do
        begin
         close;
         sql.clear;
         sql.add('select * from login where username=');
         sql.add(''''+edit1.text+'''');
         open;
         first;
         if recordcount<>0 then
           begin
            showmessage('对不起，此用户已经存在！请重新选择用户名！');
            edit1.Text:='';
            edit2.text:='';
            edit3.text:='';
            combobox1.text:='普通用户';
           end
         else
           if edit2.text<>edit3.text then
             begin
              showmessage('两次密码不一致，请重新输入！');
              edit2.text:='';
              edit3.text:='';
              combobox1.text:='普通用户';
             end
           else
           begin
            sql.add('insert into login (username,password,class)');
            sql.add('values(' +''''+edit1.text+''''+',');
            sql.add(''''+edit2.text+''''+','+''''+combobox1.text+''''+')');
            execsql;
            showmessage('新用户添加成功！');
            edit1.Text:='';
            edit2.text:='';
            edit3.text:='';
            combobox1.text:='普通用户';
            end;
         end;
     end;
end;

procedure TAddUserFrm.Button2Click(Sender: TObject);
begin
   edit1.Text:='';
   edit2.text:='';
   edit3.text:='';
   combobox1.text:='普通用户';
end;

procedure TAddUserFrm.Button3Click(Sender: TObject);
begin
   AddUserFrm.Hide;
end;

procedure TAddUserFrm.FormCreate(Sender: TObject);
begin
   edit1.Text:='';
   edit2.text:='';
   edit3.text:='';
   combobox1.text:='普通用户';
end;

end.