/* 
    Чтобы пространство имен System::Data::SqlServerCe стало доступно, 
    надо в проект добавить ссылку на файл сборки, в котором оно 
    определено. Для этого: в меню Project выбрать команду Properties; 
    в открывшемся окне сделать щелчок на кнопке Add New Reference; 
    раскрыть вкладку .NET и указать имя сборки - System.Data.SqlServerCe. 
*/ 
 
    using namespace System::Data::SqlServerCe; 
    using namespace System::IO;
.   .   .   .
Form1(void)
{
	InitializeComponent();
	//
	//TODO: добавьте код конструктора
	//
	// настройка компонента ListView: 
	// увеличим ширину компонента 
	// на ширину полосы прокрутки 
	int w = 0;
	for (int i = 0; i < listView1->Columns->Count; i++) 
	{
		w += listView1->Columns[i]->Width; 
	}

	if (listView1->BorderStyle == BorderStyle::Fixed3D) 
		w += 4; 
	listView1->Width = w+17; // 17 - ширина полосы прокрутки 
}
.   .   .   .
private: 
    String^ dbf;           // файл БД 
    String^ stDataSource;  // строка вида: DataSource = ФайлБД 
 
// отображает базу данных (таблицу) 
private: void ShowDB()  { 
	 SqlCeEngine^ engine = gcnew SqlCeEngine(stDataSource); 
	 SqlCeConnection^ connection = 
		 gcnew SqlCeConnection(engine->LocalConnectionString); 
connection->Open(); 
SqlCeCommand^ command = connection->CreateCommand(); 
	command->CommandText = "SELECT * FROM contacts ORDER BY name"; 

	 // Выполнить команду. Результат находится в DataReader 
             SqlCeDataReader^ dataReader = command->ExecuteReader(); 

	 String^ st;  // значение поля БД 
	 int itemIndex = 0; 

	 listView1->Items->Clear(); 

	 while (dataReader->Read()) 
	 {
		 for (int i = 0; i < dataReader->FieldCount; i++) 
		 {
			 st = dataReader->GetValue(i)->ToString(); 
			 switch (i) 
			 {
			    case 0:  // поле cid 
			   	 listView1->Items->Add(st); 
				 break; 
			    case 1:  // поле name 
				 listView1->Items[itemIndex]->SubItems->Add(st); 
				 break; 
			    case 2:  // поле phone 
				 listView1->Items[itemIndex]->SubItems->Add(st); 
				 break; 
			    case 3:  // поле email 
				 listView1->Items[itemIndex]->SubItems->Add(st); 
				 break;
			 }
		 }
		 itemIndex++; 
	 }
	 connection->Close(); 
} 
// начало работы программы - загрузка формы 
private: System::Void Form1_Load(System::Object^  sender, System::EventArgs^  e) {
	 SqlCeEngine^ engine; // процессор БД 
 
	// предполагается, что файл БД находится в той же 
	// папке, что и exe-файл 
	String^ dbf = Application::StartupPath + "\\contacts.sdf"; 
 
	stDataSource = "Data Source='" + dbf + "';"; 

	engine = gcnew SqlCeEngine(stDataSource); 
 
	// проверим, доступен ли файл БД 
	if (!(File::Exists(dbf))) 
	{ 
		// Создать БД SQL Server Compact Edition. 
		// БД будет создана в каталоге приложения. 
		// При запуске программы из среды разработки 
		// БД будет создана в каталоге Debug или Release 
		engine->CreateDatabase(); 
		SqlCeConnection^ connection = 
			gcnew SqlCeConnection(engine->LocalConnectionString); 
		connection->Open(); 
		SqlCeCommand^ command = connection->CreateCommand(); 
		command->CommandText = 
			"CREATE TABLE contacts (cid int IDENTITY(1,1)," 
			"name nvarchar(50) NOT NULL, phone nvarchar(50)," 
			"email nvarchar(50))"; 
		command->ExecuteScalar(); 
		connection->Close(); 
	}
	else 
	{ 
		ShowDB(); 
	} 
 }
// щелчок на кнопке Добавить 
private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
	 SqlCeConnection^ conn = 
		 gcnew SqlCeConnection(stDataSource); 
	 conn->Open();
	 SqlCeCommand^ command = conn->CreateCommand(); 
	 command->CommandText = 
		 "INSERT INTO contacts(name, phone,email) VALUES(?,?,?)"; 
		 command->Parameters->Add("name", textBox1->Text); 
	 command->Parameters->Add("phone", textBox2->Text); 
	 command->Parameters->Add("email", textBox3->Text); 
	 command->ExecuteScalar(); 
	 conn->Close(); 
 
	 // очистить поля ввода 
	 textBox1->Clear(); 
	 textBox2->Clear(); 
	 textBox3->Clear(); 
 
	 ShowDB(); 
 
	 // установить курсор в поле textBox1 
	 textBox1->Focus(); 
 }
// щелчок на кнопке Найти 
private: System::Void button2_Click(System::Object^  sender, System::EventArgs^  e) {
	 SqlCeEngine^ engine = gcnew SqlCeEngine(stDataSource); 
	 SqlCeConnection^ connection = 
		 gcnew SqlCeConnection(engine->LocalConnectionString); 
	 connection->Open(); 
 
	 SqlCeCommand^ command = connection->CreateCommand(); 
 
	 command->CommandText = 
		 "SELECT * FROM contacts WHERE (name LIKE ?)"; 
	 command->Parameters->Add("name", "%" + textBox1->Text + "%"); 
 
	 SqlCeDataReader^ dataReader = command->ExecuteReader(); 
 
	 String^ st;  // значение поля БД 
	 int itemIndex = 0; 
 
	 listView1->Items->Clear(); 
 
	 while (dataReader->Read()) 
	 { 
		 for (int i = 0; i < dataReader->FieldCount; i++)   { 
			 st = dataReader->GetValue(i)->ToString(); 
			 switch (i)
			 { 
			   case 0:  // поле cid 
				 listView1->Items->Add(st); 
				 break; 
			   case 1:  // поле name 
				 listView1->Items[itemIndex]->SubItems->Add(st); 
				 break; 
			   case 2:  // поле phone 
				 listView1->Items[itemIndex]->SubItems->Add(st); 
				 break; 
			   case 3:  // поле email 
				 listView1->Items[itemIndex]->SubItems->Add(st); 
				 break; 
			 } 
		 } 
		 itemIndex++; 
	 } 
	 connection->Close(); 
}
// в поле компонента listView пользователь выбрал другую строку
private: System::Void listView1_ItemSelectionChanged(System::Object^  sender, 
         System::Windows::Forms::ListViewItemSelectionChangedEventArgs^  e) {
	 /* 
		При выборе строки событие ItemSelectionChanged 
		возникает два раза: первый раз, когда выделенная в 
		данный момент строка теряет фокус, второй - когда 
		строка, в которой сделан щелчок, получает фокус. 
		Нас интересует строка, которая получает фокус. 
	*/
	 if (e->IsSelected) 
	 { 
		 // строка выбрана, т. е. она получила фокус 
		 textBox4->Text = listView1->Items[e->ItemIndex]->Text; 
 
		 // Продублируем содержимое полей текущей 
		 // записи в поля textBox 
		 for (int i = 1; 
			 i < listView1->Items[e->ItemIndex]->SubItems->Count; 
			 i++)  { 
				 switch (i) 
				 {
	 			  case 1: 
				   textBox1->Text = 
				    listView1->Items[e->ItemIndex]->SubItems[i]->Text; 
				   break; 
				  case 2: 
				   textBox2->Text = 
				    listView1->Items[e->ItemIndex]->SubItems[i]->Text; 
				   break; 
				  case 3: 
				   textBox3->Text = 
				    listView1->Items[e->ItemIndex]->SubItems[i]->Text; 
				   break; 
				 } 
		 } 
	 }
 }
// щелчок на кнопке Удалить
private: System::Void button4_Click(System::Object^  sender, System::EventArgs^  e) {
	 if (listView1->SelectedItems->Count != 0) 
	 { 
		 SqlCeEngine^ engine = gcnew SqlCeEngine(stDataSource); 
 
		 SqlCeConnection^ connection = 
		 	 gcnew SqlCeConnection(engine->LocalConnectionString); 
 
		 connection->Open(); 
 
		 SqlCeCommand^ command = connection->CreateCommand(); 
 
		 command->CommandText = "DELETE FROM contacts WHERE (cid = ?)"; 
      
		 command->Parameters->Add("cid", textBox4->Text); 
 
		 command->ExecuteScalar(); // выполнить команду 
 
		 ShowDB(); 
		 textBox1->Clear(); 
		 textBox2->Clear();   
		 textBox3->Clear(); 
		 textBox4->Clear(); 
	 } 
 }
// щелчок на кнопке Изменить 
private: System::Void button3_Click(System::Object^  sender, System::EventArgs^  e) {
	 if (listView1->SelectedItems->Count != 0) 
	 {
		 SqlCeEngine^ engine = gcnew SqlCeEngine(stDataSource); 
 
		 SqlCeConnection^ connection = gcnew 
				 SqlCeConnection(engine->LocalConnectionString); 
 
		 connection->Open(); 
 
		 SqlCeCommand^ command = connection->CreateCommand(); 
 
		 command->CommandText = "UPDATE contacts " + 
			 "SET name = ?, phone =?, email=? " + 
			 "WHERE cid = ?"; 
 
		 command->Parameters->Add("name", textBox1->Text); 
		 command->Parameters->Add("phone", textBox2->Text); 
		 command->Parameters->Add("email", textBox3->Text); 
		 command->Parameters->Add("cid", textBox4->Text); 
 
		command->ExecuteScalar(); // выполнить команду 
 
		 ShowDB(); 
 
		 textBox1->Clear(); 
		 textBox2->Clear(); 
		 textBox3->Clear(); 
		 textBox4->Clear(); 
	 } 
 }
// Обработка события TextChanged компонентов textBox1-textBox3. 
// Одна функция обрабатывает событие от трех компонентов. 
private: System::Void textBox_TextChanged(System::Object^ sender, 
             System::EventArgs^  e)  { 
	 // Кнопка Добавить становится доступной, 
	 //  если информация введена в поле Имя 
	 //  и в какое-либо из полей - Телефон или E-mail 
	 if ((textBox1->TextLength > 0) && 
		 ((textBox2->TextLength > 0) || 
		 (textBox3->TextLength > 0))) 
		 button1->Enabled = true; 
	 else 
	 { 
		 button1->Enabled = false; 
	 } 
}