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

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"

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"