Вход

пректирование и разработка информационной системы диспетчера ГТС

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 173482
Дата создания 2012
Страниц 45
Источников 9
Покупка готовых работ временно недоступна.
1 570руб.

Содержание

Содержание.
Оглавление
Введение
1.1 Назначение приложения
Согласно варианта №3 в системе должны быть реализованы запросы трех видов.
1.2 Описание требований
1.3 Выбор средств и технологий для разработки
2 Реализация информационной системы диспетчера ГТС
2.1 Проектирование базы данных
2.2 Проектирование интерфейса для работы с БД
2.3 Руководство пользователя
2.3.1 Назначение системы
2.3.2 Общие сведения
2.3.3 Описание работы пользователя с системой
2.3.3.1 Запуск системы
2.3.3.2 Главное меню
2.3.3.3 Просмотр справочников
2.3.3.4 Добавление информационных объектов
2.3.3.5 Поиск информационных объектов
2.3.3.9 Выход из системы
2.4 Руководство программиста
Заключение
Приложение Листинг программы.
Список литературы

Фрагмент работы для ознакомления

dfm}
function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean;
var
i: Integer;
begin
Result := False;
for i := Pred(AFormName.MDIChildCount) DownTo 0 do
if (AFormName.MDIChildren[i].Name = AMDIChildName) then
begin
Result := True;
AFormName.MDIChildren[i].Free;
// Break;
end;
end;
function TMainClientsForm.IsFormOpen(const FormName : string): Boolean;
var
i: Integer;
begin
Result := False;
for i := Screen.FormCount - 1 DownTo 0 do
if (Screen.Forms[i].Name = FormName) then
begin
Result := True;
Break;
end;
end;
procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource);
begin
//создаем форму
DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner);
DirectoryForm.TableDBGrid.DataSource:=ds;
DirectoryForm.Top:=0;
DirectoryForm.Left:=0;
DirectoryForm.Caption:=sCaption;
end;
procedure TMainClientsForm.N12Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='Номер гаража и кабельный цех ';
nomer_poisk:=3;
Poisk.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.Visible:=true;
end;
procedure TMainClientsForm.N6Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;
mainclientsform.ADOTable1.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Станции', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N7Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;
mainclientsform.ADOTable2.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Цех', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N8Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;
mainclientsform.ADOTable3.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('работник', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N9Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;
mainclientsform.ADOTable4.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Узел', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.RzRapidFireButton1Click(Sender: TObject);
begin
MainClientsForm.N3Click(Sender);
end;
procedure TMainClientsForm.RzRapidFireButton2Click(Sender: TObject);
begin
MainClientsForm.N4Click(Sender);
end;
procedure TMainClientsForm.RzRapidFireButton3Click(Sender: TObject);
begin
MainClientsForm.N15Click(Sender);
end;
procedure TMainClientsForm.RzRapidFireButton4Click(Sender: TObject);
begin
MainClientsForm.N14Click(Sender);
end;
procedure TMainClientsForm.RzRapidFireButton5Click(Sender: TObject);
begin
MainClientsForm.Close;
end;
procedure TMainClientsForm.N10Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;
mainclientsform.ADOTable5.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('гараж', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N20Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;
mainclientsform.ADOTable6.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Смена', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N23Click(Sender: TObject);
begin
mainclientsform.N3Click(Sender);
mainflag:=true;
flag1:=true;
flag2:=false;
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox2.Visible:=false;
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.GroupBox4.Visible:=false;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox6.Visible:=true;
ProsmForm.Height:=800;
mainclientsform.DataSource1.DataSet.Last();
end;
procedure TMainClientsForm.N24Click(Sender: TObject);
begin
mainclientsform.N3Click(Sender);
mainflag:=true;
flag1:=false;
flag2:=true;
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox2.Visible:=false;
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.GroupBox4.Visible:=false;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox6.Visible:=false;
ProsmForm.Height:=500;
ProsmForm.Width:=800;
mainclientsform.DataSource1.DataSet.Last();
end;
procedure TMainClientsForm.FormCreate(Sender: TObject);
var NewConnection: Widestring;
begin
ADOConnection1.Close;
// указываем файл .udl для ADOConnection1
ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+GetCurrentDir+'\gts.mdb;';
ADOConnection1.Open;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable6.Active:=true;
end;
procedure TMainClientsForm.hClick(Sender: TObject);
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'Узел ');
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox2.Visible:=false;
ProsmForm.GroupBox3.Visible:=true;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.GroupBox4.Visible:=false;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox6.Visible:=false;
ProsmForm.Caption:='Узел';
ProsmForm.Height:=400;
end;
procedure TMainClientsForm.N3Click(Sender: TObject);
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'Новый документ');
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox2.Visible:=false;
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.GroupBox4.Visible:=false;
ProsmForm.GroupBox5.Visible:=true;
ProsmForm.GroupBox6.Visible:=false;
ProsmForm.Height:=400;
end;
procedure TMainClientsForm.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
end;
procedure TMainClientsForm.N4Click(Sender: TObject);
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'Цех ');
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox2.Visible:=false;
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox1.Visible:=true;
ProsmForm.GroupBox4.Visible:=false;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox6.Visible:=false;
ProsmForm.Caption:='Цех ';
ProsmForm.Height:=400;
end;
procedure TMainClientsForm.N14Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='поиск данных о станции';
nomer_poisk:=1;
Poisk.GroupBox1.Visible:=true;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.Visible:=false;
end;
procedure TMainClientsForm.N15Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='По номеру узла';
nomer_poisk:=2;
Poisk.GroupBox1.Visible:=false;
Poisk.GroupBox3.Visible:=false;
Poisk.GroupBox2.Visible:=true;
end;
procedure TMainClientsForm.N16Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='Поиск исполнителя';
nomer_poisk:=4;
Poisk.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=true;
Poisk.GroupBox3.Visible:=false;
end;
procedure TMainClientsForm.N17Click(Sender: TObject);
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'Смена ');
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox2.Visible:=false;
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox6.Visible:=true;
ProsmForm.GroupBox4.Visible:=false;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.Caption:='Смена ';
ProsmForm.Height:=400;
end;
procedure TMainClientsForm.N11Click(Sender: TObject);
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'Гараж ');
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox2.Visible:=false;
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.GroupBox4.Visible:=true;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox6.Visible:=false;
ProsmForm.Caption:='Гараж';
ProsmForm.Height:=400;
end;
procedure TMainClientsForm.N19Click(Sender: TObject);
var poisk:Tparampoik;
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addform');
IsMDIChildOpen(MainClientsForm,'parampoik');
poisk:=Tparampoik.Create(Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='Отработанные документы на дату';
nomer_poisk:=6;
Poisk.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.Visible:=false;
Poisk.Button1.Caption:='Подготовить данные';
end;
procedure TMainClientsForm.N1Click(Sender: TObject);
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'Узел ');
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox2.Visible:=true;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.GroupBox4.Visible:=false;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox6.Visible:=false;
ProsmForm.Caption:='Работник';
ProsmForm.Height:=400;
end;
end.
Список литературы
Шафер Д.Ф., Фартрел Т., Шафер Л.И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. – М.: Вильямс, 2004 г.
Проектирование экономических информационных систем: учеб. / под ред. Ю.Ф. Тельнова. М., 2005 г.
Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г.А. Титоренко. – М.: Компьютер, ЮИНИТИ, 2006 г.
Григорьев П.Н., Работа с Access 2000 – СПб, Корона, 2004 г., 180 с.
Петров Ю.А., Шлимович Е.Л., Ирюпин Ю.В. Комплексная автоматизация управления предприятием: Информационные технологии - теория и практика. - М.: Финансы и статистика, 2005
Хомоненко А.Д. и др. Базы данных: Учебник для вузов / Под ред. проф. А.Д. Хомоненко. — СПб.: КОРОНА принт, 2004 — 736 с.
Смирнова Г.Н. и др. Проектирование экономических информационных систем: Учебник / Под ред. Ю.Ф. Тельнова. — М.: Финансы и статистика, 2002 — 512 с.
Пенова И.П., MS Access для начинающих – Москва, Вильямс, 2008 г., 213 с.
Смирнов И.Н. и др. Основные СУБД. – М.: Наука, 1999 – 320 с.

2

Разработка и эксплуатация информационных систем
КП. АЗ-91.
ParamPoisk.pas
AddSource.pas
DbdDirectoryTemplate
childTemplate.pas
Главная форма приложения MainClients
Проект
АЗ-91.ХХХ.ПЗ
4
Лист
Дата
Подпись
№ докум.
Лист
Изм.
УрТИСИ ФГОБУ ВПО «СибГУТИ»
4
Листов
Лит.
Разработка и эксплуатация информационных систем
Журавлева И.Н.
И Н.Г.
Утверд.
Бикбулатова Н.Г
Н. Контр.
.
Реценз.
Бикбулатова Н.Г.
Провер.
Разраб.
230103.51.000009АЗ.339.ПЗ
2
Лист
Дата
Подпись
№ докум.
Лист
Изм.
Изм.
Лист
№ докум.
Подпись
Дата
Лист
9
АЗ-91.ХХХ.ПЗ

Список литературы [ всего 9]

Список литературы
1.Шафер Д.Ф., Фартрел Т., Шафер Л.И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. – М.: Вильямс, 2004 г.
2.Проектирование экономических информационных систем: учеб. / под ред. Ю.Ф. Тельнова. М., 2005 г.
3.Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г.А. Титоренко. – М.: Компьютер, ЮИНИТИ, 2006 г.
4.Григорьев П.Н., Работа с Access 2000 – СПб, Корона, 2004 г., 180 с.
5.Петров Ю.А., Шлимович Е.Л., Ирюпин Ю.В. Комплексная автоматизация управления предприятием: Информационные технологии - теория и практика. - М.: Финансы и статистика, 2005
6.Хомоненко А.Д. и др. Базы данных: Учебник для вузов / Под ред. проф. А.Д. Хомоненко. — СПб.: КОРОНА принт, 2004 — 736 с.
7.Смирнова Г.Н. и др. Проектирование экономических информационных систем: Учебник / Под ред. Ю.Ф. Тельнова. — М.: Финансы и статистика, 2002 — 512 с.
8.Пенова И.П., MS Access для начинающих – Москва, Вильямс, 2008 г., 213 с.
9.Смирнов И.Н. и др. Основные СУБД. – М.: Наука, 1999 – 320 с.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2022