gridmasterdetailpanel.dfm

InfoPower_Studio 2007 v5.0.1.3 banben

        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 ItemsGrid: TwwDBGrid
    Left = 176
    Top = 224
    Width = 265
    Height = 92
    Selected.Strings = (
      'ItemNo'#9'9'#9'Item No'#9'F'
      'PartNo'#9'8'#9'Part No'#9'F'
      'Qty'#9'10'#9'Qty'#9'F'
      'Discount'#9'8'#9'Discount'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = False
    Ctl3D = False
    DataSource = DataSource3
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgProportionalColResize]
    ParentCtl3D = False
    TabOrder = 2
    TitleAlignment = taRightJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
    Visible = False
    PaintOptions.BackgroundOptions = [coBlendFixedRow, coBlendFixedColumn]
  end
  object DataSource1: TDataSource
    DataSet = CustomerTable
    Left = 608
    Top = 32
  end
  object CustomerTable: TTable
    Active = True
    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
    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
      FieldName = 'SaleDate'
    end
    object OrdersTableShipDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'ShipDate'
    end
    object OrdersTableEmpNo: TIntegerField
      CustomConstraint = 'Value > 0'
      ConstraintErrorMessage = 'EmpNo cannot be 0 or negative'
      DisplayWidth = 10
      FieldName = 'EmpNo'
      Required = True
      DisplayFormat = 'Emp'#39'#'#39' 0000'