Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Разработка программного средства автоматизации учета работы автотранспорта на предприятии

Разработка программного средства автоматизации учета работы автотранспорта на предприятии

Анализ входной и выходной информации на предприятии. Осуществление функционального и информационного моделирования базы данных, создание ее структуры. Программная реализация системы автоматизации учета работы автотранспорта. Оценка трудоемкости проекта.

Рубрика	Программирование, компьютеры и кибернетика
Вид	дипломная работа
Язык	русский
Дата добавления	09.07.2012
Размер файла	1,2 M

посмотреть текст работы

скачать работу можно здесь

полная информация о работе

весь список подобных работ

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

end;

procedure TDob_prikaz.BitBtn2Click(Sender: TObject);

begin

Prikaz.ADOTable2.Insert;

BItBtn2.Enabled:=false;

BitBtn4.Enabled:=true;

BitBtn3.Enabled:=false;

BitBtn1.Enabled:=true;

DBLookUpComboBox1.Enabled:=true;

DBLookUpComboBox3.Enabled:=true;

DBEdit1.Enabled:=true;

DBLookUpComboBox2.Enabled:=true;

DBLookUpComboBox5.Enabled:=true;

DateTimePicker1.Enabled:=true;

end;

procedure TDob_prikaz.BitBtn1Click(Sender: TObject);

begin

Prikaz.ADOTable2.Cancel;

BitBtn2.Enabled:=true;

BitBtn1.Enabled:=false;

BitBtn4.Enabled:=true;

BitBtn3.Enabled:=true;

end;

procedure TDob_prikaz.BitBtn3Click(Sender: TObject);

begin

Prikaz.ADOTable2.Delete;

Prikaz.ADOTable2.Refresh;

end;

procedure TDob_prikaz.BitBtn4Click(Sender: TObject);

begin

Prikaz.ADOTable2.Edit;

Prikaz.ADOTable2.FieldByName('№_приказа').AsInteger:=Prikaz.ADOTable1.FieldByName('№_приказа').AsInteger;

Prikaz.ADOTable2.FieldByName('Отметка_об_отработке').Value:=false;

Prikaz.ADOTable2.FieldByName('Кол-во_часов').Value:='1,25';

Prikaz.ADOTable2.Post;

BitBtn2.Enabled:=true;

BitBtn1.Enabled:=false;

BitBtn4.Enabled:=false;

BitBtn3.Enabled:=true;

end;

end.

unit Unit12;

procedure TDob_prep.BitBtn1Click(Sender: TObject);

begin

if (length(DBEdit1.Text)=0) or (length(DBEdit2.Text)=0) or (length(DBEdit3.Text)=0)then

messagedlg('Должны быть заполнены все поля',mtinformation,[mbOK],0)

else begin

Spr_prep_disc.ADOTable1.Post;

Dob_prep.Hide;

Spr_prep_disc.Show;

end;

procedure TDob_prep.BitBtn2Click(Sender: TObject);

begin

Spr_prep_disc.ADOTable1.Cancel;

Dob_prep.Hide;

Spr_prep_disc.Show;

end;

procedure TDob_prep.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Spr_prep_disc.Show;

end;

end.

unit Unit13;

procedure TDob_disc.BitBtn1Click(Sender: TObject);

begin

if (length(DBEdit1.Text)=0) then

messagedlg('Должны быть заполнены все поля',mtinformation,[mbOK],0)

else begin

Spr_prep_disc.ADOTable2.Edit;

Spr_prep_disc.ADOTable2.FieldByName('код_преподавателя').AsString:=Spr_prep_disc.ADOTable1.FieldByName('код_преподавателя').AsString;

Spr_prep_disc.ADOTable2.Post;

Dob_disc.Hide;

Spr_prep_disc.Show;

end;

procedure TDob_disc.BitBtn2Click(Sender: TObject);

begin

Spr_prep_disc.ADOTable2.Cancel;

Dob_disc.Hide;

Spr_prep_disc.Show;

end;

end.

unit Unit14;

procedure TDob_rap_shap.BitBtn2Click(Sender: TObject);

begin

Raport.ADOTable1.Cancel;

Raport.Show;

Dob_rap_shap.Hide;

end;

procedure TDob_rap_shap.BitBtn1Click(Sender: TObject);

begin

if (length(DBLookUpComboBox1.Text)=0) or (length(DBEdit2.Text)=0)then

messagedlg('Для продолжения должны быть заполнены все поля',mtinformation,[mbOK],0)

else begin

Raport.ADOTable1.Post;

Raport.Hide;

Dob_rap_shap.Hide;

Dob_rap.show;

end;

procedure TDob_rap_shap.DateTimePicker1Change(Sender: TObject);

begin

DbEdit2.Text:=DateToStr(DateTimePicker1.Date);

end;

procedure TDob_rap_shap.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

Raport.ADOTable1.Cancel;

Raport.Show;

end;

end.

unit Unit15;

procedure TDob_prik_shap.DateTimePicker1Change(Sender: TObject);

begin

DBEdit1.Text:=DateToStr(DateTimePicker1.Date);

end;

procedure TDob_prik_shap.BitBtn1Click(Sender: TObject);

begin

if length(DBEdit2.Text)<0 then begin

messagedlg('Введите №приказа',mtInformation,[mbOK],0); exit; end;

Prikaz.ADOTable1.Post;

Prikaz.Hide;

Dob_prik_shap.Hide;

Dob_prikaz.show;

end;

procedure TDob_prik_shap.BitBtn2Click(Sender: TObject);

begin

Prikaz.ADOTable1.Cancel;

Prikaz.Show;

Dob_prik_shap.Hide;

end;

procedure TDob_prik_shap.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

Prikaz.ADOTable1.Cancel;

Prikaz.Show;

Dob_prik_shap.Hide;

end;

end.

unit Unit17;

procedure TVid_napr.BitBtn1Click(Sender: TObject);

begin

if ((length(DBLookUpComboBox1.Text)=0) or (length(DBLookUpComboBox1.Text)=0))then begin

messagedlg('Введите данные для отчёта',mtInformation,[mbOK],0); exit; end;

if ((length(DBLookUpComboBox1.Text)=0) and (length(DBLookUpComboBox1.Text)=0))then begin

messagedlg('Введите данные для отчёта',mtInformation,[mbOK],0); exit; end

else begin

Naprav_ot.ADOQuery1.SQL.Clear;

Naprav_ot.ADOQuery1.SQL.Add('SELECT Рап_осн.№_направления_рап,Рап_осн.[№_группы], Рап_осн.Фамилия_учащегося, Рап_осн.Фамилия_преподавателя, Рап_осн.[Кол-во_часов], Рап_осн.Наименование_дисциплины, Рап_осн.Отметка_об_отработке');

Naprav_ot.ADOQuery1.SQL.Add('FROM Рап_осн INNER JOIN Рап_шапка ON Рап_осн.код_рап = Рап_шапка.код_рап');

Naprav_ot.ADOQuery1.SQL.Add('GROUP BY Рап_осн.№_направления_рап,Рап_осн.[№_группы], Рап_осн.Фамилия_учащегося, Рап_осн.Фамилия_преподавателя, Рап_осн.[Кол-во_часов], Рап_осн.Наименование_дисциплины, Рап_осн.Отметка_об_отработке');

Naprav_ot.ADOQuery1.SQL.Add('HAVING (((Рап_осн.[№_группы])='+DBLookupComboBox1.Text+') AND ((Рап_осн.Фамилия_учащегося) Like '''+DBLookupComboBox2.Text+''') AND ((Рап_осн.Отметка_об_отработке)=False));');

Naprav_ot.ADOQuery1.Open;

Naprav_ot.QuickRep1.Preview;

end;

procedure TVid_napr.BitBtn2Click(Sender: TObject);

begin

Close;

Osnova.Show;

end;

procedure TVid_napr.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

end.

unit Unit18;

procedure TNaprav_ot.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Vid_napr.DBLookupComboBox2.Field.Clear;

end;

end.

unit Unit21;

procedure TVib_sprav.BitBtn2Click(Sender: TObject);

begin

Close;

Osnova.Show;

end;

procedure TVib_sprav.BitBtn1Click(Sender: TObject);

begin

if length(DBLookUpComboBox1.Text)<0 then begin

messagedlg('Выберите преподавателя из списка',mtInformation,[mbOK],0); exit;

end

else begin

Spravka.ADOQuery1.Filtered:=false;

Spravka.ADOQuery1.Active:=false;

Spravka.QRDBText1.DataSet:=Spravka.ADOQuery1;

Spravka.QRDBText2.DataSet:=Spravka.ADOQuery1;

Spravka.QRDBText3.DataSet:=Spravka.ADOQuery1;

Spravka.QRDBText4.DataSet:=Spravka.ADOQuery1;

Spravka.QRLabel2.Caption:=datetostr(DateTimePicker1.Date);

Spravka.QRLabel3.Caption:=datetostr(DateTimePicker2.Date);

Spravka.ADOQuery1.Filter:='дата>=#'

+DateToStr(Vib_sprav.DateTimePicker1.Date)

+'# and дата<=#'

+DateToStr(Vib_sprav.DateTimePicker2.Date)

+'# and Фамилия_преподавателя=#'

+Vib_sprav.DBLookupComboBox1.Text

+'#';

Spravka.ADOQuery1.Filtered:=true;

Spravka.QuickRep1.DataSet:=Spravka.ADOQuery1;

Spravka.ADOQuery1.Active:=true;

Spravka.QuickRep1.Preview;

end;

procedure TVib_sprav.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

procedure TVib_sprav.BitBtn3Click(Sender: TObject);

begin

if length(DBLookUpComboBox1.Text)<0 then begin

messagedlg('Выберите преподавателя из списка',mtInformation,[mbOK],0); exit;

end

else begin

Spravka.ADOQuery2.Filtered:=false;

Spravka.ADOQuery2.Active:=false;

Spravka.QRDBText1.DataSet:=Spravka.ADOQuery2;

Spravka.QRDBText2.DataSet:=Spravka.ADOQuery2;

Spravka.QRDBText3.DataSet:=Spravka.ADOQuery2;

Spravka.QRDBText4.DataSet:=Spravka.ADOQuery2;

Spravka.QuickRep1.DataSet:=Spravka.ADOQuery2;

Spravka.QRLabel2.Caption:=datetostr(DateTimePicker1.Date);

Spravka.QRLabel3.Caption:=datetostr(DateTimePicker2.Date);

Spravka.ADOQuery2.Filter:='дата>=#'

+DateToStr(Vib_sprav.DateTimePicker1.Date)

+'# and дата<=#'

+DateToStr(Vib_sprav.DateTimePicker2.Date)

+'# and Фамилия_преподавателя=#'

+Vib_sprav.DBLookupComboBox1.Text

+'#';

Spravka.ADOQuery2.Filtered:=true;

Spravka.ADOQuery2.Active:=true;

Spravka.QuickRep1.Preview;

end;

end.

unit Unit22;

procedure TSpravka.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Vib_sprav.Show;

end;

procedure TSpravka.Timer1Timer(Sender: TObject);

var Data: TDateTime;

begin

Data := Date;

QRLabel13.Caption := Formatdatetime('dd.mm.yyyy', Data);

end;

end.

unit Unit23;

procedure TVid_rap.BitBtn1Click(Sender: TObject);

begin

Raport_ot.QRLabel5.Caption:=datetostr(DateTimePicker1.Date);

Raport_ot.QRLabel6.Caption:=datetostr(DateTimePicker2.Date);

Raport_ot.ADOQuery1.Filtered:=True;

Raport_ot.ADOQuery1.Active:=false;

Raport_ot.ADOQuery1.Active:=true;

Raport_ot.ADOQuery1.Filter:='дата>=#'

+DateToStr(Vid_rap.DateTimePicker1.Date)

+'# and дата<=#'

+DateToStr(Vid_rap.DateTimePicker2.Date)+'#';

Raport_ot.ADOQuery1.Filtered:=true;

Raport_ot.QuickRep1.Preview;

end;

procedure TVid_rap.BitBtn2Click(Sender: TObject);

begin

Close;

Osnova.Show;

end;

procedure TVid_rap.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

end.

unit Unit24;

procedure TVid_napr_s.BitBtn2Click(Sender: TObject);

begin

Close;

Osnova.Show;

end;

procedure TVid_napr_s.BitBtn1Click(Sender: TObject);

begin

if ((length(DBLookUpComboBox1.Text)=0) or (length(DBLookUpComboBox1.Text)=0))then begin

messagedlg('Введите данные для отчёта',mtInformation,[mbOK],0); exit; end;

if ((length(DBLookUpComboBox1.Text)=0) and (length(DBLookUpComboBox1.Text)=0))then begin

messagedlg('Введите данные для отчёта',mtInformation,[mbOK],0); exit; end

else

Naprav_ot_s.ADOQuery1.SQL.Clear;

Naprav_ot_s.ADOQuery1.SQL.Add('Select Приказ_осн.№_направления_приказ, Приказ_осн.№_группы, Приказ_осн.Фамилия_учащегося, Приказ_осн.Фамилия_преподавателя, Приказ_осн.Наименование_дисциплины, Приказ_осн.[Кол-во_часов], Приказ_осн.Срок_сдачи');

Naprav_ot_s.ADOQuery1.SQL.Add('FROM Приказ_осн,Приказ_шапка');

Naprav_ot_s.ADOQuery1.SQL.Add('WHERE (((Приказ_осн.Отметка_об_отработке)=False)) and (Приказ_осн.№_приказа = Приказ_шапка.№_приказа)');

Naprav_ot_s.ADOQuery1.SQL.Add('GROUP BY Приказ_осн.№_направления_приказ, Приказ_осн.№_группы, Приказ_осн.Фамилия_учащегося, Приказ_осн.Фамилия_преподавателя, Приказ_осн.Наименование_дисциплины, Приказ_осн.[Кол-во_часов], Приказ_осн.Срок_сдачи');

Naprav_ot_s.ADOQuery1.SQL.Add('HAVING (((Приказ_осн.[№_группы])='+DBLookupComboBox1.Text+') AND ((Приказ_осн.Фамилия_учащегося) Like '''+DBLookupComboBox2.Text+'''))');

Naprav_ot_s.ADOQuery1.Open;

Naprav_ot_s.QuickRep1.Preview;

end;

procedure TVid_napr_s.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

end.

unit Unit25;

procedure TSpr_Naprav.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

procedure TSpr_Naprav.ComboBox1Change(Sender: TObject);

begin

if COmboBox1.ItemIndex=0 then begin

DBGrid1.Visible:=true;

DBGrid2.Visible:=false;

end;

if COmboBox1.ItemIndex=1 then begin

DBGrid2.Visible:=true;

DBGrid1.Visible:=false;

end;

procedure TSpr_Naprav.BitBtn1Click(Sender: TObject);

begin

if (ComboBox1.ItemIndex=0) and

(messagedlg('Подтвердите отработку',mtinformation,[mbOK,mbCancel],0)=idOK)

then begin

ADOTable1.Edit;

ADOTable1.FieldByName('Отметка_об_отработке').Value:=true;

ADOTable1.Post;

ADOTable1.Active:=false;

ADOTable1.Active:=true;

end;

if (ComboBox1.ItemIndex=1) and

(messagedlg('Подтвердите отработку',mtinformation,[mbOK,mbCancel],0)=idOK)

then begin

ADOTable2.Edit;

ADOTable2.FieldByName('Отметка_об_отработке').Value:=true;

ADOTable2.Post;

ADOTable2.Active:=false;

ADOTable2.Active:=true;

end;

procedure TSpr_Naprav.FormActivate(Sender: TObject);

begin

ADOTable1.Active:=false;

ADOTable2.Active:=false;

ADOTable1.Filtered:=false;

ADOTable2.Filtered:=false;

ADOTable1.Filter:='(Отметка_об_отработке='''+Edit1.Text+''')';

ADOTable2.Filter:='(Отметка_об_отработке='''+Edit1.Text+''')';

ADOTable1.Filtered:=true;

ADOTable2.Filtered:=true;

ADOTable1.Active:=true;

ADOTable2.Active:=true;

end;

procedure TSpr_Naprav.BitBtn2Click(Sender: TObject);

begin

if (ComboBox1.ItemIndex=0) then begin

ADOTable1.Filtered:=false;

ADOTable1.Filter:='(№_направления_рап='''+Edit2.Text+''')';

ADOTable1.Filtered:=true;

end;

if (ComboBox1.ItemIndex=1)then begin

ADOTable2.Filtered:=false;

ADOTable2.Filter:='(№_направления_приказ='''+Edit2.Text+''')';

ADOTable2.Filtered:=true;

end;

BitBtn2.Visible:=false;

BitBtn3.Visible:=true;

end;

procedure TSpr_Naprav.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Active:=false;

ADOTable2.Active:=false;

ADOTable1.Filtered:=false;

ADOTable2.Filtered:=false;

ADOTable1.Filter:='(Отметка_об_отработке='''+Edit1.Text+''')';

ADOTable2.Filter:='(Отметка_об_отработке='''+Edit1.Text+''')';

ADOTable1.Filtered:=true;

ADOTable2.Filtered:=true;

ADOTable1.Active:=true;

ADOTable2.Active:=true;

ADOTable1.Active:=false;

ADOTable2.Active:=false;

ADOTable1.Active:=true;

ADOTable2.Active:=true;

BitBtn3.Visible:=false;

BitBtn2.Visible:=true;

end;

end.

unit Unit27;

procedure TVid_prikaz.BitBtn2Click(Sender: TObject);

begin

Vid_prikaz.Hide;

Osnova.Show;

end;

procedure TVid_prikaz.BitBtn1Click(Sender: TObject);

begin

Graf_1.ADOQuery1.Filtered:=false;

Graf_1.ADOQuery1.Active:=false;

Graf_1.ADOQuery1.Filter:='№_приказа='''+ IntToStr(ADOTable1.FieldByName('№_приказа').Value) +'''';

Graf_1.ADOQuery1.Filtered:=true;

Graf_1.ADOQuery1.Active:=true;

Graf_1.QuickRep1.Preview;

end;

procedure TVid_prikaz.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Osnova.Show;

end;

procedure TVid_prikaz.BitBtn3Click(Sender: TObject);

begin

Graf_2.ADOQuery1.Filtered:=false;

Graf_2.ADOQuery1.Active:=false;

Graf_2.ADOQuery1.Filter:='№_приказа='''+ IntToStr(ADOTable1.FieldByName('№_приказа').Value) +'''';

Graf_2.ADOQuery1.Filtered:=true;

Graf_2.ADOQuery1.Active:=true;

Graf_2.QuickRep1.Preview;

end;

end.

Размещено на Allbest.ru

Страница:

дипломная работа "Разработка программного средства автоматизации учета работы автотранспорта на предприятии" скачать

Подобные документы

Разработка программного продукта для автоматизации работы администратора турфирмы
Офисные программы, необходимые для автоматизации работы турфирмы. Описание входной и выходной информации, структуры базы данных. Аппаратное и программное средства для функционирования автоматизированной информационной системы, ее работоспособность.

курсовая работа [902,2 K], добавлен 02.05.2017
Разработка проекта управления базами данных для процесса "Учет ремонта и ТО автотранспорта"
Реализация базы данных для автоматизированной системы, обслуживающей процесс учета ремонта и техобслуживания автотранспорта. Основные функции отдела реализации теплоснабжающей организации. Обоснование выбора SQL. Создание таблиц базы данных, триггеры.

курсовая работа [233,9 K], добавлен 30.11.2008
Разработка системы информационной поддержки учета взаимоотношений с корпоративными клиентами ООО "Омега"
Организация документооборота корпоративного отдела. Описание состава задач, подлежащих автоматизации, входной и выходной информации. Разработка состава и структуры базы данных, описание пользовательского интерфейса. Экономический эффект автоматизации.

дипломная работа [2,9 M], добавлен 05.12.2011
Задачи автоматизации, хранения и обработки информации на предприятии
Системы управления базами данных и их использование для решения задач автоматизации предприятия. Разработка информационного и программного обеспечения для автоматизации хранения и обработки информации при организации работы агропромышленного предприятия.

курсовая работа [607,1 K], добавлен 07.05.2011
Автоматизированная информационная система учета автотранспорта
Разработка информационной системы для анализа, хранения и обработки информации необходимой для автоматизации учета в автомобильном салоне "Aurore Auto" с помощью технологий Rational Rose, PHP и MySQL. Реализация и экономическая эффективность проекта.

дипломная работа [2,2 M], добавлен 20.05.2011
Разработка информационной системы для учета материалов на складах (на примере ОАО "Химмашбор")
Описание операционной системы, аппаратных и программных средств. Анализ входной и выходной информации. Структура таблиц базы данных. Построение информационно-логической модели. Блок-схема работы программы. Расчет трудоемкости на обработку информации.

курсовая работа [1,2 M], добавлен 05.07.2015
Разработка базы данных автоматизации учета
Инструментальные средства для разработки структуры информационной базы данных "Программа автоматизации учета расчетов с поставщиками", пользовательский интерфейс СУБД Access. Разработка запросов отбора данных и вычислений, экранных форм коррекции данных.

лабораторная работа [2,4 M], добавлен 15.11.2010
Разработка автоматизированной информационной системы "Учет заявок на ремонт и диагностику"
Анализ входной информации и процессов, уровня автоматизации на предприятии. Выявление объекта и задачи автоматизации. Разработка концепции построения информационной модели информационной системы. Разработка структуры базы данных и клиентского приложения.

дипломная работа [2,0 M], добавлен 22.11.2015
Создание приложения, предназначенного для ведения оперативного учета деятельности организации
Описание аппаратных и программных средств, операционной системы. Описание входной и выходной информации. Информационно-логическая модель данных. Схема взаимодействия входной и выходной информации. Расчет трудоемкости и стоимости обработки информации.

курсовая работа [2,4 M], добавлен 05.07.2015
Автоматизации процесса учета договоров на предприятии
Методология структурного проектирования, создание функциональной модели процесса учета договоров на предприятии ООО "УралСтройПроект"; разработка информационной модели логической структуры базы данных для организации электронного документооборота.

курсовая работа [1,6 M], добавлен 10.04.2011

Другие документы, подобные "Разработка программного средства автоматизации учета работы автотранспорта на предприятии"

весь список подобных работ

скачать работу можно здесь

сколько стоит заказать работу?

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.