uout.dfm

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

inherited fmOut: TfmOut
  Left = 196
  Top = 110
  Width = 530
  Caption = #22806#21457#21152#24037#21333
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    Width = 522
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Width = 514
      end
      inherited GridMas: TdxDBGrid
        Width = 514
        KeyField = 'OutNo'
        Filter.Criteria = {00000000}
        object GridMasOutNo: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'OutNo'
        end
        object GridMasOutDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'OutDate'
        end
        object GridMasVendorName: TdxDBGridLookupColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'VendorName'
        end
        object GridMasRemark: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Remark'
        end
        object GridMasCreater: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Creater'
        end
        object GridMasCreateDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CreateDate'
        end
        object GridMasUpdater: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Updater'
        end
        object GridMasUpdateDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'UpdateDate'
        end
        object GridMasApprover: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Approver'
        end
        object GridMasApproveDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ApproveDate'
        end
        object GridMasConfirmer: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Confirmer'
        end
        object GridMasConfirmDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ConfirmDate'
        end
      end
      inherited PanelButtom: TPanel
        Width = 514
        inherited StatusTabSet: TTabSet
          Width = 512
        end
      end
      inherited PanelGrid: TPanel
        Width = 514
        Height = 349
        inherited GridSub: TdxDBGrid
          Width = 514
          Height = 349
          Filter.Criteria = {00000000}
          object GridSubOrderNo: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'OrderNo'
          end
          object GridSubProjectId: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ProjectId'
          end
          object GridSubProjectName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ProjectName'
          end
          object GridSubUnitName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object GridSubQty: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Qty'
          end
          object GridSubPrice: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Price'
          end
          object GridSubRemark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
    end
    inherited TabEdit: TTabSheet
      inherited PanelEnter: TPanel
        Width = 514
        Height = 105
        object Label1: TLabel
          Left = 7
          Top = 5
          Width = 24
          Height = 12
          Caption = #21333#21495
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 163
          Top = 5
          Width = 48
          Height = 12
          Caption = #22806#21457#26085#26399
        end
        object Label3: TLabel
          Left = 318
          Top = 5
          Width = 36
          Height = 12
          Caption = #20379#24212#21830
        end
        object Label4: TLabel
          Left = 7
          Top = 51
          Width = 24
          Height = 12
          Caption = #22791#27880
          FocusControl = DBEdit3
        end
        object Label5: TLabel
          Left = 473
          Top = 161
          Width = 24
          Height = 12
          Caption = #36135#24065
          FocusControl = DBLookupComboBox1
        end
        object Label6: TLabel
          Left = 561
          Top = 162
          Width = 24
          Height = 12
          Caption = #27719#29575
          FocusControl = DBEdit2
        end
        object Label7: TLabel
          Left = 8
          Top = 205
          Width = 24
          Height = 12
          Caption = #36816#36153
          FocusControl = DBEdit4
        end
        object Label8: TLabel
          Left = 162
          Top = 205
          Width = 24
          Height = 12
          Caption = #31246#37329
          FocusControl = DBEdit5
        end
        object Label9: TLabel
          Left = 318
          Top = 205
          Width = 24
          Height = 12
          Caption = #35843#25972
          FocusControl = DBEdit6
        end
        object Label10: TLabel
          Left = 473
          Top = 3
          Width = 36
          Height = 12
          Caption = #24635#37329#39069
          FocusControl = DBEdit7
        end
        object DBEdit1: TDBEdit
          Left = 7
          Top = 21
          Width = 121
          Height = 20
          CharCase = ecUpperCase
          DataField = 'OutNo'
          DataSource = DSMas
          TabOrder = 0
        end
        object DBEdit3: TDBEdit
          Left = 8
          Top = 67
          Width = 588
          Height = 20
          DataField = 'Remark'
          DataSource = DSMas
          TabOrder = 3
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 163
          Top = 21
          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 = 'OutDate'
          DataSource = DSMas
          Epoch = 1950
          ShowButton = True
          TabOrder = 1
        end
        object dxDBButtonEdit1: TdxDBButtonEdit
          Left = 318
          Top = 21
          Width = 121
          TabOrder = 2
          DataField = 'VendorName'
          DataSource = DSMas
          Buttons = <
            item
              Default = True
            end>
          ExistButtons = True
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 473
          Top = 177
          Width = 89
          Height = 20
          DataField = 'CurrencyName'
          DataSource = DSMas
          TabOrder = 4
        end
        object DBEdit2: TDBEdit
          Left = 561
          Top = 177
          Width = 61
          Height = 20
          DataField = 'Rate'
          DataSource = DSMas
          ReadOnly = True
          TabOrder = 5
        end
        object DBEdit4: TDBEdit
          Left = 8
          Top = 221
          Width = 121
          Height = 20
          DataField = 'Carriage'
          DataSource = DSMas
          TabOrder = 6
        end
        object DBEdit5: TDBEdit
          Left = 162
          Top = 221
          Width = 121
          Height = 20
          DataField = 'Tax'
          DataSource = DSMas
          TabOrder = 7
        end
        object DBEdit6: TDBEdit
          Left = 318
          Top = 221
          Width = 121
          Height = 20
          DataField = 'Adjust'
          DataSource = DSMas
          TabOrder = 8
        end
        object DBEdit7: TDBEdit
          Left = 473
          Top = 19
          Width = 121
          Height = 20
          Color = clBtnFace
          DataField = 'TotalMoney'
          DataSource = DSMas
          ReadOnly = True
          TabOrder = 9
        end
      end
      inherited PanelView: TPanel
        Top = 105
        Width = 514
        Height = 171
        inherited GridEnter: TdxDBGrid
          Width = 514
          Height = 171
          Filter.Criteria = {00000000}
          object GridEnterOrderNo: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'OrderNo'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterProjectId: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ProjectId'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterProjectName: TdxDBGridMaskColumn
            DisableEditor = True
            ReadOnly = True
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ProjectName'
          end
          object GridEnterUnitName: TdxDBGridLookupColumn
            CharCase = ecUpperCase
            Width = 61
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object GridEnterQty: TdxDBGridCalcColumn
            Width = 118
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Qty'
          end
          object GridEnterPrice: TdxDBGridCalcColumn
            Width = 118
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Price'
          end
          object GridEnterRemark: TdxDBGridMaskColumn
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 522
  end
  inherited DSMas: TDataSource
    DataSet = DMWIP.COutMas
  end
  inherited DSSub: TDataSource
    DataSet = DMWIP.COutSub
  end
end