datasetting.~pas

彩票销售系统

unit datasetting;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons,registry, ExtCtrls;

type
  Tdatasetform = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  datasetform: Tdatasetform;
  reg:tregistry;
implementation

{$R *.dfm}

procedure Tdatasetform.BitBtn1Click(Sender: TObject);
var svrname:string;
      dbname:string;
      username:string;
      pwd:string;
      rtn:integer;
begin
  {   if edit5.Text='OK' then
      else
         exit;     }
  rtn:=application.MessageBox('对数据库的设置即将保存，设置不当会使程序无法运行，是否继续？','系统提示',MB_ICONINFORMATION+MB_YESNO);
   if rtn=7 then
     close;
     if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
       application.MessageBox('输入必录项','系统提示');
     svrname:=edit1.Text;
     dbname:=edit2.Text;
     username:=edit3.Text;
     pwd:=edit4.Text;
     //*************registry operation********
   TRY
     reg:=tregistry.Create;
     reg.RootKey:=HKEY_LOCAL_MACHINE;
     REG.OpenKey('SOFTWARE',FALSE);
     REG.CreateKey('BestFriend');
     REG.OpenKey('BestFriend',FALSE);
     REG.WriteString('ServerName',svrname);
     REG.WriteString('DataBaseName',dbname);
     REG.WriteString('UserName',username);
     REG.WriteString('PassWord',pwd);
     application.MessageBox('信息已保存，重启程序即生效','系统提示',mb_iconinformation);
   except
     application.MessageBox('写入注册表失败！','系统提示',MB_ICONERROR);
     CLOSE;
   END;
   CLOSE;
   //*************REGISTRY OPERATION END********


end;

procedure Tdatasetform.BitBtn2Click(Sender: TObject);
begin
  CLOSE;
end;

procedure Tdatasetform.FormCreate(Sender: TObject);
var svrname:string;
      dbname:string;
      username:string;
      pwd:string;

begin
   try
      reg:=tregistry.Create;
      reg.RootKey:=HKEY_LOCAL_MACHINE;
      reg.OpenKey('SOFTWARE',FALSE);
      REG.OpenKey('BestFriend',FALSE);
      SVRNAME:=REG.ReadString('ServerName');
      dbname:=reg.ReadString('DataBaseName');
      username:=reg.ReadString('UserName');
      pwd:=reg.ReadString('PassWord');
   except
      application.MessageBox('读取注册表失败！','系统提示',MB_ICONERROR);
      EXIT;
   END;
   EDIT1.Text:=svrname;
   EDIT2.Text:=dbname;
   EDIT3.Text:=Username;
   edit4.Text:=pwd;
end;

end.