fmqrystocku.dfm

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

inherited FMQryStock: TFMQryStock
  Left = 223
  Top = 125
  Width = 690
  Height = 418
  Caption = 'FMQryStock'
  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 = 16
        Top = 32
        Width = 48
        Height = 12
        Caption = #20135#21697#20998#31867
      end
      object dxfClass: TdxDBLookupTreeView
        Left = 72
        Top = 28
        Width = 129
        Height = 20
        Hint = #25353'Del'#38190#28165#38500
        CanSelectParents = True
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        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
      object chStock: TCheckBox
        Left = 368
        Top = 28
        Width = 97
        Height = 17
        Hint = #24403#21069#24211#23384'<'#24211#23384#19979#38480
        Caption = #24211#23384#25253#35686
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Visible = False
      end
    end
    object DataGrid: TDBGrid
      Left = 0
      Top = 97
      Width = 682
      Height = 250
      Align = alClient
      DataSource = dbClient
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'fproductno'
          Title.Caption = #20135#21697#32534#21495
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fproductname'
          Title.Caption = #20135#21697#21517#31216
          Width = 131
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fspec'
          Title.Caption = #35268#26684
          Width = 130
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fsaleunit'
          Title.Caption = #21333#20301
          Width = 33
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fStockUp'
          Title.Caption = #24211#23384#19978#38480
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fStockDown'
          Title.Caption = #24211#23384#19979#38480
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fqty'
          Title.Caption = #24403#21069#24211#23384
          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 = 320
    Top = 208
  end
  object dsData: TDataSource
    DataSet = adoData
    Left = 384
    Top = 208
  end
  object adoClass: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      
        'select fClassNo,fClassName,fParentId from Ts_Class Order by fPar' +
        'entId,fClassNo')
    Left = 320
    Top = 272
  end
  object dsClass: TDataSource
    DataSet = adoClass
    Left = 392
    Top = 272
  end
  object dbClient: TDataSource
    DataSet = cdsData
    Left = 136
    Top = 208
  end
  object cdsData: TADOQuery
    Connection = fmDB.AdoHouse
    Parameters = <>
    SQL.Strings = (
      
        'select c.fproductno, c.fproductname,c.fspec,c.fsaleunit,a.fqty,c' +
        '.fStockUp,c.fStockDown'
      'FROM tb_stock AS a,  ts_item AS c'
      'WHERE a.fproductid=c.fproductid')
    Left = 88
    Top = 208
    object cdsDatafproductno: TWideStringField
      FieldName = 'fproductno'
    end
    object cdsDatafproductname: TWideStringField
      FieldName = 'fproductname'
      Size = 48
    end
    object cdsDatafspec: TWideStringField
      FieldName = 'fspec'
      Size = 15
    end
    object cdsDatafsaleunit: TWideStringField
      FieldName = 'fsaleunit'
      Size = 4
    end
    object cdsDatafqty: TFloatField
      FieldName = 'fqty'
    end
    object cdsDatafStockUp: TSmallintField
      FieldName = 'fStockUp'
    end
    object cdsDatafStockDown: TSmallintField
      FieldName = 'fStockDown'
    end
  end
end