adduser.pas

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

unit AddUser;

interface

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

type
  TAddUserFrm = class(TForm)
    SubmitPassword_Label: TLabel;
    Password_Label: TLabel;
    Username_Label: TLabel;
    AddUser_Table: TTable;
    Username_Edit: TEdit;
    Password_Edit: TEdit;
    SubmitPassword_Edit: TEdit;
    AddUserOk_BitBtn: TBitBtn;
    AddUserCancel_BitBtn: TBitBtn;
    AddUser_Query: TQuery;
    procedure AddUserOk_BitBtnClick(Sender: TObject);
    procedure AddUserCancel_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddUserFrm: TAddUserFrm;
  function storepassword(password:string):string;

implementation

uses Login;
{$R *.dfm}

//-------定义函数：保存密码规则（编码）------
function storepassword(password:string):string;
var i,passwordlength:integer;
    temppassword:string;
begin
   passwordlength:=length(password);
   temppassword:='';
   for i:=passwordlength downto 1 do
       begin
          temppassword:=temppassword+copy(password,i,1);
       end;
   storepassword:=temppassword;
end;

procedure TAddUserFrm.AddUserOk_BitBtnClick(Sender: TObject);
var userID,flag,i:integer;
    UsernameTemp:string;
begin
 if LoginFrm.loginusername='administrator' then
   begin
      with AddUser_query do
        begin
           if recordcount=0 then
              userID:=0
          else
             begin
               last;
               userID:=recordcount;
            end;
        end;
     flag:=0;
     if Password_Edit.Text=SubmitPassword_Edit.Text  then
        begin
           AddUser_Table.first;
           for i:=1 to AddUser_Table.recordcount do
             begin
             //-------判断用户是否已经存在------
                 UsernameTemp:=AddUser_Table.fieldbyname('userName').AsString;
                 if  Username_Edit.Text=UsernameTemp then
                         flag:=1;
                  AddUser_Table.next;
             end;
          if flag=0 then
            begin
              with AddUser_Table do
                 begin
                  last;
                  //-------添加用户------
                  append;
                  fieldvalues['userID']:=inttostr(userID+1);
                  fieldvalues['userName']:=Username_Edit.Text;
                  fieldvalues['password']:=storepassword(Password_Edit.Text);
                  post;
                  update;
                end; 
            end
          else
            begin
              messagebox(AddUserFrm.handle,'该用户已经存在，您无权添加！','警告',mb_ok+mb_iconwarning);
              Username_Edit.Text:='';
              Password_Edit.Text:='111111';
              SubmitPassword_Edit.Text:='000000';
            end;
         end
      else
         begin
           messagebox(AddUserFrm.handle,'请输入正确的密码','警告',mb_ok+mb_iconwarning);
           Password_Edit.Text:='000000';
           SubmitPassword_Edit.Text:='111111';
         end;
    end
   else
       begin
         messagebox(AddUserFrm.handle,'您无权进行此超作！','警告',mb_ok+mb_iconwarning);
         AddUserFrm.hide;
       end;
end;

procedure TAddUserFrm.AddUserCancel_BitBtnClick(Sender: TObject);
begin  
   AddUserFrm.hide;
end;

procedure TAddUserFrm.FormShow(Sender: TObject);
begin
   Username_Edit.Text:='';
   SubmitPassword_Edit.Text:='111111';
   Password_Edit.Text:='000000';
   AddUser_Table.Active:=false;
   AddUser_Table.Active:=true;
   AddUser_query.Active:=false;
   AddUser_query.Active:=true;
end;

end.