现有app.ini文件如下:[database]dbname=testserverip=.user=sapassword=问题1:serverip=. .代表默认的SQL Server2000？目标: 通过单击一个按钮，实现显示数据表的内容procedure TForm1.Button1Click(Sender: TObject);varmyinifile:Tinifile;filename,v_u,v_i,v_d,v_p:string;beginwith ADOQuery1 dobeginFilename:=ExtractFilePath(Paramstr(0))+'app.ini';myinifile:=Tinifile.Create(Filename);
v_u:=myinifile.readstring('database','user','');v_i:=myinifile.readstring('database','serverip','');v_d:=myinifile.readstring('database','dbname','');v_p:=myinifile.readstring('database','password','');
adoconnection1.Connected:=false;adoconnection1.Close;adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=true;User ID='v_u)+';Initial Catalog='+v_i+';Data Source='+v_d+';password='+v_p;adoconnection1.Connected:=true;
adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select* from test');adoquery1.Open;end;end;麻烦各位朋友帮我看看
