ucostextra.dfm

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· DFM 代码 · 共 221 行

inherited fmExtra: TfmExtra
  Left = 192
  Top = 112
  Width = 551
  Height = 399
  Caption = #26434#39033#25104#26412#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    Width = 543
    Height = 290
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Width = 535
      end
      inherited GridMas: TdxDBGrid
        Width = 535
        Filter.Criteria = {00000000}
      end
      inherited PanelButtom: TPanel
        Top = 234
        Width = 535
        inherited StatusTabSet: TTabSet
          Width = 533
        end
      end
      inherited PanelGrid: TPanel
        Width = 535
        Height = 160
        inherited GridSub: TdxDBGrid
          Width = 535
          Height = 160
          Filter.Criteria = {00000000}
        end
      end
    end
    inherited TabEdit: TTabSheet
      inherited PanelEnter: TPanel
        Width = 535
        Height = 94
        object Label1: TLabel
          Left = 8
          Top = 8
          Width = 24
          Height = 12
          Caption = #21333#21495
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 160
          Top = 8
          Width = 48
          Height = 12
          Caption = #25104#26412#26085#26399
        end
        object Label3: TLabel
          Left = 313
          Top = 8
          Width = 48
          Height = 12
          Caption = #37096#38376#21517#31216
          FocusControl = DBLookupComboBox1
        end
        object Label4: TLabel
          Left = 8
          Top = 48
          Width = 24
          Height = 12
          Caption = #22791#27880
          FocusControl = DBEdit3
        end
        object DBEdit1: TDBEdit
          Left = 8
          Top = 24
          Width = 124
          Height = 20
          CharCase = ecUpperCase
          DataField = 'ExtraNo'
          DataSource = DSMas
          TabOrder = 0
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 313
          Top = 24
          Width = 134
          Height = 20
          DataField = 'DeptName'
          DataSource = DSMas
          TabOrder = 2
        end
        object DBEdit3: TDBEdit
          Left = 8
          Top = 64
          Width = 441
          Height = 20
          DataField = 'Remark'
          DataSource = DSMas
          TabOrder = 3
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 160
          Top = 24
          Width = 121
          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 = 'CostDate'
          DataSource = DSMas
          Epoch = 1950
          ShowButton = True
          TabOrder = 1
        end
      end
      inherited PanelView: TPanel
        Top = 94
        Width = 535
        Height = 164
        inherited GridEnter: TdxDBGrid
          Width = 535
          Height = 164
          Filter.Criteria = {00000000}
          OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoSeekDetail, edgoTabThrough, edgoVertThrough]
          object GridEnterOrderNo: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'OrderNo'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterTypeLabel: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            ReadOnly = True
            Width = 97
            BandIndex = 0
            RowIndex = 0
            FieldName = 'TypeLabel'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterProject: TdxDBGridExtLookupColumn
            MinWidth = 50
            Width = 213
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Project'
            PopupAutoSize = True
            PopupFormCaption = #36873#25321
            PopupHeight = 200
            PopupMinWidth = 120
            PopupWidth = 250
            DBGridLayout = ExtraCostList
            PickListField = 'ItemName'
            ImmediateDropDown = True
            ImmediatePopup = True
          end
          object GridEnterSubTotal: TdxDBGridCalcColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'SubTotal'
          end
          object GridEnterSourceNo: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'SourceNo'
          end
          object GridEnterRemark: TdxDBGridMaskColumn
            Width = 323
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 543
  end
  inherited DSMas: TDataSource
    DataSet = DMCost.CExtraMas
  end
  inherited DSSub: TDataSource
    DataSet = DMCost.CExtraSub
  end
  object DsExtraList: TDataSource
    DataSet = DMCost.CExtraList
    Left = 108
    Top = 216
  end
  object dxDBGridLayoutList1: TdxDBGridLayoutList
    Left = 137
    Top = 216
    object ExtraCostList: TdxDBGridLayout
      Data = {
        BA010000545046301054647844424772696457726170706572000542616E6473
        0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
        6F77436F756E740201084B65794669656C6406084974656D4E616D650D53756D
        6D61727947726F7570730E001053756D6D617279536570617261746F7206022C
        200A44617461536F757263650713666D45787472612E447345787472614C6973
        740F46696C7465722E43726974657269610A04000000000000000D477269644C
        696E65436F6C6F720706636C426C75650B4F7074696F6E73566965770B0D6564
        676F4175746F5769647468136564676F42616E6448656164657257696474680D
        6564676F496E64696361746F720D6564676F5573654269746D61700000135464
        784442477269644D61736B436F6C756D6E084974656D4E616D65055769647468
        02560942616E64496E646578020008526F77496E6465780200094669656C644E
        616D6506084974656D4E616D650000135464784442477269644D61736B436F6C
        756D6E0652656D61726B055769647468026B0942616E64496E64657802000852
        6F77496E6465780200094669656C644E616D65060652656D61726B000000}
    end
  end
end