ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibmodifysqleditor.pas
(Generate patch)

Comparing ibx/trunk/design/ibmodifysqleditor.pas (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

# Line 31 | Line 31 | unit ibmodifysqleditor;
31   interface
32  
33   uses
34 <  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 <  StdCtrls, ComCtrls, IBSystemTables, IBDatabase, IBCustomDataSet, IB;
34 >  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
35 >  StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBLookupComboEditBox,
36 >  IBDynamicGrid, IBDatabase, IBCustomDataset;
37  
38   type
39  
40    { TIBModifySQLEditorForm }
41  
42 <  TIBModifySQLEditorForm = class(TForm)
42 <    Button1: TButton;
43 <    Button2: TButton;
44 <    FieldList: TListBox;
45 <    GenerateBtn: TButton;
46 <    GenerateParams: TCheckBox;
42 >  TIBModifySQLEditorForm = class(TIBSelectSQLEditorForm)
43      IncludePrimaryKeys: TCheckBox;
48    Label1: TLabel;
49    Label16: TLabel;
50    Label17: TLabel;
51    Label18: TLabel;
52    Label2: TLabel;
53    Label4: TLabel;
54    ExecuteOnlyIndicator: TLabel;
55    PageControl: TPageControl;
56    PrimaryKeyList: TListBox;
57    ProcedureNames: TComboBox;
58    ProcInputList: TListBox;
59    ProcOutputList: TListBox;
60    TableNamesCombo: TComboBox;
61    ModifyPage: TTabSheet;
62    ExecutePage: TTabSheet;
63    TestBtn: TButton;
64    IBTransaction1: TIBTransaction;
65    Label3: TLabel;
66    QuoteFields: TCheckBox;
67    SQLText: TMemo;
68    procedure ExecutePageShow(Sender: TObject);
44      procedure GenerateBtnClick(Sender: TObject);
45 <    procedure ModifyPageShow(Sender: TObject);
71 <    procedure ProcedureNamesCloseUp(Sender: TObject);
72 <    procedure TestBtnClick(Sender: TObject);
73 <    procedure FieldListDblClick(Sender: TObject);
74 <    procedure FormShow(Sender: TObject);
75 <    procedure PrimaryKeyListDblClick(Sender: TObject);
76 <    procedure TableNamesComboCloseUp(Sender: TObject);
45 >    procedure IncludePrimaryKeysChange(Sender: TObject);
46    private
47 <    { private declarations }
79 <    FIBSystemTables: TIBSystemTables;
47 >
48    public
81    { public declarations }
82    constructor Create(TheOwner: TComponent); override;
83    destructor Destroy; override;
84    procedure SetDatabase(Database: TIBDatabase);
85  end;
49  
50 < var
88 <  IBModifySQLEditorForm: TIBModifySQLEditorForm;
50 >  end;
51  
52   function EditSQL(DataSet: TIBCustomDataSet;  SelectSQL: TStrings): boolean;
53  
54 + var
55 +  IBModifySQLEditorForm: TIBModifySQLEditorForm;
56 +
57   implementation
58  
59   {$R *.lfm}
60  
61 < function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
61 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
62   begin
63    Result := false;
64    if assigned(DataSet) and assigned(DataSet.Database) then
# Line 107 | Line 72 | begin
72    try
73      if assigned(DataSet) then
74      begin
75 <      SetDatabase(DataSet.Database);
76 <      GenerateParams.Checked := DataSet.GenerateParamNames;
75 >        IBSQLEditFrame1.Database := DataSet.Database;
76 >        GenerateParams.Checked := DataSet.GenerateParamNames;
77      end;
78 <    SQLText.Lines.Assign(SelectSQL);
78 >    with IBSQLEditFrame1 do
79 >    begin
80 >      IncludePrimaryKeys := false;
81 >      IncludeReadOnlyFields := false;
82 >      ExecuteOnlyProcs := true;
83 >      SQLText.Lines.Assign(SelectSQL);
84 >    end;
85 >    IncludePrimaryKeys.Checked := false;
86      Result := ShowModal = mrOK;
87      if Result then
88      begin
89 <     SelectSQL.Assign(SQLText.Lines);
89 >     SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
90       if assigned(DataSet) then
91            DataSet.GenerateParamNames := GenerateParams.Checked
92      end;
# Line 125 | Line 97 | end;
97  
98   { TIBModifySQLEditorForm }
99  
100 < procedure TIBModifySQLEditorForm.FormShow(Sender: TObject);
129 < var IsProcedureName: boolean;
130 <    SQLType: TIBSQLStatementTypes;
100 > procedure TIBModifySQLEditorForm.IncludePrimaryKeysChange(Sender: TObject);
101   begin
102 <  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
133 <  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
134 <  if Trim(SQLText.Text) <> '' then
135 <  begin
136 <    try
137 <      SQLType := FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
138 <    except  end;
139 <    if SQLType = SQLExecProcedure then
140 <      PageControl.ActivePage := ExecutePage
141 <    else
142 <      PageControl.ActivePage := ModifyPage;
143 <  end
144 <  else
145 <    PageControl.ActivePage := ModifyPage;
146 < end;
147 <
148 < procedure TIBModifySQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
149 < begin
150 <  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
151 <  SQLText.SetFocus
152 < end;
153 <
154 < procedure TIBModifySQLEditorForm.FieldListDblClick(Sender: TObject);
155 < begin
156 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
157 <  SQLText.SetFocus
102 >  IBSQLEditFrame1.IncludePrimaryKeys := IncludePrimaryKeys.Checked;
103   end;
104  
105   procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
161 var FieldNames: TStrings;
106   begin
107    if PageControl.ActivePage = ExecutePage then
108 <    FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
165 <          ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
108 >    IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
109    else
110 <  begin
168 <    FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
169 <    try
170 <      FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
171 <             FieldNames,SQLText.Lines)
172 <    finally
173 <      FieldNames.Free
174 <    end;
175 <  end;
176 < end;
177 <
178 < procedure TIBModifySQLEditorForm.ExecutePageShow(Sender: TObject);
179 < var ProcName: string;
180 <    IsProcedureName: boolean;
181 < begin
182 <  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
183 <  if ProcedureNames.Items.Count > 0 then
184 <  begin
185 <    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
186 <    begin
187 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
188 <      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
189 <    end
190 <    else
191 <      ProcedureNames.ItemIndex := 0;
192 <  end;
193 <  ProcedureNamesCloseUp(nil);
110 >    IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked);
111   end;
112  
196 procedure TIBModifySQLEditorForm.ModifyPageShow(Sender: TObject);
197 var TableName: string;
198 begin
199  TableNamesCombo.Items.Clear;
200  try
201  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
202  if TableNamesCombo.Items.Count > 0 then
203  begin
204    TableNamesCombo.ItemIndex := 0;
205    if Trim(SQLText.Text) <> '' then
206    begin
207      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
208      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
209    end;
210    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
211    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
212  end;
213  except {ignore}  end;
214 end;
215
216 procedure TIBModifySQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
217 var ExecuteOnly: boolean;
218 begin
219  FIBSystemTables.GetProcParams(ProcedureNames.Text,ExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
220  ExecuteOnlyIndicator.Visible := ExecuteOnly;
221 end;
222
223 procedure TIBModifySQLEditorForm.TestBtnClick(Sender: TObject);
224 begin
225  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
226 end;
227
228 procedure TIBModifySQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
229 begin
230  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
231  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
232 end;
233
234 constructor TIBModifySQLEditorForm.Create(TheOwner: TComponent);
235 begin
236  inherited Create(TheOwner);
237  FIBSystemTables := TIBSystemTables.Create;
238 end;
239
240 destructor TIBModifySQLEditorForm.Destroy;
241 begin
242  if assigned(FIBSystemTables) then FIBSystemTables.Free;
243  inherited Destroy;
244 end;
245
246 procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase);
247 begin
248  IBTransaction1.DefaultDatabase := Database;
249  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
250 end;
113  
114   end.
115 +

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines