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

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

ENDCASE

(обработчик кнопки «выход»)

ThisForm.Release()

ves.scx

(обработчик кнопки «поиск по производителю»)

Select pribori.название, pribori.вес, pribori.производ, pribori.цена ;

From pribori!pribori Where Between(pribori.вес,ThisForm.spinner1.Value,ThisForm.spinner2.Value) and pribori.производ=ThisForm.combo1.Value

 (обработчик кнопки «поиск в целом»)

Select pribori.название, pribori.вес, pribori.производ, pribori.цена ;

From pribori!pribori Where Between(pribori.вес,ThisForm.spinner1.Value,ThisForm.spinner2.Value)

(обработчик кнопки «выход»)

ThisForm.Release()

6.  Текст программы.

Ниже приводится текст программы меню, сгенерированный мастером.

*       *********************************************************

*       *                                                        

*       * 01/03/03              MENU.MPR                20:01:42 

*       *                                                        

*       *********************************************************

*       *                                                        

*       * Author's Name                                          

*       *                                                        

*       * Copyright (C) 2003 Company Name                        

*       * Address                                                

*       * City,     Zip                                          

*       *                                                         

*       * Description:                                           

*       * This PROGRAM was automatically generated BY GENMENU.   

*       *                                                        

*       *********************************************************

*       *********************************************************

*       *                                                        

*       *                      Menu Definition                   

*       *                                                         

*       *********************************************************

*

SET SYSMENU TO