48632 (Разработка программного обеспечения по управлению базой данных "График учета рабочего времени на шахте"), страница 3
Описание файла
Документ из архива "Разработка программного обеспечения по управлению базой данных "График учета рабочего времени на шахте"", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48632"
Текст 3 страницы из документа "48632"
//------------------------------------------------------------------------------------/
request := 'INSERT INTO Типы_дней(ID, NameOfType)'+
' VALUES (0, ''Смена1 '')';
Conn.Execute(request);
request := 'INSERT INTO Типы_дней(ID, NameOfType)'+
' VALUES (1, ''Смена2 '')';
Conn.Execute(request);
request := 'INSERT INTO Типы_дней(ID, NameOfType)'+
' VALUES (2, ''Смена3 '')';
Conn.Execute(request);
request := 'INSERT INTO Типы_дней(ID, NameOfType)'+
' VALUES (3, ''Смена4 '')';
Conn.Execute(request);
request := 'INSERT INTO Типы_дней(ID, NameOfType)'+
' VALUES (4, ''Нерабочий день '')';
Conn.Execute(request);
request := 'INSERT INTO Типы_дней(ID, NameOfType)'+
' VALUES (5, ''Отпуск '')';
Conn.Execute(request);
//------------------------------------------------------------------------------------/
request := 'INSERT INTO Профессия(ID, NameProfession)'+
' VALUES (1, ''ПЭС '')';
Conn.Execute(request);
request := 'INSERT INTO Профессия(ID, NameProfession)'+
' VALUES (2, ''ДЭС '')';
Conn.Execute(request);
//------------------------------------------------------------------------------------/
request := 'INSERT INTO Статус(ID, NameStatus)'+
' VALUES (1, ''Вентиляторщик, работающий в выходные '')';
Conn.Execute(request);
request := 'INSERT INTO Статус(ID, NameStatus)'+
' VALUES (2, ''Вентиляторщик, не работающий в выходные '')';
Conn.Execute(request);
request := 'INSERT INTO Статус(ID, NameStatus)'+
' VALUES (3, ''Дежурный '')';
Conn.Execute(request);
request := 'INSERT INTO Статус(ID, NameStatus)'+
' VALUES (4, ''Рабочий'')';
Conn.Execute(request);
//------------------------------------------------------------------------------------/
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (1, ''Забудский С. Ю.'',78704, 1, 1)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (2, ''Ивановский А. В.'',79856, 1, 1)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (3, ''Палагушкин Б. А.'',79485, 1, 1)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (4, ''Девяткин А. М.'',55288, 1, 1)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (5, ''Филонов М. Л.'',107083, 2, 2)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (6, ''Васекин С. А.'',79446, 1, 3)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (7, ''Статилко В. В.'',78715, 1, 3)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (8, ''Васильев А. Д.'',55337, 1, 3)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (9, ''Матейко А. В.'',55681, 1, 3)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (10, ''Чирок А. Н.'',55844, 1, 3)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (11, ''Никулин А. Н.'',67128, 1, 4)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (12, ''Букин Б. И.'',52696, 1, 2)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (13, ''Сибгатулин Р. И.'',104624, 1, 3)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (14, ''Сибгатулин Р. И.'',71763, 1, 3)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (15, ''Денисенко В. В.'',80087, 1, 3)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (16, ''Аборонов В. И.'',55780, 1, 3)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (17, ''Симулин С. Г.'',86149, 1, 4)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (18, ''Майер В. В.'',109859, 1, 4)';
Conn.Execute(request);
request := 'INSERT INTO Рабочие(ID, WokerName, TabNumber, LinkProfession, LinkStatus)'+
' VALUES (19, ''Гетц А. В.'',109525, 1, 1)';
Conn.Execute(request);
//------------------------------------------------------------------------------------/
request := 'INSERT INTO Праздники(ID, Title)'+
' VALUES (1, ''Новый год'')';
Conn.Execute(request);
request := 'INSERT INTO Праздники(ID, Title)'+
' VALUES (2, ''Международный женский день'')';
Conn.Execute(request);
request := 'INSERT INTO Праздники(ID, Title)'+
' VALUES (3, ''Наурыз мейрамы'')';
Conn.Execute(request);
request := 'INSERT INTO Праздники(ID, Title)'+
' VALUES (4, ''Праздник единства народа Казахстана'')';
Conn.Execute(request);
request := 'INSERT INTO Праздники(ID, Title)'+
' VALUES (5, ''День Победы'')';
Conn.Execute(request);
request := 'INSERT INTO Праздники(ID, Title)'+
' VALUES (6, ''День Конституции Республики Казахстан'')';
Conn.Execute(request);
request := 'INSERT INTO Праздники(ID, Title)'+
' VALUES (7, ''День республики'')';
Conn.Execute(request);
request := 'INSERT INTO Праздники(ID, Title)'+
' VALUES (8, ''День Независимости'')';
Conn.Execute(request);
//------------------------------------------------------------------------------------/
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (1, ''01.01.2008'', 1)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (2, ''02.01.2008'', 1)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (3, ''08.03.2008'', 2)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (4, ''22.03.2008'', 3)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (5, ''01.05.2008'', 4)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (6, ''09.05.2008'', 5)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (7, ''30.08.2008'', 6)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (8, ''25.10.2008'', 7)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (9, ''16.12.2008'', 8)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (10, ''17.12.2008'', 8)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (11, ''15.12.2007'', 8)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (12, ''16.12.2007'', 8)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (13, ''17.12.2007'', 8)';
Conn.Execute(request);
request := 'INSERT INTO Выходные(ID, DateCelebrate, LinkName)'+
' VALUES (14, ''08.31.2007'', 2)';
Conn.Execute(request);
//------------------------------------------------------------------------------------/
request := 'INSERT INTO Отпуски(ID, LinkWoker, DateBegin, Length)'+
' VALUES (1, 14, ''08.11.2007'', 26)';
Conn.Execute(request);
request := 'INSERT INTO Отпуски(ID, LinkWoker, DateBegin, Length)'+
' VALUES (2, 16, ''18.12.2007'', 26)';
Conn.Execute(request);
request := 'INSERT INTO Отпуски(ID, LinkWoker, DateBegin, Length)'+
' VALUES (3, 2, ''24.12.2007'', 20)';
Conn.Execute(request);
request := 'INSERT INTO Отпуски(ID, LinkWoker, DateBegin, Length)'+
' VALUES (4, 9, ''01.11.2007'', 10)';
Conn.Execute(request);
request := 'INSERT INTO Отпуски(ID, LinkWoker, DateBegin, Length)'+
' VALUES (5, 6, ''01.11.2007'', 18)';
Conn.Execute(request);
7. Интерфейс программы
Интерфейс программы состоит из 3 окон. При запуске программы открывается главное окно, представленное на рисунке 7.1
Рис 7.1 – Главное окно
На главной форме приложения находится главное меню, содержащее пункты Файл, Справочник, Справка. Пункты меню распадаются на подменю
Файл -> Открыть, Сохранить, Предварительный просмотр, Печать; Справочники -> Справочник рабочих, Справочник отпусков, Справочник праздников, Справочник названий праздников;
Справка -> О программе.
Команда «Открыть» вызывает окно выбора для загрузки названия и дата ранее сохраненных графиков, представленное на рисунке 7.2
Рисунок 7.2 – окно открытия ранее сохраненных графиков
Команда «Сохранить» вызывается окно сохранения графика, в котором нужно указать ему название. Окно представлено на Рисунке 7.3
Рисунок 7.3 – Окно сохранения графика
Команда «Предварительный просмотр» рассматривается в разделе «Отчеты».
Команда «Справочник рабочих», вызывает окно содержащее сведения о рабочих, предоставляющее возможность добавления или изменения данных о рабочих. Окно представлено на Рисунке 7.4
Рисунок 7.4 – Окно справочника рабочих
Команда «Справочник отпусков», вызывает окно содержащее сведения об отпусках рабочих, предоставляющее возможность добавления или изменения данных об отпусках. Окно представлено на Рисунке 7.5
Рисунок 7.5 - Окно справочника отпусков
Команда «Справочник Праздников», вызывает окно содержащее сведения о государственных праздниках, предоставляющее возможность добавления или изменения данных о дате празднования. Окно представлено на Рисунке 7.6
Рисунок 7.7 – Окно справочника праздников
Команда «Справочник названий праздников», вызывает окно содержащее сведения о названия государственных праздников, предоставляющее возможность добавления или изменения данных о названии праздника. Окно представлено на Рисунке 7.8
