getmed.dfm

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

inherited fmGetMed: TfmGetMed
  Caption = #38376#35786#21457#33647#31649#29702
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    inherited btSave: TToolButton
      Caption = #21457#33647
    end
  end
  inherited DBGrid1: TDBGrid
    Columns = <
      item
        Expanded = False
        FieldName = #32534#21495
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22995#21517
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24615#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21307#29983
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21010#20215#37329#39069
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26159#21542#25910#36153
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25910#36153#26102#38388
        Width = 67
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25910#36153#21592
        Width = 43
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26159#21542#21457#33647
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21457#33647#26102#38388
        Width = 93
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21457#33647#21592
        Visible = True
      end>
  end
  inherited DBGrid2: TDBGrid
    Columns = <
      item
        Expanded = False
        FieldName = #32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21010#20215#32534#21495
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = #33647#21697#32534#21495
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21517#31216
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = #37329#39069
        Visible = True
      end>
  end
  inherited Query1: TQuery
    SQL.Strings = (
      
        'select a.*,b.'#22995#21517',b.'#24615#21035' from '#38376#35786#21010#20215' as a, '#38376#35786#25346#21495' as b where a.'#25346#21495#32534#21495'=b.'#32534#21495 +
        ' and a.'#26159#21542#25910#36153'='#39#26159#39' and a.'#26159#21542#21457#33647'='#39#21542#39)
  end
end