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

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.ХХХ.ПЗ