adoconnect.pas

打印源码

unit ADOconnect;

interface

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

type
  TADOLinkForm = class(TForm)
    ADOPageControl: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;

    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;

    Panel1: TPanel;
    lbServername: TLabel;
    lbDataname: TLabel;
    lbLoginID: TLabel;
    lbBuildtime: TLabel;
    edtConnectString: TEdit;
    LabServerName: TLabel;
    EdtServerName: TEdit;
    EdtDATAName: TEdit;
    EdtDATACount: TEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    btnbuildlink: TBitBtn;
    btnNext2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    adoconnection: TADOConnection;
    XPMenu1: TXPMenu;
    procedure FormActivate(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure btnbuildlinkClick(Sender: TObject);
    procedure btnNext2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ADOLinkForm: TADOLinkForm;

implementation

uses AdoConEd,pubfunc;
{$R *.dfm}

procedure TADOLinkForm.FormActivate(Sender: TObject);
 var
 i:integer;
 t:string;
 ADOlinkreg:treginifile;
begin

 Adopagecontrol.ActivePage:=adopagecontrol.Pages[0];

 for i:=1 to adopagecontrol.pagecount-1 do
    adopagecontrol.Pages[i].Enabled:=false;
adolinkreg:=treginifile.Create('');
with adolinkreg do
 begin
   try
     RootKey:=HKEY_LOCAL_MACHINE;
     if  keyexists('software\topapp\adodata') then
       begin
        openkey('software\topapp',false);
        t:=readstring('adodata','adolink','');
          if t<>'' then
            begin
              edtConnectString.Text:=t;
              showmessage('ADO数据库连接已经配置！');
              btnNext2.Click;//跳到第三页，首先展现DATAServername
              free;
            end
           else
             begin
                showmessage('ADO数据库连接尚未配置！');
                edtConnectString.Text:='';
                exit;
             end;
       end
    else
      showmessage('ADO数据库连接尚未配置！');
      exit;
   except
     begin
      showmessage('读取注册表出现异常错误！');
      free;
     end;
   end;
end;


end;

procedure TADOLinkForm.TabSheet2Show(Sender: TObject);
begin
if edtConnectString.text<>'' then
     btnbuildlink.Caption:='重新建立ADO连接'
else
     btnbuildlink.Caption:='建立ADO连接';
end;

procedure TADOLinkForm.BitBtn1Click(Sender: TObject);
begin
Adopagecontrol.ActivePage:=adopagecontrol.Pages[1];
adopagecontrol.Pages[0].Enabled:=false;
adopagecontrol.Pages[1].Enabled:=true;
end;

procedure TADOLinkForm.btnbuildlinkClick(Sender: TObject);
begin
  adoconnection.Close;
  editconnectionstring(adoconnection);
end;

procedure TADOLinkForm.btnNext2Click(Sender: TObject);
begin
DateTimePicker1.Refresh;
DateTimePicker1.Enabled:=false;
if edtConnectString.Text<>'' then
begin
Adopagecontrol.ActivePage:=adopagecontrol.Pages[2];
adopagecontrol.Pages[1].Enabled:=false;
adopagecontrol.Pages[2].Enabled:=true;
end
else
   messagedlg('连接字符串为空，请先建立数据库连接！',mtwarning,[mbok],0);
   exit;
end;



procedure TADOLinkForm.BitBtn4Click(Sender: TObject);
begin
Adopagecontrol.ActivePage:=adopagecontrol.Pages[0];
adopagecontrol.Pages[1].Enabled:=false;
adopagecontrol.Pages[2].Enabled:=false;
adopagecontrol.Pages[0].Enabled:=true;
end;

procedure TADOLinkForm.BitBtn5Click(Sender: TObject);
var
  s:string;
  ADOlinkreg:treginifile;
begin
  s:=edtConnectString.Text;
  adolinkreg:=treginifile.Create('');
with adolinkreg do
  try
    begin
      RootKey:=HKEY_LOCAL_MACHINE;
      openkey('software\topapp\',true);
      writestring('ADODATA','adolink',s);
      showmessage('保存数据库配置成功！');
      free;
     end;
  except
    begin
     showmessage('写入注册表出现异常错误！放弃保存！');
     free;
  end;
end;
end;










end.