unit1.pas

《Delphi7编程100例》代码,书配资料

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
        ls_dsn,ls_database,ls_desc,ls_login_id,ls_server_ip:string;
        lbl_user_dsn:boolean; // true-->user_dsn,false-->system dsn
        registerTemp : TRegistry;
begin
        //判断用户输入的信息是否正确
        ls_dsn:=trim(Edit1.text);            //取得数据源名
        ls_database:=trim(Edit2.text);  //取得数据库名
        ls_desc:=trim(Edit3.text);          //取得描述名
        ls_login_id:=trim(Edit4.text);  //取得用户名
        //取得数据库所在的IP地址
        ls_server_ip:=Edit5.text;

        //判断数据源名是否填写
        if ls_dsn='' then
                begin
                showmessage('请输入数据源名');
                Edit1.SetFocus ;
                exit;
                end;

        registerTemp := TRegistry.Create; //建立一个Registry实例
        with registerTemp do
                begin
                if RadioButton1.Checked then
                        RootKey:=HKEY_CURRENT_USER //设置根键值为HKEY_CURRENT_USER
                else
                        RootKey:=HKEY_LOCAL_MACHINE; //设置根键值为HKEY_LOCAL_MACHINE

        //找到Software\ODBC\ODBC.INI\ODBC Data Sources
        if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
                begin //注册一个DSN名称
                WriteString( ls_dsn, 'SQL Server' );
                end
        else
                begin//创建键值失败
                Showmessage('增加ODBC数据源失败'+#13+formatdatetime('yyyy-mm-dd hh:mm:ss',now));
                exit;
                end;
        CloseKey;

        //找到或创建Software\ODBC\ODBC.INI\MyAccess,写入DSN配置信息
        if OpenKey('Software\ODBC\ODBC.INI\'+ls_dsn,True) then
                begin
                        WriteString( 'Database',ls_database);//数据库
                        WriteString( 'Description',ls_desc);//数据源描述
                        WriteString( 'Driver', 'E:\Windows\SYSTEM\sqlsrv32.dll' );//驱动程序DLL文件
                        Writestring( 'LastUser',ls_login_id);//
                        WriteString( 'Server', ls_server_ip);//用户名称
                end
        else//创建键值失败
                begin
                Showmessage('增加ODBC数据源失败'+#13+#10+formatdatetime('yyyy-mm-dd hh:mm:ss',now));
                exit;
                end;
        CloseKey;

        showmessage('已成功创建新的ODBC数据源');
        Showmessage('已成功创建新的ODBC数据源'+#13+#10+formatdatetime('yyyy-mm-dd hh:mm:ss',now));
        Free;
        end;
end;

end.