home *** CD-ROM | disk | FTP | other *** search
- object FormMain: TFormMain
- Left = 213
- Top = 112
- Width = 513
- Height = 291
- Caption = 'Opus DirectAccess Test'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 12
- Width = 141
- Height = 13
- Caption = 'Demonstration Forms'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 248
- Top = 12
- Width = 112
- Height = 13
- Caption = 'Product Information'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Bevel1: TBevel
- Left = 248
- Top = 28
- Width = 245
- Height = 9
- Shape = bsTopLine
- end
- object Bevel2: TBevel
- Left = 8
- Top = 28
- Width = 217
- Height = 9
- Shape = bsTopLine
- end
- object BtnGrid: TButton
- Left = 8
- Top = 72
- Width = 217
- Height = 25
- Caption = 'Single Query with Grid'
- TabOrder = 1
- OnClick = BtnGridClick
- end
- object BtnFastFind: TButton
- Left = 8
- Top = 184
- Width = 217
- Height = 25
- Caption = 'DBControlGrid with fast Find'
- TabOrder = 6
- OnClick = BtnFastFindClick
- end
- object BtnMixedToMany: TButton
- Left = 8
- Top = 156
- Width = 217
- Height = 25
- Caption = 'OneToMany with Query && (Table/Query)'
- TabOrder = 4
- OnClick = BtnMixedToManyClick
- end
- object BtnQueryToMany: TButton
- Left = 8
- Top = 100
- Width = 217
- Height = 25
- Caption = 'OneToMany with Queries'
- TabOrder = 2
- OnClick = BtnQueryToManyClick
- end
- object BtnTableLookup: TButton
- Left = 8
- Top = 44
- Width = 217
- Height = 25
- Caption = 'Table with fast Lookups'
- TabOrder = 0
- OnClick = BtnTableLookupClick
- end
- object BtnTableToMany: TButton
- Left = 8
- Top = 128
- Width = 217
- Height = 25
- Caption = 'OneToMany with Tables'
- TabOrder = 3
- OnClick = BtnTableToManyClick
- end
- object BtnReport: TButton
- Left = 8
- Top = 212
- Width = 217
- Height = 25
- Caption = 'QuickReport with Query'
- TabOrder = 5
- OnClick = BtnReportClick
- end
- object MemoInfo: TMemo
- Left = 248
- Top = 44
- Width = 245
- Height = 193
- Color = clBtnFace
- Ctl3D = True
- Lines.Strings = (
- 'For further information about Opus DirectAccess, '
- 'please contact Opus Software GmbH at the '
- 'following address:'
- ''
- 'Opus Software GmbH'
- 'Im Kratten 32'
- '8623 Wetzikon'
- 'Switzerland'
- ''
- 'CompuServe: 101560,2152'
- 'E-Mail: opussoftware@access.ch')
- ParentCtl3D = False
- ReadOnly = True
- TabOrder = 7
- end
- object Db: TDatabase
- AliasName = 'Demo'
- Connected = True
- DatabaseName = 'DBDemo'
- LoginPrompt = False
- SessionName = 'Demo'
- Left = 192
- end
- object Session: TSession
- Active = True
- KeepConnections = False
- SessionName = 'Demo'
- Left = 160
- end
- end
-