uadduser.pas

DELPHI编程入门篇.从基础入手,浅显易懂,一定物有所值.

unit Uadduser;

interface

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

type
  Tfrmadduser = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmadduser: Tfrmadduser;

implementation

uses Udatamodule, Upopedomset;

{$R *.dfm}

procedure Tfrmadduser.Button1Click(Sender: TObject);
begin
  if edit1.Text = '' then
  begin
    showmessage('请输入用户名');
    exit;
  end;
  if edit2.Text <> edit3.Text then
  begin
    showmessage('密码与验证密码不符');
    exit;
  end;
  adoquery1.SQL.Text:='select * from userinfo where username = '''+edit1.Text+'''';
  adoquery1.Open;
  if adoquery1.RecordCount = 0 then
  begin
    adoquery1.Edit;
    adoquery1.FieldByName('username').AsString:=edit1.Text;
    adoquery1.FieldByName('userpass').AsString:=edit2.Text;
    adoquery1.FieldByName('purview').AsString:='000000000000000000000000000';
    adoquery1.Post;
    with frmpopedomset.StringGrid1 do
    begin
      if cells[0,rowcount-1]<>'' then
      begin
        rowcount:=rowcount+1;
        cells[0,rowcount-1]:=adoquery1.Fields[0].AsString;
      end;
    end;
    adoquery1.Close;
    modalresult:=mrok;
  end
  else
  showmessage('用户名有重复');
  adoquery1.Close;
end;

end.