欢迎您访问 最编程 本站为您分享编程语言代码,编程技术文章!
您现在的位置是: 首页

lazarus linux/windows 简单实用的中间件

最编程 2024-06-02 07:56:20
...
procedure TForm1.Button2Click(Sender: TObject); begin QFConnect1:=TQFRemoteConnection.Create;//创建连接 QFConnect1.server_ip:=edit1.Text;//服务端IP QFConnect1.server_port:=edit2.text;//服务端口 QFTable:=TQFRemoteTable.Create(self);//创建Table QFTable.Connection:=QFConnect1;//指定Table的connection DataSource1.DataSet:=QFTable; QFTable.TableName:='混凝土试块数据'; QFTable.KeyFields:='报告编号,序号'; QFTable.open; Label2.Caption:=QFTable.RecordCount.ToString; end; procedure TForm1.Button1Click(Sender: TObject); begin QFConnect1:=TQFRemoteConnection.Create; QFConnect1.server_ip:=edit1.Text; QFConnect1.server_port:=edit2.text; QFQuery:=TQFRemoteQuery.Create(self); QFQuery.Connection:=QFConnect1; DataSource1.DataSet:=QFQuery; QFQuery.SQL:=edit3.text; QFQuery.open; Label2.Caption:=QFQuery.RecordCount.ToString; end; procedure TForm1.Button3Click(Sender: TObject); begin QFTable.ApplyUpdates; end; procedure TForm1.Button4Click(Sender: TObject); begin QFQuery.KeyFields:='用户名'; QFQuery.ApplyUpdates; end;

推荐阅读