unit5.~pas

简单的一个computer系统

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit3, StdCtrls, Grids, DBGrids, ExtCtrls;

type
  TForm5 = class(TForm)
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit7Change(Sender: TObject);

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

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
if
self.Edit2.Text='' then
begin
messagebox(handle,'姓名不允许为空','提示',mb_OK);
exit;
if
self.Edit7.Text='' then
begin
messagebox(handle,'密码不允许为空','提示',mb_OK);
exit;
end
else
messagebox(handle,'注册成功，欢迎使用！','提示',mb_OK);
Form5.Release;
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add('insert into user(Name,pwd)');
dm.ADOQuery1.SQL.Add('values('''+self.Edit2.Text+''','''+self.Edit7.Text+''')');
dm.ADOQuery1.ExecSQL;
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Text:='select * from user';
dm.ADOQuery1.Open;
end;
end;


procedure TForm5.Edit7Change(Sender: TObject);
begin
self.Edit4.PasswordChar:='*';
end;

end.