untps_query.dfm

适合行业为眼镜业

inherited fmps_query: Tfmps_query
  Left = 50
  Top = -14
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #38376#24215#32570#36135#20998#26512
  ClientHeight = 425
  ClientWidth = 696
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 696
    Height = 44
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvSpace
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 11
      Width = 168
      Height = 20
      Caption = #38376#24215#32570#36135#30003#35831#20998#26512
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -20
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 199
      Top = 17
      Width = 65
      Height = 13
      Caption = #19979#36733#26465#25968#65306
    end
    object cmbtop: TComboBox
      Left = 263
      Top = 12
      Width = 73
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        '100'
        '200'
        '500'
        '1000'
        '1500'
        '2000'
        '2500'
        '3000'
        '3500'
        '4000'
        '4500'
        '5000')
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 44
    Width = 696
    Height = 381
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 696
      Height = 345
      Align = alClient
      DataSource = dsps_query
      FixedColor = clSkyBlue
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'vcofficeid'
          Title.Alignment = taCenter
          Title.Caption = #30003#35831#38376#24215#32534#21495
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'goods_no'
          Title.Alignment = taCenter
          Title.Caption = #21830#21697#32534#30721
          Width = 180
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Goods_Name'
          Title.Alignment = taCenter
          Title.Caption = #21830#21697#21517#31216
          Width = 200
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Stock_amount'
          Title.Alignment = taCenter
          Title.Caption = #24211#23384#25968#37327
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Saleamount'
          Title.Alignment = taCenter
          Title.Caption = #39044#35745#24211#23384#25968#37327
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NQty'
          Title.Alignment = taCenter
          Title.Caption = #30003#35831#25968#37327
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NSendQty'
          Title.Alignment = taCenter
          Title.Caption = #24050#37197#36865#25968#37327
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'totalamount'
          Title.Alignment = taCenter
          Title.Caption = #24046#39069#25968#37327
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'dgetdate'
          Title.Alignment = taCenter
          Title.Caption = #30003#35831#26102#38388
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 0
      Top = 0
      Width = 696
      Height = 345
      Align = alClient
      DataSource = dsps_query
      FixedColor = clSkyBlue
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Visible = False
      OnTitleClick = DBGrid2TitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'goods_no'
          Title.Alignment = taCenter
          Title.Caption = #21830#21697#32534#30721
          Width = 180
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Goods_Name'
          Title.Alignment = taCenter
          Title.Caption = #21830#21697#21517#31216
          Width = 200
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Stock_amount'
          Title.Alignment = taCenter
          Title.Caption = #24211#23384#25968#37327
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Saleamount'
          Title.Alignment = taCenter
          Title.Caption = #39044#35745#24211#23384#25968#37327
          Width = -1
          Visible = False
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NQty'
          Title.Alignment = taCenter
          Title.Caption = #30003#35831#25968#37327
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NSendQty'
          Title.Alignment = taCenter
          Title.Caption = #24050#37197#36865#25968#37327
          Width = 70
          Visible = True
        end
        item