ufmpo.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

        object Label12: TLabel
          Left = 39
          Top = 114
          Width = 24
          Height = 12
          Caption = #31246#39069
          FocusControl = DBEdit3
        end
        object Label13: TLabel
          Left = 256
          Top = 114
          Width = 24
          Height = 12
          Caption = #36816#36153
          FocusControl = DBEdit4
        end
        object Label14: TLabel
          Left = 453
          Top = 114
          Width = 48
          Height = 12
          Caption = #35843#25972#37329#39069
          FocusControl = DBEdit5
        end
        object Label17: TLabel
          Left = 232
          Top = 140
          Width = 48
          Height = 12
          Caption = #25240#24460#37329#39069
          FocusControl = DBEdit8
        end
        object Label18: TLabel
          Left = 39
          Top = 167
          Width = 24
          Height = 12
          Caption = #22791#27880
          FocusControl = DBEdit9
        end
        object Label15: TLabel
          Left = 39
          Top = 140
          Width = 24
          Height = 12
          Caption = #25240#25187
          FocusControl = DBEdit9
        end
        object DBEdit1: TDBEdit
          Left = 71
          Top = 6
          Width = 106
          Height = 20
          CharCase = ecUpperCase
          DataField = 'PONo'
          DataSource = DSMas
          TabOrder = 0
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 285
          Top = 6
          Width = 142
          Height = 20
          DataField = 'CategoryName'
          DataSource = DSMas
          TabOrder = 1
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 506
          Top = 6
          Width = 142
          Height = 20
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          DataField = 'OrderDate'
          DataSource = DSMas
          Epoch = 1950
          ShowButton = True
          TabOrder = 2
          UnboundDataType = wwDTEdtDate
        end
        object DBLookupComboBox3: TDBLookupComboBox
          Left = 285
          Top = 58
          Width = 364
          Height = 20
          DataField = 'CompanyTo'
          DataSource = DSMas
          TabOrder = 7
        end
        object DBLookupComboBox4: TDBLookupComboBox
          Left = 71
          Top = 84
          Width = 142
          Height = 20
          DataField = 'ShipViaName'
          DataSource = DSMas
          TabOrder = 8
        end
        object DBLookupComboBox5: TDBLookupComboBox
          Left = 285
          Top = 83
          Width = 141
          Height = 20
          DataField = 'PayModeName'
          DataSource = DSMas
          TabOrder = 9
        end
        object DBLookupComboBox6: TDBLookupComboBox
          Left = 506
          Top = 83
          Width = 142
          Height = 20
          DataField = 'PayTermName'
          DataSource = DSMas
          TabOrder = 10
        end
        object DBLookupComboBox7: TDBLookupComboBox
          Left = 285
          Top = 32
          Width = 141
          Height = 20
          DataField = 'CurrencyName'
          DataSource = DSMas
          TabOrder = 4
        end
        object DBEdit2: TDBEdit
          Left = 506
          Top = 32
          Width = 142
          Height = 20
          DataField = 'Rate'
          DataSource = DSMas
          ReadOnly = True
          TabOrder = 5
        end
        object DBEdit3: TDBEdit
          Left = 71
          Top = 110
          Width = 142
          Height = 20
          DataField = 'Tax'
          DataSource = DSMas
          TabOrder = 11
        end
        object DBEdit4: TDBEdit
          Left = 285
          Top = 110
          Width = 141
          Height = 20
          DataField = 'Carriage'
          DataSource = DSMas
          TabOrder = 12
        end
        object DBEdit5: TDBEdit
          Left = 506
          Top = 110
          Width = 142
          Height = 20
          DataField = 'Adjust'
          DataSource = DSMas
          TabOrder = 13
        end
        object DBEdit8: TDBEdit
          Left = 285
          Top = 136
          Width = 142
          Height = 20
          Color = clBtnFace
          DataField = 'TotalMoney'
          DataSource = DSMas
          TabOrder = 15
        end
        object DBEdit9: TDBEdit
          Left = 71
          Top = 163
          Width = 577
          Height = 20
          DataField = 'Remark'
          DataSource = DSMas
          TabOrder = 16
        end
        object DBEdit6: TDBEdit
          Left = 71
          Top = 136
          Width = 142
          Height = 20
          DataField = 'Discount1'
          DataSource = DSMas
          TabOrder = 14
        end
        object wwDBDateTimePicker2: TwwDBDateTimePicker
          Left = 70
          Top = 58
          Width = 142
          Height = 20
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          DataField = 'ShipDate'
          DataSource = DSMas
          Epoch = 1950
          ShowButton = True
          TabOrder = 6
          UnboundDataType = wwDTEdtDate
        end
        object dxDBButtonEdit1: TdxDBButtonEdit
          Left = 71
          Top = 32
          Width = 142
          TabOrder = 3
          DataField = 'VendorName'
          DataSource = DSMas
          Buttons = <
            item
              Default = True
            end>
          ExistButtons = True
        end
        object dxDBSpinEdit1: TdxDBSpinEdit
          Left = 179
          Top = 6
          Width = 33
          Hint = #29256#26412#21495
          ParentShowHint = False
          ShowHint = True
          TabOrder = 17
          TabStop = False
          DataField = 'Version'
          DataSource = DSMas
          MaxValue = 10.000000000000000000
          MinValue = 1.000000000000000000
          StoredValues = 48
        end
      end
      inherited PanelView: TPanel
        Top = 193
        Width = 716
        Height = 139
        object Splitter1: TSplitter [0]
          Left = 0
          Top = 79
          Width = 716
          Height = 6
          Cursor = crVSplit
          Align = alBottom
        end
        inherited GridEnter: TdxDBGrid
          Width = 716
          Height = 79
          Filter.Criteria = {00000000}
          object GridEnterOrderNo: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'OrderNo'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterPartNo: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNo'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterPartNameC: TdxDBGridMaskColumn
            DisableEditor = True
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameC'
          end
          object GridEnterPartNameE: TdxDBGridMaskColumn
            DisableEditor = True
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameE'
          end
          object GridEnterModel: TdxDBGridMaskColumn
            DisableEditor = True
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Model'
          end
          object GridEnterColor: TdxDBGridMaskColumn
            DisableEditor = True
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Color'
          end
          object GridEnterUnitName: TdxDBGridLookupColumn
            Width = 71
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object GridEnterQty: TdxDBGridCalcColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Qty'
          end
          object GridEnterPrice: TdxDBGridCalcColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Price'
          end
          object GridEnterShipDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ShipDate'
          end
          object GridEnterDiscount: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Discount'
          end
          object GridEnterSubtotal: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Subtotal'
          end
        end
        object DBMemo1: TDBMemo
          Left = 0
          Top = 85
          Width = 716
          Height = 54
          Hint = #37319#36141#26126#32454#39033#22791#27880#20449#24687'('#20351#29992'Ctrl+Enter'#25442#34892')'
          Align = alBottom
          DataField = 'Remark'
          DataSource = DSSub
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnEnter = DBMemo1Enter
        end
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 724
  end
  inherited DSMas: TDataSource
    DataSet = DMPO.CPoMas
    Left = 94
    Top = 344
  end
  inherited DSSub: TDataSource
    DataSet = DMPO.CPoSub
    Left = 123
    Top = 344
  end
  inherited ActionSub: TActionList
    Left = 152
    Top = 344
  end
end