david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
135 lines
2.9 KiB
ObjectPascal
135 lines
2.9 KiB
ObjectPascal
//////////////////////////////////////////////////
|
|
// DB Access Components
|
|
// Copyright © 1998-2007 Core Lab. All right reserved.
|
|
// Base Component Editor
|
|
//////////////////////////////////////////////////
|
|
|
|
{$IFNDEF CLR}
|
|
|
|
{$I Dac.inc}
|
|
|
|
unit CRDataEditor;
|
|
{$ENDIF}
|
|
|
|
interface
|
|
uses
|
|
{$IFDEF MSWINDOWS}
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, DBGrids, Dialogs,
|
|
StdCtrls, ExtCtrls, Buttons, ComCtrls, Grids, DBCtrls,
|
|
{$ENDIF}
|
|
{$IFDEF LINUX}
|
|
SysUtils, Types, Classes, QGraphics, QControls, QForms, QDBGrids, QDialogs, QStdCtrls,
|
|
QExtCtrls, QButtons, QDBCtrls, QComCtrls, QGrids,
|
|
{$ENDIF}
|
|
DB, CREditor, MemDS, DADesignUtils;
|
|
|
|
type
|
|
TCRDataEditorForm = class(TCREditorForm)
|
|
pnlToolBar: TPanel;
|
|
btClose: TSpeedButton;
|
|
DBNavigator: TDBNavigator;
|
|
{$IFDEF CLR}
|
|
DBGrid: TCustomDBGrid;
|
|
{$ELSE}
|
|
DBGrid: TDBGrid;
|
|
{$ENDIF}
|
|
StatusBar: TStatusBar;
|
|
DataSource: TDataSource;
|
|
procedure DataSourceStateChange(Sender: TObject);
|
|
procedure DataSourceDataChange(Sender: TObject; Field: TField);
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
protected
|
|
FDataSet: TMemDataSet;
|
|
|
|
procedure DoInit; override;
|
|
procedure DoSave; override;
|
|
procedure DoFinish; override;
|
|
|
|
function GetComponent: TComponent; override;
|
|
procedure SetComponent(Value: TComponent); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$IFDEF IDE}
|
|
{$R *.dfm}
|
|
{$ENDIF}
|
|
{$IFDEF MSWINDOWS}
|
|
{$R CRDataEditor.dfm}
|
|
{$ENDIF}
|
|
{$IFDEF LINUX}
|
|
{$R *.xfm}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
{$IFDEF CLR}
|
|
Variants,
|
|
{$ENDIF}
|
|
TypInfo;
|
|
|
|
{ TDADataEditorForm }
|
|
|
|
procedure TCRDataEditorForm.DoInit;
|
|
var
|
|
cg: TCustomDBGrid;
|
|
begin
|
|
inherited;
|
|
|
|
cg := DBGrid;
|
|
if ReplaceGridToCRGrid(cg) then begin
|
|
{$IFDEF CLR}
|
|
DBGrid := cg;
|
|
{$ELSE}
|
|
DBGrid := TDBGrid(cg);
|
|
{$ENDIF}
|
|
SetPropValue(DBGrid, 'OptionsEx', Variant('dgeEnableSort,dgeLocalFilter,dgeLocalSorting]')); // disable dgeRecordCount
|
|
end;
|
|
DataSource.DataSet := Component as TMemDataSet;
|
|
end;
|
|
|
|
procedure TCRDataEditorForm.DoSave;
|
|
begin
|
|
end;
|
|
|
|
procedure TCRDataEditorForm.DoFinish;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TCRDataEditorForm.GetComponent: TComponent;
|
|
begin
|
|
Result := FDataSet;
|
|
end;
|
|
|
|
procedure TCRDataEditorForm.SetComponent(Value: TComponent);
|
|
begin
|
|
FDataSet := Value as TMemDataSet;
|
|
end;
|
|
|
|
procedure TCRDataEditorForm.DataSourceStateChange(Sender: TObject);
|
|
begin
|
|
StatusBar.Panels[0].Text := 'RecordCount: ' + IntToStr(FDataSet.RecordCount);
|
|
StatusBar.Panels[1].Text := 'RecordNo: ' + IntToStr(FDataSet.RecNo);
|
|
end;
|
|
|
|
procedure TCRDataEditorForm.DataSourceDataChange(Sender: TObject;
|
|
Field: TField);
|
|
begin
|
|
DataSourceStateChange(nil);
|
|
end;
|
|
|
|
procedure TCRDataEditorForm.FormCloseQuery(Sender: TObject;
|
|
var CanClose: Boolean);
|
|
begin
|
|
DBGrid.SetFocus;
|
|
inherited;
|
|
end;
|
|
|
|
{$IFDEF CLR}
|
|
initialization
|
|
|
|
RegisterClass(TDBGrid);
|
|
{$ENDIF}
|
|
|
|
end.
|