umadmedicinestockgtz.dfm

来自「一整套的源代码」· DFM 代码 · 共 14 行

inherited MADMedicineStockGTZ: TMADMedicineStockGTZ
  Left = 206
  Top = 175
  inherited DataSet: TSmartQuery
    SQLInsert.Strings = ()
    SQLDelete.Strings = ()
    SQLUpdate.Strings = ()
    SQL.Strings = (
      'SELECT * FROM RALF.MEDICINESTOCK'
      'where amount>0')
    Active = False
  end
end