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
IF thisform.ch_inv_number.Value = 1
objExcel.Cells(stroka,temp_j ).Value = my_tab.inv_number
IF thisform.container2.ch_height_gate.Value = 1
objExcel.Cells(stroka,temp_j ).Value = STR(my_tab.height_gate)
IF thisform.container2.ch_kind_gate.Value = 1
objExcel.Cells(stroka,temp_j ).Value =my_tab.kind
IF thisform.container2.Ch_shirina_gate.Value = 1
objExcel.Cells(stroka,temp_j ).Value =STR(my_tab.shirina)
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
With objExcel.Range(tt1+":"+tt2)
Borders(1).LineStyle = 0
Borders(2).LineStyle = 0
With .Borders(1)
LineStyle = 1
Weight = 2
With .Borders(2)
With .Borders(3)
With .Borders(4)
Приложение В
Текст программы для заполнения таблиц записями
IF NOT USED([Arrival_object])
USE Arrival_object IN 0
IF NOT USED([inventar])
USE inventar IN 0
IF NOT USED([out_inventar])
USE out_inventar IN 0
IF NOT USED([techno])
USE techno IN 0
IF NOT USED([firm_techno])
USE firm_techno IN 0
IF NOT USED([firm_inv])
USE firm_inv IN 0
IF NOT USED([techno_model])
USE techno_model IN 0
IF NOT USED([Mebel])
USE Mebel IN 0
IF NOT USED([invnum_inv])
USE invnum_inv IN 0
IF NOT USED([invnum_tec])
USE invnum_tec IN 0
IF NOT USED([invnum_meb])
USE invnum_meb IN 0
IF NOT USED([datevidachi_table])
USE datevidachi_table IN 0
IF NOT USED([balls])
USE balls IN 0
IF NOT USED([gate])
USE gate IN 0
IF NOT USED([kind_gate])
USE kind_gate IN 0
IF NOT USED([shir_and_height_gate])
USE shir_and_height_gate IN 0
IF NOT USED([trenager])
USE trenager IN 0
IF NOT USED([TV])
USE TV IN 0
IF NOT USED([refrigerator])
USE refrigerator IN 0
IF NOT USED([vacuum_cleaner])
USE vacuum_cleaner IN 0
IF NOT USED([bed])
USE bed IN 0
IF NOT USED([shkaf])
USE shkaf IN 0
IF NOT USED([table])
USE table IN 0
IF NOT USED([tumbochka])
USE tumbochka IN 0
j=0
k=0
SELECT arrival_object
FOR i=1 TO 1200000
APPEND BLANK
replace code_obj WITH ALLTRIM(STR(i))
k=k+1
IF(k<10)
k = k+1
ELSE
k =5
replace kol WITH k
replace balance WITH k*5.8
SELECT datevidachi_table
IF NOT EOF()
replace arrival_object.date WITH date_v
SKIP
SKIP -(RECNO())
ENDFOR
**************************************
kol=0
j=1
GO 1
DO WHILE NOT EOF()
SELECT inventar
replace code_obj WITH arrival_object.code_obj
kol = arrival_object.kol
SELECT invnum_inv
DO WHILE (kol!=0)
replace inv_number WITH STR(j)
j=j+1
kol=kol-1
ENDDO
SELECT firm_inv
replace inventar.firm WITH firm_inv
SELECT techno_model
replace inventar.model WITH model
********
SELECT Arrival_object
SELECT Techno
SELECT firm_techno
replace Techno.firm_marka WITH firm_marka
replace Techno.model WITH model
*********
SELECT Mebel
&&заполнение таблиц "Спортивный инвентарь"
SELECT balls
replace code_obj WITH inventar.code_obj
SELECT gate
SELECT kind_gate
replace gate.kind WITH kind_gate
SELECT shir_and_height_gate
replace gate.height_gate WITH height
replace gate.shirina WITH shirina
SELECT trenager
&&заполнение таблиц "Техника"
SELECT techno
SELECT TV
replace code_obj WITH techno.code_obj
SELECT refrigerator
SELECT vacuum_cleaner
&&заполнение таблиц "Мебель"
SELECT bed
replace code_obj WITH Mebel.code_obj
SELECT shkaf
replace code_obj WITH mebel.code_obj
SELECT table
SELECT tumbochka
&&Заполнение таблиц "инвентарный номер"
SELECT mebel
&&Заполнение таблиц списанных "объектов"
SELECT out_inventar
replace inv_number WITH invnum_inv.inv_number
SKIP 10
IF NOT USED([inv_in_zal])
USE inv_in_zal IN 0
IF NOT USED([type_zal])
USE type_zal IN 0
IF NOT USED([pomeshenie])
USE pomeshenie IN 0
IF NOT USED([zal])
USE zal IN 0
IF NOT USED([pomeshenie_naznach])
USE pomeshenie_naznach IN 0
SELECT pomeshenie
DELETE ALL
PACK
SELECT zal
SELECT inv_in_zal
SELECT pomeshenie_naznach
FOR i=1 TO 2000
replace pomeshenie.num_p WITH i
replace pomeshenie.naznach WITH naznach
*******************
IF ALLTRIM(pomeshenie.naznach)="Спортивный зал"
replace num_p WITH pomeshenie.num_p
SELECT type_zal
replace zal.type_zal WITH type_zal
**************
APPEND blank
replace inv_in_zal.num_p WITH num_p
replace inv_in_zal.date WITH date_v
SELECT invnum _ inv
В3. Заполнение таблиц «Общая информация и игроки»
IF NOT USED([Person])
USE Person IN 0
IF NOT USED([fam_table])
USE fam_table IN 0
IF NOT USED([im_table])
USE im_table IN 0
IF NOT USED([otch_table])
USE otch_table IN 0
IF NOT USED([dateborn])
USE dateborn IN 0
IF NOT USED([Country])
USE Country IN 0
IF NOT used([street])
USE street IN 0
SELECT Person
*GO 1
FOR i=1000 TO 1010
FOR j=100000 TO 100010
replace sp WITH i
replace np WITH j
replace numstreet WITH i-990
replace numflat WITH j-99990
SELECT Fam_table
IF EOF()
replace Person.fam WITH fam
SELECT Im_table
replace Person.im WITH im
skip
SELECT Otch_table
replace Person.otch WITH otch
SELECT Datevidachi_table
replace Person.datevidachi WITH date_v
SELECT Country
replace Person.country WITH country
replace Person.city WITH city
SELECT Street
replace Person.Street WITH Street
SELECT Dateborn
replace Person.dateborn WITH date_b
browse
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9