gridmasterdetailpanel.dfm

InfoPower_Studio 2007 v5.0.1.3 banben

        Width = 32
        Height = 25
        Hint = 'Move to last record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Last'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 5
        Style = nbsLast
      end
      object wwDBNavigator1Insert: TwwNavButton
        Left = 192
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Insert new record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Insert'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 6
        Style = nbsInsert
      end
      object wwDBNavigator1Delete: TwwNavButton
        Left = 224
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Delete current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Delete'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 7
        Style = nbsDelete
      end
      object wwDBNavigator1Edit: TwwNavButton
        Left = 256
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Edit current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Edit'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 8
        Style = nbsEdit
      end
      object wwDBNavigator1Post: TwwNavButton
        Left = 288
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Post changes of current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Post'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 9
        Style = nbsPost
      end
      object wwDBNavigator1Cancel: TwwNavButton
        Left = 319
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Cancel changes made to current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Cancel'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 10
        Style = nbsCancel
      end
      object wwDBNavigator1Refresh: TwwNavButton
        Left = 350
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Refresh the contents of the dataset'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Refresh'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 11
        Style = nbsRefresh
      end
      object wwDBNavigator1SaveBookmark: TwwNavButton
        Left = 381
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Bookmark current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1SaveBookmark'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 12
        Style = nbsSaveBookmark
      end
      object wwDBNavigator1RestoreBookmark: TwwNavButton
        Left = 412
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Go back to saved bookmark'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1RestoreBookmark'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 13
        Style = nbsRestoreBookmark
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = CustomerTable
    Left = 608
    Top = 32
  end
  object CustomerTable: TTable
    Active = True
    OnCalcFields = CustomerTableCalcFields
    DatabaseName = 'InfoDemo5'
    TableName = 'customer.db'
    Left = 640
    Top = 32
    object CustomerTableOrders: TIntegerField
      DisplayLabel = ' '
      DisplayWidth = 3
      FieldKind = fkCalculated
      FieldName = 'Orders'
      DisplayFormat = '## '#39'orders'#39';;'#39'No orders'#39
      Calculated = True
    end
    object CustomerTableCustNo: TFloatField
      Alignment = taLeftJustify
      CustomConstraint = 'CustNo IS NOT NULL'
      ConstraintErrorMessage = 'CustNo cannot be blank'
      DisplayLabel = 'Cust No'
      DisplayWidth = 8
      FieldName = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object CustomerTableCountry: TStringField
      DisplayWidth = 20
      FieldName = 'Country'
    end
    object CustomerTableLastInvoiceDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'LastInvoiceDate'
    end
    object CustomerTableCompany: TStringField
      CustomConstraint = 'X IS NOT NULL'
      ConstraintErrorMessage = 'Company Field has to have a value'
      DisplayWidth = 30
      FieldName = 'Company'
      Size = 30
    end
    object CustomerTableAddr1: TStringField
      DisplayWidth = 30
      FieldName = 'Addr1'
      Size = 30
    end
    object CustomerTableAddr2: TStringField
      DisplayWidth = 30
      FieldName = 'Addr2'
      Size = 30
    end
    object CustomerTableCity: TStringField
      DisplayWidth = 15
      FieldName = 'City'
      Size = 15
    end
    object CustomerTableState: TStringField
      DisplayWidth = 20
      FieldName = 'State'
    end
    object CustomerTableZip: TStringField
      DisplayWidth = 10
      FieldName = 'Zip'
      Size = 10
    end
    object CustomerTablePhone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object CustomerTableFAX: TStringField
      DisplayWidth = 15
      FieldName = 'FAX'
      Size = 15
    end
    object CustomerTableTaxRate: TFloatField
      DisplayWidth = 10
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
      MaxValue = 100.000000000000000000
    end
    object CustomerTableContact: TStringField
      DisplayWidth = 20
      FieldName = 'Contact'
    end
    object CustomerTableHaveOrders: TIntegerField
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'HaveOrders'
      LookupDataSet = Table5
      LookupKeyFields = 'CustNo'
      LookupResultField = 'OrderNo'
      KeyFields = 'CustNo'
      Visible = False
      Lookup = True
    end
  end
  object DataSource2: TDataSource
    DataSet = OrdersTable
    Left = 608
    Top = 64
  end
  object OrdersTable: TTable
    Active = True
    OnCalcFields = OrdersTableCalcFields
    DatabaseName = 'InfoDemo5'
    IndexName = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    TableName = 'orders.db'
    Left = 640
    Top = 64
    object OrdersTableItems: TIntegerField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'Items'
      Calculated = True
    end
    object OrdersTableOrderNo: TFloatField
      DisplayWidth = 10
      FieldName = 'OrderNo'
      DisplayFormat = #39'#'#39'0000'
    end
    object OrdersTableCustNo: TFloatField
      Alignment = taLeftJustify
      CustomConstraint = 'CustNo IS NOT NULL'
      ConstraintErrorMessage = 'CustNo cannot be blank'
      DisplayWidth = 10
      FieldName = 'CustNo'
      Required = True
      DisplayFormat = 'CN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object OrdersTableSaleDate: TDateTimeField
      DisplayWidth = 18