Разработка программного средства автоматизации учета работы автотранспорта на предприятии
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
В°х семейства Windows. Пользование программой не составит труда для тех, кто знаком с данной оболочкой.
Для дальнейшей доработки этой программы необходимо сначала в течение некоторого времени применять её для оценки эффективности, а потом добавлять или исправлять все недочеты, которые пропустил или не посчитал нужным реализовывать разработчик. В результате выполнения дипломного проекта усовершенствованы знания в области объектно-ориентированного программирования, разработке баз данных для локальных сетей, приобретены навыки использования научно - технической и экономической информации.
Данное программное средство может быть доведено до программного продукта после более детального тестирования у заказчика и разработки программной документации.
В случае разработки последующих версий программы можно добавить новые отчеты и усовершенствовать существующую базу данных.
Список используемых источников
1. Сорокин, А.В. Delphi. Разработка баз данных. / А.В. Сорокин - СПб.: Питер, 2005. - 447 с.
. Фаронов, В.В. Delphi5. Руководство разработчика баз данных. / В.В. Фаронов, П.В. Шумаков - М.: Нолидж, 2000. - 640 с.
. Джен, Л.К. Проектирование реляционных баз данных. Просто и доступно. / Л.К. Джен, Г.О. Харингтон - М.: издательство Лори, 2000. - 230 с.
. Бахтизин, В.В. Структурный анализ и моделирование в среде Case-средства BPWin. / В.В. Бахтизин, Л.А. Глухова - Мн.: БГУИР, 2002. - 44с .
5. Бахтизин, В.В. Учебное пособие по курсу Технология проектирования программ: Информационное моделирование с помощью Case-средства ERWin 3.0. / В.В. Бахтизин, Л.А. Глухова - Мн.: БГУИР, 1999. - 35 с.
. Грицай, А.В. Дипломное проектирование: Методические рекомендации по разделу Охрана труда. А.В. Грицай; Мн.: МГВРК,1998. - 214 с.
Приложение
Листинг программы
unit Unit1;
procedure TOsnova.N17Click(Sender: TObject);
begin
Close;
end;
0thencombobox1.ItemIndex=0thenADOTable1.Sort:=_;combobox1.ItemIndex=1thenADOTable1.Sort:=_;combobox1.ItemIndex=2thenADOTable1.Sort:=_;combobox1.ItemIndex=3thenADOTable1.Sort:=_;combobox1.ItemIndex=4then.Active:=false;.Active:=true;;;;TSpr_ych.BitBtn1Click(Sender:TObject);.Insert;_ych.Show;;TSpr_ych.BitBtn2Click(Sender:TObject);_ych.ADOTable1.Edit;_ych.Show;;TSpr_ych.BitBtn3Click(Sender:TObject);messagedlg(?,mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable1.Delete else exit;;TSpr_ych.FormClose(Sender: TObject; var Action: TCloseAction);_ych.Hide;.Show;;TSpr_ych.BitBtn4Click(Sender: TObject);(length(combobox2.Text)>0) and (length(Edit1.Text)>0) then(ComboBox2.ItemIndex=0) then begin.Filter:=(№_группы=+Edit1.Text+);.Filtered:=true;;(ComboBox2.ItemIndex=1) then begin.Filter:=(Фамилия_учащегося=+Edit1.Text+);.Filtered:=true; end;(ComboBox2.ItemIndex=2) then begin.Filter:=(Имя_учащегося=+Edit1.Text+);.Filtered:=true; end;(ComboBox2.ItemIndex=3) then begin.Filter:=(Отчество_учащегося=+Edit1.Text+);.Filtered:=true; end;.Visible:=true;.Visible:=false;messagedlg(Выберите поле и введите значение для поиска,mtInformation,[mbOK],0);;TSpr_ych.BitBtn5Click(Sender: TObject);.Filtered:=false;.Active:=false;.Active:=true;.Refresh;.Visible:=false;.Visible:=true;;TSpr_ych.BitBtn6Click(Sender: TObject);_ych.Hide;.Show;;.Unit3;TSpr_gr.BitBtn3Click(Sender: TObject);n:integer;messagedlg(Удалить данные?,mtinformation,[mbOK,mbCancel],0)=idOKbegin:=ADOQuery1.FieldByName(№_группы).AsInteger;.Filtered:=false;.Filter:=№_группы=+ IntToStr(n) +;.Filtered:=true;.Delete;.Active:=false;.Active:=true;exit;;TSpr_gr.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOQuery1.Sort:=№_группы;combobox1.ItemIndex=1 then ADOQuery1.Sort:=Специальность;combobox1.ItemIndex=2 then.Active:=false;.Active:=true;;;;TSpr_gr.BitBtn1Click(Sender: TObject);.Insert;_gr.Show;;TSpr_gr.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TSpr_gr.BitBtn6Click(Sender: TObject);_gr.Hide;.Show;;.Unit4;TSpr_prep_disc.FormClose(Sender: TObject;Action: TCloseAction);.Show;;TSpr_prep_disc.BitBtn1Click(Sender: TObject);.Insert;_prep.Show;;TSpr_prep_disc.BitBtn2Click(Sender: TObject);.Edit;_prep_disc.Hide;_prep.Show;;TSpr_prep_disc.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOTable1.Sort:=Фамилия_преподавателя;combobox1.ItemIndex=1 then ADOTable1.Sort:=Имя_преподавателя;combobox1.ItemIndex=2 then ADOTable1.Sort:=Отчество_преподавателя;combobox1.ItemIndex=3 then.Active:=false;.Active:=true;;;;TSpr_prep_disc.BitBtn6Click(Sender: TObject);messagedlg(Удалить данные?,mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable2.Delete else exit;;TSpr_prep_disc.BitBtn4Click(Sender: TObject);.Insert;_disc.Show;;TSpr_prep_disc.BitBtn3Click(Sender: TObject);">procedure TOsnova.N12Click(Sender: TObject);.Hide;_ych.Show;;TOsnova.N14Click(Sender: TObject);.Hide;_gr.Show;;TOsnova.N13Click(Sender: TObject);.Hide;_prep_disc.Show;;TOsnova.N2Click(Sender: TObject);.Hide;.Show;;TOsnova.N18Click(Sender: TObject);_spec.Show;.Hide;;TOsnova.N4Click(Sender: TObject);.Show;.Hide;;TOsnova.N3Click(Sender: TObject);.Show;.Hide;;TOsnova.N16Click(Sender: TObject);.Hide;_napr.Show;;TOsnova.N19Click(Sender: TObject);.Show;.Hide;;TOsnova.N15Click(Sender: TObject);.Hide;_rap.Show;;TOsnova.N22Click(Sender: TObject);.Hide;_Naprav.Show;;TOsnova.N8Click(Sender: TObject);_napr_s.Show;.Hide;;TOsnova.N24Click(Sender: TObject);_sprav.Show;.Hide;_sprav.BitBtn1.Visible:=true;_sprav.BitBtn3.Visible:=false;;TOsnova.N25Click(Sender: TObject);.Hide;_sprav.Show;_sprav.BitBtn1.Visible:=false;_sprav.BitBtn3.Visible:=true;;TOsnova.N5Click(Sender: TObject);_prikaz.BitBtn1.Visible:=true;_prikaz.BitBtn3.Visible:=false;_prikaz.Show;.Hide;;TOsnova.N6Click(Sender: TObject);_prikaz.BitBtn1.Visible:=false;_prikaz.BitBtn3.Visible:=true;_prikaz.Show;.Hide;;.Unit2;TSpr_ych.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOTable1.Sort:=Фамилия_учащегося;combobox1.ItemIndex=1 then ADOTable1.Sort:=Имя_учащегося;combobox1.ItemIndex=2 then ADOTable1.Sort:=Отчество_учащегося;combobox1.ItemIndex=3 then ADOTable1.Sort:=№_группы;combobox1.ItemIndex=4 then.Active:=false;.Active:=true;;;;TSpr_ych.BitBtn1Click(Sender: TObject);.Insert;_ych.Show;;TSpr_ych.BitBtn2Click(Sender: TObject);_ych.ADOTable1.Edit;_ych.Show;;TSpr_ych.BitBtn3Click(Sender: TObject);messagedlg(Удалить данные?,mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable1.Delete else exit;;TSpr_ych.FormClose(Sender: TObject; var Action: TCloseAction);_ych.Hide;.Show;;TSpr_ych.BitBtn4Click(Sender: TObject);(length(combobox2.Text)>0) and (length(Edit1.Text)>0) then(ComboBox2.ItemIndex=0) then begin.Filter:=(№_группы=+Edit1.Text+);.Filtered:=true;;(ComboBox2.ItemIndex=1) then begin.Filter:=(Фамилия_учащегося=+Edit1.Text+);.Filtered:=true; end;(ComboBox2.ItemIndex=2) then begin.Filter:=(Имя_учащегося=+Edit1.Text+);.Filtered:=true; end;(ComboBox2.ItemIndex=3) then begin.Filter:=(Отчество_учащегося=+Edit1.Text+);.Filtered:=true; end;.Visible:=true;.Visible:=false;messagedlg(Выберите поле и введите значение для поиска,mtInformation,[mbOK],0);;TSpr_ych.BitBtn5Clic