adduser.pas

c/s系统。 delphi 6+access 运行前先配置数据环境：把db文件夹复制到c：下 要编译请安装第三方控件fastreport2.47 这是我的小小的毕业设计

unit adduser;

interface

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

type
  Tzjxyh = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button3: TButton;
    ADOConnection1: TADOConnection;
    Table1: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zjxyh: Tzjxyh;

implementation

uses pass;
  
{$R *.dfm}

procedure Tzjxyh.Button1Click(Sender: TObject);
var
a1,a2:string;
n:integer;
begin
 if length(button1.caption)<5 then
        begin
            if length(edit1.text)=0 then
               begin
               showmessage('请输入登录的用户名');
               exit;
               end
            else
              begin
                if length(edit2.text)=0 then
                   begin
                      showmessage('请输入登录用户的密码');
                      exit;
                   end
                else
                   begin
                      if edit1.text=fpass.Edit1.text then
                            begin
                                   if edit2.text=fpass.Edit2.text then
                                         begin
                                          edit3.readonly:=false;edit3.color:=clwindow;
                                          edit4.readonly:=false; edit4.color:=clwindow;
                                          edit1.readonly:=true;edit1.color:=clbtnface;
                                          edit2.readonly:=true;edit2.color:=clbtnface;
                                          button1.caption:='添加新用户';
                                        
                                         end
                                   else
                                          begin
                                           showmessage('用户名或密码输入错误');
                                           edit1.Text:='';
                                           edit2.Text:='';
                                           exit;
                                          end
                            end
                      else
                            begin
                                 showmessage('用户名或密码输入错误');
                                 edit1.Text:='' ;
                                 edit2.Text:='';
                                 exit;
                            end
                   end
              end
     end
 else
   begin
     if length(edit3.text)=0 then
         begin
           showmessage('请输入新的用户名');
           exit;
         end
      else
         begin
           table1.open;
           table1.first;
           a1:=edit3.text;
           while not table1.eof do
            begin
            a2:=table1.fieldbyname('user').asstring;
            n:=comparestr(a1,a2);
             if n=0 then break;
             table1.next;
             end;
             if not table1.Eof then
                 begin
                    showmessage('用户名已存在，请重新输入');
                    button1.caption:='添加新用户';
                    edit3.Text:='';
                    edit4.Text:='';
                    exit;
                 end
               else
                    if length(edit4.text)=0 then
                        begin
                          showmessage('请输入新用户的密码');
                          exit;
                        end
                   else
                        begin
                          if MessageDlg('添加此用户名后，将成为此系统的用户之一。确定要添加此用户名吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
                              begin
                                table1.open;
                                table1.edit;
                                table1.last;
                                table1.append;
                                table1.FieldByName('user').asstring:=edit3.text;
                                table1.fieldbyname('passwd').asstring:=edit4.text;
                                table1.Post;
                                table1.refresh;
                             
                                showmessage('用户及密码设置成功');
                              end;
                        end;
                        edit1.readonly:=true;edit1.color:=clbtnface;
                        edit2.readonly:=true;edit2.color:=clbtnface;
                        edit3.readonly:=false; edit3.color:=clwindow;
                        edit4.readonly:=false; edit4.color:=clwindow;
                        edit1.text:='';
                        edit2.text:='';
                        edit3.text:='';
                        edit4.text:='';






         end;
  end;
end;


procedure Tzjxyh.Button2Click(Sender: TObject);
begin
  edit3.text:='';
  edit4.text:='';
end;

procedure Tzjxyh.Button3Click(Sender: TObject);
begin
edit1.Text:='';
edit1.ReadOnly:=false;
edit1.Color:=clwindow;
edit2.Text:='';
edit2.ReadOnly:=false;
edit2.Color:=clwindow;
edit3.Text:='';
edit3.ReadOnly:=true;
edit3.Color:=clbtnface;
edit4.Text:='';
edit4.ReadOnly:=true;
edit4.Color:=clbtnface;
close;
end;

procedure Tzjxyh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
edit1.Text:='';
edit1.ReadOnly:=false;
edit1.Color:=clwindow;
edit2.Text:='';
edit2.ReadOnly:=false;
edit2.Color:=clwindow;
edit3.Text:='';
edit3.ReadOnly:=true;
edit3.Color:=clbtnface;
edit4.Text:='';
edit4.ReadOnly:=true;
edit4.Color:=clbtnface;
button1.Caption:='确定';
end;

end.