31 |
|
interface |
32 |
|
|
33 |
|
uses |
34 |
< |
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, |
35 |
< |
StdCtrls, IBSystemTables, IBDatabase; |
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 |
< |
GenerateBtn: TButton; |
45 |
< |
TestBtn: TButton; |
46 |
< |
IBTransaction1: TIBTransaction; |
42 |
> |
TIBModifySQLEditorForm = class(TIBSelectSQLEditorForm) |
43 |
|
IncludePrimaryKeys: TCheckBox; |
48 |
– |
FieldList: TListBox; |
49 |
– |
Label1: TLabel; |
50 |
– |
Label2: TLabel; |
51 |
– |
Label3: TLabel; |
52 |
– |
Label4: TLabel; |
53 |
– |
PrimaryKeyList: TListBox; |
54 |
– |
QuoteFields: TCheckBox; |
55 |
– |
SQLText: TMemo; |
56 |
– |
TableNamesCombo: TComboBox; |
44 |
|
procedure GenerateBtnClick(Sender: TObject); |
45 |
< |
procedure TestBtnClick(Sender: TObject); |
59 |
< |
procedure FieldListDblClick(Sender: TObject); |
60 |
< |
procedure FormShow(Sender: TObject); |
61 |
< |
procedure PrimaryKeyListDblClick(Sender: TObject); |
62 |
< |
procedure TableNamesComboCloseUp(Sender: TObject); |
45 |
> |
procedure IncludePrimaryKeysChange(Sender: TObject); |
46 |
|
private |
47 |
< |
{ private declarations } |
65 |
< |
FIBSystemTables: TIBSystemTables; |
47 |
> |
|
48 |
|
public |
49 |
< |
{ public declarations } |
50 |
< |
constructor Create(TheOwner: TComponent); override; |
51 |
< |
destructor Destroy; override; |
52 |
< |
procedure SetDatabase(Database: TIBDatabase); |
71 |
< |
end; |
49 |
> |
|
50 |
> |
end; |
51 |
> |
|
52 |
> |
function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean; |
53 |
|
|
54 |
|
var |
55 |
|
IBModifySQLEditorForm: TIBModifySQLEditorForm; |
56 |
|
|
76 |
– |
function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean; |
77 |
– |
|
57 |
|
implementation |
58 |
|
|
59 |
|
{$R *.lfm} |
60 |
|
|
61 |
< |
function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean; |
61 |
> |
function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean; |
62 |
|
begin |
63 |
|
Result := false; |
64 |
< |
if assigned(Database) then |
64 |
> |
if assigned(DataSet) and assigned(DataSet.Database) then |
65 |
|
try |
66 |
< |
Database.Connected := true; |
66 |
> |
DataSet.Database.Connected := true; |
67 |
|
except on E: Exception do |
68 |
|
ShowMessage(E.Message) |
69 |
|
end; |
70 |
|
|
71 |
|
with TIBModifySQLEditorForm.Create(Application) do |
72 |
|
try |
73 |
< |
SetDatabase(Database); |
74 |
< |
SQLText.Lines.Assign(SelectSQL); |
73 |
> |
if assigned(DataSet) then |
74 |
> |
begin |
75 |
> |
IBSQLEditFrame1.Database := DataSet.Database; |
76 |
> |
GenerateParams.Checked := DataSet.GenerateParamNames; |
77 |
> |
end; |
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 |
< |
SelectSQL.Assign(SQLText.Lines) |
88 |
> |
begin |
89 |
> |
SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines); |
90 |
> |
if assigned(DataSet) then |
91 |
> |
DataSet.GenerateParamNames := GenerateParams.Checked |
92 |
> |
end; |
93 |
|
finally |
94 |
|
Free |
95 |
|
end; |
97 |
|
|
98 |
|
{ TIBModifySQLEditorForm } |
99 |
|
|
100 |
< |
procedure TIBModifySQLEditorForm.FormShow(Sender: TObject); |
107 |
< |
var TableName: string; |
108 |
< |
begin |
109 |
< |
GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected; |
110 |
< |
TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected; |
111 |
< |
TableNamesCombo.Items.Clear; |
112 |
< |
try |
113 |
< |
FIBSystemTables.GetTableNames(TableNamesCombo.Items); |
114 |
< |
if TableNamesCombo.Items.Count > 0 then |
115 |
< |
begin |
116 |
< |
TableNamesCombo.ItemIndex := 0; |
117 |
< |
if Trim(SQLText.Text) <> '' then |
118 |
< |
begin |
119 |
< |
FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil); |
120 |
< |
TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName) |
121 |
< |
end; |
122 |
< |
FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false); |
123 |
< |
FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items); |
124 |
< |
end; |
125 |
< |
except {ignore} end; |
126 |
< |
end; |
127 |
< |
|
128 |
< |
procedure TIBModifySQLEditorForm.PrimaryKeyListDblClick(Sender: TObject); |
129 |
< |
begin |
130 |
< |
SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex]; |
131 |
< |
SQLText.SetFocus |
132 |
< |
end; |
133 |
< |
|
134 |
< |
procedure TIBModifySQLEditorForm.FieldListDblClick(Sender: TObject); |
100 |
> |
procedure TIBModifySQLEditorForm.IncludePrimaryKeysChange(Sender: TObject); |
101 |
|
begin |
102 |
< |
SQLText.SelText := FieldList.Items[FieldList.ItemIndex]; |
137 |
< |
SQLText.SetFocus |
102 |
> |
IBSQLEditFrame1.IncludePrimaryKeys := IncludePrimaryKeys.Checked; |
103 |
|
end; |
104 |
|
|
105 |
|
procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject); |
141 |
– |
var FieldNames: TStrings; |
142 |
– |
begin |
143 |
– |
FieldNames := FIBSystemTables.GetFieldNames(FieldList); |
144 |
– |
try |
145 |
– |
FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked, |
146 |
– |
FieldNames,SQLText.Lines) |
147 |
– |
finally |
148 |
– |
FieldNames.Free |
149 |
– |
end; |
150 |
– |
end; |
151 |
– |
|
152 |
– |
procedure TIBModifySQLEditorForm.TestBtnClick(Sender: TObject); |
106 |
|
begin |
107 |
< |
FIBSystemTables.TestSQL(SQLText.Lines.Text) |
107 |
> |
if PageControl.ActivePage = ExecutePage then |
108 |
> |
IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked) |
109 |
> |
else |
110 |
> |
IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked); |
111 |
|
end; |
112 |
|
|
157 |
– |
procedure TIBModifySQLEditorForm.TableNamesComboCloseUp(Sender: TObject); |
158 |
– |
begin |
159 |
– |
FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false); |
160 |
– |
FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items); |
161 |
– |
end; |
162 |
– |
|
163 |
– |
constructor TIBModifySQLEditorForm.Create(TheOwner: TComponent); |
164 |
– |
begin |
165 |
– |
inherited Create(TheOwner); |
166 |
– |
FIBSystemTables := TIBSystemTables.Create; |
167 |
– |
end; |
168 |
– |
|
169 |
– |
destructor TIBModifySQLEditorForm.Destroy; |
170 |
– |
begin |
171 |
– |
if assigned(FIBSystemTables) then FIBSystemTables.Free; |
172 |
– |
inherited Destroy; |
173 |
– |
end; |
174 |
– |
|
175 |
– |
procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase); |
176 |
– |
begin |
177 |
– |
IBTransaction1.DefaultDatabase := Database; |
178 |
– |
FIBSystemTables.SelectDatabase(Database,IBTransaction1) |
179 |
– |
end; |
113 |
|
|
114 |
|
end. |
115 |
|
|