Вход

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

Дипломная работа*
Код 102861
Дата создания 2011
Страниц 98
Источников 28
Покупка готовых работ временно недоступна.
7 000руб.

Содержание

СОДЕРЖАНИЕ
СПИСОК УСЛОВНЫХ ОБОЗНАЧЕНИЙ И СОКРАЩЕНИЙ
ВВЕДЕНИЕ
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;
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');
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;
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.
54
ParamPoisk.pas
AddSource.pas
DbdDirectoryTemplate
childTemplate.pas
Главная форма приложения MainClients
Проект stend

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


ЛИТЕРАТУРА
1.Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
2.Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.
3.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.
4.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
5.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.
6.Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.
7.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.
8.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
9.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.
10.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.
11.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Де¬ло, 1995. – 450с.
12.Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
13.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
14.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.
15.Дайан А. и др. Маркетинг. М., Экономика, 1993.
16.Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.
17.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
18.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
19.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.
20.Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
21.Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
22.Магнус Я.Р., Катышев П.К., Пересецкий А.А. Эконометрика. Начальный курс. М., Дело, 1997
23.Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
24.Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.
25.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COM
26.Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.
27.Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22-27. www.ITC-UA.COM
28.Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала, который не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, но может использоваться в качестве источника для подготовки работы указанной тематики.
Сколько стоит
консультация по подготовке материалов?
1
Заполните заявку - это бесплатно и ни к чему вас не обязывает. Окончательное решение вы принимаете после ознакомления с условиями выполнения работы.
2
Менеджер оценивает работу и сообщает вам стоимость и сроки.
3
Вы вносите предоплату 25% и мы приступаем к работе.
4
Менеджер найдёт лучшего автора по вашей теме, проконтролирует выполнение работы и сделает всё, чтобы вы остались довольны.
5
Автор примет во внимание все ваши пожелания и требования вуза, оформит работу согласно ГОСТ, произведёт необходимые доработки БЕСПЛАТНО.
6
Контроль качества проверит работу на уникальность.
7
Готово! Осталось внести доплату и работу можно скачать в личном кабинете.
После нажатия кнопки "Узнать стоимость" вы будете перенаправлены на сайт нашего официального партнёра Zaochnik.com
© Рефератбанк, 2002 - 2018