edparamtofields.pas

FIBPlus is a component suite intended for work with InterBase. It is direct, fast and flexible Inter

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.