datalink.dpr

来自「《delphi深度编程及其项目开发》」· DPR 代码 · 共 29 行

program DataLink;

uses
  Windows,Forms,
  MainFrm in 'MainFrm.pas' {FrmMain};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFrmMain, FrmMain);
  with FrmMain.Database do
  begin
    DataBaseName := 'DelphiTest';
    DriverName := 'MSSQL';
    Params.Values['Server Name'] := 'wbcp';  // 数据库服务器名
    Params.Values['DataBase Name'] := 'pubs'; //具体的数据库
    Params.Values['User Name'] := 'sa';  //用户名
    Params.Values['PassWord'] := '';  //密码
  end;
  try
    FrmMain.database.Connected := True;
  except
    Application.MessageBox('数据库连接失败','提示',mb_iconInformation+mb_defbutton1)
  end;
  Application.Run;
end.