关于连接数据库的问题(在线等)（50）

Question

本人刚刚接触DELPHI，我想用它作一个管理系统，但我想在连接数据库时使用代码连接，而不是用控件，这个用VB很简单，但DELPHI就不会了，哪位高手能帮我解决一下，不胜感激！！！

Answer 1

放个TAdoConnection，然后双击它，点Build

Answer 2

AdoConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=dds;Data Source=127.0.0.1';

Answer 3

能不能将连接和数据操作的过程都告诉我，比如：数据集的使用和在EDIT控件中显示等！！

Answer 4

连接的时主要是设置AdoConnection1.ConnectionString，所以可以把连接串放在.INI文件中，每次读取。

Answer 5

以下是我软件中的部分代码，楼主可以参考一下，使用的是读写注册表的方法：
procedure TFormLoginServer.BtnOkClick(Sender: TObject);
var  vLoginStr:String;
     i:integer;
begin
//Windwos NT 用户集成访问设置
{
Provider=SQLOLEDB.1;
Integrated Security=SSPI;
Persist Security Info=False;
User ID=sa;
Initial Catalog=chwise;
Data Source=ZGB1
}
//SQL 用户访问设置
{
Provider=SQLOLEDB.1;
Password=12345;
Persist Security Info=True;
User ID=sa;
Initial Catalog=chwise;
Data Source=ZGB1
}MainForm.SetDBLogout;
MainDataModule.MainADOCon.Connected:=False;
MainForm.dxBarStaticUser.Caption:='登录：'+GetXtUserName();vLoginStr:='Provider=SQLOLEDB.1;'+                 //数据库访问引擎
           'Persist Security Info=True;'+
           'Data Source='+trim(EditDBServerName.Text)+';'+
           'Initial Catalog='+trim(EditDBName.Text)+';'+
           'User ID='+trim(EditUserName.Text)+';'+
           'Password='+trim(EditUserPassword.Text);try
  with LoginADOConnection do
  begin
    Close;
    ConnectionString:=vLoginStr;
    LoginPrompt:=False;
    Connected:=True;
  end;
  SetXtDBServerUserName(EditUserName.Text);
  SetXtDBServerUserPassword(EditUserPassword.text);
  SetXtDBServerName(EditDBServerName.Text);
  SetXtDBName(EditDBName.Text);
  with MainDataModule.MainADOCon do
  begin
    Close;
    ConnectionString:=LoginAdoString();
    LoginPrompt:=false;
    Open;
  end;
  LoginADOConnection.Connected:=False;
  for i:=0 to MainForm.MDIChildCount-1 do MainForm.MDIChildren[i].Close;
//  Application.MessageBox('祝贺您已成功连接数据库服务器!','提示',MB_OK);
  LoginCount:=4;
  LoginFlag:=true;
  MainForm.InitMainForm;
  MainForm.AddRightAction;
  Close;
except
  LoginCount:=LoginCount-1;
  if LoginCount<=0 then
     Begin
       Application.MessageBox('很遗憾, 你是非法用户!', '警告',MB_OK);
       Application.Terminate;
     End
  else
     Begin
       EditUserName.SetFocus;
       Application.MessageBox(Pchar(Format('无法连接数据库服务器,你还有%d次机会!',[LoginCount])),'警告',MB_OK);
     End;
end;
end;