home *** CD-ROM | disk | FTP | other *** search
- object FormGrid: TFormGrid
- Left = 269
- Top = 183
- Width = 556
- Height = 431
- Caption = 'Single Query with Grid'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object DBGrid1: TDBGrid
- Left = 0
- Top = 41
- Width = 548
- Height = 324
- Align = alClient
- DataSource = SrcComp
- TabOrder = 0
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 548
- Height = 41
- Align = alTop
- TabOrder = 1
- object DBNavigator1: TDBNavigator
- Left = 8
- Top = 8
- Width = 240
- Height = 25
- DataSource = SrcComp
- TabOrder = 0
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 365
- Width = 548
- Height = 39
- Align = alBottom
- TabOrder = 2
- object Label1: TLabel
- Left = 8
- Top = 12
- Width = 509
- Height = 13
- Caption =
- 'Note the presence of default values when adding records. The def' +
- 'aults are defined in the Access database.'
- end
- end
- object QryComp: TQuery
- Active = True
- DatabaseName = 'DBDemo'
- SessionName = 'Demo'
- RequestLive = True
- SQL.Strings = (
- 'Select * from Person')
- Left = 452
- Top = 4
- object QryCompPers_ID: TAutoIncField
- DisplayWidth = 6
- FieldName = 'Pers_ID'
- end
- object QryCompPers_LastName: TStringField
- DisplayWidth = 20
- FieldName = 'Pers_LastName'
- Size = 50
- end
- object QryCompPers_FirstName: TStringField
- DisplayWidth = 15
- FieldName = 'Pers_FirstName'
- Size = 50
- end
- object QryCompPers_Remarks: TMemoField
- DisplayWidth = 18
- FieldName = 'Pers_Remarks'
- BlobType = ftMemo
- Size = 65535
- end
- object QryCompPers_Birthday: TDateTimeField
- FieldName = 'Pers_Birthday'
- end
- object QryCompPers_IsFemale: TBooleanField
- FieldName = 'Pers_IsFemale'
- end
- end
- object SrcComp: TDataSource
- DataSet = QryComp
- Left = 484
- Top = 4
- end
- end
-