pay550_04.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

inherited Pay550_04Form: TPay550_04Form
  Left = 210
  Top = 109
  HelpContext = 79
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #34218#36164#38646#37329#26680#31639
  ClientHeight = 287
  ClientWidth = 497
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Label3: TLabel [0]
    Left = 64
    Top = 232
    Width = 7
    Height = 13
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
  end
  object lblAmount: TLabel [1]
    Left = 288
    Top = 12
    Width = 24
    Height = 12
    Caption = #37329#39069
  end
  object lblCurr: TLabel [2]
    Left = 64
    Top = 12
    Width = 24
    Height = 12
    Alignment = taRightJustify
    Caption = #24065#21035
  end
  object bbtnOk: TBitBtn [3]
    Left = 312
    Top = 256
    Width = 75
    Height = 25
    Caption = #35745#31639'(&O)'
    TabOrder = 0
    OnClick = bbtnOkClick
  end
  object bbtnExit: TBitBtn [4]
    Left = 400
    Top = 256
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 1
    OnClick = bbtnExitClick
  end
  object cbCurr: TComboBox [5]
    Left = 96
    Top = 8
    Width = 169
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 2
    OnChange = cbCurrChange
  end
  object edtAmount: TEdit [6]
    Left = 320
    Top = 8
    Width = 169
    Height = 20
    Enabled = False
    TabOrder = 3
  end
  object ScrollBox1: TScrollBox [7]
    Left = 8
    Top = 40
    Width = 481
    Height = 209
    TabOrder = 4
    object dxDBGrid2: TdxDBGrid
      Left = 0
      Top = 0
      Width = 477
      Height = 205
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'ParValue'
      ShowSummaryFooter = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      DataSource = DataSource1
      Filter.Criteria = {00000000}
      HeaderColor = 15262169
      HideFocusRect = True
      LookAndFeel = lfUltraFlat
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
      object dxDBGrid2ParValue: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'ParValue'
      end
      object dxDBGrid2Unit: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 84
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Unit'
      end
      object dxDBGrid2Count: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 105
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Count'
      end
      object dxDBGrid2Amount: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 129
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Amount'
        SummaryFooterType = cstSum
      end
    end
  end
  inherited pmUISet: TPopupMenu
    Left = 24
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 144
    Top = 88
  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    FieldDefs = <
      item
        Name = 'ParValue'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'Unit'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Count'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'Amount'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    Parameters = <>
    StoreDefs = True
    Left = 184
    Top = 88
    object ADODataSet1ParValue: TIntegerField
      DisplayLabel = #38754#20540
      FieldName = 'ParValue'
    end
    object ADODataSet1Unit: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'Unit'
    end
    object ADODataSet1Count: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'Count'
    end
    object ADODataSet1Amount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'Amount'
    end
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 240
    Top = 48
  end
end