Объектно-ориентированное программирование на С++ - eDrive

More documents

Recommendations

Info

_ _fastcall TDataModule1::TDataModule1 (TComponent* Owner) : TDataModule (Owner) { AnsiString s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\ bRobots.mdb;Persist Security Info=False"; try { ADOConnection1–>Connected = false; ADOConnection1–>ConnectionString = s; ADOConnection1–>Connected = true; } catch (...) { ShowMessage ("Нет подключения к bRobots.mdb"); } } Фиксированную строку подключения можно заменить окном диалога: AnsiString s = PromptDataSource (0, ""); Доступ к записям таблиц 90 Доступ к записям реализуется через таблицы, запросы и хранимые процедуры баз данных. Для работы с таблицами с помощью компонента ADOTable вкладки ADO в модуль данных добавляются элементы управления доступом к каждой таблице. Их свойство Connection инициализируется именем объекта ADOConnection, а в свойство TableName вписываются имена соответствующих таблиц. Каждый элемент управления ADOTable аккумулирует все записи и поля своей таблицы. Для подключения к форме с помощью компонента DataSource вкладки Data Access панели компонентов в модуль данных добавляется источник данных для каждой таблицы. В их свойстве DataSet указываются имена соответствующих компонентов ADOTable. Свойство AutoEdit разрешает режим редактирования записей, вводимых в поля наборов данных. После подключения в модуле данных устанавливается в true свойство Active элементов доступа к таблицам для их открытия. Аналогично выполняется открытие таблиц из программы, например: ADOTable1–>TableName = "Countries"; ADOTable1–>Active = true; Следующий пример демонстрирует подключение к файлу MYDBF.DSN, соединяющему с базой данных формата FoxPro, dBase или Clipper с открытием таблицы T.
void _ _fastcall TDBForm1::ConnectClick (TObject *Sender) { AnsiString s = "Extended Properties=\"FILEDSN=myDBF.dsn;\";"; TADOConnection *cnn = DataModule1–>ADOConnectionDBF; TADOTable *rst = DataModule1–>ADOTableDBF; try { cnn–>Connected = false; cnn–>ConnectionString = s; cnn–>Connected = true; rst–>TableName = "T"; rst–>Active = true; } catch (...) { s = PromptDataSource(0, ""); try { cnn–>Connected = false; cnn–>ConnectionString = s; cnn–>Connected = true; rst–>TableName = "T"; rst–>Active = true; } catch (...) { ShowMessage (s); } } } 91 Возможно подключение и при отсутствии файла .DSN, в том числе – и без использования объектов ADOConnection, если известны все необходимые параметры командной строки. Еще один пример посвящен открытию доступа к таблице dBase и к листу Excel: void __fastcall TDBForm1::DBFConnectClick (TObject *Sender) { AnsiString s = "Provider=MSDASQL.1;\ Extended Properties=\"DBQ=D:\\DATABASES;\ Driver={Microsoft dBase Driver (*.dbf)};DriverId=533;FIL=dBase 5.0;\";"; TADOConnection *cnn = DataModule1–>ADOConnectionDBF; TADOTable *rst = DataModule1–>ADOTableDBF; try { cnn–>Connected = false; cnn–>ConnectionString = s; cnn–>Connected = true; rst–>TableName = "Т"; rst–>Active = true; } catch (...) { ShowMessage (“Увы…”); } } void __fastcall TDBForm1::XLSConnectClick (TObject *Sender) { AnsiString s = "Provider=MSDASQL.1;\
Page 1 and 2:
Федеральное агентс
Page 3 and 4:
Оглавление Предисл
Page 5 and 6:
5 Предисловие Напра
Page 7 and 8:
7 Введение в процед
Page 9 and 10:
9 которые использую
Page 11 and 12:
11 [Модификатор] [тип
Page 13 and 14:
13 В ответ на вызов к
Page 15 and 16:
15 Данные в определе
Page 17 and 18:
17 Здесь при выборе
Page 19 and 20:
19 void _ _fastcall TForm1::MyClick
Page 21 and 22:
21 фигурные скобки.
Page 23 and 24:
23 Типы указываются
Page 25 and 26:
25 Простые оператор
Page 27 and 28:
Метод IsDelimiter (AnsiString&
Page 29 and 30:
29 Variant v = Edit3->Text; Label3-
Page 31 and 32:
31 6. Как передаются
Page 33 and 34:
Условный оператор 3
Page 35 and 36:
} 35 case 4: day = "Четверг"
Page 37 and 38:
37 void Whiles1 () { int temp = 10,
Page 39 and 40: 39 В следующем приме
Page 41 and 42: 41 Число байтов, выд
Page 43 and 44: Перестановки и сор
Page 45 and 46: } 45 for (int i=1; i=0 + 1; - -j) i
Page 47 and 48: 47 нять, создавать с
Page 49 and 50: lb->LoadFromFile (“1.txt”); Sho
Page 51 and 52: 51 При передаче в фу
Page 53 and 54: 53 } // 0 1 Иванов 2 Петр
Page 55 and 56: 55 void Info (TList *vl) { AnsiStri
Page 57 and 58: Allocate (k[0], k[1], book1); Alloc
Page 59 and 60: 59 else ShowMessage ("Такой ч
Page 61 and 62: 61 for (rj=n.rbegin (); rj!=n.rend
Page 63 and 64: int i, d[] = { 5, 2, 3, 8, 3, 1, 3
Page 65 and 66: 22. Каков принцип де
Page 67 and 68: StringGrid1->Cells[0][j] = myS[j].a
Page 69 and 70: void Files2 () { AnsiString from =
Page 71 and 72: void _ _fastcall TForm1::DelFromFil
Page 73 and 74: 73 Фрагмент обработ
Page 75 and 76: 75 отказ в доступе, EM
Page 77 and 78: 77 //myApplication.cpp #include "my
Page 79 and 80: 79 Для подключения н
Page 81 and 82: 81 Управление созда
Page 83 and 84: 83 Контрольные вопр
Page 85 and 86: 85 для построения ма
Page 87 and 88: 87 В C++Builder все подкл
Page 89: 89 ODBC в папке Панель
Page 93 and 94: 93 Для подключения з
Page 95 and 96: 95 Контрольные вопр
Page 97 and 98: class VPC { private: int type; Ansi
Page 99 and 100: 99 AnsiString result; VDeque *curso
Page 101 and 102: } 101 VList a (3); // констр
Page 103 and 104: }; VStackAndQueue (AnsiString str);
Page 105 and 106: }; 105 public: VSecond (AnsiString
Page 107 and 108: } ShowMessage ("Старое вре
Page 109 and 110: } 109 AnsiString temp; for (i=0; i
Page 111 and 112: 111 }; int VPrice::operator > (cons
Page 113 and 114: 113 void MainVVector () { VVector
Page 115 and 116: 115 void MainVEqu() { // x + 4y = 9
Page 117 and 118: 117 Виртуальные функ
Page 119 and 120: 119 virtual Тип имяФункц
Page 121 and 122: 121 7. В чем заключает
Page 123 and 124: 123 • руководство си
Page 125 and 126: 125 Предметный указа
Page 127: 5 Валерий Михайлови
show all

Объектно-ориентированное программирование на С++ - eDrive

Create successful ePaper yourself

Delete template?

Save as template?