Торговая фирма
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?ткрытьприложение Excel= Variant::CreateObject("Excel.Application");= XL.OlePropertyGet("WorkBooks");= true;
}(...)
{ //Попытка не удалась>MessageBox("Невозможнооткрыть Microsoft Excel!"
"Возможно, Excel не установлен на компьютере.",
"Ошибка",MB_OK+MB_ICONERROR);
}{.OlePropertyGet("WorkBooks").OleProcedure("add");=XL.OlePropertyGet("WorkSheets",1);
} catch(...) {>MessageBox("Ошибкаоткрытиякниги Microsoft Excel!",
"Ошибка",MB_OK+MB_ICONERROR);
}(Rezult)
{.OlePropertySet("Visible",(Variant)true);{i;(int j=1; j<5; j++)
First();=2;(!Table1->Eof){(j==1){cur=Sh.OlePropertyGet("Cells",i,j);s=(Table1->FieldValues["SUPP_NAME"]);.OlePropertySet("Value",s.c_str());++;->Next();">{->First();=2;(!Table1->Eof){(j==1){cur = Sh.OlePropertyGet("Cells", i, j);s = (Table1->FieldValues["SUPP_NAME"]);.OlePropertySet("Value", s.c_str());++;->Next();
FieldValues["CITY"]);.OlePropertySet("Value",s.c_str());++;->Next();">}(j==2){cur = Sh.OlePropertyGet("Cells", i, j);s = (Table1->FieldValues["CITY"]);.OlePropertySet("Value", s.c_str());++;->Next();
FieldValues["GOOD_NAME"]);.OlePropertySet("Value",s.c_str());++;->Next();">}(j==3){cur = Sh.OlePropertyGet("Cells", i, j);s = (Table1->FieldValues["GOOD_NAME"]);.OlePropertySet("Value", s.c_str());++;->Next();
FieldValues["INFORMATION"]).IsNull())=(Table1->FieldValues["INFORMATION"]);="";.OlePropertySet("Value",s.c_str());++;->Next();">}(j==4){s;cur = Sh.OlePropertyGet("Cells", i, j);(!(Table1->FieldValues["INFORMATION"]).IsNull())= (Table1->FieldValues["INFORMATION"]);= "";.OlePropertySet("Value", s.c_str());++;->Next();
}
}
}cur = Sh.OlePropertyGet("Cells", 1, 1);s = "Поставщик";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 1, 2);= "Город";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 1, 3);= "Товар";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 1, 4);= "Информация";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 1, 5);++;
}//for(j)(...)
{
;
}->First();
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button10Click(TObject *Sender)
{XL, XLBooks, RpXL, Sh, Range;, lgRp;*my_table = DBGrid4->DataSource->DataSet;= false;
{ //Попыткаоткрытьприложение Excel= Variant::CreateObject("Excel.Application");= XL.OlePropertyGet("WorkBooks");= true;
}(...)
{ //Попытка не удалась>MessageBox("Невозможнооткрыть Microsoft Excel!"
"Возможно, Excel не установлен на компьютере.",
"Ошибка",MB_OK+MB_ICONERROR);
}{.OlePropertyGet("WorkBooks").OleProcedure("add");=XL.OlePropertyGet("WorkSheets",1);
} catch(...) {>MessageBox("Ошибкаоткрытиякниги Microsoft Excel!",
"Ошибка",MB_OK+MB_ICONERROR);
}(Rezult)
{.OlePropertySet("Visible",(Variant)true);{;(int j=1; j<4; j++)
First();=2;(!my_table->Eof){(j==1){cur=Sh.OlePropertyGet("Cells",i,j);s=(my_table->FieldValues["CITY_NAME"]);.OlePropertySet("Value",s.c_str());++;_table->Next();">{_table->First();=2;(!my_table->Eof){(j==1){cur = Sh.OlePropertyGet("Cells", i, j);s = (my_table->FieldValues["CITY_NAME"]);.OlePropertySet("Value", s.c_str());++;_table->Next();
FieldValues["ADDRESS"]);.OlePropertySet("Value",s.c_str());++;_table->Next();">}(j==2){cur = Sh.OlePropertyGet("Cells", i, j);s = (my_table->FieldValues["ADDRESS"]);.OlePropertySet("Value", s.c_str());++;_table->Next();
FieldValues["TELEPHONE"]);.OlePropertySet("Value",s.c_str());++;_table->Next();">}(j==3){cur = Sh.OlePropertyGet("Cells", i, j);s = (my_table->FieldValues["TELEPHONE"]);.OlePropertySet("Value", s.c_str());++;_table->Next();
}
}
}cur = Sh.OlePropertyGet("Cells", 1, 1);s = "Город";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 1, 2);= "Адрес";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 1, 3);= "Телефон";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 1, 4);++;
}//for(j)(...)
{
;
}_table->First();
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button11Click(TObject *Sender)
{XL, XLBooks, RpXL, Sh, Range;, lgRp;*my_table = DBGrid6->DataSource->DataSet;= false;
{ //Попыткаоткрытьприложение Excel= Variant::CreateObject("Excel.Application");= XL.OlePropertyGet("WorkBooks");= true;
}(...)
{ //Попытка не удалась>MessageBox("Невозможно открыть MicrosoftExcel!"
"Возможно, Excel не установлен на компьютере.",
"Ошибка",MB_OK+MB_ICONERROR);
}{.OlePropertyGet("WorkBooks").OleProcedure("add");=XL.OlePropertyGet("WorkSheets",1);
} catch(...) {>MessageBox("Ошибкаоткрытиякниги Microsoft Excel!",
"Ошибка",MB_OK+MB_ICONERROR);
}(Rezult)
{.OlePropertySet("Visible",(Variant)true);{;(int j=1; j<4; j++)
First();=3;(!my_table->Eof){(j==1){cur=Sh.OlePropertyGet("Cells",i,j);s=(my_table->FieldValues["NAME"]);.OlePropertySet("Value",s.c_str());++;_table->Next();">{_table->First();=3;(!my_table->Eof){(j==1){cur = Sh.OlePropertyGet("Cells", i, j);s = (my_table->FieldValues["NAME"]);.OlePropertySet("Value", s.c_str());++;_table->Next();
FieldValues["AMOUNT"]);.OlePropertySet("Value",s.c_str());++;_table->Next();">}(j==2){cur = Sh.OlePropertyGet("Cells", i, j);s = (my_table->FieldValues["AMOUNT"]);.OlePropertySet("Value", s.c_str());++;_table->Next();
FieldValues["PRICE"]);.OlePropertySet("Value",s.c_str());++;_table->Next();">}(j==3){cur = Sh.OlePropertyGet("Cells", i, j);s = (my_table->FieldValues["PRICE"]);.OlePropertySet("Value", s.c_str());++;_table->Next();
}
}
Text;.OlePropertySet("Value",s.c_str());=Sh.OlePropertyGet("Cells",1,2);=ComboBox2->Text;.OlePropertySet("Value",s.c_str());++;">}cur = Sh.OlePropertyGet("Cells", 2, 1);s = "Поставщик";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 2, 2);= "Количество";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 2, 3);= "Цена";.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 1, 1);= ComboBox1->Text;.OlePropertySet("Value", s.c_str());= Sh.OlePropertyGet("Cells", 1, 2);= ComboBox2->Text;.OlePropertySet("Value", s.c_str());++;
}//for(j)(...)
{
;
}_table->First();
}
}
//---------------------------------------------------------------------------
Заключение
В ходе курсовой работы были закреплены навыки работы с SQL-базами данных, полученные в ходе лабораторных работ. Была проведена установка и настройка локального сервера СУБД Interbase. Были изучены дополнительные материалы и создано приложение Торговая фирма, состоящее из серверной части и клиентской.
(ISO)%