cancelquery.dfm

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

inherited f_cancelquery: Tf_cancelquery
  Left = 210
  Top = 213
  Caption = #38144#21806#36864#36135#26597#35810
  PixelsPerInch = 96
  TextHeight = 13
  inherited Label5: TLabel
    Left = 269
    Width = 154
    Caption = #38144#21806#36864#36135#26597#35810
  end
  inherited Grid1: TDBGrid
    Columns = <
      item
        Expanded = False
        FieldName = 'cancelid'
        Title.Caption = #36864#36135#31080#21495
        Width = 103
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'operator'
        Title.Caption = #25805#20316#21592
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'rebate'
        Title.Caption = #25240#25187
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'timedate'
        Title.Caption = #26102#38388
        Width = 103
        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 = 41
        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 = 44
        Visible = True
      end>
  end
  inherited Panel1: TPanel
    inherited Field: TComboBox
      Items.Strings = (
        #25805#20316#21592
        #20070#31821#21517#31216
        #36864#36135#31080#21495
        #26465#24418#30721)
    end
    inherited Query: TButton
      OnClick = QueryClick
    end
  end
end