Создание программного обеспечения автоматизированной справочной системы службы химической чистки

Расчёт затрат на вспомогательные материалы.

Затраты на материалы, необходимые для обеспечения нормальной работы ПЭВМ составляют

около 1% от стоимости ЭВМ:

ЗЕМ=0,01*21000=210 руб/год.

Прочие затраты по эксплуатации ПЭВМ.

Прочие косвенные затраты, связанные с эксплуатацией ПЭВМ, состоят из амортизационных отчислений на здания, стоимости услуг сторонних организаций и составляют 5% от стоимости ЭВМ:

ЗПР=0,05*21000=1050 руб/год.

Годовые издержки на заработную плату обслуживающего персонала.

Издержки на заработную плату обслуживающего персонала складываются из основной заработной платы, дополнительной и отчислений на заработную плату:

ЗЗП = ЗОСНЗП+ЗДОПЗП+ЗОТЧЗП

Таким образом, получим:

ЗЗП=180000+90000+54000=324000 руб.

Сумма основной заработной платы определяется исходя из общей численности работающих в штате:

ЗОСНЗП = 12*?ЗiОКЛ

где

ЗiОКЛ - тарифная ставка i-го работника в мес. руб.;

В штат обслуживающего персонала должны входить инженер-электронщик с месячным окладом 20000 руб. и электрослесарь с окладом 15000 руб.

Тогда, учитывая, что данный персонал обслуживает 2 машин, имеет издержки на основную заработную плату обслуживающего персонала, составят:

ЗОСНЗП=12*15000=180000 руб.

Сумма дополнительной заработной платы составляет 60% от основной заработной платы:

ЗДОПЗП=0,5*180000=90000 руб.

Сумма отчислений на социальные нужды составляет 34% от суммы дополнительной и основной заработных плат:

ЗОТЧЗП = 0,34*(420000+252000) = 228480 руб.

Тогда годовые издержки на заработную плату обслуживающего персонала составят:

ЗЗП = 420000+252000+228480=900480 руб.

Полные затраты на эксплуатацию ЭВМ в течение года составят:

ЗЭВМ = 900480 +3625+1597,1+290+1450+1450 = 908892,1 руб.

Тогда цена машино-часа арендуемого времени составит:

СЧАС=330472,375/1784=185,2 руб.

А затраты на оплату машинного времени составят:

ЗМЕСПП=185,2*16,7=3101,7 руб.

Расчёт общих расходов.

Общие расходы -- это расходы на освещение, отопление, коммунальные услуги и т.п.

Общие затраты на создание программного продукта составят:

ЗСПП=7796,95+3101,7 +0=10898 руб.

Можно сделать следующие выводы:

В результате расчета затраты на создание данного программного продукта составили 10898 руб. В принципе это является средней ценой программы написанной при помощи данных технических средств, и является средней ценой на рынке программостроения. Снизить затраты на создание можно, например, используя следующие методы: повысить эффективность работы программиста, путем использования более современных ЭВМ; при этом, а также при бережном и аккуратном отношении к компьютерной технике автоматически уменьшатся затраты на ремонт, а значит и необходимость привлечения дополнительного обслуживающего персонала будет гораздо реже. Можно сократить количество компьютерной техники, для работы программиста. В связи с тем, что три четверти расходов идут на оплату труда программиста, возможно, уменьшить его заработную плату, или уменьшить необходимое количество программистов, создающих программу. Можно сократить оклад инженера-электронщика и электрослесаря или объединить их обязанности в должности одного работника.



Заключение

В результате выполнения работы, было разработано программное обеспечение для более удобного редактирования заказа службы химической чистки.

Созданная программа удобна и проста, не требует для её применения больших познаний в компьютерных технологиях.

Решает проблему создания недорогого программного обеспечения.



Список используемой литературы

1. Архангельский А.Я., Тагин М.А. "Программирование в C++ Builder 6" - 2013

2. Литвиненко Н.А. - "Технология программирования на С++", БХВ-Петербург, 2014.



Приложение

Текст программы

//--------Unit 1.cpp-------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit9.h"

#include "Unit10.h"

#include "Unit13.h"

#include "Unit16.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

intbg;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

bg=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

bg=bg+1;

if(bg>3)

{

ShowMessage("Высделалислишкоммногоошибок!");

Application->Terminate();

}

DataModule7->IBDataSet1->First();

for(inti=0;i<DataModule7->IBDataSet1->RecordCount;i++)

{

AnsiString str,str2,str3;

str=DataModule7->IBDataSet1->FieldByName("SPASS")->AsString;

for(int g=1;g<str.Length()+1;g++)

{

str2+=str[g];

str=str.Delete(1,g);

}

for(int j=str2.Length();j>=1;j--)

str3+=str2[j];

if(Edit1->Text != DataModule7->IBDataSet1->FieldByName("SLOGIN")->AsString || Edit2->Text != str3 )

{

DataModule7->IBDataSet1->Next();

Label3->Visible=true;

}

else

{

Form1->Hide();

Form2->Show();

if(DataModule7->IBDataSet1->FieldByName("UDP")->AsString=="1")

{

Form2->Button2->Visible=true;

Form3->Button1->Visible=true;

Form3->Label1->Visible=true;

Form3->ComboBox1->Visible=true;

Form6->Label1->Visible=true;

Form6->ComboBox1->Visible=true;

Form6->Button1->Visible=true;

Form8->Button1->Visible=true;

Form8->Button2->Visible=true;

Form8->Button3->Visible=true;

Form2->Button1->Visible=true;

Form2->Button12->Visible=false;

Form8->Button5->Visible=true;

Form2->Button5->Caption="Редактированиеуслуг";

Form8->Label1->Caption=" ";

Form2->ClientWidth=1066;

Form2->ClientHeight=618;

Form2->Button4->Visible=true;

Form2->Label1->Visible=true;

Form2->Label2->Visible=true;

Form2->Label3->Visible=true;

Form2->Edit1->Visible=true;

Form2->Edit2->Visible=true;

Form2->Button6->Visible=true;

Form2->Button7->Visible=true;

Form2->Button8->Visible=true;

Form2->Button9->Visible=true;

Form2->ComboBox1->Visible=true;

Form2->Label1->Visible=true;

Form2->DBGrid1->Visible=true;

Form2->Button2->Visible=true;

Form2->Button13->Visible=false;

Form2->Button14->Visible=false;

}

if(DataModule7->IBDataSet1->FieldByName("UDP")->AsString=="3")

{

Form2->Button2->Visible=true;

Form3->Button1->Visible=true;

Form3->Label1->Visible=true;

Form3->ComboBox1->Visible=true;

Form6->Label1->Visible=true;

Form6->ComboBox1->Visible=true;

Form6->Button1->Visible=true;

Form8->Button1->Visible=true;

Form8->Button2->Visible=true;

Form8->Button3->Visible=true;

Form2->Button1->Visible=true;

Form2->Button12->Visible=true;

Form8->Button5->Visible=true;

Form2->Button5->Caption="Редактированиеуслуг";

Form8->Label1->Caption=" ";

Form2->ClientWidth=1066;

Form2->ClientHeight=618;

Form2->Button4->Visible=true;

Form2->Label1->Visible=true;

Form2->Label2->Visible=true;

Form2->Label3->Visible=true;

Form2->Edit1->Visible=true;

Form2->Edit2->Visible=true;

Form2->Button6->Visible=true;

Form2->Button7->Visible=true;

Form2->Button8->Visible=true;

Form2->Button9->Visible=true;

Form2->Button13->Visible=true;

Form2->ComboBox1->Visible=true;

Form2->Label1->Visible=true;

Form2->DBGrid1->Visible=true;

Form2->Button2->Visible=true;

Form2->Button14->Visible=true;

}

// Form9->Show(); ОТЛАДКА ПОТОМ УДАЛИТЬ

Form9->Memo1->Lines->Add("Пользователь:"+Form1->Edit1->Text+" Времязапуска:"+Time()+" Дата:"+Date());

break; химчистка borlandc программирование firebird

}

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Form1->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Form1->Hide();

Form2->Show();

Form2->Button4->Visible=false;

Form2->Label1->Visible=false;

Form2->Label2->Visible=false;

Form2->Label3->Visible=false;

Form2->Edit1->Visible=false;

Form2->Edit2->Visible=false;

Form2->Button6->Visible=false;

Form2->Button7->Visible=false;

Form2->Button8->Visible=false;

Form2->Button9->Visible=false;

Form2->Button12->Visible=false;

Form2->ComboBox1->Visible=false;

Form2->Label1->Visible=false;

Form2->DBGrid1->Visible=false;

Form2->Button2->Visible=false;

Form3->Button2->Visible=false;

Form3->Label1->Visible=false;

Form3->ComboBox1->Visible=false;

Form6->Label1->Visible=false;

Form6->ComboBox1->Visible=false;

Form6->Button1->Visible=false;

Form2->Button1->Visible=false;

Form8->Button1->Visible=false;

Form8->Button2->Visible=false;

Form8->Button3->Visible=false;

Form8->Button5->Visible=false;

Form2->Button13->Visible=false;

Form2->Button14->Visible=false;

Form2->Button5->Caption="Прейскурант";

Form8->Label1->Caption="Внимание: если нужной вам услуги нету в \nпрейскуранте, обратитесь к сотруднику";

Form9->Memo1->Lines->Add("Гость, время запуска:"+Time()+" Дата:"+Date());

Form2->ClientWidth=290;

Form2->ClientHeight=348;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)

{

if(FileExists(DateToStr(Date())+".txt"))

Form9->Memo1->Lines->LoadFromFile(DateToStr(Date())+".txt");

else

WinExec("perenos.bat",SW_SHOW);

Form16->Hide();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Click(TObject *Sender)

{

if(Edit2->PasswordChar=='*')

Edit2->PasswordChar=0;

else

Edit2->PasswordChar='*';

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Form13->Show();

Form1->Hide();

Form13->Edit1->Text="";

Form13->Edit2->Text="";

Form13->Edit3->Text="";

Form13->Edit4->Text="";

Form13->Edit5->Text="";

Form13->Edit6->Text="";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction&Action)

{

Application->Terminate();

}

//---------------------------------------------------------------------------

//---------Unit 2.cpp-----------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

#include "Unit11.h"

#include "Unit10.h"

#include "Unit14.h"

#include "Unit15.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

int max;

externint money;

//---------------------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)

{

Form3->Show();

Form2->Hide();

Form9->Memo1->Lines->Add("Просмотрзаказовнасегодня");

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button2Click(TObject *Sender)

{

DataModule7->DataSource2->DataSet = NULL;

DataModule7->NzakQuery(DataModule7->IBDataSet2, "SELECT GEN_ID(GEN_ZAK_MAX, 1)FROM rdb$database");

max = DataModule7->IBDataSet2->FieldByName("GEN_ID")->AsInteger;

Edit3->Text=max;

DataModule7->NzakQuery(DataModule7->IBDataSet2, "select * from ZAK where ZKOD = :ID");

DataModule7->DataSource2->DataSet= DataModule7->IBDataSet2;

Form4->Memo1->Clear();

Form4->Button4->Enabled=false;

Form4->Button2->Enabled=true;

DataModule7->IBDataSet2->Insert();

Form4->Show();

Form2->Hide();

Form9->Memo1->Lines->Add("Менюдобавлениязаказа");

if(DataModule7->IBDataSet4->RecordCount>0)

for(inti=0;i<=DataModule7->IBDataSet4->RecordCount;i++)

DataModule7->IBDataSet4->Delete();

DataModule7->DataSource4->DataSet=DataModule7->IBDataSet4;

money=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button3Click(TObject *Sender)

{

Form5->Show();

Form2->Hide();

Form9->Memo1->Lines->Add("Вменюпоискзаказа");

}

//---------------------------------------------------------------------------

void __fastcall TForm2::BitBtn1Click(TObject *Sender)

{

Form1->Show();

Form2->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button4Click(TObject *Sender)

{

Form9->Memo1->Lines->SaveToFile(DateToStr(Date())+".txt");

if(DataModule7->IBDataSet4->RecordCount>0)

for(inti=0;i<=DataModule7->IBDataSet4->RecordCount;i++)

DataModule7->IBDataSet4->Delete();

DataModule7->DataSource4->DataSet=DataModule7->IBDataSet4;

Application->Terminate();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction&Action)

{

Form9->Memo1->Lines->SaveToFile(DateToStr(Date())+".txt");

if(DataModule7->IBDataSet4->RecordCount>0)

for(inti=0;i<=DataModule7->IBDataSet4->RecordCount;i++)

DataModule7->IBDataSet4->Delete();

DataModule7->DataSource4->DataSet=DataModule7->IBDataSet4;

Application->Terminate();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button5Click(TObject *Sender)

{

Form2->Hide();

Form8->Show();

Form9->Memo1->Lines->Add("Просмотрпрейскурантацен ");

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button6Click(TObject *Sender)

{

Form9->Memo1->Lines->Add(DataModule7->IBDataSet2->FieldByName("ZIM")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZFAM")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZDATE")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("STAT")->AsString);

DataModule7->IBDataSet2->Edit();

DataModule7->IBDataSet2->FieldByName("STAT")->AsString=ComboBox1->Text;

DataModule7->IBDataSet2->Post();

Form9->Memo1->Lines->Add("Новоезначениестатусаданногозаказа: "+ComboBox1->Text);

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button7Click(TObject *Sender)

{

if(Edit2->Text!="")

{

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK where ZFAM='"+Edit2->Text+"'");

DataModule7->IBDataSet2->Open();

DBGrid1->SetFocus();

Form9->Memo1->Lines->Add("Поискпофамилии: "+Edit2->Text);

}

else

ShowMessage("Не введена фамилия");

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button8Click(TObject *Sender)

{

if(Edit1->Text!="")

{

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK where NZAK='"+Edit1->Text+"'");

DataModule7->IBDataSet2->Open();

DBGrid1->SetFocus();

Form9->Memo1->Lines->Add("Поискпономерузаказа: "+Edit1->Text);

}

else

ShowMessage("Невведенномерзаказа");

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button9Click(TObject *Sender)

{

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK");

DataModule7->IBDataSet2->Open();

DBGrid1->SetFocus();

Form9->Memo1->Lines->Add("Снятиефильтрации");

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button10Click(TObject *Sender)

{

Form2->Hide();

Form1->Show();

Form1->Edit1->Clear();

Form1->Edit2->Clear();

DataModule7->IBDataSet1->Close();

DataModule7->IBDataSet1->Open();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::FormActivate(TObject *Sender)

{ /*

DataModule7->MyZapros(DataModule7->IBDataSet2, "SELECT GEN_ID(GEN_ZAK_MAX, 1)FROM rdb$database");

max = DataModule7->IBDataSet2->FieldByName("GEN_ID")->AsInteger;

for(inti=0;i<DataModule7->IBDataSet2->RecordCount;i++)

{

if(max<DataModule7->IBDataSet2->FieldByName("NZAK")->AsInteger)

max=DataModule7->IBDataSet2->FieldByName("NZAK")->AsInteger;

DataModule7->IBDataSet2->Next();

}

Edit3->Text=max; */

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button11Click(TObject *Sender)

{

Form11->QuickRep1->Preview();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button12Click(TObject *Sender)

{

Form2->Hide();

Form10->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button13Click(TObject *Sender)

{

Form2->Hide();

Form14->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button14Click(TObject *Sender)

{

Form2->Hide();

Form15->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::DBGrid1DblClick(TObject *Sender)

{

Form15->Show();

AnsiString g;

g=DataModule7->IBDataSet2->FieldByName("NZAK")->AsInteger;

DataModule7->IBDataSet5->Close();

DataModule7->IBDataSet5->SelectSQL->Clear();

DataModule7->IBDataSet5->SelectSQL->Add("select * from HISTORY where NZAK1='"+g+"'");

DataModule7->IBDataSet5->Open();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::N1Click(TObject *Sender)

{

WinExec("hh.exe spravka.chm",SW_RESTORE);

}

//---------------------------------------------------------------------------

//--------------------Unit 3.cpp-------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit4.h"

#include "Unit7.h"

#include "Unit9.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button1Click(TObject *Sender)

{

Form3->Hide();

Form2->Show();

Form9->Memo1->Lines->Add("Возвращение в главноеменю");

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK");

DataModule7->IBDataSet2->Open();

Form2->DBGrid1->SetFocus();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button2Click(TObject *Sender)

{

Form9->Memo1->Lines->Add(DataModule7->IBDataSet2->FieldByName("ZIM")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZFAM")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZDATE")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("STAT")->AsString);

DataModule7->IBDataSet2->Edit();

DataModule7->IBDataSet2->FieldByName("STAT")->AsString=ComboBox1->Text;

DataModule7->IBDataSet2->Post();

Form9->Memo1->Lines->Add("Новоезначениестатусаданногозаказа: "+ComboBox1->Text);

}

//---------------------------------------------------------------------------

void __fastcall TForm3::FormActivate(TObject *Sender)

{

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK where ZDATE='"+DateToStr(Date())+"'");

DataModule7->IBDataSet2->Open();

DBGrid1->SetFocus();

Label3->Caption=Date();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction&Action)

{

Form9->Memo1->Lines->SaveToFile(DateToStr(Date())+".txt");

Application->Terminate();

}

//---------------------------------------------------------------------------

//----------------Unit 4.cpp-----------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

#include "Unit12.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

externint max;

externint money;

intkk;

//---------------------------------------------------------------------------

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button2Click(TObject *Sender)

{

if(DBEdit1->Text.Length()>0 && DBEdit2->Text.Length()>0 && Edit1->Text.Length()>0 )

{

Button1->Enabled=false;

Button5->Enabled=false;

/*DataModule7->NzakQuery(DataModule7->IBDataSet2, "SELECT GEN_ID(GEN_ZAK_MAX, 1)FROM rdb$database");

max = DataModule7->IBDataSet2->FieldByName("GEN_ID")->AsInteger;

max=StrToInt(Form2->Edit3->Text);

DataModule7->NzakQuery(DataModule7->IBDataSet2, "select * from ZAK where ZKOD = :ID");

DataModule7->IBDataSet2->Insert(); */

Memo1->Clear();

Memo1->Lines->Add("Имя: "+DBEdit1->Text);

Memo1->Lines->Add("Фамилия: "+DBEdit2->Text);

if(DBEdit3->Text.Length()>0)

Memo1->Lines->Add("Отчество: "+DBEdit3->Text);

Memo1->Lines->Add("Услуги:");

DataModule7->IBDataSet4->First();

if(DataModule7->IBDataSet4->RecordCount>1)

for(inti=0;i<DataModule7->IBDataSet4->RecordCount;i++)

{

Memo1->Lines->Add(DataModule7->IBDataSet4->FieldByName("USL")->AsString+" Цена:"+DataModule7->IBDataSet4->FieldByName("PRICE")->AsInteger);

DataModule7->IBDataSet4->Next();

}

else

Memo1->Lines->Add(DataModule7->IBDataSet4->FieldByName("USL")->AsString+" Цена:"+DataModule7->IBDataSet4->FieldByName("PRICE")->AsInteger);

if(kk==1)

Memo1->Lines->Add("Использованпромо-код: "+Edit2->Text);

Memo1->Lines->Add("Суммазаказа: "+Edit1->Text);

if(DBEdit4->Text.Length()>0)

Memo1->Lines->Add("Примечание: "+DBEdit4->Text);

Memo1->Lines->Add("Датазаказа:"+Date());

Memo1->Lines->Add("Номерзаказа:"+Form2->Edit3->Text);

Form9->Memo1->Lines->Add("Создание нового заказа");

Form9->Memo1->Lines->Add(DataModule7->IBDataSet2->FieldByName("ZIM")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZFAM")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZOTCH")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZPRIM")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZDATE")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("STAT")->AsString)+" -> NZAK"+DataModule7->IBDataSet2->FieldByName("NZAK")->AsInteger;

Button4->Enabled=true;

Button2->Enabled=false;

}

else

ShowMessage("Заполните обязательные поля:Имя, Фамилия и выполните пересчет суммы заказа");

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button3Click(TObject *Sender)

{

Button1->Enabled=true;

Button5->Enabled=true;

if(DataModule7->IBDataSet4->RecordCount>0) {

DataModule7->IBDataSet4->Close();

DataModule7->IBDataSet4->SelectSQL->Clear();

DataModule7->IBDataSet4->SelectSQL->Add("delete from KORZ");

DataModule7->IBDataSet4->Open();

}

DataModule7->DataSource4->DataSet=DataModule7->IBDataSet4;

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->Open();

Form4->Hide();

Form2->Show();

Form9->Memo1->Lines->Add("Возвращениевменю");

Edit1->Clear();

Edit2->Text="Безскидки";

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button1Click(TObject *Sender)

{

DataModule7->IBDataSet3->Close();

DataModule7->IBDataSet3->Open();

DataModule7->IBDataSet3->Edit();

Form4->Hide();

Form8->Show();

Form9->Memo1->Lines->Add("Добавлениеуслуги");

}

//---------------------------------------------------------------------------

void __fastcall TForm4::FormClose(TObject *Sender, TCloseAction&Action)

{

Form9->Memo1->Lines->SaveToFile(DateToStr(Date())+".txt");

if(DataModule7->IBDataSet4->RecordCount>0) {

DataModule7->IBDataSet4->Close();

DataModule7->IBDataSet4->SelectSQL->Clear();

DataModule7->IBDataSet4->SelectSQL->Add("delete from KORZ");

DataModule7->IBDataSet4->Open();

}

DataModule7->DataSource4->DataSet=DataModule7->IBDataSet4;

Application->Terminate();

Button1->Enabled=true;

Button5->Enabled=true;

Edit1->Clear();

Edit2->Text="Безскидки";

}

//---------------------------------------------------------------------------

void __fastcall TForm4::FormCreate(TObject *Sender)

{

Button4->Enabled=false;

Button2->Enabled=true;

Edit1->Clear();

Edit2->Text="Безскидки";

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button4Click(TObject *Sender)

{

Button1->Enabled=true;

Button5->Enabled=true;

DataModule7->IBDataSet2->FieldByName("PRICE")->AsString=Edit1->Text;

DataModule7->IBDataSet2->FieldByName("ZDATE")->AsString=Date();

DataModule7->IBDataSet2->FieldByName("STAT")->AsString="Невыполнен";

DataModule7->IBDataSet2->FieldByName("ZKOD")->AsInteger=DataModule7->IBDataSet1->FieldByName("ID")->AsInteger;

DataModule7->IBDataSet2->FieldByName("NZAK")->AsInteger=StrToInt(Form2->Edit3->Text);

DataModule7->IBDataSet2->Post();

Form4->Hide();

Form2->Show();

Memo1->Lines->SaveToFile("tempmemo.txt");

Form12->QRMemo1->Lines->LoadFromFile("tempmemo.txt");

Form12->QuickRep1->Preview();

DataModule7->IBDataSet4->First();

for(inti=0;i<DataModule7->IBDataSet4->RecordCount;i++)

{

DataModule7->IBDataSet5->Insert();

DataModule7->IBDataSet5->FieldByName("USL1")->AsString=DataModule7->IBDataSet4->FieldByName("USL")->AsString;

DataModule7->IBDataSet5->FieldByName("NZAK1")->AsInteger=DataModule7->IBDataSet4->FieldByName("NZAK2")->AsInteger;

DataModule7->IBDataSet5->FieldByName("PRICE1")->AsInteger=DataModule7->IBDataSet4->FieldByName("PRICE")->AsInteger;

DataModule7->IBDataSet5->Post();

DataModule7->IBDataSet4->Next();

}

if(DataModule7->IBDataSet4->RecordCount>0) {

DataModule7->IBDataSet4->Close();

DataModule7->IBDataSet4->SelectSQL->Clear();

DataModule7->IBDataSet4->SelectSQL->Add("delete from KORZ");

DataModule7->IBDataSet4->Open();

}

Edit1->Clear();

Edit2->Text="Безскидки";

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button5Click(TObject *Sender)

{

if(DataModule7->IBDataSet4->RecordCount>0)

{

money=money-DataModule7->IBDataSet4->FieldByName("PRICE")->AsInteger;

DataModule7->IBDataSet4->Delete();

}

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button6Click(TObject *Sender)

{

floatpromo,fix;

kk=0;

DataModule7->IBDataSet6->First();

for(inti=0;i<=DataModule7->IBDataSet6->RecordCount;i++)

{

if(Edit2->Text==DataModule7->IBDataSet6->FieldByName("PNAME")->AsString)

{

promo=DataModule7->IBDataSet6->FieldByName("DISC")->AsFloat;

fix=money*promo;

Edit1->Text=fix;

kk=1;

}

DataModule7->IBDataSet6->Next();

}

if(kk==0)

Edit1->Text=money;

}

//---------------------------------------------------------------------------

//---------------Unit 5.cpp------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit5.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit9.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

//---------------------------------------------------------------------------

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm5::Button2Click(TObject *Sender)

{

Form5->Hide();

Form2->Show();

Form9->Memo1->Lines->Add("Возвращениевменю");

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK");

DataModule7->IBDataSet2->Open();

Form2->DBGrid1->SetFocus();

}

//---------------------------------------------------------------------------

void __fastcall TForm5::Button1Click(TObject *Sender)

{

Form6->Show();

Form5->Hide();

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK where ZDATE='"+DateToStr(Form5->MonthCalendar1->Date)+"'");

DataModule7->IBDataSet2->Open();

Form6->DBGrid1->SetFocus();

Form9->Memo1->Lines->Add("Поискзаказаподате: "+DateToStr(Form5->MonthCalendar1->Date));

}

//---------------------------------------------------------------------------

void __fastcall TForm5::Button3Click(TObject *Sender)

{

if(Edit1->Text!="")

{

Form6->Show();

Form5->Hide();

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK where ZFAM='"+Edit1->Text+"'");

DataModule7->IBDataSet2->Open();

Form6->DBGrid1->SetFocus();

Form9->Memo1->Lines->Add("Поискпофамилии: "+Edit1->Text);

Edit1->Clear();

Edit2->Clear();

}

else

ShowMessage("Невведенафамилия");

}

//---------------------------------------------------------------------------

void __fastcall TForm5::FormClose(TObject *Sender, TCloseAction&Action)

{

Form9->Memo1->Lines->SaveToFile(DateToStr(Date())+".txt");

Application->Terminate();

}

//---------------------------------------------------------------------------

void __fastcall TForm5::Button4Click(TObject *Sender)

{

if(Edit2->Text!="")

{

Form6->Show();

Form5->Hide();

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK where NZAK='"+Edit2->Text+"'");

DataModule7->IBDataSet2->Open();

Form6->DBGrid1->SetFocus();

Form9->Memo1->Lines->Add("Поискпономерузаказа: "+Edit2->Text);

}

else

ShowMessage("Номерзаказаневведен!");

}

//---------------------------------------------------------------------------

//-------------Unit 6.cpp--------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit6.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm6 *Form6;

//---------------------------------------------------------------------------

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Button2Click(TObject *Sender)

{

Form6->Hide();

Form2->Show();

Form9->Memo1->Lines->Add("Возвращениевменю");

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK");

DataModule7->IBDataSet2->Open();

Form2->DBGrid1->SetFocus();

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Button1Click(TObject *Sender)

{

Form9->Memo1->Lines->Add(DataModule7->IBDataSet2->FieldByName("ZIM")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZFAM")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("ZDATE")->AsString+" -> "+DataModule7->IBDataSet2->FieldByName("STAT")->AsString);

DataModule7->IBDataSet2->Edit();

DataModule7->IBDataSet2->FieldByName("STAT")->AsString=ComboBox1->Text;

DataModule7->IBDataSet2->Post();

Form9->Memo1->Lines->Add("Новоезначениестатусаданногозаказа: "+ComboBox1->Text);

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Button3Click(TObject *Sender)

{

if(Edit2->Text!="")

{

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK where ZFAM='"+Edit2->Text+"'");

DataModule7->IBDataSet2->Open();

DBGrid1->SetFocus();

Form9->Memo1->Lines->Add("Поискпофамилии: "+Edit2->Text);

}

else

ShowMessage("Не введена фамилия");

}

//---------------------------------------------------------------------------

void __fastcall TForm6::FormClose(TObject *Sender, TCloseAction&Action)

{

Form9->Memo1->Lines->SaveToFile(DateToStr(Date())+".txt");

Application->Terminate();

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Button4Click(TObject *Sender)

{

if(Edit1->Text!="")

{

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK where NZAK='"+Edit1->Text+"'");

DataModule7->IBDataSet2->Open();

DBGrid1->SetFocus();

Form9->Memo1->Lines->Add("Поискпономерузаказа: "+Edit1->Text);

}

else

ShowMessage("Не введен номер заказа");

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Button5Click(TObject *Sender)

{

DataModule7->IBDataSet2->Close();

DataModule7->IBDataSet2->SelectSQL->Clear();

DataModule7->IBDataSet2->SelectSQL->Add("select * from ZAK");

DataModule7->IBDataSet2->Open();

DBGrid1->SetFocus();

Form9->Memo1->Lines->Add("Снятиефильтрации ");

}

//---------------------------------------------------------------------------

//--------------Unit 8.cpp-------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit8.h"

#include "Unit1.h"

#include "Unit4.h"

#include "Unit7.h"

#include "Unit2.h"

#include "Unit9.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm8 *Form8;

externint max;

int money;

//---------------------------------------------------------------------------

__fastcall TForm8::TForm8(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Button4Click(TObject *Sender)

{

Form8->Hide();

Form2->Show();

Form9->Memo1->Lines->Add("Возвращениевменю");

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Button2Click(TObject *Sender)

{

DataModule7->IBDataSet3->Insert();

Button1->Enabled=false;

Button2->Enabled=false;

Button3->Enabled=false;

Button4->Enabled=false;

Button5->Enabled=true;

GroupBox1->Visible=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Button3Click(TObject *Sender)

{

Form4->Show();

Form8->Hide();

DataModule7->IBDataSet4->Append();

DataModule7->IBDataSet4->FieldByName("USL")->AsString = DataModule7->IBDataSet3->FieldByName("PNAME")->AsString;

DataModule7->IBDataSet4->FieldByName("PRICE")->AsInteger = DataModule7->IBDataSet3->FieldByName("PRICE")->AsInteger;

DataModule7->IBDataSet4->FieldByName("NZAK2")->AsInteger = StrToInt(Form2->Edit3->Text);

DataModule7->IBDataSet4->Post();

Form9->Memo1->Lines->Add("Выборуслуги :"+DataModule7->IBDataSet3->FieldByName("PNAME")->AsString+" сЦеной "+DataModule7->IBDataSet3->FieldByName("PRICE")->AsString);

money+=DataModule7->IBDataSet3->FieldByName("PRICE")->AsInteger;

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Button1Click(TObject *Sender)

{

Form9->Memo1->Lines->Add("Удалениеуслуги: "+DataModule7->IBDataSet3->FieldByName("PNAME")->AsString+" сЦеной "+DataModule7->IBDataSet3->FieldByName("PRICE")->AsString);

DataModule7->IBDataSet3->Delete();

}

//---------------------------------------------------------------------------

void __fastcall TForm8::FormClose(TObject *Sender, TCloseAction&Action)

{

Form9->Memo1->Lines->SaveToFile(DateToStr(Date())+".txt");

Application->Terminate();

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Button5Click(TObject *Sender)

{

if(DBEdit1->Text!="" || DBEdit2->Text!="")

{

if(DataModule7->IBDataSet3->State==dsInsert)

DataModule7->IBDataSet3->Post();

else

{

Button1->Enabled=true;

Button2->Enabled=true;

Button3->Enabled=true;

Button4->Enabled=true;

Form9->Memo1->Lines->Add("Добавлениеуслуги :"+DataModule7->IBDataSet3->FieldByName("PNAME")->AsString+" сЦеной "+DataModule7->IBDataSet3->FieldByName("PRICE")->AsString);

Button5->Enabled=false;

GroupBox1->Visible=false;

}

}

else

{

ShowMessage("Не введено наименование услуги или цена");

Button1->Enabled=true;

Button2->Enabled=true;

Button3->Enabled=true;

Button4->Enabled=true;

Button5->Enabled=false;

GroupBox1->Visible=false;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm8::FormCreate(TObject *Sender)

{

Button5->Enabled=false;

}

//---------------------------------------------------------------------------

//----------------Unit 10.cpp-----------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit10.h"

#include "Unit2.h"

#include "Unit1.h"

#include "Unit7.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm10 *Form10;

//---------------------------------------------------------------------------

__fastcall TForm10::TForm10(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button1Click(TObject *Sender)

{

Form10->Hide();

Form2->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button2Click(TObject *Sender)

{

DataModule7->IBDataSet1->Post();

Panel1->Visible=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button3Click(TObject *Sender)

{

DataModule7->IBDataSet1->Edit();

Panel1->Visible=true;

}

//---------------------------------------------------------------------------

//-------------Unit 13.cpp--------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit13.h"

#include "Unit1.h"

#include "Unit12.h"

#include "Unit7.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm13 *Form13;

AnsiString Z="qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890";

//---------------------------------------------------------------------------

__fastcall TForm13::TForm13(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm13::Button1Click(TObject *Sender)

{

DataModule7->IBDataSet1->Close();

DataModule7->IBDataSet1->SelectSQL->Clear();

DataModule7->IBDataSet1->SelectSQL->Add("select * from SHTAT where SLOGIN = '"+ Edit1->Text+ "'");

DataModule7->IBDataSet1->Open();

if(DataModule7->IBDataSet1->RecordCount == 0)

{

if(Edit2->Text==Edit3->Text)

{

DataModule7->IBDataSet1->Insert();

DataModule7->IBDataSet1->FieldByName("SLOGIN")->AsString=Edit1->Text;

//Шифровка

AnsiString str,str2,str3;

intDS,dk;

randomize();

str=Edit2->Text;

for(inti=str.Length();i>=1;i--)

str2+=str[i];

DS=str2.Length();

for(inti=1;i<DS+1;i++)

{

str3+=str2[i];

if(i!=DS)

for(int j=0;j<i;j++)

str3+=Z[1+rand()%Z.Length()];

}

//Конецшифровки

DataModule7->IBDataSet1->FieldByName("SPASS")->AsString=str3;

DataModule7->IBDataSet1->FieldByName("SFAM")->AsString=Edit4->Text;

DataModule7->IBDataSet1->FieldByName("SIM")->AsString=Edit5->Text;

DataModule7->IBDataSet1->FieldByName("SOTCH")->AsString=Edit6->Text;

DataModule7->IBDataSet1->FieldByName("UDP")->AsInteger=1;

DataModule7->IBDataSet1->Post();

DataModule7->IBDataSet1->Close();

DataModule7->IBDataSet1->Open();

}

}

else

{

DataModule7->IBDataSet1->Close();

DataModule7->IBDataSet1->Open();

}

Form13->Hide();

Form1->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm13::FormClose(TObject *Sender, TCloseAction&Action)

{

Application->Terminate();

}

//---------------------------------------------------------------------------

//-------------Unit 14.cpp--------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit14.h"

#include "Unit7.h"

#include "Unit2.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm14 *Form14;

//---------------------------------------------------------------------------

__fastcall TForm14::TForm14(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm14::Button1Click(TObject *Sender)

{

DataModule7->IBDataSet6->Edit();

Panel1->Visible=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm14::Button2Click(TObject *Sender)

{

DataModule7->IBDataSet6->Post();

Panel1->Visible=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm14::Button3Click(TObject *Sender)

{

Form14->Hide();

Form2->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm14::Button4Click(TObject *Sender)

{

DataModule7->IBDataSet6->Insert();

Panel1->Visible=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm14::Button5Click(TObject *Sender)

{

if(DataModule7->IBDataSet6->RecordCount>0)

DataModule7->IBDataSet6->Delete();

}

//---------------------------------------------------------------------------

//-------------Unit 15.cpp--------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit15.h"

#include "Unit2.h"

#include "Unit7.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm15 *Form15;

//---------------------------------------------------------------------------

__fastcall TForm15::TForm15(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm15::Button1Click(TObject *Sender)

{

Form15->Hide();

Form2->Show();

}

//---------------------------------------------------------------------------

//-----------------Unit 16.cpp----------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit16.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm16 *Form16;

//---------------------------------------------------------------------------

__fastcall TForm16::TForm16(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm16::FormCreate(TObject *Sender)

{

Image1->Picture->LoadFromFile("101.bmp");

}

//---------------------------------------------------------------------------

void __fastcall TForm16::Timer1Timer(TObject *Sender)

{

Form1->Show();

Form16->Hide();

Timer1->Enabled=false;

}

//---------------------------------------------------------------------------

Размещено на Allbest.ru