void __fastcall TForm1::OpenBttnClick(TObject *Sender)
{
int i, j;
FILE *Stream;
if(OpenDialog->Execute())
{
Stream = fopen(OpenDialog->FileName.c_str(), "r" );
char buffer[256];
i=0; j=0;
while(!feof(Stream))
{
fscanf(Stream, "%s", buffer);
DataTable->Cells[j][i]=buffer; j++;
if(j==8)
{ DataTable->RowCount=DataTable->RowCount+1; j=0; i++;}
}
DataTable->RowCount=DataTable->RowCount-2;
DataTable->Rows[DataTable->RowCount]->Clear();
fclose(Stream);
}
i=OpenDialog->FileName.Length()-1;
String buf;
while(OpenDialog->FileName.c_str()[i]!='\')
{
buf=buf+OpenDialog->FileName.c_str()[i];
i--;
}
InfoLabel->Caption=ReverseString(buf);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ExitBttnClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileAboutClick(TObject *Sender)
{
About->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Serv = CreateOleObject("V77.Application");
if (VarType(Serv.OlePropertyGet("RMTrade")) == varDispatch )
return;
else
{
Serv.OleProcedure("Initialize", Serv.OlePropertyGet("RMTrade"), "/DD:\1C\DataBase /M /NСаша", "NO_SPLASH_SHOW");
Variant Sprav = Serv.OleFunction("EvalExpr", "СоздатьОбъект(\"Справочник.ЦТП\")"), Test;
if (Sprav.OleFunction("ВыбратьЭлементы") == 1)
while (Sprav.OleFunction("ПолучитьЭлемент") == 1)
TreeView->Items->Add(NULL, Sprav.OlePropertyGet("Наименование"));
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Serv = Unassigned();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Serv = Unassigned();
}
//---------------------------------------------------------------------------
Литература
1. «ТЭМ-104 теплосчетчик. Паспорт», 2005г.
2. Официальный сайт приборостроительного предприятия «Арвас»: http://www.arvas.by/prod_teplo_104k.html. Дата доступа: 11.12.2010г.
3. «ТЭМ-104 теплосчетчик. Типовые схемы включения», 2006г.
4. Официальный сайт предприятия ООО «ПромТех»: http://www.teploschetchiki.ru/art19. Дата доступа: 11.12.2010г.
5. Официальный сайт торговой компании «ТеплоТехКомплект»: http://www.tkttk.ru/vcd-7/catalog.html. Дата доступа: 13.12.2010г.
6. Официальный сайт торговой компании «ТеплоТехКомплект», страница ТЭМ-104(1): http://www.tkttk.ru/vcd-1/catalog.html. Дата доступа: 13.12.2010г.
7. Официальный сайт торговой компании «ТеплоТехКомплект», станица ТЭМ-104(2): http://www.tkttk.ru/vcd-20/catalog.html. Дата доступа: 13.12.2010г.
8. Официальный сайт торговой компании «ТеплоТехКомплект», станица ТЭМ-104(4): http://www.tkttk.ru/vcd-24/catalog.html, 13.12.2010г.
9. Википедия – свободная энциклопедия, страница «Ультразвуковой расходомер»: http://ru.wikipedia.org/wiki/%D0%A3%D0%BB%D1%8C%D1%82%D1%80%D0%B0%D0%B7%D0%B2%D1%83%D0%BA%D0%BE%D0%B2%D0%BE%D0%B9_%D1%80%D0%B0%D1%81%D1%85%D0%BE%D0%B4%D0%BE%D0%BC%D0%B5%D1%80. Дата доступа: 13.12.2010г.
10. Украинский сайт «С.О.К.»: http://www.c-o-k.com.ua/content/view/303/. Дата доступа: 13.12.2010г.
11. Википедия – свободная энциклопедия, страница электромагнитные расходомеры: http://ru.wikipedia.org/wiki/%D0%AD%D0%BB%D0%B5%D0%BA%D1%82%D1%80%D0%BE%D0%BC%D0%B0%D0%B3%D0%BD%D0%B8%D1%82%D0%BD%D1%8B%D0%B5_%D1%80%D0%B0%D1%81%D1%85%D0%BE%D0%B4%D0%BE%D0%BC%D0%B5%D1%80%D1%8B. Дата доступа: 14.12.2010.
12. Официальный сайт предприятия «Газовик»: http://gazovik-gaz.ru/directory/consum/vortical.html. Дата доступа: 14.12.2010г.
13. Википедия – свободная эенциклопедия, страница «Термопара»: http://ru.wikipedia.org/wiki/%D0%A2%D0%B5%D1%80%D0%BC%D0%BE%D0%BF%D0%B0%D1%80%D0%B0. Дата доступа: 14.12.2010г.
14. Википедия - свободная энциклопедия, страница «Датчик давления»: http://ru.wikipedia.org/wiki/%D0%94%D0%B0%D1%82%D1%87%D0%B8%D0%BA_%D0%B4%D0%B0%D0%B2%D0%BB%D0%B5%D0%BD%D0%B8%D1%8F. Дата доступа: 15.12.2010г.
15. Официальный сайт «Большой Советской Энциклопедии», страница «Пьезоэлектрический датчик»: http://bse.sci-lib.com/article094516.html. Дата доступа: 15.12.2010г.
16. Официальный сайт предприятия «ПромРезерв»: . Дата доступа: 15.12.2010г.
17. Википедия – свободная энциклопедия, страница «Схема электромагнитного расходомера»: http://upload.wikimedia.org/wikipedia/ru/0/0c/ Electrorashodomer.jpg. Дата доступа: 14.12.2010г.
18. Официальный сайт «Большой Советской Энциклопедии», страница «Термопара»: http://bse.sci-lib.com/particle027942.html. Дата дотступа: 15.12.2010г.
19. Официальный сайт «Большой Советской Энциклопедии», страница «Схема датчика давления»: http://bse.sci-lib.com/a_pictures/19/23/ 242906603.jpg. Дата доступа: 15.12.2010г.