adduser.pas

一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！

unit AddUser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, jpeg,db, XPMenu;

type
  TAddUserForm = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    UserName: TComboBox;
    PassWord: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    XPMenu1: TXPMenu;
    procedure UserNameDropDown(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
   UserPass:string;
   submit:boolean;
    { Public declarations }
  end;

var
  AddUserForm: TAddUserForm;

implementation
uses MD,PassWord;

{$R *.dfm}

procedure TAddUserForm.UserNameDropDown(Sender: TObject);
var
i:integer;
begin
//在用户名称框中输入已经存在的用户名
UserName.Clear;
With DataMD.ADOManage do
Begin
 Close;
 Sql.clear;
 Sql.Add('select * from manage');
 open;
 if RecordCount>0 then
    begin
     first;
     for i:=0 to RecordCount-1 do
      begin
      UserName.Items.Add(fieldbyname('用户名').AsString);
      Next;
      end;
     end
end;
end;

procedure TAddUserForm.BitBtn1Click(Sender: TObject);
begin
//添加新的用户名到数据库中
 With DataMd.ADOManage Do
 begin
  Close;
  Sql.Clear;
  Sql.Add('select * from manage');
  OPen;
  if trim(username.Text)='' then
    begin
    showmessage('用户名不能为空！');
    UserName.SetFocus;
    end
    else
     begin
      Application.CreateForm(TPassWordForm,PassWordForm);
      PassWordForm.ShowModal;
      if Not Locate('用户名',Trim(username.text),[lopartialkey]) And submit then
         begin
          Append;
          FieldByName('用户名').AsString:=UserName.Text;
          FieldbyName('密码').AsString:=PassWord.Text;
          FieldByName('权限').AsString:=combobox1.Text;
          If MessageDlg('是否要把用户写入库中',MtConfirmation,[mbYes,mbNo],0)=mrYes then
          begin
          post;
          showmessage('用户以成功的写入数据库中');
          end
          else
          cancel;
         end
      else
      showmessage('用户已经存在');
      end;
   end;
end;

procedure TAddUserForm.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.