164 lines
3.8 KiB
ObjectPascal
164 lines
3.8 KiB
ObjectPascal
|
|
||
|
|
{******************************************}
|
||
|
|
{ }
|
||
|
|
{ FastReport v3.0 }
|
||
|
|
{ SQL editor }
|
||
|
|
{ }
|
||
|
|
{ Copyright (c) 1998-2006 }
|
||
|
|
{ by Alexander Tzyganenko, }
|
||
|
|
{ Fast Reports Inc. }
|
||
|
|
{ }
|
||
|
|
{******************************************}
|
||
|
|
|
||
|
|
unit frxEditSQL;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
{$I frx.inc}
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||
|
|
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ToolWin, frxSynMemo
|
||
|
|
{$IFDEF Delphi6}
|
||
|
|
, Variants
|
||
|
|
{$ENDIF}
|
||
|
|
{$IFDEF QBUILDER}
|
||
|
|
, fqbClass
|
||
|
|
{$ENDIF};
|
||
|
|
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrxSQLEditorForm = class(TForm)
|
||
|
|
ToolBar: TToolBar;
|
||
|
|
OkB: TToolButton;
|
||
|
|
CancelB: TToolButton;
|
||
|
|
QBB: TToolButton;
|
||
|
|
procedure OkBClick(Sender: TObject);
|
||
|
|
procedure CancelBClick(Sender: TObject);
|
||
|
|
procedure FormCreate(Sender: TObject);
|
||
|
|
procedure MemoKeyDown(Sender: TObject; var Key: Word;
|
||
|
|
Shift: TShiftState);
|
||
|
|
procedure FormHide(Sender: TObject);
|
||
|
|
procedure FormShow(Sender: TObject);
|
||
|
|
procedure QBBClick(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
FMemo: TfrxSyntaxMemo;
|
||
|
|
FSQLSchema: String;
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
{$IFDEF QBUILDER}
|
||
|
|
QBEngine: TfqbEngine;
|
||
|
|
{$ENDIF}
|
||
|
|
property Memo: TfrxSyntaxMemo read FMemo;
|
||
|
|
property SQLSchema: String read FSQLSchema write FSQLSchema;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.DFM}
|
||
|
|
|
||
|
|
uses frxClass, frxRes, frxDock, IniFiles;
|
||
|
|
|
||
|
|
|
||
|
|
procedure TfrxSQLEditorForm.FormCreate(Sender: TObject);
|
||
|
|
begin
|
||
|
|
{$IFDEF FR_COM}
|
||
|
|
Icon.Handle := LoadIcon(hInstance, 'SDESGNICON');
|
||
|
|
{$ENDIF}
|
||
|
|
FMemo := TfrxSyntaxMemo.Create(Self);
|
||
|
|
with FMemo do
|
||
|
|
begin
|
||
|
|
Parent := Self;
|
||
|
|
Align := alClient;
|
||
|
|
Syntax := 'SQL';
|
||
|
|
ShowGutter := False;
|
||
|
|
Color := clWindow;
|
||
|
|
OnKeyDown := MemoKeyDown;
|
||
|
|
{$I frxEditSQL.inc}
|
||
|
|
end;
|
||
|
|
Toolbar.Images := frxResources.MainButtonImages;
|
||
|
|
{$IFDEF QBUILDER}
|
||
|
|
QBB.Visible := True;
|
||
|
|
{$ENDIF}
|
||
|
|
Caption := frxGet(4900);
|
||
|
|
CancelB.Hint := frxGet(2);
|
||
|
|
OkB.Hint := frxGet(1);
|
||
|
|
QBB.Hint := frxGet(4901);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxSQLEditorForm.FormShow(Sender: TObject);
|
||
|
|
var
|
||
|
|
Ini: TCustomIniFile;
|
||
|
|
begin
|
||
|
|
Ini := TfrxCustomDesigner(Owner).Report.GetIniFile;
|
||
|
|
Ini.WriteBool('Form.TfrxSQLEditorForm', 'Visible', True);
|
||
|
|
frxRestoreFormPosition(Ini, Self);
|
||
|
|
Ini.Free;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxSQLEditorForm.FormHide(Sender: TObject);
|
||
|
|
var
|
||
|
|
Ini: TCustomIniFile;
|
||
|
|
begin
|
||
|
|
Ini := TfrxCustomDesigner(Owner).Report.GetIniFile;
|
||
|
|
frxSaveFormPosition(Ini, Self);
|
||
|
|
Ini.Free;
|
||
|
|
{$IFDEF QBUILDER}
|
||
|
|
if QBEngine <> nil then
|
||
|
|
QBEngine.Free;
|
||
|
|
{$ENDIF}
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxSQLEditorForm.OkBClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
ModalResult := mrOk;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxSQLEditorForm.CancelBClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
ModalResult := mrCancel;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxSQLEditorForm.MemoKeyDown(Sender: TObject; var Key: Word;
|
||
|
|
Shift: TShiftState);
|
||
|
|
begin
|
||
|
|
if (Key = vk_Return) and (ssCtrl in Shift) then
|
||
|
|
ModalResult := mrOk
|
||
|
|
else if Key = vk_Escape then
|
||
|
|
ModalResult := mrCancel
|
||
|
|
else if Key = VK_F1 then
|
||
|
|
frxResources.Help(Self);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxSQLEditorForm.QBBClick(Sender: TObject);
|
||
|
|
{$IFDEF QBUILDER}
|
||
|
|
var
|
||
|
|
fqbDialog: TfqbDialog;
|
||
|
|
{$ENDIF}
|
||
|
|
begin
|
||
|
|
{$IFDEF QBUILDER}
|
||
|
|
fqbDialog := TfqbDialog.Create(nil);
|
||
|
|
try
|
||
|
|
fqbDialog.Engine := QBEngine;
|
||
|
|
fqbDialog.SchemaInsideSQL := False;
|
||
|
|
fqbDialog.SQL := Memo.Lines.Text;
|
||
|
|
fqbDialog.SQLSchema := FSQLSchema;
|
||
|
|
|
||
|
|
if fqbDialog.Execute then
|
||
|
|
begin
|
||
|
|
Memo.Lines.Text := fqbDialog.SQL;
|
||
|
|
FSQLSchema := fqbDialog.SQLSchema;
|
||
|
|
end;
|
||
|
|
finally
|
||
|
|
fqbDialog.Free;
|
||
|
|
end;
|
||
|
|
{$ENDIF}
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
//<censored>
|