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 7 by tony, Sun Aug 5 18:28:19 2012 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, 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;
# Line 103 | Line 97 | 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  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines