unit3.~pas

delphi开发的数据库系统,支持用户注册.管理员登陆,可以进行插入,修改,删除等操作. 普通用户可以对数据库进行查询.

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;


    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1, Unit10;

{$R *.dfm}


procedure TForm3.BitBtn1Click(Sender: TObject);
var
h,k:string;
begin
with dm.ADOQuery2 do
   begin
      close;
      SQL.Clear;
      SQL.Add('select * from PW where PW.ID=:a');
      parameters.ParamByName('a').Value:=Trim(Edit1.Text);
      Open;
   end;
h:=edit2.Text;
k:=edit3.Text;
if (edit1.Text='')or(edit2.Text='')or(edit3.Text='') then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else if h<>k then
begin
application.MessageBox('密码不匹配！','错误操作',mb_ok);
exit;
end
else
 if dm.ADOQuery2.Eof=false then
   begin
     ShowMessage('该用户已经存在，请重新填写');
     Edit1.Clear
   end

   else
begin
with dm.adoquery3 do
begin
close;
sql.clear;
sql.add('insert into PW(ID,PW)values (:1,:2)');
parameters.parambyname('1').value:=''+Edit1.Text+'';
parameters.parambyname('2').value:=''+Edit2.Text+'';


execsql;
application.MessageBox('恭喜，注册完成！','完成提示',mb_ok);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
end;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
Form3.Visible:=false;
Form1.show;
end;

end.