46885 (588451), страница 5
Текст из файла (страница 5)
IF EOF()
GO BOTTOM
ЕNDIF
ENDIF
THISFORM.Refresh
THISFORM.Buttons
* Previous IF NOT BOF()
SKIP - 1
IF BОF()
G0 TOP
EHDIF
ЕNDIF
THISFORM.Refresh:
THISFORM.Buttons
-
Код, связанный с событием Click кнопки «Найти»
IF NOT USED([Invnum_inv])
USE Invnum_inv IN 0
ENDIF
IF thisform.container1.text1.Value=" "
ELSE
SELECT Invnum_inv
SET ORDER TO inv_number
LOCATE FOR
(ALLTRIM(inv_number))=ALLTRIM(thisform.container1.text1.value)
IF FOUND()
SEEK inv_number
ENDIF
thisform.refresh
ENDIF
-
Код, связанный с событием Click кнопки «Новая запись»
IF NOT USED([inventar])
USE inventar IN 0
ENDIF
IF NOT USED([Invnum_inv])
USE Invnum_inv IN 0
ENDIF
IF NOT USED([Arrival_object])
USE Arrival_object IN 0
ENDIF
thisform.Visible= .F.
SET RELATION TO
SET SKIP TO
SELECT Inventar
SET ORDER TO code_obj
SELECT Invnum_inv
SET RELATION TO code_obj INTO Inventar
SET SKIP TO Inventar
DO FORM "c:\documents and settings\yla\мои документы\visual foxpro projects\my_football_new\f_inventar.scx"
-
Код, связанный с событием Click кнопки «Сохранить»
thisform.container2.command1.Enabled=.T.
SELECT invnum_inv
GO RECCOUNT()
IF (invnum_inv.inv_number!=' ')
thisform.Command1.Enabled=.T.
ELSE
MESSAGEBOX("Введите все данные!!!",16, "Ошибка")
ENDIF
-
Код, связанный с событием Click кнопки «Отмена»
thisform.Height= 260
thisform.container1.command3.Enabled=.t.
thisform.container2.command1.Enabled=.t.
thisform.container2.command2.Enabled=.t.
thisform.container2.command5.Enabled=.t.
thisform.container3.command4.Enabled=.t.
thisform.container3.command3.Enabled=.t.
thisform.container3.command6.Enabled=.f.
-
Код, связанный с событием Click кнопки «Удалить»
IF MESSAGEBOX ("Удалить эту запись", 4 + 32 + 256 ) = 6
DELETE NEXT 1
BLANK
SET DELETED ON
GO TOP
THISFORM.Refresh
ENDIF
-
Код, связанный с событием Click кнопки «Просмотр»
IF NOT USED([Arrival_object])
USE Arrival_object IN 0
ENDIF
IF NOT USED([inventar])
USE inventar IN 0
ENDIF
IF NOT USED([Invnum_inv])
USE Invnum_inv IN 0
ENDIF
thisform.Height= 454
thisform.container3.command6.Enabled=.t.
thisform.container1.command3.Enabled=.f.
thisform.container2.command1.Enabled=.f.
thisform.container2.command2.Enabled=.f.
thisform.container2.command5.Enabled=.f.
thisform.container3.command4.Enabled=.f.
thisform.container3.command3.Enabled=.f.
Приложение Б
Текст программы обработчика событий «Запрос» на форме «Универсальный запрос»
IF NOT USED([arrival_object])
USE arrival_object IN 0
ENDIF
IF NOT USED([inventar])
USE inventar IN 0
ENDIF
IF NOT USED([invnum_inv])
USE invnum_inv IN 0
ENDIF
IF NOT USED([gate])
USE gate IN 0
ENDIF
IF thisform.container2.txt_height_gate.Value=" "
thisform.container2.txt_height_gate.Value=""
ENDIF
str="(2<>1)"
out_fields="gate.code_obj"
IF thisform.ch_code.Value = 1
out_fields ="gate.code_obj"
ENDIF
IF thisform.ch_date_arrival.Value= 1
out_fields = out_fields +", arrival_object.date"
ENDIF
IF thisform.ch_balance.Value = 1
out_fields = out_fields +", arrival_object.balance"
ENDIF
IF thisform.ch_kol.Value = 1
out_fields = out_fields +", arrival_object.kol"
ENDIF
IF thisform.ch_firm.Value = 1
out_fields = out_fields +", inventar.firm"
ENDIF
IF thisform.ch_model.Value = 1
out_fields = out_fields +", inventar.model"
ENDIF
IF thisform.ch_inv_number.Value = 1
out_fields = out_fields +", invnum_inv.inv_number"
ENDIF
IF thisform.container2.ch_height_gate.Value = 1
out_fields = out_fields +", gate.height_gate"
ENDIF
IF thisform.container2.ch_kind_gate.Value = 1
out_fields = out_fields +", gate.kind"
ENDIF
IF thisform.container2.Ch_shirina_gate.Value = 1
out_fields = out_fields +", gate.shirina"
ENDIF
IF ALLTRIM(thisform.txt_code_obj.Value) == ""
ELSE
str = str +" AND "+
"((ALLTRIM(gate.code_obj))=ALLTRIM(thisform.txt_code_obj.Value))"
ENDIF
IF ALLTRIM(thisform.txt_date_arrival.Value) == ""
ELSE
str = str +" AND "+
"((ALLTRIM(DTOC(arrival_object.date)))=ALLTRIM(thisform.txt_date_arrival.Value))"
ENDIF
IF ALLTRIM(thisform.txt_balance.Value) == ""
ELSE
str = str +" AND "+
"((ALLTRIM(STR(arrival_object.balance)))=ALLTRIM(thisform.txt_balance.Value))"
ENDIF
IF ALLTRIM(thisform.txt_kol.Value) == ""
ELSE
str = str +" AND "+
((ALLTRIM(STR(arrival_object.kol)))=ALLTRIM(thisform.txt_kol.Value))
ENDIF
IF ALLTRIM(thisform.txt_firm.Value )== ""
ELSE
str = str +" AND "+
((ALLTRIM(inventar.firm))=ALLTRIM(thisform.txt_firm.Value))
ENDIF
IF ALLTRIM(thisform.txt_model.Value) == ""
ELSE
str = str +" AND "+
"((ALLTRIM(inventar.model))=ALLTRIM(thisform.txt_model.Value))"
ENDIF
IF ALLTRIM(thisform.container2.txt_kind_gate.Value) == ""
ELSE
str = str +" AND "+
"((ALLTRIM(gate.kind))=ALLTRIM(thisform.container2.txt_kind_gate.Value))"
ENDIF
IF ALLTRIM(thisform.container2.txt_height_gate.Value) == ""
ELSE
str = str +" AND "+ "((ALLTRIM(STR(gate.height_gate)))
=thisform.container2.txt_height_gate.Value)"
ENDIF
IF ALLTRIM(thisform.container2.txt_shirina_gate.Value)== ""
ELSE
str = str +" AND "+ "((ALLTRIM(STR(gate.shirina)))=
=ALLTRIM(thisform.container2.txt_shirina_gate.Value))"
ENDIF
IF out_fields="NULL"
out_fields ="*"
ENDIF
SELECT &out_fields;
FROM(((gate INNER JOIN inventar ON
ALLTRIM(inventar.code_obj)==ALLTRIM(gate.code_obj));
INNER JOIN arrival_object ON
ALLTRIM(arrival_object.code_obj)==ALLTRIM(gate.code_obj));
INNER JOIN invnum_inv ON
ALLTRIM(invnum_inv.code_obj)==ALLTRIM(gate.code_obj));
WHERE &str INTO TABLE My_tab
objExcel=CreateObject("Excel.Application")
objExcel.Visible=.T.
objExcel.Workbooks.add
nstol = 0
IF thisform.ch_code.Value = 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Код партии"
objExcel.Columns[nstol].ColumnWidth = 12
ENDIF
IF thisform.ch_date_arrival.Value= 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Дата поступления"
objExcel.Columns[nstol].ColumnWidth = 18
ENDIF
IF thisform.ch_balance.Value = 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Балансовая стоимость"
objExcel.Columns[nstol].ColumnWidth = 25
ENDIF
IF thisform.ch_kol.Value = 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Количество"
objExcel.Columns[nstol].ColumnWidth = 12
ENDIF
IF thisform.ch_firm.Value = 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Фирма-производитель"
objExcel.Columns[nstol].ColumnWidth = 25
ENDIF
IF thisform.ch_model.Value = 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Модель"
objExcel.Columns[nstol].ColumnWidth = 10
ENDIF
IF thisform.ch_inv_number.Value = 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Инвентарный номер"
objExcel.Columns[nstol].ColumnWidth = 25
ENDIF
IF thisform.container2.ch_height_gate.Value = 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Высота ворот"
objExcel.Columns[nstol].ColumnWidth = 15
ENDIF
IF thisform.container2.ch_kind_gate.Value = 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Вид ворот"
objExcel.Columns[nstol].ColumnWidth = 20
ENDIF
IF thisform.container2.Ch_shirina_gate.Value = 1
nstol = nstol+1
objExcel.Cells(3,nstol).select
objExcel.Cells(3,nstol).Font.Bold=.T.
objExcel.Cells(3,nstol).Value="Ширина ворот"
objExcel.Columns[nstol].ColumnWidth = 15
ENDIF
IF nstol>0
tt1 = ""+CHRTRAN(objExcel.Cells(1,1).Address,"$","")
tt2 = ""+CHRTRAN(objExcel.Cells(1,nstol).Address,"$","")
WITH objExcel&&cel
WITH .Range(tt1+":"+tt2)
WITH .Font
Name = "Arial Cyr"
FontStyle = "полужирный"
Size = 14
ENDWITH
HorizontalAlignment = 3
VerticalAlignment = 1
WrapText = .F.
Orientation = 0
AddIndent = .F.
IndentLevel = 0
ShrinkToFit = .F.
MergeCells = .F.
Merge
ENDWITH
Range("A1").Value = "Данные о партиях футбольных ворот"
ENDWITH
ENDIF
stroka=3
stolbic=1
SELECT my_tab
SCAN
stroka=stroka+1
temp_j = stolbic
IF thisform.ch_code.Value = 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value = my_tab.code_obj
temp_j = temp_j +1
ENDIF
IF thisform.ch_date_arrival.Value= 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value = my_tab.date
temp_j = temp_j +1
ENDIF
IF thisform.ch_balance.Value = 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value = my_tab.balance
temp_j = temp_j +1
ENDIF
IF thisform.ch_kol.Value = 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value =my_tab.kol
temp_j = temp_j +1
ENDIF
IF thisform.ch_firm.Value = 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value = my_tab.firm
temp_j = temp_j +1
ENDIF
IF thisform.ch_model.Value = 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value = my_tab.model
temp_j = temp_j +1
ENDIF
IF thisform.ch_inv_number.Value = 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value = my_tab.inv_number
temp_j = temp_j +1
ENDIF
IF thisform.container2.ch_height_gate.Value = 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value = STR(my_tab.height_gate)
temp_j = temp_j +1
ENDIF
IF thisform.container2.ch_kind_gate.Value = 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value =my_tab.kind
temp_j = temp_j +1
ENDIF
IF thisform.container2.Ch_shirina_gate.Value = 1
objExcel.Cells(stroka,temp_j ).select
objExcel.Cells(stroka,temp_j ).Value =STR(my_tab.shirina)
temp_j = temp_j +1
ENDIF
ENDSCAN
IF nstol>0
tt1 = ""+CHRTRAN(objExcel.Cells(3,1).Address,"$","")
tt2 = ""+CHRTRAN(objExcel.Cells(stroka,nstol).Address,"$","")
WITH objExcel
WITH .Range(tt1+":"+tt2)
WITH .Font
.Name = "Arial Cyr"
Size = 10
ENDWITH
HorizontalAlignment = 3
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
