МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ ЦЕНТРАЛЬНА СПІЛКА СПОЖИВЧИХ ТОВАРИСТВ УКРАЇНИ Кіровоградський кооперативний коледж економіки...

Информация о документе:

Дата добавления: 01/10/2015 в 12:12
Количество просмотров: 118
Добавил(а): Дима Картунов
Название файла: m_n_sterstvo_osv_ti_nauki_ukra_ni_centralna_sp_lka.doc
Размер файла: 661 кб
Рейтинг: 0, всего 0 оценок

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ ЦЕНТРАЛЬНА СПІЛКА СПОЖИВЧИХ ТОВАРИСТВ УКРАЇНИ Кіровоградський кооперативний коледж економіки...


МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

ЦЕНТРАЛЬНА СПІЛКА СПОЖИВЧИХ ТОВАРИСТВ УКРАЇНИ

Кіровоградський кооперативний коледж економіки і права імені М.П. Сая







ДОДАТКИ ДО ЗВІТУ

з виробничої практики

студентаIV курсу групи РПЗ9/11-10-46

спеціальності 5.05010301 «Розробка програмного забезпечення»

Картунова Дмитра Олеговича





Період проходження:

з «05» травня 2014 р. по «06» червня 2014 р.


Місце практики: Кіровоградський обласний військовий комісаріат










Керівник практики

від навчального закладу: ________________ ___________________

(підпис) (прізвище)











м. Кіровоград-2014

Додаток 1

1 Загальні положення

1.1  Ця примірна інструкція призначена для працівників, які експлуатують персональні електронно-обчислювальні машини з відеотерміналами (далі -ПЕОМ), робота яких пов'язана з прийманням і введенням інформації, спостереженням і коригуванням процесу розв'язання завдань за готовими програмами, програмістів, зайнятих розробкою, налагоджуванням, перевіркою програм на ПЕОМ, інженерів і техніків, що виконують профілактичні і ремонтні роботи на цьому обладнанні, встановлюють причини несправностей, працюють з електронними схемами та іншою подібною документацією, користувачів ПЕОМ, що сумішують роботу на ПЕОМ з основною роботою.

1.2  При роботі на ПЕОМ необхідно враховувати, що при не виконанні вимог охорони праці, обумовлених Правилами охорони праці під час експлуатації електронно-обчислювальних машин, затвердженими наказом Держнаглядохоронпраці від 10.02.99 №21, на працівників можуть діяти такі небезпечні і шкідливі виробничі фактори:

фізичні:

-  електромагнітне випромінювання, при наближенні до екрану чи задньої частини відеотерміналу (далі - ВДТ) ближче 0,6 - 0,7 м.;

-  м'яке рентгенівське випромінювання, при наближенні до ВДТ ближче 0,05 м.;

- ультрафіолетове і інфрачервоне випромінювання;

- електростатичне поле між екраном і працівником;

-  можлива наявність шуму та вібрації при роботі принтерів застарілої модефікації;

- нерівномірність розподілу яскравості у полі зору;

- підвищена яскравість світлового зображення;

-  висока напруга у електричній мережі, замикання якої може відбутись крізь тіло людини при порушенні вимог електробезпеки,

хімічні:

- можлива наявність озону, оксидів азоту й аероіонізації; психофізіологічні:

- напруження зору;

- напруження уваги;

- інтелектуальні навантаження;

- емоційні навантаження;

- тривалі статичні навантаження;

- монотонність праці;

- необхідність обробки великого обсягу інформації у одиницю часу;

- нераціональна організація робочого місця.

1.3 До роботи оператора, програміста, інженера і техніка, користувача ПЕОМ допускаються:

-  особи, не молодші 18 років, які не мають медичних протипоказань і пройшли обов'язкові медичні огляди - попередній під час оформлення на роботу та періодичні на протязі трудової діяльності - в порядку, передбаченому "Положенням про медичний огляд працівників певних категорій", затвердженим наказом Міністерства охорони здоров'я України від 31.03.94 №45, зареєстрованим в Міністерстві юстиції України 21.06.94 за №136/345;

-  особи, що пройшли в установленому порядку інструктаж з охорони праці та пожежної безпеки;

1.4 До робіт з профілактичного обслуговування, налагодження і ремонту ПЕОМ при включеному живленні допускаються особи, які, крім вимог п. 1.3:

-   пройшли спеціальне навчання та один раз на рік перевірку знань відповідних нормативних актів про охорону праці;

- мають кваліфікаційну групу з електробезпеки не нижче III.

1.5 Засобами індивідуального захисту операторів є: екранний захисний фільтр класу "повний захист", спеціальні спектральні окуляри, білий бавовняний халат з антистатичним просоченням (для операторів, програмістів, інженерів і техніків).

1.6 Додатковими щодо зазначених в п. 1.5 захисними засобами працівників, що здійснюють профілактичне обслуговування, налагодження і ремонт ПЕОМ є діелектричні рукавиці, ізольовані підставки, інструмент з ізольованими ручками.

2 Вимоги безпеки перед початком роботи

2.1 Перед початком роботи працівник повинен:

- оглянути і привести в порядок робоче місце;

-   відрегулювати освітленість на робочому місці, переконатись у її достатності, відсутності відблисків на екрані, відсутності зустрічного світла;

- перевірити правильність включення обладнання в електромережу;

-    переконатись у наявності захисного заземлення (занулення) і підключення екранного проводу до корпусу процесора;

- протерти спеціальною салфеткою поверхню екрана і захисного фільтра;

- переконатись у відсутності дискет у дисководах процесора;

-  перевірити правильність встановлення стола, стільця, підставки для ніг, пюпітра, положення обладнання, кута нахилу екрану, положення клавіатури і, за необхідності, провести регулювання положення робочого стола, стільця, розташування елементів ПЕОМ;

-  перевірити дотримання вимог гігієнічних норм розміщення обладнання (при однорядному розташуванні відстань до стінок повинна бути не менше 1 м.; при розташуванні робочих місць одне за одним відстань між ними – не менше 1,5 м.; норма площі приміщення - 6 квадратних метрів на одне робоче місце).

2.2   При   включенні   ПЕОМ   необхідно   дотримуватись   наступної послідовності дій:

- включити блок живлення;

- включити периферійні пристрої (принтер, монітор, сканер тощо);

- включити системний блок (процесор).

Усі кабелі, що з'єднують системний блок (процесор) з іншими пристроями, слід вмикати тільки при вимкненому комп'ютері. Відрегулювати яскравість свічення екрана ВДТ, мінімальний розмір світної точки, фокусування, контрастність. Не слід робити зображення занадто яскравим, щоб не втомлювати очей.

У разі виявлення несправності обладнання, пристрою, засобів захисту тощо повідомити про це керівника робіт.

З Вимоги безпеки під час роботи

3.1 Працівник під час роботи зобов'язаний:

- виконувати тільки ту роботу, яка була йому доручена, і щодо якої він був проінструктований;

-  на протязі всього робочого дня підтримувати порядок і чистоту на робочому місці;

- тримати відкритими всі вентиляційні отвори обладнання;

-    зовнішній пристрій "миша" застосовувати тільки за наявності спеціального килимка;

-  за необхідності припинення роботи на деякий час коректно закрити всі активні завдання;

-  вимикати живлення тільки в тому випадку, коли працівник під час перерви в роботі на ПЕОМ змушений перебувати у безпосередній близькості від відеотерміналу (менше 2 м); якщо це не так, дозволяється живлення не вимикати;

- додержуватись відстані від очей до екрану в межах 60 - 80 см;

-  дотримуватись вимог санітарних норм режиму праці та відпочинку, регламентованих перерв у роботі, виконувати під час цих перерв рекомендовані вправи для очей, шиї, рук, тулуба, ніг.

Регламентовані перерви у роботі: для розробників програм тривалістю 15 хвилин через кожну годину роботи за ВДТ, операторів ЕОМ тривалістю 15 хвилин через кожні дві години роботи за ВДТ, для операторів комп'ютерного набору тривалістю 10 хвилин після кожної години роботи за ВДТ.

3.2 Є неприпустимими такі дії при роботі на ПЕОМ:

- виконання ремонту та налагодження ПЕОМ безпосередньо на робочому місці;

-  зберігання біля відеотерміналу та ПЕОМ паперу, дискет, інших носіїв інформації, запасних блоків, деталей тощо, якщо вони не використовуються для поточної роботи;

-   відключення захисних пристроїв, самочинні зміни у конструкції та складі ПЕОМ;

-   робота з відеотерміналами, в яких під час роботи з'являються нехарактерні сигнали, нестабільне зображення на екрані тощо;

-  праця на матричному принтері зі знятою, або трохи піднятою верхньою кришкою;

- одночасне доторкання до екрану монітора і клавіатури;

- доторкання до задньої панелі процесора при включеному живленні;

-    перемикання кабелів периферійних пристроїв при включеному живленні;

- вимикання живлення під час виконання активного завдання;

- часті перемикання живлення, допущення попадання вологи на поверхню процесора, монітора, клавіатури, дисководів, принтерів та інших пристроїв;

-   включення в мережу обладнання щойно принесеного знадвору в холодну пору року.

3.3  Працівники, що здійснюють обслуговування, ремонт та налагодження ПЕОМ, під час виконання цих робіт повинні дотримуватись таких вимог безпеки:

3.3.1  Монтаж, обслуговування, ремонт та налагодження ПЕОМ, заміна деталей, пристроїв, блоків повинні здійснюватись тільки при повному відключенні живлення. Не з'єднувати та роз'єднувати кабелі при підключеній напрузі;

3.3.2 Якщо монтаж, обслуговування, ремонт та налагодження ПЕОМ або її пристроїв при відключеному живленні неможливі, виконання цих робіт допускається за умови додержання таких вимог:

-  устаткування, допоміжна апаратура та прилади повинні бути заземлені (занулені);

- роботи виконуються не менше ніж двома працівниками;

-  працівники повинні виконувати роботу інструментом з ізольованими ручками, стоячи на діелектричному килимку, або бути в діелектричних калошах;

-  засоби захисту та інструмент необхідно щоразу перед застосуванням оглянути і при виявленні несправностей негайно заміняти. Користування несправними захисними засобами та інструментом є неприпустимим;

під     час     виконання     ремонтних     робіт     слід     користуватись електроінструментом, напруга живлення якого не перевищує 36 В;

-  під час виконання ремонтних робіт, необхідно зняти з руки ручний годинник, що має металевий браслет;

-  ремонтувати або настроювати відеотермінал під напругою необхідно тільки однією рукою, уникаючи доторкання до струмовідних частин відеотерміналу і тільки в тих випадках коли іншим способом виконати роботу неможливо;

- перед заміною кінескопу, блоків та деталей відеотерміналу, а також перед підключенням вимірювальної апаратури (за винятком випадків перевірки напруги або осцилограм за допомогою спеціальних щупів), необхідно вимкнути живлення відеотерміналу та за допомогою інструменту з ізолюючими ручками зняти залишковий заряд з конденсаторів фільтрів випрямлячів та другого анода кінескопа;

3.3.3   Ремонт відеотермінала без футляра, а також усі види робіт з відкритим кінескопом повинні проводитися в захисних окулярах або масці;

3.3.4  Паяння деталей повинно проводитись на спеціальному робочому місці, що обладнане відсмоктувальною вентиляцією, для паяльника використовувати підставку з лотком, який запобігав би попаданню припою, флюсу чи нагару на поверхню столу;

3.3.5     Промивання і знежирення деталей, блоків, плат повинні проводитись за допомогою етилового спирту або спеціальних негорючих промивних рідин у окремому приміщенні в спеціально обладнаних шафах з місцевою витяжною вентиляцією тільки при працюючій вентиляції, не палити і не користуватися відкритим полум'ям в цьому приміщенні;

3.3.6  Зберігання рідин, що застосовуються для промивання, на робочих місцях дозволяється тільки в кількості, потрібній протягом робочої зміни, в металевій зачиненій тарі з матеріалу, що не утворює іскор, у вогнестійкій шафі, обладнаній витяжною вентиляцією;

3.3.7  Зливання відходів промивання повинно проводитись у спеціальні резервуари, зливання відходів промивання в каналізацію забороняється;

3.3.8  Порожню тару необхідно звільняти від залишків промивної рідини шляхом промивання гарячою водою зі спеціальними мийними засобами;

3.3.9   Не працювати поблизу відкритих струмовідних частин (крім випадків, обумовлених вище);

3.3.10    Не залишати без догляду увімкнуте в мережу живлення устаткування, прилади, що використовуються при проведенні робіт;

3.3.11  Не залишати на устаткуванні, приладах запобіжники, з'єднувачі, провід, залишки флюсу, припою тощо;

3.3.12  Не розміщувати на одному робочому столі (місці) два або більше увімкнутих в мережу живлення відеотермінали з знятими футлярами;

3.3.13  Не проводити всередині відеотермінала операції, що виконуються тільки двома руками, без попереднього вимкнення відеотермінала з мережі живлення та зняття залишкових зарядів з конденсаторів фільтрів випрямлячів та другого анода кінескопа.

3.4  Повідомляти керівника робіт про нещасні випадки чи раптові захворювання, виявленні несправності обладнання, пристроїв, інструменту, засобів захисту та інші небезпечні та шкідливі виробничі фактори, що загрожують життю і здоров'ю працівників.

4 Вимоги безпеки після закінчення роботи

4.1  Після закінчення роботи на ПЕОМ працівник повинен додержуватись такої послідовності вимикання обладнання:

- здійснити закриття всіх активних завдань;

-  здійснити паркування зчитуючої головки диска (якщо не передбачене автоматичне паркування головки);

- переконатись у відсутності дискет у дисководах;

- вимкнути живлення процесора;

- вимкнути живлення всіх периферійних пристроїв;

- вимкнути блок живлення;

- штепсельні вилки витягнути з розеток;

- накрити клавіатуру кришкою.

4.2  Після закінчення робіт оглянути і привести в порядок робоче місце, вимити з милом руки і обличчя.

4.3   Про всі недоліки, що виявились у процесі роботи повідомити керівника робіт.

5 Вимоги безпеки в аварійних ситуаціях

5.1 Працівник на ПЕОМ зобов'язаний:

-  у всіх випадках виявлення розриву проводів живлення, несправності заземлення та інших пошкоджень електрообладнання, виникненні запаху гарі негайно вимкнути живлення і повідомити про аварійну ситуацію керівнику і черговому електрику;

-  при попаданні людини під напругу негайно вивільнити її від дії струму шляхом вимкнення електроживлення і до прибуття лікаря надати потерпілому медичну допомогу;

-   при будь-яких випадках порушень роботи технічного обладнання програмного забезпечення негайно викликати представника інженерно-технічної служби експлуатації обчислювальної техніки;

-   у випадку виникнення різі в очах, різкого погіршення видимості, неможливості фокусування погляду і наведення його на різкість, виникнення болей у пальцях та кистях рук, посилення серцебиття - негайно покинути робоче місце, повідомити про те, що сталось, керівника і звернутись до лікаря;

- при загорянні обладнання вимкнути живлення і вжити заходів до ліквідації джерела вогню за допомогою вуглекислотного або порошкового вогнегасника, повідомити пожежну службу та керівника робіт.

5.2 Про усі аварійні ситуації негайно повідомляти керівника робіт.



Додаток 2


Додаток 3

ORG_.dfm

object Form1: TForm1

Left = 237

Top = 130

BorderIcons = [biSystemMenu, biMinimize]

BorderStyle = bsSingle

Caption = #1041#1044' '#1045#1078#1077#1076#1085#1077#1074#1085#1080#1082

ClientHeight = 321

ClientWidth = 757

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -14

Font.Name = 'MS Sans Serif'

Font.Style = []

Icon.Data = {

0000010001002020100000000000E80200001600000028000000200000004000

0000010004000000000080020000000000000000000000000000000000000000

000000008000008000000080800080000000800080008080000080808000C0C0

C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000

0000000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

000BB333333333333333300000000000000B0000000000000000300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7666666666666660300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7666666666666660300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7666666666666660300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7666666666666660300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7666666666666660300000000000000B7FF6FFFFFFFFFFF0300000000000

000B7FF6FFFFFFFFFFF0300000000000000B7FF68888888888F0300000000000

000B7FF00000000008F0300000000000000B7770FF8888770770B00000000000

000BBBBB0FF88770BBBBB000000000000000000000F887000000000000000000

000000000FF88870000000000000000000000000000000000000000000000000

000000000000000000000000000000000000000000000000000000000000FFFF

FFFFFFFFFFFFFFFFFFFFFE00007FFC00003FFC00003FFC00003FFC00003FFC00

003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00

003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00003FFC00

003FFC00003FFC00003FFE00007FFFF00FFFFFF81FFFFFFFFFFFFFFFFFFF}

OldCreateOrder = False

Position = poScreenCenter

OnActivate = FormActivate

PixelsPerInch = 120

TextHeight = 16

object Label1: TLabel

Left = 8

Top = 10

Width = 54

Height = 20

Caption = 'Label1'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -17

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

end

object Label2: TLabel

Left = 8

Top = 41

Width = 48

Height = 16

Caption = 'Label2'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -15

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object DBGrid1: TDBGrid

Left = 8

Top = 72

Width = 737

Height = 209

DataSource = DataSource1

TabOrder = 0

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -14

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

Columns = <

item

Expanded = False

FieldName = 'Data'

Title.Caption = #1050#1086#1075#1076#1072

Title.Font.Charset = DEFAULT_CHARSET

Title.Font.Color = clWindowText

Title.Font.Height = -11

Title.Font.Name = 'MS Sans Serif'

Title.Font.Style = [fsItalic]

Visible = True

end

item

Expanded = False

FieldName = 'What'

Title.Caption = #1063#1090#1086

Title.Font.Charset = DEFAULT_CHARSET

Title.Font.Color = clWindowText

Title.Font.Height = -11

Title.Font.Name = 'MS Sans Serif'

Title.Font.Style = [fsItalic]

Visible = True

end>

end

object Button1: TButton

Left = 360

Top = 288

Width = 129

Height = 25

Caption = #1057#1083#1077#1076'. '#1085#1077#1076#1077#1083#1103

TabOrder = 1

OnClick = Button1Click

end

object Button2: TButton

Left = 8

Top = 288

Width = 105

Height = 25

Caption = #1057#1077#1075#1086#1076#1085#1103

TabOrder = 2

OnClick = Button2Click

end

object Button3: TButton

Left = 120

Top = 288

Width = 113

Height = 25

Caption = #1047#1072#1074#1090#1088#1072

TabOrder = 3

OnClick = Button3Click

end

object Button4: TButton

Left = 240

Top = 288

Width = 113

Height = 25

Caption = #1069#1090#1072' '#1085#1077#1076#1077#1083#1103

TabOrder = 4

OnClick = Button4Click

end

object Button5: TButton

Left = 496

Top = 287

Width = 249

Height = 26

Caption = #1042#1089#1077' '#1079#1072#1076#1072#1085#1080#1103

TabOrder = 5

OnClick = Button5Click

end

object DBNavigator1: TDBNavigator

Left = 416

Top = 24

Width = 330

Height = 26

DataSource = DataSource1

TabOrder = 6

end

object Table1: TTable

DatabaseName = 'diary'

TableName = 'diary.DB'

Left = 152

Top = 120

end

object DataSource1: TDataSource

DataSet = Query1

Left = 216

Top = 120

end

object Query1: TQuery

DatabaseName = 'diary'

SQL.Strings = (

'SELECT DISTINCT Data, What'

'FROM "diary" '

'WHERE'

'(Data = '#39'03.02.2002'#39')'

'ORDER BY Data, What')

Left = 184

Top=120

end

end




Org.dpr

//ГоловниймодульпрограммиОрганізатор.

//Щобйогопобачитииберітьвменю

// Project команду View Source.

program org;


uses

Forms,

org_ in 'org_.pas' {Form1},

SysUtils,Dialogs,

DateUtils, //длядоступудоIncDay

DBTables; //длядоступудоSession,AddStandardAlias


{$R *.res}


var

Present:TDateTime; //сьогодні

NextDay:TDateTime; //наступнийдень

Year,Month,Day:Word; //рік,місяць,день


Query:TQuery;//запрос,забезпечуючий

//створенняБД(таблиці)

begin

Application.Initialize;

Application.Title := 'Ежедневник';

Application.CreateForm(TForm1,Form1);


{Псевдонімдлядоступудобазиданихстворюєтьсяв

часзапускупрограммиііснуєтількив

часработипрограмми.

Базаданихзнаходитсявтомужекаталогі,що

йвикористовуючийфайлпрограммы.Імякаталогу,

вякомузнаходитсявикористовуючийфайлможнаотримати

звернувшисьдофункціїParamStr.}


//створеняпсевдоніму

withSessiondo

begin

ConfigMode := cmSession;

AddStandardAlias('diary', //псевдонімБД

ExtractFilePath(ParamStr(0)), // каталог

'PARADOX');

end;


//встановлюємопотоковудату

Present:=Now;//Now-функція,повертаєпотоковудатуічас

DecodeDate(Present,Year,Month,Day);


case {dof} DayOfWeek(Present) of

6: NextDay := IncDay(Present,3); // пятница

7: NextDay := IncDay(Present,2); // суббта

else NextDay := IncDay(Present,1)

end;


//запитдобазиданих:чиєсправи,заплановані

//насьгоднітаближайшідні

Form1.Query1.SQL[3]:=

'(Data>='''+FormatDateTime('dd/mm/yyyy',Present)+''')'+ 'and'+

'(Data <= '''+ FormatDateTime('dd/mm/yyyy',NextDay)+''')';


try

Form1.Query1.Open; // выполнить запрос


except

onE:EDBEngineErrordo

//Помилкапривикористанізапитуможе

//бутивизванатим,щофайлабазиданихнемає.

//Запропонуватикористувачюстворити

//файлбазиданих.

begin

MessageDlg('Файлтаблицібазиданихненайдено.'+#13+

'Таблицябудестворена.',mtWarning,[mbYes],0);


Query:=TQuery.Create(Form1);

with Query do

begin

//створимозапит,забезпечуючий

//створенняБД


SQL.Add('CREATETABLEdiary(');

SQL.Add('What CHAR(80),');

SQL.Add('Data DATE);');


ExecSQL;

end;

//таблицястворена

Form1.Query1.Open;//дамозапит

end;

end;



ifForm1.Query1.RecordCount<>0 //єсправи,запланованінанаступнадні then

Form1.DataSource1.DataSet:=Form1.Query1

else

begin

Form1.DataSource1.DataSet := Form1.Table1;

Form1.Table1.Open;

ShowMessage('Насьгодніінаступнідні'+

іякихсправнезаплановано.');

end;


Application.Run;

end.


Org_pas

{

Зразупіслязапускупрограммипосылаєзапитдобази

даних,длятогощобзясувати,чиєсправи,заплановані

насьогодні.Якщощосьзаплановано,тонаекранізявляється

вікноЕжедневник.

Запитдобазиданихзпочаткуроботипрограмиформуєголовнапроцедура

програми.

ЩобїїпобачитииберітьізменюProjectкомандуViewSource.

}

unit org_;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls, DBCtrls, ExtCtrls;


type

TForm1 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Query1: TQuery;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Label2: TLabel;

DBNavigator1: TDBNavigator;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form1: TForm1;


stDay:array[1..7]ofstring[11]=('неділя','понеділок','вівторок',

ереда','четвер','пятница','субота');

stMonth:array[1..12]ofstring[8]=('січень','лютий','березень',

'квітень','травень','червень','липень',

'серпень','вересень','жовтень',

'листопад','грудень');


implementation


{$R *.dfm}


usesDateUtils;


//сьогоднішнядатаіденьтижня

procedure TForm1.FormActivate(Sender: TObject);

var

Present: TDateTime;

Year, Month, Day : Word;

begin

Present:=Now;//Now-функція,повертаєдатуичас

DecodeDate(Present,Year,Month,Day);

Label1.Caption := 'Сегодня ' + IntToStr(Day)+' '

+ StMonth[Month] + ' '+ IntToStr(Year)+' года, '+stDay[DayOfWeek(Present)]+'.';

Form1.Label2.Caption:='Сьогодніінанаступнідні:';


end;


//клацаннянакнопкіСьогодні

procedure TForm1.Button2Click(Sender: TObject);

var

st:string;//критеріїзапиту

begin

Form1.Label2.Caption:=ьогодні';

st:= FormatDateTime('dd/mm/yyyy',Now);

Form1.Query1.SQL[3] := '(Data = '''+st+''')';

Form1.Query1.Open;

if form1.Query1.RecordCount <> 0 then

form1.DataSource1.DataSet := Form1.Query1

else begin

ShowMessage('Насьогоднініякихсправнезаплановано.');

//form1.DataSource1.DataSet:=Table1;

end;

end;


// завтра

procedure TForm1.Button3Click(Sender: TObject);

var

Present, //сьогодні

Tomorrow: TDateTime; // завтра


begin

Form1.Label2.Caption := 'Завтра';

Present:=Now;//Now-функція,повертаєдатуічас

Tomorrow:=IncDay(Present); //завтра


Form1.Query1.SQL[3] :=

'(Data = '''+ FormatDateTime('dd/mm/yyyy',Tomorrow)+''')';

Form1.Query1.Open;

if form1.Query1.RecordCount <> 0 then

form1.DataSource1.DataSet := Form1.Query1

else

ShowMessage('Назавтраніякихсправнезаплановано.');

end;


//нацьомутижні

procedure TForm1.Button4Click(Sender: TObject);

var

Present: TDateTime;

EndOfWeek: TDateTime;


begin

Form1.Label2.Caption:='Нацьомутижні';

Present:=Now;//Now-функція,повертаєдатуічас

EndOfWeek:=StartOfAWeek(YearOf(Present),WeekOf(Present)+1);


Form1.Query1.SQL[3] :=

'(Data >= '''+ FormatDateTime('dd/mm/yyyy',Present)+''')' + 'and'+

'(Data < '''+ FormatDateTime('dd/mm/yyyy',EndOfWeek)+''')';

Form1.Query1.Open;

if form1.Query1.RecordCount <> 0 then

form1.DataSource1.DataSet := Form1.Query1

else

ShowMessage('Нацьомутижнініякихсправнезаплановано.');

end;


//нанаступномутижні

procedure TForm1.Button1Click(Sender: TObject);

var

Present: TDateTime;

d1, d2: TDateTime;


begin

Form1.Label2.Caption:='Нанаступномутижні';

Present:=Now;//Now-функція,повертаєдатуічас

d1:=StartOfAWeek(YearOf(Present),WeekOf(Present)+1);

d2 := StartOfAWeek(YearOf(Present),WeekOf(Present)+2);

Form1.Query1.SQL[3] :=

'(Data >= '''+ FormatDateTime('dd/mm/yyyy',d1)+''')' + 'and'+

'(Data < '''+ FormatDateTime('dd/mm/yyyy',d2)+''')';

Form1.Query1.Open;

if form1.Query1.RecordCount <> 0 then

form1.DataSource1.DataSet := Form1.Query1

else

ShowMessage('Нанаступнийтижденьніякихсправнезаплановано.');

end;


//показативсізаписи

procedure TForm1.Button5Click(Sender: TObject);

begin

Form1.Label2.Caption:='Все,щозадуманостворено';

DataSource1.DataSet:=Table1;

Table1.Active := True;

end;



end.