Пректирование и разработка информационной системы диспетчера ГТС
Хомоненко А. Д. и др. Базы данных: Учебник для вузов / Под ред. проф. А. Д. Хомоненко. — СПб.: КОРОНА принт, 2004 — 736 с. Проектирование экономических информационных систем: учеб. / под ред. Ю. Ф. Тельнова. М., 2005 г. Пенова И. П., MS Access для начинающих — Москва, Вильямс, 2008 г., 213 с. Function TMainClientsForm. IsMDIChildOpen (const AFormName: TForm; const AMDIChildName: string): Boolean… Читать ещё >
Пректирование и разработка информационной системы диспетчера ГТС (реферат, курсовая, диплом, контрольная)
Содержание
- 1. 1. Назначение
- 1. 2. Описание требований
- 1. 3. Выбор средств и технологий для разработки
- 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. Выход из системы
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 с.
Разработка и эксплуатация информационных систем
КП. АЗ-91.
ParamPoisk.pas
AddSource.pas
DbdDirectoryTemplate
childTemplate.pas
Главная форма приложения MainClients
Проект
АЗ-91.ХХХ.ПЗ
Лист
Дата
Подпись
№ докум.
Лист
Изм.
УрТИСИ ФГОБУ ВПО «Сиб
ГУТИ"
Листов
Лит.
Разработка и эксплуатация информационных систем
Журавлева И.Н.
И Н.Г.
Утверд.
Бикбулатова Н. Г
Н. Контр.
.
Реценз.
Бикбулатова Н.Г.
Провер.
Разраб.
230 103.
51.9АЗ.
339.ПЗ
Лист
Дата
Подпись
№ докум.
Лист
Изм.
Изм.
Лист
№ докум.
Подпись
Дата
Лист
АЗ-91.ХХХ.ПЗ
Список литературы
- Шафер Д.Ф., Фартрел Т., Шафер Л. И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. — М.: Вильямс, 2004 г.
- Проектирование экономических информационных систем: учеб. / под ред. Ю. Ф. Тельнова. М., 2005 г.
- Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г. А. Титоренко. — М.: Компьютер, ЮИНИТИ, 2006 г.
- Григорьев П.Н., Работа с Access 2000 — СПб, Корона, 2004 г., 180 с.
- Петров Ю.А., Шлимович Е. Л., Ирюпин Ю. В. Комплексная автоматизация управления предприятием: Информационные технологии — теория и практика. — М.: Финансы и статистика, 2005
- Хомоненко А.Д. и др. Базы данных: Учебник для вузов / Под ред. проф. А. Д. Хомоненко. — СПб.: КОРОНА принт, 2004 — 736 с.
- Смирнова Г. Н. и др. Проектирование экономических информационных систем: Учебник / Под ред. Ю. Ф. Тельнова. — М.: Финансы и статистика, 2002 — 512 с.
- Пенова И.П., MS Access для начинающих — Москва, Вильямс, 2008 г., 213 с.
- Смирнов И.Н. и др. Основные СУБД. — М.: Наука, 1999 — 320 с.