unit11.pas

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

unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

uses Unit10, Unit1;

{$R *.dfm}

procedure TForm11.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') or (Edit4.Text='') then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else if Edit3.Text<>Edit4.Text then
begin
application.MessageBox('新密码不匹配！','错误操作',mb_ok);
exit;
end
else with dm.Adoquery3 do
begin
close;
sql.Clear;
sql.Add('select * from PW where ID='''+Edit1.Text+'''');
open;
if edit1.text<>dm.adoquery3.fieldbyname('ID').asstring then
application.MessageBox('该用户名不存在！','错误操作',mb_ok)
else if edit2.text<>dm.adoquery3.fieldbyname('PW').asstring then
application.MessageBox('密码错误！','错误操作',mb_ok)
else

with dm.Adoquery4 do
begin
close;
sql.Clear;
sql.add('update PW set PW=:pw ');
sql.Add('where ID='''+Edit1.text+'''');
Parameters.ParamByName('pw').Value:=trim(Edit3.Text);
execsql;
application.MessageBox('修改成功！','完成提示',mb_ok);
end;
end;
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
end;
procedure TForm11.BitBtn2Click(Sender: TObject);
begin
Form11.Visible:=false;
Form1.show;
end;

end.