david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
150 lines
3.5 KiB
ObjectPascal
150 lines
3.5 KiB
ObjectPascal
unit ClientForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
Grids, DBGrids, ToolWin, ComCtrls, Db, DBClient, ExtCtrls, DBCtrls,
|
|
StdCtrls, MConnect, MidasCon, Buttons;
|
|
|
|
type
|
|
TfmClient = class(TForm)
|
|
DBGrid: TDBGrid;
|
|
DataSource: TDataSource;
|
|
ClientDataSet: TClientDataSet;
|
|
StatusBar: TStatusBar;
|
|
RemoteServer: TDCOMConnection;
|
|
Panel2: TPanel;
|
|
Panel1: TPanel;
|
|
btCancelUpd: TSpeedButton;
|
|
btApplyUpd: TSpeedButton;
|
|
btClose: TSpeedButton;
|
|
btOpen: TSpeedButton;
|
|
btDisconnect: TSpeedButton;
|
|
brConnect: TSpeedButton;
|
|
DBNavigator1: TDBNavigator;
|
|
ToolBar1: TPanel;
|
|
DeptNo: TLabel;
|
|
edEmployeeID: TEdit;
|
|
procedure brConnectClick(Sender: TObject);
|
|
procedure RemoteServerAfterConnect(Sender: TObject);
|
|
procedure RemoteServerAfterDisconnect(Sender: TObject);
|
|
procedure btOpenClick(Sender: TObject);
|
|
procedure btCloseClick(Sender: TObject);
|
|
procedure btApplyUpdClick(Sender: TObject);
|
|
procedure btCancelUpdClick(Sender: TObject);
|
|
procedure btDisconnectClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
fmClient: TfmClient;
|
|
|
|
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}
|
|
|
|
{$IFDEF XPMAN}
|
|
uses
|
|
UxTheme;
|
|
{$ENDIF}
|
|
|
|
procedure TfmClient.brConnectClick(Sender: TObject);
|
|
begin
|
|
RemoteServer.Connected:= True;
|
|
end;
|
|
|
|
procedure TfmClient.btDisconnectClick(Sender: TObject);
|
|
begin
|
|
RemoteServer.Connected:= False;
|
|
end;
|
|
|
|
procedure TfmClient.RemoteServerAfterConnect(Sender: TObject);
|
|
begin
|
|
StatusBar.Panels[0].Text:= 'Connected';
|
|
end;
|
|
|
|
procedure TfmClient.RemoteServerAfterDisconnect(Sender: TObject);
|
|
begin
|
|
if Assigned(StatusBar) then
|
|
StatusBar.Panels[0].Text:= 'Disconnected';
|
|
end;
|
|
|
|
procedure TfmClient.btOpenClick(Sender: TObject);
|
|
begin
|
|
if edEmployeeID.Text <> '' then
|
|
ClientDataSet.Params.ParamByName('EmployeeID').AsInteger:= StrToInt(edEmployeeID.Text);
|
|
ClientDataSet.Open;
|
|
edEmployeeID.Text:= IntToStr(ClientDataSet.Params.ParamByName('EmployeeID').AsInteger);
|
|
end;
|
|
|
|
procedure TfmClient.btCloseClick(Sender: TObject);
|
|
begin
|
|
ClientDataSet.Close;
|
|
end;
|
|
|
|
procedure TfmClient.btApplyUpdClick(Sender: TObject);
|
|
begin
|
|
ClientDataSet.ApplyUpdates(0);
|
|
end;
|
|
|
|
procedure TfmClient.btCancelUpdClick(Sender: TObject);
|
|
begin
|
|
ClientDataSet.CancelUpdates;
|
|
end;
|
|
|
|
procedure TfmClient.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.
|
|
|