procedure TFrmGuiZeLibrary.FormCreate(Sender: TObject); begin if not FireConnection1.DoConnect then ShowMessage('连接服务器失败,服务器故障'); end;
在窗体按钮上编写代码,点击按钮从服务器查询数据:
procedure TFrmGuiZeLibrary.dxBarLargeButton1Click(Sender: TObject); begin FireQryGuiZeLibrary.DisableControls; FireQryGuiZeLibrary.Close; FireQryGuiZeLibrary.DataInfo.SQL.Text :='Select top 200 * from HuiFuGuiZe'; //用代码赋值SQL查询语句 if not FireQryGuiZeLibrary.OpenData then ShowMessage('获取数据失败,服务器故障'); FireQryGuiZeLibrary.EnableControls; end;