[Ocs-comps-commits] OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Parts images.rc,NONE,1.1 images.res,NONE,1.1 Parts.cfg,NONE,1.1 Parts.dof,NONE,1.1 Parts.dpr,NONE,1.1 Parts.res,NONE,1.1 PartsForm.dfm,NONE,1.1 PartsForm.pas,NONE,1.1 PartsUnit.pas,NONE,1.1 WRENCH.ICO,NONE,1.1

[Si C. <tec...@us...>]

Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Parts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Parts

Added Files:
	images.rc images.res Parts.cfg Parts.dof Parts.dpr Parts.res 
	PartsForm.dfm PartsForm.pas PartsUnit.pas WRENCH.ICO 
Log Message:
Initially added to source control

--- NEW FILE: images.rc ---
PARTSICON           ICON    "Wrench.ico"
--- NEW FILE: Parts.dof ---
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=0
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=..\..\
Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog\IB_DB_SHARE.exe
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=D:\Program Files\Borland\Delphi6\Bin\
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2057
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
c:\program files\borland\delphi7\Projects\Bpl\PLGMDO.bpl=(untitled)
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=1
Item0=..\..\
[HistoryLists\hlOutputDirectorry]
Count=1
Item0=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog

--- NEW FILE: PartsForm.dfm ---
object frmParts: TfrmParts
  Left = 230
  Top = 107
  BorderStyle = bsDialog
  Caption = 'Parts'
  ClientHeight = 411
  ClientWidth = 256
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 368
    Width = 241
    Height = 2
  end
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 43
    Height = 13
    Caption = 'ITEM_ID'
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 8
    Top = 48
    Width = 72
    Height = 13
    Caption = 'SPEC_ID_REF'
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 8
    Top = 88
    Width = 104
    Height = 13
    Caption = 'CURRENCY_ID_REF'
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 8
    Top = 128
    Width = 26
    Height = 13
    Caption = 'ITEM'
  end
  object Label5: TLabel
    Left = 8
    Top = 240
    Width = 32
    Height = 13
    Caption = 'PRICE'
    FocusControl = DBEdit5
  end
  object Label6: TLabel
    Left = 8
    Top = 280
    Width = 56
    Height = 13
    Caption = 'DISCOUNT'
    FocusControl = DBEdit6
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 336
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 0
  end
  object Button1: TButton
    Left = 176
    Top = 376
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBEdit1: TDBEdit
    Left = 8
    Top = 24
    Width = 134
    Height = 21
    DataField = 'ITEM_ID'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit2: TDBEdit
    Left = 8
    Top = 64
    Width = 134
    Height = 21
    DataField = 'SPEC_ID_REF'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit3: TDBEdit
    Left = 8
    Top = 104
    Width = 134
    Height = 21
    DataField = 'CURRENCY_ID_REF'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit5: TDBEdit
    Left = 8
    Top = 256
    Width = 134
    Height = 21
    DataField = 'PRICE'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit6: TDBEdit
    Left = 8
    Top = 296
    Width = 69
    Height = 21
    DataField = 'DISCOUNT'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBMemo1: TDBMemo
    Left = 8
    Top = 144
    Width = 185
    Height = 89
    DataField = 'ITEM'
    DataSource = DataSource1
    TabOrder = 7
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'D:\Program Files\Common Files\Borland Shared\Data\employee.gdb'
    Params.Strings = (
      'user_name=sysdba')
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 8
    Top = 376
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    AutoStopAction = saNone
    Left = 40
    Top = 376
  end
  object IBTable1: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    TableName = 'ITEMS'
    UpdateObject = IBUpdateSQL1
    Left = 72
    Top = 376
    object IBTable1ITEM_ID: TIntegerField
      FieldName = 'ITEM_ID'
      Required = True
    end
    object IBTable1SPEC_ID_REF: TIntegerField
      FieldName = 'SPEC_ID_REF'
    end
    object IBTable1CURRENCY_ID_REF: TIntegerField
      FieldName = 'CURRENCY_ID_REF'
    end
    object IBTable1ITEM: TIBStringField
      FieldName = 'ITEM'
      Size = 100
    end
    object IBTable1PRICE: TIBBCDField
      FieldName = 'PRICE'
      Precision = 9
      Size = 2
    end
    object IBTable1DISCOUNT: TIBBCDField
      FieldName = 'DISCOUNT'
      Precision = 4
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = IBTable1
    Left = 104
    Top = 376
  end
  object IBUpdateSQL1: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  RDB$DB_KEY as IBX_INTERNAL_DBKEY, '
      '  ITEM_ID,'
      '  SPEC_ID_REF,'
      '  CURRENCY_ID_REF,'
      '  ITEM,'
      '  PRICE,'
      '  DISCOUNT'
      'from ITEMS '
      'where'
      '  ITEM_ID = :ITEM_ID')
    ModifySQL.Strings = (
      'update ITEMS'
      'set'
      '  ITEM_ID = :ITEM_ID,'
      '  SPEC_ID_REF = :SPEC_ID_REF,'
      '  CURRENCY_ID_REF = :CURRENCY_ID_REF,'
      '  ITEM = :ITEM,'
      '  PRICE = :PRICE,'
      '  DISCOUNT = :DISCOUNT'
      'where'
      '  ITEM_ID = :OLD_ITEM_ID')
    InsertSQL.Strings = (
      'insert into ITEMS'
      '  (ITEM_ID, SPEC_ID_REF, CURRENCY_ID_REF, ITEM, PRICE, DISCOUNT)'
      'values'
      
        '  (:ITEM_ID, :SPEC_ID_REF, :CURRENCY_ID_REF, :ITEM, :PRICE, :DIS' +
        'COUNT)')
    DeleteSQL.Strings = (
      'delete from ITEMS'
      'where'
      '  ITEM_ID = :OLD_ITEM_ID')
    Left = 136
    Top = 376
  end
end

--- NEW FILE: Parts.dpr ---
library Parts;

{$R 'images.res' 'images.rc'}

uses
  PartsUnit in 'PartsUnit.pas',
  PartsForm in 'PartsForm.pas' {frmParts};

{$R *.res}

begin

end.

--- NEW FILE: PartsForm.pas ---
unit PartsForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IBCustomDataSet, IBUpdateSQL, DB, IBTable, IBDatabase, StdCtrls,
  ExtCtrls, DBCtrls, Mask;

type
  TfrmParts = class(TForm)
    Bevel1: TBevel;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBTable1: TIBTable;
    DataSource1: TDataSource;
    IBUpdateSQL1: TIBUpdateSQL;
    IBTable1ITEM_ID: TIntegerField;
    IBTable1SPEC_ID_REF: TIntegerField;
    IBTable1CURRENCY_ID_REF: TIntegerField;
    IBTable1ITEM: TIBStringField;
    IBTable1PRICE: TIBBCDField;
    IBTable1DISCOUNT: TIBBCDField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    DBMemo1: TDBMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    constructor CreateCountryForm(DBHandle: Pointer);
    destructor Destroy; override;
  end;

implementation

{$R *.dfm}

constructor TfrmParts.CreateCountryForm(DBHandle: Pointer);
begin
  inherited Create(nil);
  IBDatabase1.SetHandle(DBHandle);
  IBTable1.Open;
end;

destructor TfrmParts.Destroy;
begin
  IBDatabase1.Close;
  inherited Destroy;
end;

procedure TfrmParts.Button1Click(Sender: TObject);
begin
  Close;
end;

end.

--- NEW FILE: WRENCH.ICO ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: images.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Parts.cfg ---
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O-
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-E"C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog"
-LE"c:\program files\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl"
-U"..\..\"
-O"..\..\"
-I"..\..\"
-R"..\..\"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

--- NEW FILE: Parts.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: PartsUnit.pas ---
unit PartsUnit;

interface

uses Windows, Messages, OrckaPluginManagerShared, HostShared;

type
  TParts = class(TPluginClient)
  private
    FService: TPluginServices;
    FHostShared: THostShared;

    (* Button's *)
    FbtnParts: TOButtonItem;

    (* Menu's *)
    FmnuParts: TOMenuItem;
  protected
    (* Button Click Events *)
    procedure btnPartsClickEvent(Sender: TOButtonItem);

    (* Menu Click Events *)
    procedure mnuPartsClickEvent(Sender: TOMenuItem);

    procedure ShowPartsForm;
  public
    constructor CreateNew(AService: TPluginServices);
    destructor Destroy; override;

    (* Returns the name of the plugin *)
    function GetName: TOString; override;

    (* Functions which control the creation and deletion
      of menu items and toolbar buttons *)
    procedure CreateMenuItems; override;
    procedure DeleteMenuItems; override;
    procedure CreateButtons; override;
    procedure DeleteButtons; override;

    (* General functions for applications, can be used to control
     open/save/close/create documents, Close the application *)
    procedure Open(PEType: TPluginEventType; var Name: TLargeString;
      var Handled: Boolean); override;
    procedure Save(PEType: TPluginEventType; var Name: TLargeString;
      var Handled: Boolean); override;
    procedure BeforeClose(PEType: TPluginEventType;
      var Cancel: Boolean); override;
    procedure AfterClose(PEType: TPluginEventType); override;
    procedure BeforeNew(PEType: TPluginEventType;
      var Cancel: Boolean); override;
    procedure AfterNew(PEType: TPluginEventType); override;

    (* Application Events *)
    procedure OnActivate; override;
    procedure OnDeactivate; override;
    procedure OnMinimize; override;
    procedure OnRestore; override;
    procedure OnException(ClassName: TMediumString;
      ErrorMessage: TLargeString); override;
    procedure OnHelp(Command: Word; Data: Longint;
      var CallHelp: Boolean); override;
    procedure OnHint; override;
    procedure OnIdle(var Done: Boolean); override;
    procedure OnMessage(var Msg: TMsg; var Handled: Boolean); override;
    procedure OnSettingsChanged(Flag: Integer; const Section: string;
      var Result: Longint); override;
    procedure OnShortCut(var Msg: TWMKey; var Handled: Boolean); override;
  end;

implementation

uses SysUtils, PartsForm;

var
  Plugin: TParts = nil;

procedure PluginUnload; stdcall;
begin
  Plugin.Free;
end;

function PluginLoad(InParams: TOrckaPluginManagerParams;
  var ExitProc: Pointer): Boolean; stdcall;
begin
  Result := True;
  try
    Plugin := TParts.CreateNew(TPluginServices(InParams.PluginService));
    Plugin.FHostShared := THostShared(InParams.User);
    ExitProc := @PluginUnload;
  except
    Result := False;
  end;
end;

procedure PluginDescription(var Name, Description: TMediumString); stdcall;
begin
  FillChar(Name, SizeOf(TMediumString), 0);
  StrPCopy(Name, 'Parts');
  FillChar(Description, SizeOf(TMediumString), 0);
  StrPCopy(Description, 'Parts Plugin');
end;

exports
  PluginLoad name OrckaPluginManagerExportProc2,
  PluginDescription name OrckaPluginManagerDescription;

{ TNewPlugin }

{ Button Click Events }

procedure TParts.btnPartsClickEvent(Sender: TOButtonItem);
begin
  ShowPartsForm;
end;


(* Menu Click Events *)
procedure TParts.mnuPartsClickEvent(Sender: TOMenuItem);
begin
  ShowPartsForm;
end;

{ Standard methods }

procedure TParts.AfterClose(PEType: TPluginEventType);
begin
  
end;

procedure TParts.AfterNew(PEType: TPluginEventType);
begin
  
end;

procedure TParts.BeforeClose(PEType: TPluginEventType;
  var Cancel: Boolean);
begin
  
end;

procedure TParts.BeforeNew(PEType: TPluginEventType;
  var Cancel: Boolean);
begin
  
end;

procedure TParts.CreateButtons;
begin
  (* Add the Toolbar's *)
  FService.InsertToolbar(StringToOString('View'));

  (* Insert the Button's *)
  FbtnParts := FService.InsertButton(1, StringToOString('View'),
    StringToOString(''), btnPartsClickEvent);
  FbtnParts.SetCaption('Parts');
  FbtnParts.SetImageIndex(FService.AddIcon(LoadIcon(Hinstance, 'PARTSICON')));
end;

procedure TParts.CreateMenuItems;
var
  mnuTemp: TOMenuItem;
begin
  mnuTemp := FService.FindMenu(StringToOString('View'));

  if not Assigned(mnuTemp) then
    mnuTemp := FService.InsertMenu(1, nil, '&View', nil);
    
  if Assigned(mnuTemp) then
    FmnuParts := FService.InsertMenu(0, mnuTemp, 
      StringToOString('&Parts'), mnuPartsClickEvent);
end;

constructor TParts.CreateNew(AService: TPluginServices);
begin
  inherited Create;
  FService := AService;
  FService.PluginClientInsert(Self);
  FService.PluginClientIncludeAppEvent(Self, poAllowInsertToolbars);
  FService.PluginClientIncludeAppEvent(Self, poAllowRemoveToolbars);
end;

procedure TParts.DeleteButtons;
begin
  (* Remove the Button's *)
  FService.RemoveButton(FbtnParts);

  (* Remove the Toolbar's *)
  FService.DeleteToolbar(StringToOString('View'));
end;

procedure TParts.DeleteMenuItems;
begin
  FService.RemoveMenu(FmnuParts);
end;

destructor TParts.Destroy;
begin
  FService.PluginClientExcludeAppEvent(Self, poAllowInsertToolbars);
  FService.PluginClientExcludeAppEvent(Self, poAllowRemoveToolbars);
  FService.PluginClientRemove(Self);
  inherited Destroy;
end;

function TParts.GetName: TOString;
begin
  Result := StringToOString('Parts');
end;

procedure TParts.OnActivate;
begin

end;

procedure TParts.OnDeactivate;
begin

end;

procedure TParts.OnException(ClassName: TMediumString;
  ErrorMessage: TLargeString);
begin

end;

procedure TParts.OnHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean);
begin

end;

procedure TParts.OnHint;
begin

end;

procedure TParts.OnIdle(var Done: Boolean);
begin

end;

procedure TParts.OnMessage(var Msg: TMsg; var Handled: Boolean);
begin

end;

procedure TParts.OnMinimize;
begin

end;

procedure TParts.OnRestore;
begin

end;

procedure TParts.OnSettingsChanged(Flag: Integer;
  const Section: string; var Result: Integer);
begin

end;

procedure TParts.OnShortCut(var Msg: TWMKey; var Handled: Boolean);
begin

end;

procedure TParts.Open(PEType: TPluginEventType; var Name: TLargeString;
  var Handled: Boolean);
begin

end;

procedure TParts.Save(PEType: TPluginEventType; var Name: TLargeString;
  var Handled: Boolean);
begin

end;

procedure TParts.ShowPartsForm;
var
  frmParts: TfrmParts;
begin
  frmParts := TfrmParts.CreateCountryForm(FService.GetDatabaseHandle);
  try
    FHostShared.SetTitle('[Parts]');
    frmParts.ShowModal;
  finally
    FreeAndNil(frmParts);
    FHostShared.SetTitle('');
  end;
end;

end.