高手请来解答我的问题？（关于ＳＱＬ及其它）

Question

1.在query1.open后写
edit1.text:=intotostr(Query1.Fields[0].Value)
2.在ONCLICK事件中写
procedure TNormalInForm.SpeedButton1Click(Sender: TObject);
begin
  Speedbutton1.Down:=not Speedbutton1.Down;
end;

Answer 1

1.在query1.open后写
edit1.text:=inttostr(Query1.Fields[0].Value)   //hao这个字段为INT
或
edit1.text:=floattostr(Query1.Fields[0].Value)  //hao这个字段为float2.在ONCLICK事件中写
procedure TNormalInForm.SpeedButton1Click(Sender: TObject);
begin
  Speedbutton1.Down:=not Speedbutton1.Down;
end;

Answer 2

你要在edit1上面显示就要给值给它啊!
edit1.text:=Query1.Fields[0].asString;
楼上对得对啊!

Answer 3

有一个帖子可以列出局域网内的所有运行的sql服务器，稍加改动就可满足需要
 procedure TForm1.Button1Click(Sender: TObject);
var
   SQLServer:Variant;
   ServerList:Variant;
   i,nServers:integer;
   sRetValue:String;
begin
  SQLServer := CreateOleObject('SQLDMO.Application');
  ServerList:= SQLServer.ListAvailableSQLServers;
  nServers:=ServerList.Count;
  for i := 1 to nservers do
      ListBox1.Items.Add(ServerList.Item(i));
  SQLServer:=NULL;
  serverList:=NULL;
end;