db_';typeTBusOutForm = class (TForm) BitBtn1: TBitBtn;BusListStringGrid: TStringGrid; BitBtn2: TBitBtn;procedure BitBtn2Click (Sender: TObject);procedureFormShow (Sender: TObject);procedure BitBtn1Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;DBBusList = recordnumber: integer;fio:string[255]; marshrut: integer;status:integer;end;varBusOutForm: TBusOutForm;DBFileItem: File of DBBusList;ReadBusItem: DBBusList;implementation{$R *.dfm}procedure TBusOutForm. BitBtn2Click (Sender: TObject);beginBusOutForm.Hide;end;procedureTBusOutForm.FormShow (Sender: TObject);varcycle, flag: integer;beginflag:=0;for cycle:=0 to BusListStringGrid. RowCount — 1 do BusListStringGrid. Rows[cycle]. Clear;BusListStringGrid.RowCount:= 2;BusListStringGrid.Cells[0,0]: ='Номер';BusListStringGrid.Cells[1,0]:='ФИО';BusListStringGrid.Cells[2,0]:='Номермаршрута';BusListStringGrid.Cells[3,0]:='Статус';AssignFile (DBFileItem, DBFileName);ifFileExists (DBFileName) thenbeginReset (DBFileItem);while not Eof (DBFileItem) dobeginRead (DBFileItem, ReadBusItem);if (ReadBusItem.status = 0) thenbeginflag:=1;ifBusListStringGrid.Cells[0,1] <> '' then BusListStringGrid. RowCount:= BusListStringGrid. RowCount + 1;BusListStringGrid.Cells[0,BusListStringGrid.RowCount-1]: =IntToStr (ReadBusItem.number);BusListStringGrid.Cells[1,BusListStringGrid.RowCount-1]:=ReadBusItem.fio;BusListStringGrid.Cells[2,BusListStringGrid.RowCount-1]:=IntToStr (ReadBusItem.marshrut);BusListStringGrid.Cells[3,BusListStringGrid.RowCount-1]:=IntToStr (ReadBusItem.status);end;end;CloseFile (DBFileItem);if (flag=1) then BitBtn1. Enabled:= True;end;end;procedure TBusOutForm. BitBtn1Click (Sender: TObject);varcycle, count_read, number_write, flag_read:integer;beginBusListStringGrid.Cells[3,BusListStringGrid.Row]: ='1';number_write:= StrToInt (BusListStringGrid.Cells[0,BusListStringGrid.Row]);AssignFile (DBFileItem, DBFileName);Reset (DBFileItem);count_read:=0;flag_read:=1;while (not eof (DBFileItem)) and (flag_read=1) dobeginRead (DBFileItem, ReadBusItem);count_read:=count_read+1;if (ReadBusItem.number=number_write) thenbeginReadBusItem. status:=1;Seek (DBFileItem, count_read-1);Write (DBFileItem, ReadBusItem);flag_read:=0;end;end;CloseFile (DBFileItem);ifBusListStringGrid.RowCount >2 thenbeginifBusListStringGrid. Row <> BusListStringGrid. RowCount — 1 thenbeginfor cycle:=BusListStringGrid.Row + 1 to BusListStringGrid. RowCount — 1 dobeginBusListStringGrid. Cells[0,cycle-1]: =BusListStringGrid.Cells[0,cycle];BusListStringGrid.Cells[1,cycle-1]:=BusListStringGrid.Cells[1,cycle];BusListStringGrid.Cells[2,cycle-1]:=BusListStringGrid.Cells[2,cycle];BusListStringGrid.Cells[3,cycle-1]:=BusListStringGrid.Cells[3,cycle];BusListStringGrid.Cells[4,cycle-1]:=BusListStringGrid.Cells[4,cycle];end;end;BusListStringGrid.Rows[BusListStringGrid.RowCount].Clear;BusListStringGrid.RowCount:=BusListStringGrid.RowCount — 1;endelsebeginBusListStringGrid.Rows[1]. Clear;end;ifBusListStringGrid.Cells[0,1] = '' then BitBtn1. Enabled:=False;end;end.
3.3 Тестированиепрограммы
При тестировании обработаны ситуации отсутствия файла с данными. В этом случае требуем файл будет создан заново. Обработаны ситуации при, которых невозможно отправить в рейс автобус находящийся уже на маршруте и нельзя принять автобус в парк уже находящийся в парке.
3.4 Руководство пользователя
Основное окно программы имеет вид
Для выбора требуемого действия необходимо нажать по соответствующей кнопке в приложении. Форма редактирования списка автобусов имеет вид
В таблице выводится список все имеющихся автобусов. Для добавления нового автобуса необходимо заполнить все поля и нажать кнопку «Добавить». Для удаления автобуса необходимо выбрать его в таблице и нажать кнопку «Удалить». Форма отправки автобусов на маршрут имеет вид
В таблице отображаются все автобусы находящиеся в парке. Для отправки автобуса на маршрут необходимо выбрать соответствующий автобус и нажать кнопку «Отправить в рейс автобус». Форма прибытия автобусов в парк имеет вид
В таблице отображаются все автобусы находящиеся на маршруте. Для прибытия автобуса в парк необходимо выбрать соответствующий автобус и нажать кнопку «Вернуть автобус».
ЛИТЕРАТУРА
Архангельский, А. Я. Программирование в Delphi. Учебник по классическим версиям Delphi (+ дискета); М.: Бином, 2006. — 415 c. Бобровский, С. Delphi 5 Учебный курс; СПб: Питер, 2000. — 640 c.
4. Бобровский, Сергей Delphi 7. Учебный курс; СПб: Питер, 2008. — 736 c. Дарахвелидзе, П.Г.; Марков, Е.П. Delphi 2005 для Win32 наиболее полное руководство; БХВ-Петербург, 2005. — 618 c. Дарахвелидзе, П.Г.; Марков, Е.П. Delphi 2005 для Win32 наиболее полное руководство; БХВ-Петербург, 2005. — 577 c. Калверт, Ч. Базы данных в Delphi 4; Киев: Диа
Софт, 1999. — 464 c. Калверт, Ч. Базы данных в Delphi 4; Киев: Диа
Софт, 1999. — 464 c. Сухарев, М. В. Основы Delphi. Профессиональный подход; М.: Наука и техника, 2004. — 600 c. Шумаков, П.В. Delphi 3 и разработка приложений баз данных; М.: Нолидж, 1998. — 704 c. Галисеев Г. В. Программирование в среде Delphi 7.
Самоучитель. — М.: Издательский дом «Вильямс», 2003
Митчелл К. Керман Программирование и отладка в Delphi: Учебный курс: М.; СПб.; Киев, 2003
Фаронов В.В. Delphi 6: Учебный курс. — СПб.: Питер, 2002
Архангельский А.Я. ObjectPascal в Delphi. — СПб.: Бином, 2002
Васильев А., Андреев А. VBA в Office 2000. — М., 2001
Браун С. VisualBasic 6.0: Учебный курс. — СПб.: Питер, 2002, — 573 с. Гофман В. Э., Хомоненко А. Д. Delphi. Быстрый старт. — СПб.: БХВ-Петербург, 2002
Каммингс С. VBA для «чайников». — 3-е изд. / Пер. с англ. — М.: Изд-ий дом «Вильямс», 2001
Культин Н.Б. Delphi в задачах и примерах. — СПб.: БХВ-Петербург, 2003.
