delphi连接数据库有哪几种方式?

Question

给你一个例子:自动连接数据库
procedure TForm1.Button1Click(Sender: TObject);  //写入注册表 把访问用户名和密码。 及计算机名称写入注册表 var Reg: TRegistry; 
begin 
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare\MyKey',True);
Reg.WriteString('User',edtUser.Text);   //用户名
Reg.WriteString('Password',edtPassword.Text);//密码
Reg.WriteString('ip',edtip.Text);  //服务器名称，如果是win98则填用计算机名就行了。 也可以直接用函数读取计算机名。存于editp.text;Reg.WriteString('S_User',edit1.Text);
Reg.WriteString('S_Password',edit2.Text);
Reg.WriteString('S_ip',edit3.Text);Reg.Free; end;procedure TForm1.button2Click(Sender: TObject);  // 把注册表里的内容读取出来。存放到三个不同变量里头。, 然后把字符串连起来，var Reg: TRegistry; 
begin 
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare\MyKey',True);
label1.Caption := Reg.ReadString('User');
label2.Caption := Reg.ReadString('Password');
label11.Caption := Reg.ReadString('ip');
label12.Caption:= Reg.ReadString('S_User');
label13.caption:= Reg.ReadString('S_Password');
label14.caption:= Reg.ReadString('S_ip');
Reg.Free; end;procedure TForm1.Button3Click(Sender: TObject);  //获取计算机名称 
var
sBuffer: PChar;
sSize: Cardinal;
begin
sSize := 255;
GetMem(sBuffer, sSize + 1);
try
if GetComputerName(sBuffer, sSize) then
edtip.Text := sBuffer;
finally
FreeMem(sBuffer);
end;
end;最后把所有变量连接起来。 在form的create事件中调用ADOtable1.ConnectionString:='Provider=SQLOLEDB.1;Password='+b_password+';'+'Persist Security Info=True;User ID='+b_user+';'+'Initial Catalog=POS_MORE;Data Source='+b_ip+';';
type 
adotable1.active:=True;
except
application.Terminate;
exit;
end;这就搞定了。