Информационная система по бетоносмесителям

Заключение 

      В процессе работы спроектирована информационная система, содержащая полную информацию по бетоносмесителям. Выполнен проект, в котором организован поиск  необходимой информации. Создана  возможность

добавления  и редактирования данных. Разработана ER- модель и проверена её качество. Также получен богатый практический навык в разработке структур данных и создания пользовательского интерфейса.

      Данный  программный продукт можно использовать на мелких оптовых и розничных  торговых складах специализирующихся на  реализации строительной техники для учета товара. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список  литературы

1. Каратыгин С.А., Тихонов А.Ф., Тихонова Л.Н. Visual FoxPro 6 – М.:ЗАО «Издательство БИНОМ», 1999. -784 с.:ил.

2. www.rentek.ru

3. www.l-stroy.ru 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение. Текст программы 

      Процедура проверки на удаление.

Procedure Prov_Del

local d as logical

If deleted()

d=.t.

else d=.f.

EndIf

_screen.ActiveForm.l_del.visible=d

EndProc 

      Процедура добавления

Procedure New_add

Parameters i,stroka

Local Temp as Numeric

Local Sled as Numeric

local kol as Numeric

do case

case i=1

Select tip_dvig

Set order to tip_dvig_i

case i=2

Select Peremeshivanie

Set order to tipperem_i

case i=3

Select Ugol

Set order to ugol_ind

case i=4

Select Obem

Set order to obem_ind

case i=5

Select zagruzka

Set order to tip_zagr_i

case i=6

Select mobilnost

Set order to mobiln_ind

case i=7

Select massa

Set order to massa_ind

case i=8

Select strana

Set order to strana_ind

EndCase

go top

Dimension Temp_arr(2)

Temp=0

Sled=0

Do While temp=sled

temp=temp+1

do case

case i=1

Sled=id_tip_dvig

case i=2

Sled=id_tip_perem

case i=3

Sled=id_ugol

case i=4

Sled=id_obem

case i=5

Sled=id_tip_zagr

case i=6

Sled=id_mobiln

case i=7

Sled=id_massa

case i=8

Sled=id_strana

endcase

      If temp=sled

            skip

      else

      Temp_arr(1)=temp

      exit

      EndIf  

EndDo

Temp_arr(2)=stroka

Append From Array Temp_arr

EndProc 

Процедура поиска

Do with ThisForm.Optiongroup1

Do case

Case value=1

Locate for Upper(Alltrim(Znacenie))=Upper(Alltrim(_Screen.ActiveForm.text1.text)) All

Case value=2

Locate for Upper(Alltrim(Obem))=Upper(Alltrim(_Screen.ActiveForm.text1.text)) All

Case value=3

Locate for Upper(Alltrim(c_name))=Upper(Alltrim(_Screen.ActiveForm.text1.text)) All

EndCase

EndWith

ThisForm.grid1.SetFocus

Методы  кнопок перемещения  по записям

Первая

If !Bof()

go top

EndIf

_Screen.ActiveForm.Refresh() 

Предыдущая

If !Bof()

Skip-1

EndIf

_Screen.ActiveForm.Refresh() 

Следующая

If !Eof()

skip

EndIf

_Screen.ActiveForm.Refresh() 

Последняя

If !Bof()

go bottom

EndIf

_Screen.ActiveForm.Refresh() 

Методы кнопок редактирования

Добавить

if !Empty(ThisForm.Text1.text)

Do New_add in program1 with 1,Alltrim(ThisForm.Text1.text)

EndIf

_screen.ActiveForm.Refresh() 

Удалить

Delete 

Восстановить

Recall 

Очистить(перезаписать)

Use tip_dvig

Set Safety On

pack

Set Safety Off

ThisForm.Release()

Do Form Dvigatel 

Процедура для отображения отчета

Report form osnovnoy.frx preview