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

Дипломная Купить готовую Узнать стоимостьмоей работы

Процедура настройки и отображения формы для выдачи информации о строительных фирмах и клиентах и добавление информации. Процедура выполняется при открытии главной формы и производит соединение с таблицами базы данных. Процедура настройки и отображения формы для выдачи информации о макетах добавление информации. Процедура настройки и отображения формы для выдачи информации о клиентах. Процедура… Читать ещё >

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

Содержание

СПИСОК УСЛОВНЫХ ОБОЗНАЧЕНИЙ И СОКРАЩЕНИЙ
ВВЕДЕНИЕ
- 1. 3. Постановка задачи
  - 1. 3. 1. Описание эффективности внедрения
  - 1. 3. 2. Основные действия
2. ПРОЕКТИРОВАНИЕ ПРОГРАММНОГО КОМПЛЕКСА
- 2. 1. Обоснование выбора технических средств
- 2. 3. Обоснование выбора программных средств
- 2. 4. Разработка модели базы данных
- 2. 5. Разработка форм отчетной документации
- 2. 6. Описание программной реализации системы
- 2. 7. Выбор методов обмена данными
- 2. 9. Руководство пользователя
- 2. 10. Верификация и валидация автоматизированной демонстрационной программы формирования заказа на разработку выставочного стенда
  - 2. 10. 1. Основные задачи, цели и методы процессов верификации и валидации
  - 2. 10. 2. Проведение испытаний
    - 2. 10. 2. 1. Объект испытаний
    - 2. 10. 2. 2. Цель испытаний
    - 2. 10. 2. 3. Средства и порядок испытаний
    - 2. 10. 2. 4. Тестирование системы
  - 2. 10. 3. Обзор верификации
    - 2. 10. 3. 1. Организация
    - 2. 10. 3. 2. График проведения работ по тестированию
    - 2. 10. 3. 3. Резюме по ресурсам
    - 2. 10. 3. 4. Ответственность
    - 2. 10. 4. 1. Тестирование серверной части ПП
    - 2. 10. 4. 1. 1 План тестирования
    - 2. 10. 4. 1. 2 Создание объектов базы данных
    - 2. 10. 4. 2. Тестирование клиентской части
    - 2. 10. 4. 2. 1 План тестирования
    - 2. 10. 4. 2. 2 Результаты тестирования клиентской части
приложения
- 2. 10. 4. 3. Результаты интеграционного тестирования
  - 2. 10. 4. 3. 1 План тестирования
  - 2. 10. 4. 3. 2 Результаты интеграционного тестирования
  - 2. 10. 5. Анализ результатов испытаний
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ АЛИСТИНГ РАЗРАБОТАННОЙ ПРОГРАММЫ

FormCount — 1 DownTo 0 do

if (Screen.Forms[i]. Name = FormName) then

begin

Result := True;

Break;

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);

begin

{**************************************************************Процедура позволяет просмотреть справочник тарифы

***********************************************************}

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable9;

mainclientsform.ADOTable9.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Тарифы', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Ид. ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' Работы ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:=' Тариф ';

end;

procedure TMainClientsForm. N6Click (Sender: TObject);

begin

{**************************************************************Процедура позволяет просмотреть справочник Макеты

***********************************************************}

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;

mainclientsform.ADOTable1.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Макеты', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='номер';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='№ инф.';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='№ догов.';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='ид.размер';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ид.смета ';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='состояние';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Покрытие';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='Ид материал';

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);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Ид. договора';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' Номер ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:=' Дата ';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='ИД. фирм';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='ИД клиент';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='дата поставки';

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);

directoryForm.TableDBGrid.Fields[0]. DisplayLabel:=' ИД. ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' Фамилия ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:=' Имя';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='Отчество';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='телефон';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='адрес';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='банк';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='реквизит';

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);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Ид. ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='Название';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Телефон';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Адрес';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Контактное лицо';

end;

procedure TMainClientsForm. RzRapidFireButton1Click (Sender: TObject);

{**************************************************************активизация кнопки toolbuttons

***********************************************************}

begin

MainClientsForm.N3Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton2Click (Sender: TObject);

{**************************************************************активизация кнопки toolbuttons

***********************************************************}

begin

MainClientsForm.N4Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton3Click (Sender: TObject);

{**************************************************************активизация кнопки toolbuttons

***********************************************************}

begin

MainClientsForm.N15Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton4Click (Sender: TObject);

{**************************************************************активизация кнопки toolbuttons

***********************************************************}

begin

MainClientsForm.N14Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton5Click (Sender: TObject);

{**************************************************************активизация кнопки toolbuttons

***********************************************************}

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);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Информация';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='назначение';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Примечание ';

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);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Длина ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='Ширина';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Толщина';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='высот. креплен';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='Доп. размер';

DirectoryForm.TableDBGrid.Fields[6]. DisplayLabel:='величина';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='Доп размер2';

DirectoryForm.TableDBGrid.Fields[8]. DisplayLabel:='Величина';

DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:='Площадь';

end;

procedure TMainClientsForm. N21Click (Sender: TObject);

{**************************************************************Процедура позволяет просмотреть справочник Сметы

***********************************************************}

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;

mainclientsform.ADOTable7.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Смета', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:=' ИД ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' сумма';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='матер.';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='работ.';

//DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='куда';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='№ тариф';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='Примечание';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Покрытите';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='Основа';

DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='Крепление';

end;

procedure TMainClientsForm. N22Click (Sender: TObject);

{**************************************************************Процедура позволяет просмотреть базу данных

***********************************************************}

begin

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

MainClientsForm.N6Click (sender);

prosmForm:=Taddform.Create (Owner);

prosmForm.Top:=230;

prosmForm.Left:=0;

prosmForm.Width:=500;

prosmForm.Height:=200;

prosmForm.Caption:='просмотр записей';

mainflag:=true;

prosmForm.Show;

prosmForm.Button1.Visible:=false;

prosmForm.GroupBox3.Visible:=true;

prosmForm.GroupBox1.Visible:=false;

prosmForm.GroupBox2.Visible:=false;

prosmForm.GroupBox4.Visible:=false;

MainClientsForm.DataSource1.DataSet.last;

end;

procedure TMainClientsForm. FormCreate (Sender: TObject);

{**************************************************************Процедура выполняется при открытии главной формы и производит соединение с таблицами базы данных

***********************************************************}

var NewConnection: Widestring;

begin

NewConnection := PromptDataSource (Handle, MainClientsForm. ADOConnection1.Connectionstring);

MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;

MainClientsForm.ADOConnection1.Connected:=true;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable7.Active:=true;

MainClientsForm.ADOTable8.Active:=true;

end;

procedure TMainClientsForm. N3Click (Sender: TObject);

{**************************************************************Процедура обеспечивает настройку формы для добавления клиента

***********************************************************}

var dobForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'addForm');

dobForm:=Taddform.Create (Owner);

dobForm.Top:=240;

dobForm.Left:=3;

dobForm.Caption:='добавление клиента';

dobForm.Show;

dobForm.Button1.Visible:=true;

dobForm.GroupBox1.Visible:=false;

dobForm.GroupBox3.Visible:=false;

dobForm.GroupBox4.Visible:=false;

end;

procedure TMainClientsForm. DataSource1DataChange (Sender: TObject;

Field: TField);

{**************************************************************Процедура обеспечивает обновление записи при просмотре базы данных

***********************************************************}

begin

if mainflag then

begin

prosmForm.edit5.text:='';

prosmForm.edit50.text:='';

prosmForm.edit51.text:='';

prosmForm.edit47.text:='';

prosmForm.edit17.text:='';

prosmForm.edit4.text:='';

prosmForm.edit3.text:='';

prosmForm.edit53.text:='';

prosmForm.edit55.text:='';

prosmForm.edit49.text:='';

prosmForm.edit54.text:='';

prosmForm.edit7.text:='';

prosmForm.edit47.text:='';

prosmForm.edit44.text:='';

prosmForm.edit39.text:='';

prosmForm.edit37.text:='';

prosmForm.edit41.text:='';

prosmForm.edit35.text:='';

prosmForm.edit20.text:='';

prosmForm.edit41.text:='';

prosmForm.edit45.text:='';

prosmForm.edit46.text:='';

prosmForm.edit48.text:='';

id_inform:=MainClientsForm.ADOTable1.FieldByName ('id_inform').AsInteger;

id_dogovor:=MainClientsForm.ADOTable1.FieldByName ('id_dogovor').AsInteger;

id_razmer:=MainClientsForm.ADOTable1.FieldByName ('id_razmer').AsInteger;

id_smeta:=MainClientsForm.ADOTable1.FieldByName ('id_smeta').AsInteger;

status:=MainClientsForm.ADOTable1.FieldByName ('status').asstring;

pokrut1:=MainClientsForm.ADOTable1.FieldByName ('pokrut').asstring;

id_stroit_mat:=MainClientsForm.ADOTable1.FieldByName ('id_stroit_mat').AsInteger;

prosmForm.edit41.text:=inttostr (id_inform);

prosmForm.edit45.text:=inttostr (id_stroit_mat);

prosmForm.edit48.text:=status;

prosmForm.edit46.text:=pokrut1;

sql_str:='SELECT * from informac where id_inform= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_inform;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

inform:=MainClientsForm.ADOQuery1.FieldByName ('inform').AsString;

prosmForm.Edit5.Text:=inform;

naznach:=MainClientsForm.ADOQuery1.FieldByName ('naznach').AsString;

prosmForm.Edit50.Text:=naznach;

notes:=MainClientsForm.ADOQuery1.FieldByName ('notes').AsString;

prosmForm.Edit51.Text:=notes;

sql_str:='SELECT * from razmer where id_ramer= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_razmer;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

dlina:=MainClientsForm.ADOQuery1.FieldByName ('dlina').Asfloat;

prosmForm.Edit47.Text:=floattostr (dlina);

shirina:=MainClientsForm.ADOQuery1.FieldByName ('shirina').Asfloat;

prosmForm.Edit17.Text:=floattostr (shirina);

tolshina:=MainClientsForm.ADOQuery1.FieldByName ('tolshina').Asfloat;

prosmForm.Edit4.Text:=floattostr (tolshina);

vusota_kreplen:=MainClientsForm.ADOQuery1.FieldByName ('tolshina').Asfloat;

prosmForm.Edit3.Text:=floattostr (vusota_kreplen);

ploshad:=MainClientsForm.ADOQuery1.FieldByName ('ploshad').Asfloat;

prosmForm.Edit49.Text:=floattostr (ploshad);

dop_razmer_zn1:=MainClientsForm.ADOQuery1.FieldByName ('dop_razmer_zn1').Asfloat;

prosmForm.Edit53.Text:=floattostr (dop_razmer_zn1);

dop_razmer_zn2:=MainClientsForm.ADOQuery1.FieldByName ('dop_razmer_zn2').Asfloat;

prosmForm.Edit55.Text:=floattostr (dop_razmer_zn2);

dop_razmer1:=MainClientsForm.ADOQuery1.FieldByName ('dop_razmer1').AsString;

prosmForm.Edit54.Text:=dop_razmer1;

dop_razmer2:=MainClientsForm.ADOQuery1.FieldByName ('dop_razmer2').AsString;

prosmForm.Edit7.Text:=dop_razmer2;

sql_str:='SELECT * from smeta where id_smeta= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_smeta;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

smeta:=MainClientsForm.ADOQuery1.FieldByName ('smeta').Asfloat;

prosmForm.Edit38.Text:=floattostr (smeta);

mater:=MainClientsForm.ADOQuery1.FieldByName ('mater').Asfloat;

prosmForm.Edit44.Text:=floattostr (mater);

rabot:=MainClientsForm.ADOQuery1.FieldByName ('rabot').Asfloat;

prosmForm.Edit39.Text:=floattostr (rabot);

id_tarif:=MainClientsForm.ADOQuery1.FieldByName ('id_tarif').AsInteger;

prosmForm.Edit20.Text:=inttostr (id_tarif);

pokrut:=MainClientsForm.ADOQuery1.FieldByName ('pokrut').Asfloat;

prosmForm.Edit37.Text:=floattostr (pokrut);

osnova:=MainClientsForm.ADOQuery1.FieldByName ('osnova').Asfloat;

prosmForm.Edit31.Text:=floattostr (osnova);

kreplen:=MainClientsForm.ADOQuery1.FieldByName ('kreplen').Asfloat;

prosmForm.Edit35.Text:=floattostr (kreplen);

end;

procedure TMainClientsForm. N4Click (Sender: TObject);

var zakForm: Taddform;

{**************************************************************Процедура обеспечивает настройку формы для добавления макета

***********************************************************}

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'zakForm');

IsMDIChildOpen (MainClientsForm,'addForm');

zakForm:=Taddform.Create (Owner);

zakForm.Top:=240;

zakForm.Left:=3;

zakForm.Caption:='новый макет';

zakForm.Show;

zakForm.Button1.Visible:=true;

zakForm.GroupBox1.Visible:=false;

zakForm.GroupBox2.Visible:=false;

zakForm.GroupBox4.Visible:=false;

zakForm.GroupBox3.Visible:=true;

zakForm.GroupBox3.Left:=2;

zakForm.GroupBox3.Top:=2;

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.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.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.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.Label1.Caption:='Фамилия';

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. Button1Click (Sender: TObject);

begin

MainClientsForm.N22Click (sender);

end;

end.

{**************************************************************** модуль приложения addsorce. pas

******************************************************************}

unit addsorce;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,

StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls, DBCtrls, comobj;

type

TaddForm = class (TForm)

Panel1: TPanel;

GroupBox3: TGroupBox;

GroupBox2: TGroupBox;

Button1: TButton;

Label30: TLabel;

Label27: TLabel;

Label23: TLabel;

Label18: TLabel;

Label15: TLabel;

Edit18: TEdit;

Edit21: TEdit;

Edit26: TEdit;

Label25: TLabel;

Edit28: TEdit;

Label33: TLabel;

Edit36: TEdit;

Edit30: TEdit;

Edit33: TEdit;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label9: TLabel;

Label12: TLabel;

Label42: TLabel;

Label45: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

Label51: TLabel;

Label54: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Edit17: TEdit;

Edit44: TEdit;

Edit45: TEdit;

Edit46: TEdit;

Edit47: TEdit;

Edit48: TEdit;

Edit49: TEdit;

Edit50: TEdit;

Edit51: TEdit;

Edit53: TEdit;

Edit54: TEdit;

Edit55: TEdit;

Label55: TLabel;

Button2: TButton;

Label3: TLabel;

Edit3: TEdit;

Label10: TLabel;

Edit7: TEdit;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label13: TLabel;

Label17: TLabel;

Label19: TLabel;

Button3: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit9: TEdit;

Edit11: TEdit;

Edit14: TEdit;

GroupBox4: TGroupBox;

Label8: TLabel;

Edit6: TEdit;

Label11: TLabel;

Edit8: TEdit;

Label14: TLabel;

Edit10: TEdit;

Label20: TLabel;

Edit12: TEdit;

Label22: TLabel;

Edit13: TEdit;

Edit15: TEdit;

Label26: TLabel;

Edit16: TEdit;

Button4: TButton;

Label24: TLabel;

DBNavigator2: TDBNavigator;

Button5: TButton;

Label16: TLabel;

Edit19: TEdit;

Label21: TLabel;

Edit24: TEdit;

Label29: TLabel;

Edit27: TEdit;

Label28: TLabel;

Edit20: TEdit;

Label32: TLabel;

Label34: TLabel;

Edit31: TEdit;

Label35: TLabel;

Edit35: TEdit;

Label36: TLabel;

Label41: TLabel;

Edit37: TEdit;

Edit38: TEdit;

Label43: TLabel;

Edit39: TEdit;

Label52: TLabel;

Edit41: TEdit;

procedure Button5Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

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

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

addForm: TaddForm;

naim:string;

ed_izm:string;

kolvo:integer;

cena:real;

nomerpartiya:string;

sernum:string;

srok_godnost:tdate;

data_postavka:tdate;

postavchik:string;

description:string;

location:string;

location_part:string;

primech:string;

Ayear, amonth, aday: word;

razmer_part, kol: integer;

id_part, idaddional, idlocation, idzapas: integer;

idtov, id_proffesiya:integer;

Familiya, imya, otchestvo, pasportnomer, pasportvudan: string;

dogovor_nomer:string;

data_dog, okonch: tdatetime;

id_operac:integer;

implementation

uses MainClients;

{$R *.dfm}

{**************************************************************Процедура закрытие дочерней формы

***********************************************************}

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

begin

Action:=caFree;

end;

{**************************************************************Процедура настройки и отображения формы для выдачи информации о клиентах

***********************************************************}

procedure TaddForm. Button1Click (Sender: TObject);

var bank, revizit: string;

begin

Familiya:=edit18.Text;

imya:=edit21.Text;

otchestvo:=edit26.Text;

adres:=edit30.Text;

bank:=edit33.Text;

revizit:=edit36.Text;

dom_tel:=edit28.Text;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable3.Insert;

MainClientsForm.ADOTable3.FieldByName ('fam').AsString:=Familiya;

MainClientsForm.ADOTable3.FieldByName ('nam').AsString:=imya;

MainClientsForm.ADOTable3.FieldByName ('sec_nam').AsString:=otchestvo;

MainClientsForm.ADOTable3.FieldByName ('adres').AsString:=adres;

MainClientsForm.ADOTable3.FieldByName ('telefon').AsString:=dom_tel;

MainClientsForm.ADOTable3.FieldByName ('bank').AsString:=bank;

MainClientsForm.ADOTable3.FieldByName ('rekvizit').AsString:=revizit;

MainClientsForm.ADOTable3.Post;

id_client:=MainClientsForm.ADOTable3.FieldByName ('id_client').AsInteger;

{dogovor_nomer:=Edit33.text;

data_dog:=strtodate (edit36.Text);

okonch:=strtodate (edit37.Text);

id_operac:=strtoint (edit39.Text);

notes:= Edit38. text;

MainClientsForm.ADOTable7.Active:=true;

MainClientsForm.ADOTable7.Insert;

MainClientsForm.ADOTable7.FieldByName ('id_client').AsInteger:=id_client;

MainClientsForm.ADOTable7.FieldByName ('nomer').AsString:=dogovor_nomer;

MainClientsForm.ADOTable7.FieldByName ('date').AsDateTime:=data_dog;

MainClientsForm.ADOTable7.FieldByName ('konec').AsDateTime:=okonch;

MainClientsForm.ADOTable7.FieldByName ('id_operacyia').AsInteger:=id_operac;

MainClientsForm.ADOTable7.FieldByName ('notes').AsString:=notes;

MainClientsForm.ADOTable7.Post;}

end;

procedure TaddForm. Button2Click (Sender: TObject);

{**************************************************************Процедура настройки и отображения формы для выдачи информации о макетах добавление информации

***********************************************************}

begin

inform:= edit5. text; ;

naznach:=edit50.text;;

notes:=edit51.text;;

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable5.Insert;

MainClientsForm.ADOTable5.FieldByName ('inform').AsString:= inform;

MainClientsForm.ADOTable5.FieldByName ('naznach').AsString:= naznach;

MainClientsForm.ADOTable5.FieldByName ('notes').AsString:= notes;

MainClientsForm.ADOTable5.Post;

id_inform:=MainClientsForm.ADOTable5.FieldByName ('id_inform').AsInteger;

dlina:=strtofloat (edit47.Text);

shirina:=strtofloat (edit17.Text);

tolshina:=strtofloat (edit4.Text);

vusota_kreplen:=strtofloat (edit3.Text);

dop_raz_zn1:=strtofloat (edit53.Text);

dop_raz_zn2:=strtofloat (edit55.Text);

ploshad:=strtofloat (edit49.Text);

dop_razmer1:=edit54.Text;

dop_razmer2:=edit7.Text;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable6.Insert;

MainClientsForm.ADOTable6.FieldByName ('dop_razmer1').AsString:= dop_razmer1;

MainClientsForm.ADOTable6.FieldByName ('dop_razmer2').AsString:= dop_razmer2;

MainClientsForm.ADOTable6.FieldByName ('dlina').AsFloat:=dlina;

MainClientsForm.ADOTable6.FieldByName ('shirina').AsFloat:=shirina;

MainClientsForm.ADOTable6.FieldByName ('tolshina').AsFloat:= tolshina;

MainClientsForm.ADOTable6.FieldByName ('vusota_kreplen').AsFloat:=vusota_kreplen;

MainClientsForm.ADOTable6.FieldByName ('dop_razmer_zn1').AsFloat:=dop_raz_zn1;

MainClientsForm.ADOTable6.FieldByName ('dop_razmer_zn2').AsFloat:=dop_raz_zn2;

MainClientsForm.ADOTable6.FieldByName ('ploshad').AsFloat:=dlina;

MainClientsForm.ADOTable6.Post;

id_razmer:= MainClientsForm. ADOTable6.FieldByName ('id_ramer').AsInteger;

smeta:= strtofloat (edit47.Text);

mater:=strtofloat (edit44.Text);

rabot:=strtofloat (edit39.Text);

pokrut:=strtofloat (edit37.Text);

osnova:=strtofloat (edit31.Text);

kreplen:=strtofloat (edit35.Text);

id_tarif:=strtoint (edit20.Text);

MainClientsForm.ADOTable7.Active:=true;

MainClientsForm.ADOTable7.Insert;

MainClientsForm.ADOTable7.FieldByName ('id_tarif').AsInteger:= id_tarif;

MainClientsForm.ADOTable7.FieldByName ('smeta').AsFloat:=smeta;

MainClientsForm.ADOTable7.FieldByName ('mater').AsFloat:=mater;

MainClientsForm.ADOTable7.FieldByName ('rabot').AsFloat:=rabot;

MainClientsForm.ADOTable7.FieldByName ('pokrut').AsFloat:=pokrut;

MainClientsForm.ADOTable7.FieldByName ('osnova').AsFloat:=osnova;

MainClientsForm.ADOTable7.FieldByName ('kreplen').AsFloat:=kreplen;

MainClientsForm.ADOTable7.Post;

id_smeta:=MainClientsForm.ADOTable7.FieldByName ('id_smeta').AsInteger;

id_dogovor:=strtoint (edit41.Text);

id_stroit_mat:=strtoint (edit45.Text);

status:=edit48.Text;

pokrut1:=edit46.Text;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable1.Insert;

MainClientsForm.ADOTable1.FieldByName ('id_inform').AsInteger:= id_inform;

MainClientsForm.ADOTable1.FieldByName ('id_dogovor').AsInteger:= id_dogovor;

MainClientsForm.ADOTable1.FieldByName ('id_razmer').AsInteger:= id_razmer;

MainClientsForm.ADOTable1.FieldByName ('id_smeta').AsInteger:= id_smeta;

MainClientsForm.ADOTable1.FieldByName ('status').asstring:=status;

MainClientsForm.ADOTable1.FieldByName ('pokrut').asstring:=pokrut1;

MainClientsForm.ADOTable1.FieldByName ('id_stroit_mat').AsInteger:= id_stroit_mat;

MainClientsForm.ADOTable1.Post;

end;

{**************************************************************Процедура настройки и отображения формы для выдачи информации о строительных фирмах и клиентах и добавление информации

***********************************************************}

procedure TaddForm. Button3Click (Sender: TObject);

var tovar, srtkl, name_poisk, sqlwhere, stroka_SQL :string;

p1:tparameter;

firm1:string;

kontakt, nomer_dog:string;

id_firm:integer;

datad, datak: tdatetime;

begin

firm1:=edit1.Text;

kontakt:=edit2.Text;

adres:=edit11.Text;

dom_tel:=edit14.Text;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable4.Insert;

MainClientsForm.ADOTable4.FieldByName ('firm').AsString:=Firm1;

MainClientsForm.ADOTable4.FieldByName ('adres').AsString:=adres;

MainClientsForm.ADOTable4.FieldByName ('telefon').AsString:=dom_tel;

MainClientsForm.ADOTable4.FieldByName ('konakt').AsString:=kontakt;

MainClientsForm.ADOTable4.Post;

id_firm:= MainClientsForm. ADOTable4.FieldByName ('id_firm').AsInteger;

nomer_dog:=edit1.Text;

datad:=strtodate (edit19.Text);

id_client:=strtoint (edit24.Text);

datak:=strtodate (edit27.Text);

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable2.Insert;

MainClientsForm.ADOTable2.FieldByName ('nomer').AsString:=nomer_dog;

MainClientsForm.ADOTable2.FieldByName ('data').AsDateTime:=datad;

MainClientsForm.ADOTable2.FieldByName ('id_firm').AsInteger:= id_firm;

MainClientsForm.ADOTable2.FieldByName ('id_client').AsInteger:= id_client;

MainClientsForm.ADOTable2.FieldByName ('data_k').AsDateTime:=datak;

MainClientsForm.ADOTable2.Post;

end;

{**************************************************************Процедура добавление для выдачи информации о строительных материалах

***********************************************************}

procedure TaddForm. Button4Click (Sender: TObject);

var data_sd:tdatetime;

id_object:integer;

stoimz:real;

tarif:real;

dog1,dog2:integer;

id_operac:integer;

data_prim:tdatetime;

naimen, edinica, proizvod, notes, rabot: string;

begin

naimen:=(edit6.text);

edinica:=(edit13.text);

proizvod:=(edit8.text);

notes:=(edit10.text);

stoimz:=strtofloat (edit12.text);

tarif:=strtofloat (edit16.text);

rabot:=edit15.text;

MainClientsForm.ADOTable8.Active:=true;

MainClientsForm.ADOTable8.Insert;

MainClientsForm.ADOTable8.FieldByName ('naimen').AsString:= naimen;

MainClientsForm.ADOTable8.FieldByName ('edinica').AsString:= edinica;

MainClientsForm.ADOTable8.FieldByName ('proizvod').AsString:= proizvod;

MainClientsForm.ADOTable8.FieldByName ('notes').AsString:= notes;

MainClientsForm.ADOTable8.FieldByName ('stoimz').AsFloat:=stoimz;

MainClientsForm.ADOTable8.Post;

MainClientsForm.ADOTable9.Active:=true;

MainClientsForm.ADOTable9.Insert;

MainClientsForm.ADOTable9.FieldByName ('rabot').AsString:= rabot;

MainClientsForm.ADOTable9.FieldByName ('tarif').AsFloat:=tarif;

MainClientsForm.ADOTable9.Post;

end;

{**************************************************************

**************************************************************Процедура вивода данных в Excell и расчет сметы

***********************************************************}

procedure TaddForm. Button5Click (Sender: TObject);

var

XlApplication: OleVariant;

XLWorkSheet: OleVariant;

stoim:real;

begin

try

XlApplication := GetActiveOleObject ('Excel.Application');

except

XlApplication := CreateOleObject ('Excel.Application');

end;

XlApplication.Workbooks.Open[ExtractFilePath (Application.ExeName)+'act.xlt', 0, true];

XlApplication.Visible := true;

XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;

//xlWorkSheet.Range['B1:F1'];

XLWorkSheet.cells[3,3]: =inform;

XLWorkSheet.cells[4,3]: =naznach;

XLWorkSheet.cells[5,3]: =notes;

XLWorkSheet.cells[6,3]: =status;

XLWorkSheet.cells[7,3]: =pokrut;

XLWorkSheet.cells[9,3]: =floattostr (dlina);

XLWorkSheet.cells[10,3]: =floattostr (shirina);

XLWorkSheet.cells[11,3]: =floattostr (tolshina);

XLWorkSheet.cells[12,2]: =dop_razmer1;

XLWorkSheet.cells[13,2]: =dop_razmer2;

XLWorkSheet.cells[12,3]: =floattostr (dop_raz_zn1);

XLWorkSheet.cells[13,3]: =floattostr (dop_raz_zn2);

XLWorkSheet.cells[14,3]: =floattostr (ploshad);

XLWorkSheet.cells[17,3]: =floattostr (mater);

XLWorkSheet.cells[18,3]: =floattostr (osnova);

XLWorkSheet.cells[19,3]: =floattostr (pokrut);

XLWorkSheet.cells[20,3]: =floattostr (kreplen);

XLWorkSheet.cells[21,3]: =floattostr (rabot);

stoim:=(mater+osnova+pokrut)*ploshad+kreplen+rabot;

XLWorkSheet.cells[22,3]: =floattostr (stoim);

end;

end.

ParamPoisk.pas

AddSource.pas

DbdDirectoryTemplate

childTemplate.pas

Главная форма приложения MainClients

Проект stend

Показать весь текст

Список литературы

Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.
Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.
Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. -304с.
Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с.
Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. — 654с.
Волков В. Ф. Экономика предприятия. — М.: Вита-Пресс, 1998. — 380с.
Галатенко В. Информационная безопасность // Открытые системы- 1996. — N 1−4.
Глушаков С.В., Ломотько Д. В. Базы данных .- Х.: Фолио, 2002. — 504 с.
Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. — 450с.
Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. — 280с.
Гофман В.Э. Хомоненко А.Д. Delphi 5. — СПб.: — Санки-Петербург, 2000. -800с.
Гофман В.Э. Хомоненко А.Д. Delphi 6. — СПб.: — Санки-Петербург, 2001. -1145с.
Дайан А. и др. Маркетинг. М., Экономика, 1993.
Жидецкий В. Ц. Охрана труда пользователей компьютеров. — К.: «Освгга», 1999.- 186с.
Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. — 1111 с.
Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
Магнус Я.Р., Катышев П. К., Пересецкий А. А. Эконометрика. Начальный курс. М., Дело, 1997
Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. -Харьков: Фактор, 2001. — 566с.
Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22−27. // www. ITC-UA.COM
Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. — 1128с.
Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22−27. www. ITC-UA.COM
Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с.

Заполнить форму текущей работой

Купить готовую работу