www.pudn.com > FIBPlus.v6.9.5.forD5-2007.FS.rar > EdParamToFields.pas, change:2009-02-06,size:2337b

unit EdParamToFields; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, 
  Classes, Graphics, Controls, Forms,DB, 
  Dialogs, ExtCtrls, StdCtrls,pFIBDataSet 
  {$IFDEF D6+} 
  ,Variants 
  {$ENDIF} 
 
  ; 
 
type 
  TfrmEdParamToFields = class(TForm) 
    Memo1: TMemo; 
    Panel1: TPanel; 
    Button1: TButton; 
    Button2: TButton; 
    Panel2: TPanel; 
    lstFields: TListBox; 
    Splitter1: TSplitter; 
    lstParams: TListBox; 
    Splitter2: TSplitter; 
    Button3: TButton; 
    Button4: TButton; 
    Panel3: TPanel; 
    Label1: TLabel; 
    Label2: TLabel; 
    procedure Button3Click(Sender: TObject); 
    procedure Button4Click(Sender: TObject); 
    procedure Splitter1Moved(Sender: TObject); 
  private 
    FDataSet:TpFIBDataSet; 
  public 
    { Public declarations } 
  end; 
 
var 
  frmEdParamToFields: TfrmEdParamToFields; 
 
 function ShowEdParamToFields(DataSet:TpFIBDataSet):boolean; 
 
implementation 
 
uses FIBDataSet,SqlTxtRtns,StrUtil; 
 
{$R *.dfm} 
 function ShowEdParamToFields(DataSet:TpFIBDataSet):boolean; 
 var i:integer; 
 begin 
   frmEdParamToFields:= TfrmEdParamToFields.Create(Application); 
   with frmEdParamToFields do 
   try 
    Caption:=DataSet.Name+':Params to Fields Links (Values for NewRecord)'; 
    FDataSet:=DataSet;     
    Memo1.Lines.Assign(DataSet.AutoUpdateOptions.ParamsToFieldsLinks); 
    for i:=0 to DataSet.FieldCount-1 do 
     lstFields.Items.Add(DataSet.Fields[i].FieldName); 
    for i:=0 to DataSet.ParamCount-1 do 
     lstParams.Items.Add(DataSet.Params[i].Name); 
 
    if lstFields.Items.Count>0 then 
     lstFields.ItemIndex:=0; 
 
    if lstParams.Items.Count>0 then 
     lstParams.ItemIndex:=0; 
    Result:=ShowModal=mrOK; 
    if Result then 
     DataSet.AutoUpdateOptions.ParamsToFieldsLinks:=Memo1.Lines; 
   finally 
     Free 
   end; 
 end; 
 
procedure TfrmEdParamToFields.Button3Click(Sender: TObject); 
begin 
 if (lstFields.Items.Count>0) and (lstParams.Items.Count>0) then 
  Memo1.Lines.Values[lstFields.Items[lstFields.ItemIndex]]:= 
   lstParams.Items[lstParams.ItemIndex] 
  ; 
end; 
 
procedure TfrmEdParamToFields.Button4Click(Sender: TObject); 
begin 
 FDataSet.ParseParamToFieldsLinks(Memo1.Lines); 
end; 
 
procedure TfrmEdParamToFields.Splitter1Moved(Sender: TObject); 
begin 
  Label2.Left:=lstFields.Width+1 
end; 
 
end.