fmqryallstocku.dfm

小型库存管理,希望有帮助,小型库存管理,希望有帮助

inherited FMQryAllStock: TFMQryAllStock
  Left = 223
  Top = 125
  Width = 690
  Height = 418
  Caption = 'FMQryAllStock'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel2: TPanel
    Width = 682
    Height = 347
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 682
      Height = 97
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object Label4: TLabel
        Left = 400
        Top = 24
        Width = 48
        Height = 12
        Caption = #20135#21697#20998#31867
      end
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 48
        Height = 12
        Caption = #35760#36134#26085#26399
      end
      object BegDate: TDateTimePicker
        Left = 72
        Top = 20
        Width = 120
        Height = 20
        CalAlignment = dtaLeft
        Date = 38162.3448095602
        Time = 38162.3448095602
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object dxfClass: TdxDBLookupTreeView
        Left = 456
        Top = 20
        Width = 129
        Height = 20
        Hint = #25353'Del'#38190#28165#38500
        CanSelectParents = True
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = True
        Text = 'dxfClass'
        TreeViewColor = clWindow
        TreeViewCursor = crDefault
        TreeViewFont.Charset = DEFAULT_CHARSET
        TreeViewFont.Color = clWindowText
        TreeViewFont.Height = -11
        TreeViewFont.Name = 'MS Sans Serif'
        TreeViewFont.Style = []
        TreeViewIndent = 19
        TreeViewReadOnly = True
        TreeViewShowButtons = True
        TreeViewShowHint = False
        TreeViewShowLines = True
        TreeViewShowRoot = True
        TreeViewSortType = stNone
        OnKeyDown = dxfClassKeyDown
        DividedChar = '.'
        ListSource = dsClass
        KeyField = 'fClassNo'
        ListField = 'fClassName'
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        ParentField = 'fParentId'
        TextStyle = tvtsShort
        DataField = 'fClassNo'
        DataSource = dsData
      end
    end
    object GridQty: TDBGrid
      Left = 0
      Top = 97
      Width = 369
      Height = 250
      Hint = #21452#20987#26174#31034#37329#39069#24080
      Align = alLeft
      DataSource = dsTotal
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = GridQtyDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'fproductno'
          Title.Caption = #20135#21697#32534#21495
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fProductName'
          Title.Caption = #20135#21697#21517#31216
          Width = 110
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fSaleUnit'
          Title.Caption = #21333#20301
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fSpec'
          Title.Caption = #35268#26684
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fSHQty'
          Title.Caption = #39564#25910#25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fTHQty'
          Title.Caption = #36864#36135#25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fLLQty'
          Title.Caption = #39046#26009#25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fTLQty'
          Title.Caption = #36864#26009#25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fDZQty'
          Title.Caption = #35843#25972#25968#37327
          Visible = True
        end>
    end
    object GridAmt: TDBGrid
      Left = 354
      Top = 97
      Width = 328
      Height = 250
      Hint = #21452#20987#26174#31034#25968#37327#24080
      Align = alRight
      DataSource = dsTotal
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Visible = False
      OnDblClick = GridAmtDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'fproductno'
          Title.Caption = #20135#21697#32534#21495
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fProductName'
          Title.Caption = #20135#21697#21517#31216
          Width = 110
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fSaleUnit'
          Title.Caption = #21333#20301
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fSpec'
          Title.Caption = #35268#26684
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fSHAmt'
          Title.Caption = #39564#25910#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fTHAmt'
          Title.Caption = #36864#36135#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fLLAmt'
          Title.Caption = #39046#26009#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fTLAmt'
          Title.Caption = #36864#26009#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fDZAmt'
          Title.Caption = #35843#25972#37329#39069
          Visible = True
        end>
    end
  end
  inherited ToolBar: TToolBar
    Width = 682
    Customizable = True
    Transparent = True
    inherited btnQuery: TToolButton
      OnClick = btnQueryClick
    end
    inherited btnExcle: TToolButton
      OnClick = btnExcleClick
    end
  end
  inherited QrySQL: TADOQuery
    Left = 544
    Top = 0
  end
  inherited ImageList1: TImageList
    Left = 592
    Top = 0
  end
  object adoData: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      'select fSupNo ,fSupNo as fClassNo from ts_supplier where 1=2')
    Left = 472
    Top = 160
  end
  object dsData: TDataSource
    DataSet = adoData
    Left = 520
    Top = 160
  end
  object adoClass: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      
        'select fClassNo,fClassName,fParentId from ts_class  order by fPa' +
        'rentId,fClassNo')
    Left = 544
    Top = 224
  end
  object dsClass: TDataSource
    DataSet = adoClass
    Left = 592
    Top = 224
  end
  object adoTotal: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      
        'select a.*,b.fproductno,b.fProductName,b.fSpec,b.fSaleUnit from ' +
        'tb_bizTotal a,ts_item b where a.fproductid=b.fproductid')
    Left = 336
    Top = 264
    object adoTotalfProductId: TSmallintField
      FieldName = 'fProductId'
    end
    object adoTotalfSHQty: TFloatField
      FieldName = 'fSHQty'
    end
    object adoTotalfTHQty: TFloatField
      FieldName = 'fTHQty'
    end
    object adoTotalfLLQty: TFloatField
      FieldName = 'fLLQty'
    end
    object adoTotalfTLQty: TFloatField
      FieldName = 'fTLQty'
    end
    object adoTotalfDZQty: TFloatField
      FieldName = 'fDZQty'
    end
    object adoTotalfSHAmt: TFloatField
      FieldName = 'fSHAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfTHAmt: TFloatField
      FieldName = 'fTHAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfLLAmt: TFloatField
      FieldName = 'fLLAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfTLAmt: TFloatField
      FieldName = 'fTLAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfDZAmt: TFloatField
      FieldName = 'fDZAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfQty: TFloatField
      FieldName = 'fQty'
    end
    object adoTotalfAmt: TFloatField
      FieldName = 'fAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfEndQty: TFloatField
      FieldName = 'fEndQty'
    end
    object adoTotalfEndAmt: TFloatField
      FieldName = 'fEndAmt'
      DisplayFormat = '0.00'
    end
    object adoTotalfproductno: TWideStringField
      FieldName = 'fproductno'
    end
    object adoTotalfProductName: TWideStringField
      FieldName = 'fProductName'
      Size = 48
    end
    object adoTotalfSpec: TWideStringField
      FieldName = 'fSpec'
      Size = 15
    end
    object adoTotalfSaleUnit: TWideStringField
      FieldName = 'fSaleUnit'
      Size = 4
    end
  end
  object dsTotal: TDataSource
    DataSet = adoTotal
    Left = 400
    Top = 264
  end
end