ucheck.dfm

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

inherited fmcheck: Tfmcheck
  Left = 192
  Top = 112
  Caption = #30424#28857#21333
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    inherited Tabbrowse: TTabSheet
      inherited GridMas: TdxDBGrid
        KeyField = 'CheckNo'
        Filter.Criteria = {00000000}
        object GridMasCheckNo: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CheckNo'
        end
        object GridMasCheckDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CheckDate'
        end
        object GridMasStockID: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'StockID'
        end
        object GridMasStatus: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Status'
        end
        object GridMasChecker: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Checker'
        end
        object GridMasCreater: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Creater'
        end
        object GridMasCreateDate: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CreateDate'
        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
        object GridMasRemark: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Remark'
        end
      end
      inherited PanelGrid: TPanel
        inherited GridSub: TdxDBGrid
          Filter.Criteria = {00000000}
          object GridSubPartNo: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNo'
          end
          object GridSubPartNameC: TdxDBGridMaskColumn
            Visible = False
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameC'
          end
          object GridSubPartNameE: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameE'
          end
          object GridSubModel: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Model'
          end
          object GridSubColor: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Color'
          end
          object GridSubUnitID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitID'
          end
          object GridSubUnitName: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object GridSubQty: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Qty'
          end
          object GridSubFactQty: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'FactQty'
          end
          object GridSubDifferQty: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'DifferQty'
          end
          object GridSubCounter: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Counter'
          end
          object GridSubRemark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
    end
    inherited TabEdit: TTabSheet
      inherited PanelEnter: TPanel
        Height = 99
        object Label1: TLabel
          Left = 8
          Top = 8
          Width = 24
          Height = 12
          Caption = #21333#21495
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 182
          Top = 8
          Width = 24
          Height = 12
          Caption = #20179#24211
          FocusControl = DBLookupComboBox1
        end
        object Label3: TLabel
          Left = 334
          Top = 8
          Width = 24
          Height = 12
          Caption = #26085#26399
        end
        object Label4: TLabel
          Left = 8
          Top = 56
          Width = 36
          Height = 12
          Caption = #30424#28857#20154
        end
        object Label5: TLabel
          Left = 182
          Top = 56
          Width = 24
          Height = 12
          Caption = #22791#27880
          FocusControl = DBEdit4
        end
        object DBEdit1: TDBEdit
          Left = 8
          Top = 24
          Width = 151
          Height = 20
          CharCase = ecUpperCase
          DataField = 'CheckNo'
          DataSource = DSMas
          TabOrder = 0
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 182
          Top = 24
          Width = 134
          Height = 20
          DataField = 'StockName'
          DataSource = DSMas
          TabOrder = 1
        end
        object DBEdit4: TDBEdit
          Left = 182
          Top = 72
          Width = 273
          Height = 20
          DataField = 'Remark'
          DataSource = DSMas
          TabOrder = 4
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 334
          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 = 'CheckDate'
          DataSource = DSMas
          Epoch = 1950
          ShowButton = True
          TabOrder = 2
          UnboundDataType = wwDTEdtDate
        end
        object dxDBButtonEdit3: TdxDBButtonEdit
          Left = 8
          Top = 71
          Width = 151
          TabOrder = 3
          DataField = 'Checker'
          DataSource = DSMas
          Buttons = <
            item
              Default = True
            end>
          OnButtonClick = dxDBButtonEdit3ButtonClick
          ExistButtons = True
        end
      end
      inherited PanelView: TPanel
        Top = 99
        Height = 177
        inherited GridEnter: TdxDBGrid
          Height = 177
          Filter.Criteria = {00000000}
          object GridEnterPartNo: TdxDBGridButtonColumn
            CharCase = ecUpperCase
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNo'
            Buttons = <
              item
                Default = True
              end>
          end
          object GridEnterPartNameC: TdxDBGridMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameC'
          end
          object GridEnterPartNameE: TdxDBGridMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PartNameE'
          end
          object GridEnterModel: TdxDBGridMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Model'
          end
          object GridEnterColor: TdxDBGridMaskColumn
            DisableEditor = True
            ReadOnly = True
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Color'
          end
          object GridEnterUnitID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitID'
          end
          object GridEnterUnitName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object GridEnterQty: TdxDBGridCalcColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Qty'
          end
          object GridEnterFactQty: TdxDBGridCalcColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'FactQty'
          end
          object GridEnterDifferQty: TdxDBGridMaskColumn
            Visible = False
            BandIndex = 0
            RowIndex = 0
            FieldName = 'DifferQty'
          end
          object GridEnterCounter: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Counter'
          end
          object GridEnterRemark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
      end
    end
  end
  inherited DSMas: TDataSource
    DataSet = DMINV.CCheckMas
  end
  inherited DSSub: TDataSource
    DataSet = DMINV.CCheckSub
  end
  inherited Menu3: TPopupMenu
    object N3: TMenuItem [0]
      Caption = #38145#23450#30424#28857#21333#20013#30340#29289#26009
      OnClick = N3Click
    end
  end
end