david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
161 lines
3.6 KiB
ObjectPascal
161 lines
3.6 KiB
ObjectPascal
unit ServerForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, ExtCtrls, DBCtrls, Db,
|
|
Buttons;
|
|
|
|
type
|
|
TfmServer = class(TForm)
|
|
ToolBar: TPanel;
|
|
meSQL: TMemo;
|
|
DBGrid: TDBGrid;
|
|
DataSource: TDataSource;
|
|
StatusBar: TStatusBar;
|
|
Panel1: TPanel;
|
|
btConnect: TSpeedButton;
|
|
DBNavigator: TDBNavigator;
|
|
btDisconnect: TSpeedButton;
|
|
btOpen: TSpeedButton;
|
|
btClose: TSpeedButton;
|
|
ToolBar1: TPanel;
|
|
ToolButton2: TToolButton;
|
|
Panel2: TPanel;
|
|
ToolButton1: TToolButton;
|
|
cbDebug: TCheckBox;
|
|
rbDSResolve: TRadioButton;
|
|
rbSQLResolve: TRadioButton;
|
|
procedure btConnectClick(Sender: TObject);
|
|
procedure btDisconnectClick(Sender: TObject);
|
|
procedure btOpenClick(Sender: TObject);
|
|
procedure btCloseClick(Sender: TObject);
|
|
procedure cbDebugClick(Sender: TObject);
|
|
procedure meSQLExit(Sender: TObject);
|
|
procedure rbDSResolveClick(Sender: TObject);
|
|
procedure rbSQLResolveClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
fmServer: TfmServer;
|
|
|
|
implementation
|
|
|
|
|
|
{$IFDEF CLR}
|
|
{$R *.nfm}
|
|
{$ENDIF}
|
|
{$IFDEF WIN32}
|
|
{$R *.dfm}
|
|
{$ENDIF}
|
|
{$IFDEF LINUX}
|
|
{$R *.xfm}
|
|
{$ENDIF}
|
|
|
|
{$IFNDEF VER130}
|
|
{$IFNDEF VER140}
|
|
{$IFNDEF CLR}
|
|
{$DEFINE XPMAN}
|
|
{$R WindowsXP.res}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
{$IFDEF XPMAN}
|
|
UxTheme,
|
|
{$ENDIF}
|
|
Data;
|
|
|
|
|
|
|
|
|
|
procedure TfmServer.btConnectClick(Sender: TObject);
|
|
begin
|
|
if Assigned(Datas) then
|
|
Datas.MSConnection.Connect;
|
|
end;
|
|
|
|
procedure TfmServer.btDisconnectClick(Sender: TObject);
|
|
begin
|
|
if Assigned(Datas) then
|
|
Datas.MSConnection.Disconnect;
|
|
end;
|
|
|
|
procedure TfmServer.btOpenClick(Sender: TObject);
|
|
begin
|
|
if Assigned(Datas) then
|
|
Datas.Query.Open;
|
|
end;
|
|
|
|
procedure TfmServer.btCloseClick(Sender: TObject);
|
|
begin
|
|
if Assigned(Datas) then
|
|
Datas.Query.Close;
|
|
end;
|
|
|
|
procedure TfmServer.cbDebugClick(Sender: TObject);
|
|
begin
|
|
if Assigned(Datas) then
|
|
Datas.Query.Debug:= cbDebug.Checked;
|
|
end;
|
|
|
|
procedure TfmServer.meSQLExit(Sender: TObject);
|
|
begin
|
|
if Assigned(Datas) then
|
|
if meSQL.Lines.Text <> Datas.Query.SQL.Text then
|
|
Datas.Query.SQL.Assign(meSQL.Lines);
|
|
end;
|
|
|
|
procedure TfmServer.rbDSResolveClick(Sender: TObject);
|
|
begin
|
|
if Assigned(Datas) then
|
|
Datas.MSDataSetProvider.ResolveToDataset:= rbDSResolve.Checked;
|
|
end;
|
|
|
|
procedure TfmServer.rbSQLResolveClick(Sender: TObject);
|
|
begin
|
|
if Assigned(Datas) then
|
|
Datas.MSDataSetProvider.ResolveToDataset:= not rbSQLResolve.Checked;
|
|
end;
|
|
|
|
procedure TfmServer.FormCreate(Sender: TObject);
|
|
{$IFDEF XPMAN}
|
|
procedure UpdateStyle(Control: TWinControl);
|
|
var
|
|
Panel: TPanel;
|
|
i: integer;
|
|
begin
|
|
for i := 0 to Control.ControlCount - 1 do begin
|
|
if Control.Controls[i] is TSpeedButton then
|
|
TSpeedButton(Control.Controls[i]).Flat := False
|
|
else
|
|
if Control.Controls[i] is TDBNavigator then
|
|
TDBNavigator(Control.Controls[i]).Flat := False;
|
|
if Control.Controls[i] is TWinControl then begin
|
|
if (Control.Controls[i] is TPanel) then begin
|
|
Panel := TPanel(Control.Controls[i]);
|
|
Panel.ParentBackground := False;
|
|
Panel.Color := clBtnFace;
|
|
end;
|
|
UpdateStyle(TWinControl(Control.Controls[i]));
|
|
end;
|
|
end;
|
|
end;
|
|
{$ENDIF}
|
|
begin
|
|
{$IFDEF XPMAN}
|
|
if UseThemes then
|
|
UpdateStyle(Self);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
end.
|
|
|