trafficbookin_unit.dfm

货源代理管理系统 同样是DELPHI7下的

      Height = 20
      DataField = 'GoodsTotal'
      DataSource = DM.dsrShippingHeader
      TabOrder = 7
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 97
      Width = 704
      Height = 70
      Align = alBottom
      Caption = #25910#20214#20154#20449#24687
      TabOrder = 8
      object Label10: TLabel
        Left = 16
        Top = 21
        Width = 60
        Height = 12
        Caption = #25910' '#36135' '#20154#65306
      end
      object Label11: TLabel
        Left = 180
        Top = 21
        Width = 54
        Height = 12
        Caption = #24615'   '#21035#65306
      end
      object Label12: TLabel
        Left = 338
        Top = 21
        Width = 54
        Height = 12
        Caption = #30005'   '#35805#65306
      end
      object Label13: TLabel
        Left = 15
        Top = 45
        Width = 60
        Height = 12
        Caption = #22320'    '#22336#65306
      end
      object Label14: TLabel
        Left = 519
        Top = 21
        Width = 60
        Height = 12
        Caption = #29366'    '#24577#65306
      end
      object DBEdit5: TDBEdit
        Left = 84
        Top = 17
        Width = 90
        Height = 20
        DataField = 'Consignee'
        DataSource = DM.dsrShippingHeader
        TabOrder = 0
      end
      object DBComboBox1: TDBComboBox
        Left = 236
        Top = 17
        Width = 90
        Height = 20
        DataField = 'ConSex'
        DataSource = DM.dsrShippingHeader
        ItemHeight = 12
        Items.Strings = (
          #30007
          #22899)
        TabOrder = 1
      end
      object DBEdit6: TDBEdit
        Left = 396
        Top = 17
        Width = 112
        Height = 20
        DataField = 'ConTelephone'
        DataSource = DM.dsrShippingHeader
        TabOrder = 2
      end
      object DBEdit7: TDBEdit
        Left = 84
        Top = 41
        Width = 608
        Height = 20
        DataField = 'ConAddress'
        DataSource = DM.dsrShippingHeader
        TabOrder = 3
      end
      object DBComboBox2: TDBComboBox
        Left = 582
        Top = 17
        Width = 111
        Height = 20
        DataField = 'BillStatus'
        DataSource = DM.dsrShippingHeader
        ItemHeight = 12
        Items.Strings = (
          #24453#36816
          #36816#36755#20013
          #20572#36816#20013
          #36816#36865#23436#27605)
        TabOrder = 4
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 169
    Width = 708
    Height = 291
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 33
      Width = 704
      Height = 256
      Align = alClient
      DataSource = DM.dsrShippingBody
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Items'
          Title.Alignment = taCenter
          Title.Caption = #39033#27425
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GoodsDescn'
          Title.Alignment = taCenter
          Title.Caption = #36135#29289#21517#31216
          Width = 260
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GoodsUom'
          PickList.Strings = (
            #20214
            #31665
            #34955
            #29942)
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GoodsQuantity'
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GoodsPrice'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TotalsPrice'
          Title.Alignment = taCenter
          Title.Caption = #21512#35745
          Width = 80
          Visible = True
        end>
    end
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 704
      Height = 31
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvSpace
      TabOrder = 1
      object btnAddRow: TSpeedButton
        Left = 5
        Top = 3
        Width = 60
        Height = 25
        Caption = #22686#34892
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
          3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
          B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
          33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
          000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
          033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
          BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
          33B33733333773333373B333333B3333333B7333333733333337}
        NumGlyphs = 2
        OnClick = btnAddRowClick
      end
      object btnDelRow: TSpeedButton
        Left = 74
        Top = 3
        Width = 60
        Height = 25
        Caption = #21024#34892
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF33333333333330003333333333333777333333333333
          300033FFFFFF3333377739999993333333333777777F3333333F399999933333
          3300377777733333337733333333333333003333333333333377333333333333
          3333333333333333333F333333333333330033333F33333333773333C3333333
          330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
          333333377F33333333FF3333C333333330003333733333333777333333333333
          3000333333333333377733333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = btnDelRowClick
      end
    end
  end
  object RvProject1: TRvProject
    Engine = RvSystem1
    LoadDesigner = True
    Left = 162
    Top = 273
  end
  object RvSystem1: TRvSystem
    TitleSetup = 'Output Options'
    TitleStatus = 'Report Status'
    TitlePreview = 'Report Preview'
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 194
    Top = 273
  end
  object RvDataSetConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = DM.cdsShippingHeader
    Left = 226
    Top = 273
  end
  object RvDataSetConnection2: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = DM.cdsShippingBody
    Left = 256
    Top = 273
  end
end