Сеть магазинов по торговле промышленными товарами, страница 7

{

Query1->Close();

numbes = Edit2->Text;

sprintf(sql,"SELECT [TovM].[Name], [TovM].[NameM], [TovM].[Cena]FROM TovM WHERE [TovM].[Name]=%s;", numbes.c_str());

Query1->SQL->Clear();

Query1->SQL->Add(sql);

}

try

{

Query1->Open();

}

catch (...)

 { }

}

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

void __fastcall TForm6::Button3Click(TObject *Sender)

{

Edit1->Text="";

}

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

void __fastcall TForm6::Button4Click(TObject *Sender)

{

Edit2->Text="";

}

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

void __fastcall TForm6::Button5Click(TObject *Sender)

{

char sql[200];

AnsiString numbes;

DBGrid1->DataSource=DataSource1;

if (Edit3->Text!="")

{

Query1->Close();

numbes = Edit3->Text;

sprintf(sql,"SELECT [TovS].[NunbeV], [TovS].[Name] FROM TovS WHERE ([TovS].[Name]=%s)and([TovS].[Goues]=0);", numbes.c_str());

Query1->SQL->Clear();

Query1->SQL->Add(sql);

}

try

{

Query1->Open();

}

catch (...)

 {}

}

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

void __fastcall TForm6::Button7Click(TObject *Sender)

{

char sql[200];

AnsiString numbes;

DBGrid1->DataSource=DataSource1;

if (Edit4->Text!="")

{

Query1->Close();

numbes = Edit4->Text;

sprintf(sql,"SELECT [TovM].[NumbeV], [TovM].[NameM]FROM TovM WHERE [TovM].[NameM]=%s;", numbes.c_str());

Query1->SQL->Clear();

Query1->SQL->Add(sql);

}

try

{

Query1->Open();

}

catch (...)

 {}

}

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

void __fastcall TForm6::Button9Click(TObject *Sender)

{

Form6->Close();

}

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

void __fastcall TForm6::N2Click(TObject *Sender)

{

Form6->Close();       

}

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

void __fastcall TForm6::Button6Click(TObject *Sender)

{

Edit3->Text="";       

}

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

void __fastcall TForm6::Button8Click(TObject *Sender)

{

Edit4->Text="";       

}

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

Приложение III

Сценарий инсталяции программы

[Setup]

;Полное название приложения

AppName=Магазин

;Краткое название приложения и версия

AppVerName=shop 1.0

;Автор приложения

AppPublisher=РГРТА

;Каталог, куда по умолчанию будет устанавливаться приложение (относительно Program Files)

DefaultDirName={pf}\shop

;Имя папки в главном меню, где будут созланы ярлыки для приложения

DefaultGroupName=Магазин

;Не показывать приглашение перед установкой

DisableStartupPrompt=yes

;При установке будут изменены ассоциации файлов

;ChangesAssociations=yes

;

;Файл с текстами сообщений (в данном случае руссифицированый), расположен в том же каталоге,

;где установлен Inno Setup

MessagesFile=compiler:russian.isl

;Разрешить разбиение на несколько дискет

DiskSpanning=yes

;Размер дискеты

DiskSize=1450000

;

;Секция описания типов установок

[Types]

Name: "custom"; Description: "Выборочная установка"; Flags: iscustom

Name: "full"; Description: "Полная установка"

;

;Секция описания компонентов

[Components]

Name: "program"; Description: "Приложение"; Types: custom full;

Name: "DB"; Description: "База данных"; Types: custom full;

;

;Секция описания файлов

;  Source -     источник, откуда брать файл

;  DestDir -    куда будет устанавливаться файл

;  CopyMode -   режим копирования, alwaysoverwrite означает, что файл в любом случае будет переписан, даже поверх уже существующего

;  Components - к какому компоненту относится файл

[Files]

;Приложение

Source: "Y:\Вера и Ира\Project2.exe"; DestDir: "{app}"; CopyMode: alwaysoverwrite; Components: program

;

;Необходимые библиотеки

;Source: "C:\Program Files\Borland\CBuilder5\Bin\borlndmm.dll"; DestDir: "{app}"; CopyMode: alwaysoverwrite; Components: program

;Устнаовка BDE

Source: "Y:\Вера и Ира\MiniReg.exe"; DestDir: "{tmp}"

Source: "Y:\Вера и Ира\BdeInst.dll"; DestDir: "{tmp}"

;Приложение, запускаемое после установки. Это нужно для установки BDE

[Run]

Filename: "{tmp}\MiniReg.exe"; Parameters: """{tmp}\BdeInst.dll"""

;

;Секция описания ярлыков

;  Name -       имя ярлыка и его место положение ({group} - в папка в главном меню; {userdesktop} - на рабочем столе)

;  Filename -   путь и имя файла, для которого создается ярлык

;  WorkingDir - рабочий каталог программы

;  Components - компонент, к которому относится данный ярлык

[Icons]

;Ярлык приложения в главном меню

Name: "{group}\Пример"; Filename: "{app}\sample.exe"; WorkingDir: "{app}"; Components: program

;Ярлык приложения на рабочем столе

Name: "{userdesktop}\Пример"; Filename: "{app}\sample.exe"; WorkingDir: "{app}"; Components: program

;Деинсталлятор

Name: "{group}\Удалить программу"; Filename: "{uninstallexe}"

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

1.  Сайман А.Р. Стратегические технологии баз данных. – М.: Финансы и статистика, 1999.

2.  Арсеньев В.П., Яковлев С.А. Интеграция распределенных баз данных. – С-П: Лань, 2001.

3.  Хоманенко А.Д., Цыганов В.М., Мальцев М.Г. Базы данных: учебник для высших учебных заведений. – С-П.: Корона, 2002.