unit1.pas

DbAnyWhere开发套件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, DBClient, remotedataset, RemoteUdpConnection,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    udp: TRemoteUdpConnection;
    qq: TRemoteDataSet;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Edit1: TEdit;
    Button3: TButton;
    qq1: TRemoteDataSet;
    DBGrid2: TDBGrid;
    qq2: TRemoteDataSet;
    DataSource2: TDataSource;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if udp.IsOnLine then edit1.Text:='在线' else edit1.Text:='离线';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  udp.DbIp:='192.168.1.68';
  udp.DbPort:=8000;
  udp.StartLogin(197709250);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  qq.Remoteclose;
  qq.RTSQL.Text:='select * from db_bm';
  qq.RemoteOpen;
  qq2.Remoteclose;
  qq2.RTSQL.Text:='select * from db_path';
  qq2.RemoteOpen;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  //插入执行
  qq1.Remoteclose;
  qq1.RTSQL.Text:='insert into db_path(path_code,path_name,path_photo)'+
                  ' values(:path_code,:path_name,:path_photo)' ;
  qq1.RTSQL.add('insert into db_bm(bm_code,bm_name,bm_ld)'+
                  ' values(:bm_code,:bm_name,:bm_ld)');
  qq1.ClearParamsTable;
  qq1.AddParamsTable(qq2);
  qq1.AddParamsTable(qq);
  qq1.ParamsTableExeSQL;
  if qq1.success then
  begin
    qq.RemoteOpen;
    qq2.RemoteOpen;
  end;
end;

end.