reg.~pas

使用Delphi 6.0开发用于控制空调的程序

unit reg;

interface

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

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    edt1: TEdit;
    btnReg: TButton;
    btnCancle: TButton;
    procedure btnRegClick(Sender: TObject);
    procedure btnCancleClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  Main;

procedure TForm1.btnRegClick(Sender: TObject);
begin
   if edt1.Text <> 'air123456789' then
   begin
     ShowMessage('注册码错误!');
   end
   else
   begin
       with frmain.qryReg do
   begin
       Close;
       SQL.Clear;
       SQL.Add('INSERT INTO Users(reg) values (:rr)');
       Parameters.ParamByName('rr').Value := edt1.Text;
       ExecSQL;     //执行SQL语句
       ShowMessage('恭喜恭喜，您已经注册成功了');
   end;
   end;    

end;

procedure TForm1.btnCancleClick(Sender: TObject);
begin
   Application.Terminate;
end;

end.