Торговая фирма
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
µ заметить, что свойство Enabledу кнопок взводится лишь тогда, когда мы выбираем тип заявки Нам и статус Не рассмотрена, в других случаях кнопки неактивны, что позволяет избежать ошибок.
Внешний вид вкладки Заявки показан на рисунке 11.
Рисунок 11 - Интерфейс вкладки "Заявки"
Также реализовано получение справок, выводимых в MSExcelс помощью кнопки В Excelна некоторых вкладках.
4. Текст основных модулей программы
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;TForm1::updateQuery()
{->Params->Items[0]->Value = status;->Params->Items[1]->Value = flag;->Active = false;->Active = true;->Update();
}TForm1::addRequest()
{->Params->Items[0]->Value = supp_name;->Active=false;->Active=true;_id = (Query11->FieldByName("ID"))->AsInteger;->Params->Items[0]->Value = supp_id;->Params->Items[1]->Value = amount;->Params->Items[2]->Value = price;->ExecSQL();->Active = false;->Active = true;->Update();
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{= true;= true;= 0;= 1;();
}
//---------------------------------------------------------------------------__fastcall TForm1::DBGrid4CellClick(TColumn *Column)
{(this);
/*Query2->Params->Items[0]->Value = DBGrid4->DataSource->DataSet->FieldValues["ADDRESS"];->Params->Items[1]->Value = DBGrid4->DataSource->DataSet->FieldValues["TELEPHONE"];->Active = false;->Active = true;->Update();->DataSource->DataSet->First();->Clear();= 100;(!DBGrid5->DataSource->DataSet->Eof)
{->Add(DBGrid5->DataSource->DataSet->FieldValues["AMOUNT"],DBGrid5->DataSource->DataSet->FieldValues["NAME"],i);->DataSource->DataSet->Next();+= 100;
}->DataSource->DataSet->First();*/
}
//---------------------------------------------------------------------------__fastcall TForm1::Button1Click(TObject *Sender)
{
//Table4->Active = false;
//Table4->Active = true;->Show();
}
//---------------------------------------------------------------------------TForm1::addStore()
{->Params->Items[0]->Value = amount;->Params->Items[1]->Value = store_id;->Params->Items[2]->Value = good_id;->ExecSQL();->Params->Items[0]->Value = request_id;->ExecSQL();();
}TForm1::addField()
{amount = Form2->CSpinEdit1->Value;_size = Form2->CSpinEdit2->Value;(st_size>= amount)
{
{_id = Form2->DBGrid2->DataSource->DataSet->FieldValues["ID"];->Params->Items[0]->Value = DBGrid4->DataSource->DataSet->FieldValues["ADDRESS"];->Params->Items[1]->Value = DBGrid4->DataSource->DataSet->FieldValues["TELEPHONE"];->Active=false;->Active=true;_id = (Query4->FieldByName("ID"))->AsInteger;
//intstore_id = 1;->Params->Items[0]->Value = good_id;->Params->Items[1]->Value = store_id;->Params->Items[2]->Value = amount;->Params->Items[3]->Value = st_size;->ExecSQL();
}(...)
{("Неправильныйпараметр");->Show();
}
}
//Query2->Active = false;
//Query2->Active = true;
//DBGrid5->Update();(this);
}__fastcall TForm1::Button2Click(TObject *Sender)
{->Params->Items[0]->Value = DBGrid4->DataSource->DataSet->FieldValues["ADDRESS"];->Params->Items[1]->Value = DBGrid4->DataSource->DataSet->FieldValues["TELEPHONE"];->Active=false;->Active=true;_id = (Query4->FieldByName("ID"))->AsInteger;->Params->Items[0]->Value = DBGrid5->DataSource->DataSet->FieldValues["NAME"];->Active=false;->Active=true;_id = (Query6->FieldByName("ID"))->AsInteger;->Params->Items[0]->Value = store_id;->Params->Items[1]->Value = good_id;->ExecSQL();
//Query2->Active = false;
//Query2->Active = true;
//DBGrid5->Update();(this);
}
//---------------------------------------------------------------------------__fastcall TForm1::ComboBox1Change(TObject *Sender)
{f = false;= 0;(ComboBox1->Text == "Принятые")
{= 1;= true;
}(ComboBox1->Text == "Отклоненные")
{= 2;= true;
}();(f)
{->Enabled=false;->Enabled=false;= false;
}
{= true;(fnam)
{Button3->Enabled=true;->Enabled=true;}
}
}
//---------------------------------------------------------------------------__fastcall TForm1::ComboBox2Change(TObject *Sender)
{f = false;= 0;(ComboBox2->Text == "Нам")
{= 1;= true;
}();(f)
{= true;(fprin)
{Button3->Enabled=true;->Enabled=true;}
}
{= false;->Enabled=false;->Enabled=false;
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button3Click(TObject *Sender)
{
{->Params->Items[0]->Value = DBGrid6->DataSource->DataSet->FieldValues["NAME"];->Active=false;->Active=true;_name = (Query12->FieldByName("NAME"))->AsString;_id = (Query12->FieldByName("ID"))->AsInteger;= DBGrid6->DataSource->DataSet->FieldValues["AMOUNT"];_id = DBGrid6->DataSource->DataSet->FieldValues["ID"];->Show();
}(...)
{("Ошибка");
}
// Query7->Params->Items[0]->Value = DBGrid6->DataSource->DataSet->FieldValues["ID"];
// Query7->ExecSQL();
// updateQuery();
}
//---------------------------------------------------------------------------__fastcall TForm1::Button4Click(TObject *Sender)
{
{->Params->Items[0]->Value = DBGrid6->DataSource->DataSet->FieldValues["ID"];->ExecSQL();();
}(...)
{("Ошибка");
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button5Click(TObject *Sender)
{->Show();
}
//---------------------------------------------------------------------------__fastcall TForm1::StoreShow(TObject *Sender)
{->Params->Items[0]->Value = DBGrid4->DataSource->DataSet->FieldValues["ADDRESS"];->Params->Items[1]->Value = DBGrid4->DataSource->DataSet->FieldValues["TELEPHONE"];->Active = false;->Active = true;->Update();->DataSource->DataSet->First();->Clear();= 100;(!DBGrid5->DataSource->DataSet->Eof)
{(DBGrid5->DataSource->DataSet->FieldValues["AMOUNT"] > 0)->Add(DBGrid5->DataSource->DataSet->FieldValues["AMOUNT"],DBGrid5->DataSource->DataSet->FieldValues["NAME"],i);->DataSource->DataSet->Next();+= 100;
}->DataSource->DataSet->First();
}
//---------------------------------------------------------------------------__fastcall TForm1::Button6Click(TObject *Sender)
{->Active = false;->Active = true;->Update();
}
//---------------------------------------------------------------------------__fastcall TForm1::Button7Click(TObject *Sender)
{->Active = false;->Active = true;->Update();
}
//---------------------------------------------------------------------------__fastcall TForm1::Button8Click(TObject *Sender)
{();
}
//---------------------------------------------------------------------------__fastcall TForm1::Button9Click(TObject *Sender)
{XL, XLBooks, RpXL, Sh, Range;, lgRp;= false;
{ //Попытка?/p>