Программирование в среде FoxPro. Создание базы данных “Бакалея”, страница 3

CASE ThisForm.OptionGroup1.Value = 5

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Холодильник' order by pribori.цена into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 6

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Холодильник' order by pribori.дата_прод into cursor tmpcur1"

ENDCASE

CASE ThisForm.Combo1.value = "Телевизор"

DO CASE

CASE ThisForm.OptionGroup1.Value = 1

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.дата_вып into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 2

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.производ into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 3

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.поставщик into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 4

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.вес  into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 5

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.цена into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 6

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.дата_прод into cursor tmpcur1"

ENDCASE

CASE ThisForm.Combo1.value = "Стиральная машина"

DO CASE

CASE ThisForm.OptionGroup1.Value = 1

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.дата_вып into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 2

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.производ into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 3

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.поставщик into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 4

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.вес  into cursor tmpcur1"

CASE ThisForm.OptionGroup1.Value = 5

ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.цена into cursor tmpcur1"