Разработка базы дискографии музыкальных коллективов, страница 10

Form7->GroupBox1->Visible=false;

Form7->GroupBox1->Enabled=false;

try{

Form7->ADOQuery1->SQL->Text="select * from k_gruppi";

Form7->ADOQuery1->Open();

Form7->ComboBox2->Items->Clear();

int n;

n=Form7->ADOQuery1->RecordCount;

Form7->ADOQuery1->First();

for (int i=0;i<n;i++){

Form7->ComboBox2->Items->Add(Form7->ADOQuery1->FieldByName("gruppa")->AsString);

Form7->ADOQuery1->Next();}}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

CGauge1->Visible=false;

Form8->Close();

Form7->Show();}

}}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

}

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

void __fastcall TForm8::Edit1Change(TObject *Sender)

{

CGauge1->Progress=0;       

}

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

void __fastcall TForm8::Edit2Change(TObject *Sender)

{

CGauge1->Progress=0;

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "Unit9.h"

#include "Unit1.h"

#include "Unit2.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm9 *Form9;

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

__fastcall TForm9::TForm9(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TForm9::ComboBox1Change(TObject *Sender)

{

ADOQuery1->SQL->Text="exec zhh '" + ComboBox1->Text +"'";;

try{

ADOQuery1->Open();

}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

ADOQuery2->SQL->Text="select * from zhz";

try{

ADOQuery2->Open();

//Edit1->Text=ADOQuery2->FieldByName("identa")->AsString;

}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

if(ComboBox1->Text!=""){

if(Edit1->Text!=""){

Button1->Enabled=true;

}

}

if(ComboBox1->Text==""){

Button1->Enabled=false;

}

}

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

void __fastcall TForm9::FormCreate(TObject *Sender)

{

try{

ADOQuery1->SQL->Text="select * from k_zhanr";

ADOQuery1->Open();

ComboBox1->Items->Clear();

int n;

n=ADOQuery1->RecordCount;

ADOQuery1->First();

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

{

ComboBox1->Items->Add(ADOQuery1->FieldByName("zhanr")->AsString);

ADOQuery1->Next();

}

}

catch(Exception &E)

{

ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

}

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

void __fastcall TForm9::Button1Click(TObject *Sender)

{

ADOQuery2->SQL->Text="exec dobst '" + Edit1->Text + ", " + Edit2->Text + "'";

try{

ADOQuery2->Open();

}

catch(Exception &E){

ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

try{

ADOQuery1->SQL->Text="select * from k_zhanr";

ADOQuery1->Open();

ComboBox1->Items->Clear();

int n;

n=ADOQuery1->RecordCount;

ADOQuery1->First();

for (int i=0;i<n;i++){

ComboBox1->Items->Add(ADOQuery1->FieldByName("zhanr")->AsString);

ADOQuery1->Next();

}

}

catch(Exception &E){

ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

}

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

void __fastcall TForm9::Edit1Change(TObject *Sender)

{

if(ComboBox1->Text!=""){

if(Edit1->Text!=""){

Button1->Enabled=true;

}

}

if(Edit1->Text==""){

Button1->Enabled=false;

}

}

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

void __fastcall TForm9::Edit3Change(TObject *Sender)

{

if(Edit3->Text!=""){

Button1->Enabled=true;

}

if(Edit3->Text==""){

Button1->Enabled=false;

}

}

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

void __fastcall TForm9::Button2Click(TObject *Sender)

{

ADOQuery2->SQL->Text="exec dobzh '" + Edit1->Text + "'";

try{

ADOQuery2->Open();

}

catch(Exception &E){

ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

}

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

6. Организационное проектирование.

Пользователи:

-  системный администратор – без ограничения прав доступа к базе данных.

-  Любые лица, которым нечего делать, и решили использовать данную базу, т.е. без ограничений.

Аппаратное оснащение системы:

-  Сервер:

-  Процессор не ниже 2 Гц;

-  Оперативная память минимум 1024 Мб;

-  Сетевая карта;

-  Операционная система, поддерживающая технологию NT.

-  Рабочие станции:

-  Процессор не ниже 1 Гц;

-  Оперативная память минимум 128 Мб;

-  Сетевая карта;

-  Операционная система Windows 2000.

Передача данных (сеть):

-  Скорость 10 Мб/с;

-  Топология любая, поддерживающая протоколы TCP/IP.