unit1.pas

当你写的程序希望移植到别的电脑上要安装数据库时我这个程序可以为您的程序实现数据库的连接。

{************************************************************}
{                                                            }
{  Copyright (Delphi6.0), 2004,Hong Yuen Electronics Ltd.    }
{  FileName: Unit1.pas                                       }
{  Author: 朱曦       Version :Ver1.0   Date:2004年3月4日    }
{ Description: 用来把客户端连接到服务器上的数据库// 模块描述 }
{ Version:        Ver1.0 // 版本信息                         }
{ Function List:   // 主要函数及其功能                       }
{  1. -------                                                }
{ History:         // 历史修改记录                           }
{     <author>  <time>   <version >   <desc>                 }
{     David    04/03/04     1.0     build this moudle        }
{                                                            }
{************************************************************}





unit Unit1;

interface

uses
  Windows,ADOConed,Qforms, iniFiles,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XP_Form, XP_Button, StdCtrls, TFlatMemoUnit, DB, ADODB;

type
  TForm1 = class(TForm)
    XP_Form1: TXP_Form;
    XP_Button1: TXP_Button;
    XP_Button2: TXP_Button;
    XP_Button3: TXP_Button;
    XP_Button4: TXP_Button;
    XP_Button5: TXP_Button;
    FlatMemo1: TFlatMemo;
    TestADO: TADOConnection;
    procedure XP_Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure XP_Button2Click(Sender: TObject);
    procedure XP_Button3Click(Sender: TObject);
    procedure XP_Button4Click(Sender: TObject);
    procedure XP_Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.XP_Button1Click(Sender: TObject);
begin
  FlatMemo1.Text :='';
  EditConnectionString(TestADO);
  FlatMemo1.Text := TestADO.ConnectionString;
  XP_Button3.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  XP_Button3.Enabled := False;
end;

procedure TForm1.XP_Button2Click(Sender: TObject);
begin

  if FlatMemo1.Text = '' then
  begin
    MessageDlg('请您确认连接参数是否正确 ！',mtWarning,[mbYes],0);
    Exit;
  end;

  TestADO.Connected := False;
  TestADO.LoginPrompt := False;
  TestADO.ConnectionString := FlatMemo1.Text ;

  try
    TestADO.Connected := True;
  Except
    MessageDlg('无法建立数据库连接！',mtWarning,[mbYes],0);
    Exit;
  end;

  MessageDlg('测试数据库连接成功！',mtInformation,[mbYes],0);

end;

procedure TForm1.XP_Button3Click(Sender: TObject);
Var
  SetIni :TiniFile;

begin

  SetIni := TiniFile.Create(ExtractFilePath(Application.ExeName)
            +'Database.ini');
  SetIni.DeleteKey('Common','UseLink');
  SetIni.WriteString('Common','UseLink',FlatMemo1.Text);
  SetIni.Free;
  XP_Button3.Enabled := False;


end;

procedure TForm1.XP_Button4Click(Sender: TObject);
begin

  if XP_Button3.Enabled = True then
  begin
    ShowMessage('您还没有保存设置，请先保存再退出！');
    Abort;
  end
  else
    Close;

end;

procedure TForm1.XP_Button5Click(Sender: TObject);
begin
  ShowMessage('如果您对本设置程序有什么不明白的地方！'+#10#13#10#13
               +'请和我联系！我将为您做详细的解答！'+#10#13#10#13
               +'联系人：朱曦'+#10#13#10#13+'  E-mail：[e-mail]');
end;

end.