49875 (База данных "Магазин по продаже дисков"), страница 3

2016-07-30СтудИзба

Описание файла

Документ из архива "База данных "Магазин по продаже дисков"", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "49875"

Текст 3 страницы из документа "49875"



Список использованных источников

  1. Бобровский С. Самоучитель програмирования на языке C++ в среде Borland C++ Builder

  2. Культин Н.Б. С++ Buider в задачах и примерах – СПб.:БХВ-Петербург, 2007. – 336с.: ил.

  3. Лаптев В.В. C++. Экспресс-курс . 2004г.

  4. Послед Б.С. Borland C++ Builder 6. Разработка приложений баз. 2003г. -360ст.

  5. Технология разработки приложения на языке С++. Методическое указание к лабораторным работам для студентов первого курса специальности 080801.65 “Прикладная информатика” (по областям)

  6. Учебник по программированию в среде С++ Builder 5, Д. Холингворт, Б. Сворт, Д. Баттерфилд 865 с.

  7. Б., Эллисон Ч. Философия С++. Практическое программирование. С.Петербург 2004г. 608 с.:ил.





Приложение

Листинг файла – проекта Project1.cpp

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

#include

#pragma hdrstop

#include "ABOUT.h"

#include "Unit1.h"

#include "Unit2.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{}

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{ADOConnection1->Connected = false;

ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="+ExtractFileDir(Application->ExeName)+" \\ БАЗА ДАННЫХ \\ CD.mdb; Mode=Share Deny None;Extended Properties=\"\";Jet OLEDB:System database=\"\";Jet OLEDB:Registry Path=\"\";Jet OLEDB:Database Password=\"\";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=\"\";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";

ADOConnection1->Connected = true;

PageControl1->ActivePage = TabSheet1;}

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

void __fastcall TForm1::N1Click(TObject *Sender)

{AboutBox->Show();}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{DataSource1->DataSet = ADOQuery1;

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("SELECT [Наименование] FROM Tab1 WHERE [Наименование] =\""+Edit1->Text+"\";");

ADOQuery1->ExecSQL();

ADOQuery1->Open();

if(Edit1->Text!=""&&ComboBox1->Text!=" "&&Edit2->Text!=" "&Edit3->Text!=""&&Edit4->Text!="")

{if(ADOQuery1->RecordCount==0)

{ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("INSERT INTO Tab1 ([Наименование],[Группа],[Количество],[Закупочная цена],[Цена продажи])");

ADOQuery1->SQL->Add("Values("+QuotedStr(Edit1->Text)+","+QuotedStr(ComboBox1->Text)+","+Edit2->Text+","+Edit3->Text+","+Edit4->Text+");");

ADOQuery1->ExecSQL();}else

{MessageDlg("Такие диски уже есть!"mtInformation,TMsgDlgButtons()<

else

{MessageDlg("Введены не все данные для добавления диска(-ов) в базу!"mtInformation,TMsgDlgButtons()<

Edit1->Clear();

ComboBox1->Clear();

Edit2->Clear();

Edit3->Clear();

Edit4->Clear();}

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

void __fastcall TForm1::TabSheet1Show(TObject *Sender)

{DataSource1->DataSet = ADOQuery1;

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("SELECT * FROM Tab1;");

ADOQuery1->ExecSQL();

ADOQuery1->Open();}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{ADOQuery1->SQL->Clear();

if(RadioButton1->Checked)

{ADOQuery1->SQL->Add("SELECT * FROM Tab1 ORDER BY +["+ComboBox2->Text+"] DESC;");

ADOQuery1->ExecSQL();

DataSource1->DataSet = ADOQuery1;

ADOQuery1->Open();}

else

{if(RadioButton2->Checked)

{ADOQuery1->SQL->Add("SELECT * FROM Tab1 ORDER BY +["+ComboBox2->Text+"] ASC;");

ADOQuery1->ExecSQL();

DataSource1->DataSet = ADOQuery1;

ADOQuery1->Open();}}}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{if(RadioButton3->Checked)

{ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("SELECT * FROM Tab1 WHERE [Наименование] "+ComboBox3->Text+"\""+Edit5->Text+"\";");

ADOQuery1->ExecSQL();

ADOQuery1->Open();

ComboBox3->Clear();

Edit5->Clear();}

else

{if(RadioButton4->Checked)

{ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("SELECT * FROM Tab1 WHERE [Группа] "+ComboBox4->Text+"\""+ComboBox8->Text+"\";");

ADOQuery1->ExecSQL();

ADOQuery1->Open();

ComboBox4->Clear();

ComboBox8->Clear();}

else

{if(RadioButton5->Checked)

{ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("SELECT * FROM Tab1 WHERE [Количество] "+ComboBox5->Text+" "+Edit7->Text+";");

ADOQuery1->ExecSQL();

ADOQuery1->Open();

ComboBox5->Clear();

Edit7->Clear();}

else

{if(RadioButton6->Checked)

{ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("SELECT * FROM Tab1 WHERE [Закупочная цена] "+ComboBox6->Text+" "+Edit8->Text+";");

ADOQuery1->ExecSQL();

ADOQuery1->Open();

ComboBox6->Clear();

Edit8->Clear();}

else

{if(RadioButton7->Checked)

{ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("SELECT * FROM Tab1 WHERE [Цена продажи] "+ComboBox7->Text+" "+Edit9->Text+";");

ADOQuery1->ExecSQL();

ADOQuery1->Open();

ComboBox7->Clear();

Edit9->Clear();}

else

{MessageDlg("Укажите хотя бы одно поле..."mtInformation,TMsgDlgButtons()<

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

void __fastcall TForm1::Button4Click(TObject *Sender)

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

{//MessageDlg("Укажите не достаюшие поля..."mtInformation,TMsgDlgButtons()<

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("SELECT * FROM Tab1 WHERE [Наименование] =\""+Edit10->Text+"\";");

ADOQuery1->ExecSQL();

ADOQuery1->Open();

Edit10->Clear();} else

{MessageDlg("Укажите не достаюшие поля..."mtInformation,TMsgDlgButtons()<

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{ADOQuery1->Delete();}

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





Свежие статьи
Популярно сейчас
А знаете ли Вы, что из года в год задания практически не меняются? Математика, преподаваемая в учебных заведениях, никак не менялась минимум 30 лет. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4125
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее