querystock.dfm

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· DFM 代码 · 共 110 行

inherited fmQuerySTK: TfmQuerySTK
  Caption = #33647#21697#24211#23384#26597#35810
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    inherited btNew: TToolButton
      Enabled = False
      Visible = False
    end
    inherited btEdit: TToolButton
      Enabled = False
      Visible = False
    end
    inherited btDelete: TToolButton
      Enabled = False
      Visible = False
    end
    inherited btSave: TToolButton
      Enabled = False
      Visible = False
    end
    inherited btCancel: TToolButton
      Enabled = False
      Visible = False
    end
  end
  inherited DBGrid1: TDBGrid
    Height = 374
    Columns = <
      item
        Expanded = False
        FieldName = #32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#25151
        Width = 77
        Visible = True
      end
      item
        Expanded = False
        FieldName = #33647#21697#32534#21495
        Width = 73
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = #33647#21697#25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Visible = True
      end>
  end
  inherited Panel2: TPanel
    Top = 449
    Height = 5
  end
  inherited Table1: TTable
    Active = True
    TableName = 'dbo.'#33647#21697#24211#23384
    object Table1BDEDesigner: TIntegerField
      FieldName = #32534#21495
      Required = True
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #24211#25151
      Size = 200
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #33647#21697#32534#21495
      Required = True
    end
    object Table1BDEDesigner4: TFloatField
      FieldName = #33647#21697#25968#37327
    end
    object Table1BDEDesigner5: TMemoField
      FieldName = #22791#27880
      BlobType = ftMemo
      Size = 1
    end
    object Table1Field: TStringField
      FieldKind = fkLookup
      FieldName = #21517#31216
      LookupDataSet = Table2
      LookupKeyFields = #32534#21495
      LookupResultField = #21517#31216
      KeyFields = #33647#21697#32534#21495
      Lookup = True
    end
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'db'
    ReadOnly = True
    TableName = 'dbo.v'#25910#36153#39033#30446#21450#33647#21697
    Left = 544
    Top = 8
  end
end