uorderdata.dfm

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

inherited fmOrderData: TfmOrderData
  Left = 194
  Top = 116
  Width = 660
  Height = 497
  Caption = #35746#21333#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited PageControl: TPageControl
    Width = 652
    Height = 386
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Top = 220
        Width = 644
      end
      inherited GridMas: TdxDBGrid
        Width = 644
        Height = 220
        Filter.Criteria = {00000000}
        object GridMasOrderNo: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'OrderNo'
        end
        object GridMasCategoryName: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CategoryName'
        end
        object GridMasOrderDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'OrderDate'
        end
        object GridMasCustomerID: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CustomerID'
        end
        object GridMasCustomerName: TdxDBGridLookupColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CustomerName'
        end
        object GridMasCurrencyID: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CurrencyID'
        end
        object GridMasCurrencyName: TdxDBGridLookupColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CurrencyName'
        end
        object GridMasRate: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Rate'
        end
        object GridMasTotalMoney: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'TotalMoney'
        end
        object GridMasPONo: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PONo'
        end
        object GridMasQuantity: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Quantity'
        end
        object GridMasShipDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ShipDate'
        end
        object GridMasEngineer: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Engineer'
        end
        object GridMasShipedDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ShipedDate'
        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
      end
      inherited PanelButtom: TPanel
        Top = 330
        Width = 644
        inherited StatusTabSet: TTabSet
          Width = 642
          Tabs.Strings = (
            #29983#20135
            #23436#25104
            #21462#28040
            #25152#26377)
          TabIndex = -1
        end
      end
      inherited PanelGrid: TPanel
        Top = 224
        Width = 644
        Height = 106
        inherited GridSub: TdxDBGrid
          Width = 644
          Height = 106
          TabStop = False
          TabOrder = 1
          Filter.Criteria = {00000000}
          object GridSubBOMID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'BOMID'
          end
          object GridSubOrderNo: TdxDBGridColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'OrderNo'
          end
          object GridSubBOMLevel: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'BOMLevel'
          end
          object GridSubPartNo: TdxDBGridColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNo'
          end
          object GridSubPartNameE: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameE'
          end
          object GridSubPartNameC: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameC'
          end
          object GridSubModel: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Model'
          end
          object GridSubColor: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Color'
          end
          object GridSubParentNo: TdxDBGridColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ParentNo'
          end
          object GridSubUnitId: TdxDBGridColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitId'
          end
          object GridSubUnitName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object GridSubStartDate: TdxDBGridDateColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'StartDate'
          end
          object GridSubEndDate: TdxDBGridDateColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EndDate'
          end
          object GridSubPerAssemblyQty: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PerAssemblyQty'
          end
          object GridSubModifiedDate: TdxDBGridDateColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ModifiedDate'
          end
        end
        object dxDBTreeList1: TdxDBTreeList
          Left = 0
          Top = 0
          Width = 644
          Height = 106
          Bands = <
            item
              Fixed = bfLeft
            end
            item
            end>
          DefaultLayout = False
          HeaderPanelRowCount = 1
          KeyField = 'PartNo'
          ParentField = 'ParentNo'
          Align = alClient
          TabOrder = 0
          DataSource = DSSub
          FixedBandLineColor = clRed
          HideSelectionColor = clWindow
          ImageIndexFieldName = 'BOMLevel'
          Images = ImageList1
          OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
          OptionsView = [etoBandHeaderWidth, etoUseBitmap, etoUseImageIndexForSelected]
          PreviewFieldName = 'BOMLevel'
          ShowGrid = True
          TreeLineColor = clGrayText
          object dxDBTreeList1BOMID: TdxDBTreeListMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'BOMID'
          end
          object dxDBTreeList1BOMLevel: TdxDBTreeListMaskColumn
            DisableEditor = True
            ReadOnly = True
            Width = 61
            BandIndex = 0
            RowIndex = 0
            FieldName = 'BOMLevel'
          end
          object dxDBTreeList1PartNo: TdxDBTreeListColumn
            DisableEditor = True
            ReadOnly = True
            Width = 184
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNo'
          end
          object dxDBTreeList1PartNameE: TdxDBTreeListLookupColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'PartNameE'
          end
          object dxDBTreeList1PartNameC: TdxDBTreeListLookupColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'PartNameC'
          end
          object dxDBTreeList1Model: TdxDBTreeListLookupColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'Model'
          end
          object dxDBTreeList1Color: TdxDBTreeListLookupColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'Color'
          end
          object dxDBTreeList1PerAssemblyQty: TdxDBTreeListMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 1
            RowIndex = 0
            FieldName = 'PerAssemblyQty'
          end
          object dxDBTreeList1UnitName: TdxDBTreeListLookupColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 1