перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
Value =STR(my_tab
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
ENDWITH
ENDWITH
ENDIF
With objExcel.Range(tt1+":"+tt2)
Borders(1).LineStyle = 0
Borders(2).LineStyle = 0
With .Borders(1)
LineStyle = 1
Weight = 2
ENDWITH
With .Borders(2)
Weight = 2
ENDWITH
With .Borders(3)
LineStyle = 1
Weight = 2
ENDWITH
With .Borders(4)
LineStyle = 1
Weight = 2
ENDWITH
ENDWITH
Приложение В
Текст программы для заполнения таблиц записями
IF NOT USED([Arrival_object])
USE Arrival_object IN 0
ENDIF
IF NOT USED([inventar])
USE inventar IN 0
ENDIF
IF NOT USED([out_inventar])
USE out_inventar IN 0
ENDIF
IF NOT USED([techno])
USE techno IN 0
ENDIF
IF NOT USED([firm_techno])
USE firm_techno IN 0
ENDIF
IF NOT USED([firm_inv])
USE firm_inv IN 0
ENDIF
IF NOT USED([techno_model])
USE techno_model IN 0
ENDIF
IF NOT USED([Mebel])
USE Mebel IN 0
ENDIF
IF NOT USED([invnum_inv])
USE invnum_inv IN 0
ENDIF
IF NOT USED([invnum_tec])
USE invnum_tec IN 0
ENDIF
IF NOT USED([invnum_meb])
USE invnum_meb IN 0
ENDIF
IF NOT USED([datevidachi_table])
USE datevidachi_table IN 0
ENDIF
IF NOT USED([balls])
USE balls IN 0
ENDIF
IF NOT USED([gate])
USE gate IN 0
ENDIF
IF NOT USED([kind_gate])
USE kind_gate IN 0
ENDIF
IF NOT USED([shir_and_height_gate])
USE shir_and_height_gate IN 0
ENDIF
IF NOT USED([trenager])
USE trenager IN 0
ENDIF
IF NOT USED([TV])
USE TV IN 0
ENDIF
IF NOT USED([refrigerator])
USE refrigerator IN 0
ENDIF
IF NOT USED([vacuum_cleaner])
USE vacuum_cleaner IN 0
ENDIF
IF NOT USED([bed])
USE bed IN 0
ENDIF
IF NOT USED([shkaf])
USE shkaf IN 0
ENDIF
IF NOT USED([table])
USE table IN 0
ENDIF
IF NOT USED([tumbochka])
USE tumbochka IN 0
ENDIF
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
ENDIF
replace kol WITH k
replace balance WITH k*5.8
SELECT datevidachi_table
IF NOT EOF()
replace arrival_object.date WITH date_v
SKIP
ELSE
SKIP -(RECNO())
replace arrival_object.date WITH date_v
SKIP
ENDIF
SELECT arrival_object
ENDFOR
**************************************
kol=0
j=1
SELECT arrival_object
GO 1
DO WHILE NOT EOF()
SELECT inventar
APPEND BLANK
replace code_obj WITH arrival_object.code_obj
kol = arrival_object.kol
SELECT invnum_inv
DO WHILE (kol!=0)
APPEND BLANK
replace inv_number WITH STR(j)
replace code_obj WITH arrival_object.code_obj
j=j+1
kol=kol-1
ENDDO
SELECT firm_inv
IF NOT EOF()
replace inventar.firm WITH firm_inv
SKIP
ELSE
GO 1
replace inventar.firm WITH firm_inv
SKIP
ENDIF
SELECT techno_model
IF NOT EOF()
replace inventar.model WITH model
SKIP
ELSE
GO 1
replace inventar.model WITH model
SKIP
ENDIF
********
SELECT Arrival_object
SKIP
IF NOT EOF()
SELECT Techno
APPEND BLANK
replace code_obj WITH arrival_object.code_obj
SELECT firm_techno
IF NOT EOF()
replace Techno.firm_marka WITH firm_marka
SKIP
ELSE
GO 1
replace Techno.
скачать бесплатно Хозяйственный учет футбольного клуба
Содержание дипломной работы
1 Тест 1
Заключение
Список использованных источников
Приложение А
Приложение Б
Реферат
Объем данного курсового проекта равен 56 страницам
Данная задача будет решаться с помощью анализа предметной области, ее формализации с помощью функциональных зависимостей
Словарь понятий и терминов
Словарь понятий и терминов приведен в таблицах 2
sp_pl, np_pl -> sp, np -> date, rost, ves, staff, number, status -> Fam, Im, Otch, dateborn, country, city, street, numstreet, numflat
Техника производится определенной фирмой и относится к определенной модели, потребляет определенную мощность
2 Функциональные зависимости сохраняющие иерархию
В данном множестве есть следующие зависимости, которые сохраняют иерархию:
Спортивным залом не может быть несуществующее помещение
7 - Минимальное кольцевое покрытие
Получение кольцевого минимального редуцированного покрытия
Естественное характеристическое множество для кольцевого покрытия представлено на рисунке 2
22 - Текст запроса на языке SQL
Операционное дерево для второго запроса представлено на рисунке 2
Заключение
В ходе выполнения курсовой работы была достигнута цель работы – проектирование базы данных хозяйственного учета футбольного клуба
, – М
Visible=
Код, связанный с событием Click кнопки «Удалить»
IF MESSAGEBOX ("Удалить эту запись", 4 + 32 + 256 ) = 6
DELETE NEXT 1
BLANK
SET DELETED ON
GO TOP
THISFORM
kol"
ENDIF
IF thisform
Value) == ""
ELSE
str = str +" AND "+
"((ALLTRIM(STR(arrival_object
shirina)))=
=ALLTRIM(thisform
ch_balance
Bold=
T
Value= 1
objExcel
model
temp_j = temp_j +1
ENDIF
IF thisform
Value =STR(my_tab
code_obj
********
SELECT Arrival_object
SKIP
ENDIF
ENDIF
ENDDO
заполнение таблиц "Спортивный инвентарь"
SELECT inventar
GO 1
DO WHILE NOT EOF()
SELECT balls
APPEND BLANK
replace code_obj WITH inventar
Заполнение таблиц «Общая информация и игроки»
IF NOT USED([Person])
USE Person IN 0
ENDIF
IF NOT USED([fam_table])
USE fam_table IN 0
ENDIF
IF NOT USED([im_table])
USE im_table IN 0
ENDIF
IF NOT USED([otch_table])
USE otch_table IN 0
ENDIF
IF NOT USED([datevidachi_table])
USE datevidachi_table IN 0
ENDIF
IF NOT USED([dateborn])
USE dateborn IN 0
ENDIF
IF NOT USED([Country])
USE Country IN 0
ENDIF
IF NOT used([street])
USE street IN 0
ENDIF
SELECT Person
*GO 1
FOR i=1000 TO 1010
FOR j=100000 TO 100010
APPEND BLANK
replace sp WITH i
replace np WITH j
replace numstreet WITH i-990
replace numflat WITH j-99990
SELECT Fam_table
IF EOF()
SKIP -(RECNO())
replace Person
