dataselect.pas

p2pdbanywhere 可以通过之udp方式远程连接数据库的组件,这个组件非常好,是Delphi7,9,2006能够使用,包含源码.

procedure TDataItem.setSetupUdpParent(value:TRemoteUdpConnection);
begin
  FRemoteHttpConnection:=nil;
  FRemoteUdpConnection:=value;
end;
procedure TDataItem.setAdoConnection(value:TADOConnection);
begin
  FADOConnection:=value;
end;
procedure TDataItem.setformstyle(value:Tformstyle);
begin
  FFormStyle:=value;
  if value=FSTreeGrid then
  begin
    fdataform.leftPanel.Align:=alLeft;
    fdataform.leftPanel.Width:=185;
    fdataform.leftPanel.Visible:=true;
    fdataform.rightpanel.Visible:=true;
  end;
  if value=FSTree then
  begin
    fdataform.leftPanel.Visible:=true;
    fdataform.leftPanel.Align:=alClient;
    fdataform.rightpanel.Visible:=false;
  end;
  if value=FSGrid then
  begin
    fdataform.leftPanel.Visible:=false;
    fdataform.rightpanel.Visible:=true;
  end;
  //fdataform.ShowModal;
end;
procedure TDataItem.setdbgridstyle(value:TDbGridStyle);
begin
  FDbGridStyle:=value;
  if value=GSDbGrid then
  begin
    fdataform.grid.Visible:=true;
    fdataform.grideh.Visible:=false;
    fdataform.grid.Align:=alclient;
  end;
  if value=GSDbGridEh then
  begin
    fdataform.grideh.Visible:=true;
    fdataform.grid.Visible:=false;
    fdataform.grideh.Align:=alclient;
  end;
end;
procedure TDataItem.setdatasetstyle(value:TDataSetStyle);
begin
  FDataSetStyle:=value;
  //如果远程，设置远程目录树
  if value=Dsremote then
  begin
    FdataForm.rv.Visible:=true;
    fdataform.lv.Visible:=false;
    fdataform.rv.Align:=alclient;
    fdataform.DataSource1.DataSet:=self.FRemoteSetup.FSelectedDataSet;
  end;
  if value=Dslocal then
  begin
    FdataForm.lv.Visible:=true;
    fdataform.rv.Visible:=false;
    fdataform.lv.Align:=alclient;
    fdataform.DataSource1.DataSet:=self.FLocalSetup.FSelectedDataSet;
  end;
end;
procedure TDataItem.setsql(value:Tstrings);
begin
  FSQL.Assign(value);
end;

procedure TDataSelect.setdataitems(value:TDataItems);
var
   i:integer;
begin
  Fdataitems.Clear;
  for i:=0 to value.Count-1 do
  begin
    fdataitems.Add;
    fdataitems.Items[i].CodeField:=value.Items[i].CodeField;
    fdataitems.Items[i].DataSetStyle:=value.Items[i].DataSetStyle;
    fdataitems.Items[i].DataType:=value.Items[i].DataType;
    fdataitems.Items[i].FieldLists.Assign(value.Items[i].FieldLists);
    fdataitems.Items[i].DbGridStyle:=value.Items[i].DbGridStyle;
    fdataitems.Items[i].FormStyle:=value.Items[i].FormStyle;
    //fdataitems.Items[i].LocalSetup.Assign(value.Items[i].LocalSetup);
    fdataitems.Items[i].LocalSetup.ClassCodeFieldName:=value.Items[i].LocalSetup.ClassCodeFieldName;
    fdataitems.Items[i].LocalSetup.ClassEndFieldName:=value.Items[i].LocalSetup.ClassEndFieldName;
    fdataitems.Items[i].LocalSetup.ClassEndFieldValue:=value.Items[i].LocalSetup.ClassEndFieldValue;
    fdataitems.Items[i].LocalSetup.ClassNameFieldName:=value.Items[i].LocalSetup.ClassNameFieldName;
    fdataitems.Items[i].LocalSetup.ClassStep:=value.Items[i].LocalSetup.ClassStep;
    fdataitems.Items[i].LocalSetup.LocalDataSet:=value.Items[i].LocalSetup.LocalDataSet;
    fdataitems.Items[i].LocalSetup.OtherMarkField:=value.Items[i].LocalSetup.OtherMarkField;
    fdataitems.Items[i].LocalSetup.OtherMarkValue:=value.Items[i].LocalSetup.OtherMarkValue;
    fdataitems.Items[i].LocalSetup.TableName:=value.Items[i].LocalSetup.TableName;
    fdataitems.Items[i].LocalSetup.SelectedDataSet:=value.Items[i].LocalSetup.SelectedDataSet;

    fdataitems.Items[i].RemoteSetup.ClassCodeFieldName:=value.Items[i].RemoteSetup.ClassCodeFieldName;
    fdataitems.Items[i].RemoteSetup.ClassEndFieldName:=value.Items[i].RemoteSetup.ClassEndFieldName;
    fdataitems.Items[i].RemoteSetup.ClassEndFieldValue:=value.Items[i].RemoteSetup.ClassEndFieldValue;
    fdataitems.Items[i].RemoteSetup.ClassNameFieldName:=value.Items[i].RemoteSetup.ClassNameFieldName;
    fdataitems.Items[i].RemoteSetup.ClassStep:=value.Items[i].RemoteSetup.ClassStep;
    fdataitems.Items[i].RemoteSetup.RemoteDataSet:=value.Items[i].RemoteSetup.RemoteDataSet;
    fdataitems.Items[i].RemoteSetup.OtherMarkField:=value.Items[i].RemoteSetup.OtherMarkField;
    fdataitems.Items[i].RemoteSetup.OtherMarkValue:=value.Items[i].RemoteSetup.OtherMarkValue;
    fdataitems.Items[i].RemoteSetup.TableName:=value.Items[i].RemoteSetup.TableName;
    fdataitems.Items[i].RemoteSetup.SelectedDataSet:=value.Items[i].RemoteSetup.SelectedDataSet;

    //fdataitems.Items[i].RemoteSetup.Assign(value.Items[i].RemoteSetup);
    fdataitems.Items[i].NameField:=value.Items[i].NameField;
    fdataitems.Items[i].SQL.Assign(value.Items[i].SQL);
    fdataitems.Items[i].TableName:=value.Items[i].TableName;
  end;
  //FDataItems.Assign(value); 
end;
constructor TDataItem.Create(Collection: TCollection);
begin
  inherited Create(Collection);
  FFieldLists:=Tstringlist.Create;
  Fsql:=Tstringlist.Create;
  FRemoteSetup:=TRemoteSetup.Create;
  FLocalSetup:=TLocalSetup.Create;
  FDataForm:=TDataSelectForm_Form.Create(nil);
  FstaticForm:=TStaticSelectForm_Form.Create(nil);
  CodeFieldValue:='';
  NameFieldvalue:='';
  resultok:=false;
end;
destructor TDataItem.Destroy;
begin
  inherited Destroy;
  freeandnil(Fsql);
  Freeandnil(FRemoteSetup);
  Freeandnil(FLocalSetup);
  FreeAndNil(FFieldLists);
  FreeAndNil(FDataForm);
  FreeAndNil(FStaticForm);
end;
constructor TDataItems.Create(DataSelect: TDataSelect; DataSelectClass: TDataSelectClass);
begin
  inherited Create(DataSelectClass);
  FDataSelect:=DataSelect ;
  FSyn:=TSynDataBase.Create(nil);
end;
constructor TDataSelect.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDataItems:=CreateDataItems;
end;
destructor TDataSelect.Destroy;
begin
  inherited Destroy;
  Freeandnil(FDataItems); 
end;
function  TDataSelect.CreateDataItems: TDataItems;
begin
  Result := TDataItems.Create(Self, TDataItem);
end;
//设置
constructor TLocalSetup.Create;
begin
  inherited Create;
end;
destructor TLocalSetup.Destroy;
begin
  inherited Destroy;
end;
//设置
constructor TRemoteSetup.Create;
begin
  inherited Create;
  self.FOtherMarkSign:='=';
end;
destructor TRemoteSetup.Destroy; 
begin
  inherited Destroy;
end;
//远程
procedure TRemoteSetup.setclasscode(value:string);
begin
  FClassCodeFieldName:=value;
end;
procedure TRemoteSetup.setclassname(value:string);
begin
  FClassNameFieldName:=value;
end;
procedure TRemoteSetup.setclassstep(value:integer);
begin
  FClassStep:=value;
end;
procedure TRemoteSetup.setclassend(value:string);
begin
  FClassEndFieldName:=value;
end;
procedure TRemoteSetup.setclassendv(value:string);
begin
  FClassEndFieldValue:=value;
end;
procedure TRemoteSetup.setdataset(Value:TRemoteDataSet);
begin
  FRemoteDataSet:=value;
end;
procedure TRemoteSetup.setselecteddataset(Value:TRemoteDataSet);
begin
  FSelectedDataSet:=value;
end;
procedure TRemoteSetup.settablename(value:string);
begin
  FTableName:=value;
end;
//其他区分标志，比如目录树所属部门等
procedure TRemoteSetup.setothermarkvalue(value:string);
begin
  FOtherMarkValue:=value;
end;
procedure TRemoteSetup.setothermarkfield(value:string);
begin
  FOtherMarkField:=value;
end;
procedure TRemoteSetup.setothermarksign(value:string);
begin
  FOtherMarkSign:=value;
end;
//本地设置
procedure TLocalSetup.setclasscode(value:string);
begin
  FClassCodeFieldName:=value;
end;
procedure TLocalSetup.setclassname(value:string);
begin
  FClassNameFieldName:=value;
end;
procedure TLocalSetup.setclassstep(value:integer);
begin
  FClassStep:=value;
end;
procedure TLocalSetup.setclassendv(value:string);
begin
  FClassEndFieldValue:=value;
end;
procedure TLocalSetup.setclassend(value:string);
begin
  FClassEndFieldName:=value;
end;
procedure TLocalSetup.setdataset(Value:TADOQuery);
begin
  FLocalDataSet:=value;
end;
procedure TLocalSetup.setselecteddataset(Value:TADOQuery);
begin
  FSelectedDataSet:=value;
end;
procedure TLocalSetup.settablename(value:string);
begin
  FTableName:=value;
end;
//其他区分标志，比如目录树所属部门等
procedure TLocalSetup.setothermarkvalue(value:string);
begin
  FOtherMarkValue:=value;
end;
procedure TLocalSetup.setothermarkfield(value:string);
begin
  FOtherMarkField:=value;
end;
procedure TLocalSetup.setothermarksign(value:string);
begin
  FOtherMarkSign:=value;
end;
procedure TDataItem.setrtsetup(value:TRemoteSetup);
begin
  FRemoteSetup.Assign(value);
end;
procedure TDataItem.setlcsetup(value:TLocalSetup);
begin
  FLocalSetup.Assign(value);
end;
constructor Tfieldlist.Create(Collection: TCollection);
begin
  inherited Create(Collection);  
end;
destructor Tfieldlist.Destroy;
begin
  inherited Destroy;
end;
function Tfieldlists.GetFieldSelect(Index:integer):TFieldList;
begin
  Result:= TFieldList(inherited Items[Index]);
end;
procedure Tfieldlists.SetFieldSelect(Index:integer;Value:TFieldList);
begin
  Items[Index].Assign(Value);
end;
constructor Tfieldlists.Create(DataItem: TDataItem; FieldListClass: TFieldListClass);
begin
  inherited Create(FieldListClass);
  FDataItem:=DataItem ;
end;
function  TDataItem.CreateFieldLists: TFieldLists;
begin