unit_zuche.pas

本课题的开发是为物业部门提供一套高效、快捷的应用软件。适用于房产业主、大中小型物业公司、物业服务商、房地产开发商、物业中介公司等物业管理；用于管理公寓、住宅群体、智能小区、商品房、多层住宅、商业大厦、

unit Unit_zuche;

interface

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

type
  TForm_zuche = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    ADOConnection1: TADOConnection;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_zuche: TForm_zuche;

implementation

{$R *.dfm}

procedure TForm_zuche.Button1Click(Sender: TObject);
begin
   if Adotable1.Locate('员工编号',edit4.Text,[]) then
      if adotable1.FieldByName('姓名').AsString=edit5.Text then
         begin
            if edit2.Text=edit3.Text then
             begin
               adotable2.Append;
               adotable2.FieldByName('用户名称').AsString:=edit1.Text;
               adotable2.FieldByName('密码').asstring:=edit2.Text;
               adotable2.Post;
               showmessage('注册成功，请重新登录！');
              close
            end
          else
              showmessage('两次输入一致，请重新输入！')
         end
      else
         showmessage('对不起，无法注册！')
   else
     showmessage('对不起，无法注册！')
end;

procedure TForm_zuche.Button2Click(Sender: TObject);
begin
adotable2.Cancel;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;

end.