feemanage_unit.dfm

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

object frmFeeManage: TfrmFeeManage
  Left = 231
  Top = 185
  BorderStyle = bsDialog
  Caption = #25910#36153#31649#29702
  ClientHeight = 387
  ClientWidth = 658
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 193
    Height = 387
    Align = alLeft
    BevelInner = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 189
      Height = 383
      Align = alClient
      DataSource = DM.dsrShippingHeader
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ShippingNumber'
          Title.Alignment = taCenter
          Title.Caption = #21333#21495
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ShippingDate'
          Title.Alignment = taCenter
          Title.Caption = #25509#21333#26085#26399
          Width = 64
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GoodsTotal'
          Title.Alignment = taCenter
          Title.Caption = #36135#29289#24635#37329#39069
          Width = 80
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 193
    Top = 0
    Width = 465
    Height = 387
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 461
      Height = 103
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 0
      object Label3: TLabel
        Left = 213
        Top = 26
        Width = 60
        Height = 12
        Caption = #25910#36153#20154#21592#65306
      end
      object Label1: TLabel
        Left = 13
        Top = 25
        Width = 60
        Height = 12
        Caption = #36816#36153#37329#39069#65306
      end
      object Label2: TLabel
        Left = 13
        Top = 71
        Width = 60
        Height = 12
        Caption = #25910#36153#26085#26399#65306
      end
      object SpeedButton2: TSpeedButton
        Left = 171
        Top = 66
        Width = 23
        Height = 22
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
          00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
          0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9
          903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9
          9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890
          03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
          77037F3377777773337F088887707888870373F3337773F33373307880707088
          7033373FF737F73FF733337003303300733333777337FF777333333333000333
          3333333333777333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton2Click
      end
      object DBEdit1: TDBEdit
        Left = 74
        Top = 21
        Width = 120
        Height = 20
        DataField = 'FeeTotal'
        DataSource = DM.dsrShippingHeader
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 74
        Top = 67
        Width = 97
        Height = 20
        DataField = 'AuditingDate'
        DataSource = DM.dsrShippingHeader
        ReadOnly = True
        TabOrder = 1
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 274
        Top = 22
        Width = 120
        Height = 20
        DataField = 'AuditingMan'
        DataSource = DM.dsrShippingHeader
        DropDownRows = 10
        DropDownWidth = 150
        KeyField = 'LoginID'
        ListField = 'LoginID;LoginName'
        ListSource = DM.dsrUsers
        TabOrder = 2
      end
      object btnFee: TBitBtn
        Left = 205
        Top = 64
        Width = 75
        Height = 25
        Caption = #25910#36153'(&F)'
        TabOrder = 3
        OnClick = btnFeeClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
          333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
          0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
          07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
          0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
          33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
          B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
          3BB33773333773333773B333333B3333333B7333333733333337}
        NumGlyphs = 2
      end
      object btnAuditing: TBitBtn
        Left = 292
        Top = 64
        Width = 75
        Height = 25
        Caption = #23457#26680'(&A)'
        TabOrder = 4
        OnClick = btnAuditingClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555555555555555555555555555555555555555FF55555555555559055555
          55555555577FF5555555555599905555555555557777F5555555555599905555
          555555557777FF5555555559999905555555555777777F555555559999990555
          5555557777777FF5555557990599905555555777757777F55555790555599055
          55557775555777FF5555555555599905555555555557777F5555555555559905
          555555555555777FF5555555555559905555555555555777FF55555555555579
          05555555555555777FF5555555555557905555555555555777FF555555555555
          5990555555555555577755555555555555555555555555555555}
        NumGlyphs = 2
      end
      object btnPrint: TBitBtn
        Left = 374
        Top = 64
        Width = 75
        Height = 25
        Caption = #25171#21360'(&P)'
        TabOrder = 5
        OnClick = btnPrintClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        NumGlyphs = 2
      end
    end
    object DBGrid2: TDBGrid
      Left = 2
      Top = 105
      Width = 461
      Height = 280
      Align = alClient
      DataSource = DM.dsrShippingBody
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      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 = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'GoodsUom'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 80
          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 = #24635#35745
          Width = 80
          Visible = True
        end>
    end
  end
  object RvProject1: TRvProject
    Engine = RvSystem1
    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 = rtNone
    DataSet = DM.cdsShippingHeader
    Left = 226
    Top = 273
  end
end