База данных "Магазин по продаже дисков"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
олнить все указанные поля и нажать кнопку добавить, иначе будет выведено на экран сообщение об ошибке.
Также приложение позволяет осуществить фильтрацию и удаление дисков из базы данных, что тоже требует определенной внимательности при заполнении существующих полей, иначе можно встретить следующие сообщения об ошибке.
Заключение
База данных это совокупность структурированных и взаимосвязанных данных и методов, обеспечивающих добавление, выборку и отображение информации.
В ходе выполнения курсовой работы были выполнены все поставленные задачи и разработано работоспособное приложение “Автоматизированное рабочее место для продавца компакт дисков”. В частности, разработана и описана предметная область программы, разработан и реализован алгоритм на языке С++, проведено тестирование, которое не выявило существенных ошибок, однако это не исключает возможности их появления при проведении более глубокого и длительного тестирования.
Так же в процессе выполнения работы были получены и закреплены практические навыки разработки программ с использованием SQL запросов и баз данных в написании программ в среде визуального программирования Borland C++ Builder 6.0.
Список использованных источников
- Бобровский С. Самоучитель програмирования на языке C++ в среде Borland C++ Builder
- Культин Н.Б. С++ Buider в задачах и примерах СПб.:БХВ-Петербург, 2007. 336с.: ил.
- Лаптев В.В. C++. Экспресс-курс . 2004г.
- Послед Б.С. Borland C++ Builder 6. Разработка приложений баз. 2003г. -360ст.
- Технология разработки приложения на языке С++. Методическое указание к лабораторным работам для студентов первого курса специальности 080801.65 “Прикладная информатика” (по областям)
- Учебник по программированию в среде С++ Builder 5, Д. Холингворт, Б.Сворт, Д.Баттерфилд 865 с.
- Б., Эллисон Ч. Философия С++. Практическое программирование. С.Петербург 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;
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;UserID=Admin;DataSource="+ExtractFileDir(Application->ExeName)+"\\\\CD.mdb;Mode=ShareDenyNone;ExtendedProperties=\"\";JetOLEDB:Systemdatabase=\"\";JetOLEDB:RegistryPath=\"\";JetOLEDB:DatabasePassword=\"\";JetOLEDB:EngineType=5;JetOLEDB:DatabaseLockingMode=1;JetOLEDB:GlobalPartialBulkOps=2;JetOLEDB:GlobalBulkTransactions=1;JetOLEDB:NewDatabasePassword=\"\";JetOLEDB:CreateSystemDatabase=False;JetOLEDB:EncryptDatabase=False;JetOLEDB:DontCopyLocaleonCompact=False;JetOLEDB:CompactWithoutReplicaRepair=False;JetOLEDB:SFP=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:Dont 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()<<mbOK,0);}
else
{MessageDlg("Введены не все данные для добавления диска(-ов) в базу!"mtInformation,TMsgDlgButtons()<<mbOK,0);}
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-&g