adduserunit.pas

来自「一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 」· PAS 代码 · 共 101 行

unit adduserUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, ExtCtrls;

type
  TadduserForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel2: TBevel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Bevel1: TBevel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  adduserForm: TadduserForm;

implementation

uses datamoduleUnit;

{$R *.dfm}





procedure TadduserForm.BitBtn1Click(Sender: TObject);
begin
if maskedit2.Text<>maskedit3.Text then
   begin
     messagebox (handle,'两次输入的密码不相同！请重输！','警告',mb_ok) ;
     maskedit3.Text:='';
     maskedit2.Text:='';
     maskedit2.SetFocus;
     exit;
    end;
with datamodule1.tablesys do
 begin
   open;
   if not locate('user',trim(edit1.Text),[]) then
    begin
     insert;
     fieldbyname('user').AsString:=trim(edit1.Text);
     fieldbyname('psw').AsString:=maskedit2.Text;
     fieldbyname('type').AsString:=combobox1.Text;
     post;
     close;
     messagebox (handle,pchar( '用户：'+trim(edit1.Text)+' 已经成功注册'),'确认',mb_ok) ;
     modalresult:=mrok;
    end
   else
    begin
      messagebox (handle,'此用户名已经存在','警告',mb_ok) ;
      edit1.SetFocus;
      exit;
    end;
 end;
end;

procedure TadduserForm.Edit1Change(Sender: TObject);
begin
if  (edit1.Text<>'') and (maskedit2.Text<>'')
and (maskedit3.Text<>'') and (combobox1.Text<>'') and (combobox2.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure TadduserForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
datamodule1.Tablesys.Close;
end;

end.