о 57 Мбайт вільного простору.
Робота програми здійснюється на основі програмного забезпечення фірми Microsoft. Необхідними засобами є операційна система Windows 95/98/Me/XP і пакет програм Microsoft Office 2000/XP, зокрема Microsoft Access. p align="justify"> Нормальне функціонування програми вимагає вільного дискового простору в обсязі бажано не менше 57 Мбайт.
.7 Розробка процедур пошуку в програмі
У програмі виконуються два види пошуків:
підрахунок кількості порушень за заданим кодом;
пошук інформації про порушників, дата народження яких не пізніше заданої.
.7.1 Пошук по коду порушення
Для підрахунку загальної кількості порушників, заданого виду був використаний SQL-запит, в результаті якого дані, введені користувачем в компонент Edit1 порівнюються з полем Код порушення для сортування таблиці. Якщо відбулося збіг, то відбувається підсумовування даних. По завершенню всіх порівнянь результат даної змінної виводиться в компонент Status Bar. br/>
procedure TForm1.Edit1Change (Sender: TObject) ;//Пошук: = 'WHERE rout_Rout LIKE "%' + Edit1.Text + '%"';. Close;. SQL.Clear;. SQL.Add ('SELECT * FROM Kadeev');. SQL.Add (w);. Open; Edit1.Text ='' then.Panels [1]. Text: ='' else.Panels [1]. Text: = 'Кількість:' + IntToStr (ADOQuery1.RecordCount);; TForm1.Edit1KeyPress (Sender: TObject; var Key: Char); not (Key in ['0 '.. '9', # 8]) then Key: = # 0;;
2.7.2 Пошук за датою народження
Для підрахунку за датою народження, заданого року був використаний SQL-запит, в результаті якого дані, введені користувачем в компонент DateTimePicker порівнюються з полем Дата народження для запису таблиці. Якщо відбулося збіг менше заданого, то відбувається підсумовування даних по полю Дата народження. По завершенню всіх порівнянь по результату порівняння збіги виводять в ДБ Гріді. p align="justify"> procedure TForm1.DateTimePicker1Change (Sender: TObject);// Пошук за датою народження менше заданого
d: string;: integer;: = FormatDateTime ('mm dd yyyy', DateTimePicker1.Date); pos ('', d)> 0 do: = pos ('', d); (d, n, 1); ('/', d, n);;: = 'WHERE rout_Birthdate <= #' + d + '#';// дд.мм.гггг мм/дд/гггг.Close; . SQL.Clear;. SQL.Add ('SELECT * FROM Kadeev');. SQL.Add (w);. Open;;;
3. Керівництво користувача
.1 Призначення бази даних
База даних призначена для додавання інформації про порушників податкової інспекції. При необхідності може обробляти два види пошуку. З їх допомогою, при введенні певних даних, користувач може отримати необхідну інформацію. br/>
.2 Умови виконання програми
Програма не пред'являє в...
