sellquery.~dfm

来自「另一种管理模式下的图书管理系统SQL源程序」· ~DFM 代码 · 共 91 行

inherited f_sellquery: Tf_sellquery
  Left = 194
  Top = 203
  Caption = #22270#20070#38144#21806#26597#35810
  PixelsPerInch = 96
  TextHeight = 13
  inherited Label5: TLabel
    Left = 277
    Width = 154
    Caption = #22270#20070#38144#21806#26597#35810
  end
  inherited Grid1: TDBGrid
    Columns = <
      item
        Expanded = False
        FieldName = 'sellid'
        Title.Caption = #38144#21806#31080#21495
        Width = 93
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'operator'
        Title.Caption = #25805#20316#21592
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'rebate'
        Title.Caption = #25240#25187
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'timedate'
        Title.Caption = #26102#38388
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'barcode'
        Title.Caption = #26465#24418#30721
        Width = 95
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bookname'
        Title.Caption = #20070#31821#21517#31216
        Width = 103
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'unitprice'
        Title.Caption = #21333#20215
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'num'
        Title.Caption = #25968#37327
        Width = 41
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'money'
        Title.Caption = #37329#39069
        Width = 50
        Visible = True
      end>
  end
  inherited Panel1: TPanel
    inherited Field: TComboBox
      Items.Strings = (
        #25805#20316#21592
        #20070#31821#21517#31216
        #38144#21806#31080#21495
        #26465#24418#30721)
    end
    inherited Query: TButton
      OnClick = QueryClick
    end
  end
end