deleteuser.pas

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

unit deleteuser;

interface

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

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

var
  scyh: Tscyh;

implementation

uses pass,adduser;

{$R *.dfm}

procedure Tscyh.Button1Click(Sender: TObject);
var
 a1,a2,a3,a4:string;
 n,m: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:='删除此用户';
                                          edit3.enabled:=true;
                                          edit3.readonly:=false;
                                          edit4.enabled:=true;
                                          edit4.readonly:=false;
                                         end
                                   else
                                          begin
                                           showmessage('用户名或密码输入错误！');
                                           edit1.Text:='';
                                           edit2.Text:='';
                                           exit;
                                          end
                            end
                      else
                            begin
                                 showmessage('用户名或密码输入错误！');
                                 edit1.Text:='';
                                 edit2.Text:='';
                                 exit;
                            end
                   end
              end
     end
    else
        if (edit3.Text=edit1.text) then
            begin
                showmessage('对不起！不能删除正在登录的用户！');
                edit3.Text:='';
                edit4.Text:='';
                exit;
            end
        else
            begin
                if (edit3.text='')  or (edit4.text='')  then
                    begin
                        showmessage('请输入要删除的用户名及其密码');
                        edit3.Text:='';
                        edit4.Text:='';
                        exit;
                    end
                else
                    begin
                         zjxyh.table1.open;
                         zjxyh.table1.first;
                         a1:=edit3.text;
                         a2:=edit4.text;
                         while not zjxyh.table1.eof do
                               begin
                                    a3:=zjxyh.table1.fieldbyname('user').asstring;
                                    a4:=zjxyh.table1.fieldbyname('passwd').asstring;
                                    n:=comparestr(a1,a3);
                                    m:=comparestr(a2,a4);
                                    if (n and m)=0 then break;
                                        zjxyh.table1.next;
                               end;
                if zjxyh.table1.eof then
                     begin
                          showmessage('此用户名不存在或密码错误！');
                          edit3.Text:='';
                          edit4.Text:='';
                          exit ;
                     end
                else
                    begin
                         if MessageDlg('删除此用户名后，将永久不能登录此系统。确定要删除此用户名吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
                             begin
                                  zjxyh.table1.edit;
                                  zjxyh.table1.FieldByName('user').asstring:=edit3.text;
                                  zjxyh.table1.FieldByName('passwd').asstring:=edit4.text;
                                  zjxyh.table1.delete;
                                  zjxyh.table1.Refresh;
                                 
                                  showmessage('用户删除成功！');
                             end;
                     end;
        edit3.readonly:=false;edit3.color:=clwindow;
        edit4.readonly:=false;edit4.color:=clwindow;
        edit1.readonly:=true; edit1.color:=clbtnface;
        edit2.readonly:=true; edit2.color:=clbtnface;
        edit1.text:='';
        edit2.text:='';
        edit3.text:='';
        edit4.text:='';
     end;
   end;
end;
procedure Tscyh.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;
button1.caption:='确定';
close;
end;

procedure Tscyh.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.