Разработка приложения для составления сметы покупки персонального компьютера
Составление сметы покупки персонального компьютера на основе имеющихся в продаже отдельных комплектующих как основная функция приложения. Основные требования к данным и транзакциям. Инфологическое, даталогическое и функциональное проектирование.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 07.08.2013 |
| Размер файла | 1,5 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
number=IBQuery1->FieldByName ("Max_ID") - >AsInteger+1;
Edit5->Text="Частное лицо";
}
// ---------------------------------------------------------------------------
void __fastcall TSmetaItog:: Button1Click (TObject *Sender)
{
bool flag_close=true;
AnsiString text;
IBQuery1->SQL->Clear ();
try {
IBQuery1->SQL->Add ("Insert into Register (DATA,CUSTOMER,PROC,MATPL,MEM,MON,SUMMA) values ('"+DateToStr (Date ()) +"','"+
Edit5->Text+"',"+ProcID+","+MatID+","+MemID+","+MonID+",'"+
Label10->Caption+"')");
IBQuery1->ExecSQL ();
}
catch (.) {
Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);
flag_close=false;
}
if (flag_close)
{ text="Покупка успешно зарегестрирована под номером "+IntToStr (number);
Application->MessageBox (text. c_str (), "Сообщение", MB_OK + MB_ICONINFORMATION);
// ShowMessage ("Покупка успешно зарегестрирована под номером "+IntToStr (number));
SmetaItog->Close ();
}
/*IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register");
IBQuery1->Open (); */
}
// ---------------------------------------------------------------------------
void __fastcall TSmetaItog:: Button3Click (TObject *Sender)
{
SmetaRep->QRLabel10->Caption=Edit1->Text;
SmetaRep->QRLabel14->Caption=Label5->Caption;
SmetaRep->QRLabel11->Caption=Edit2->Text;
SmetaRep->QRLabel15->Caption=Label6->Caption;
SmetaRep->QRLabel12->Caption=Edit3->Text;
SmetaRep->QRLabel16->Caption=Label7->Caption;
SmetaRep->QRLabel13->Caption=Edit4->Text;
SmetaRep->QRLabel17->Caption=Label8->Caption;
SmetaRep->QRLabel4->Caption=Edit5->Text;
SmetaRep->QRLabel18->Caption=Label10->Caption;
SmetaRep->QRLabel25->Caption=IntToStr (number);
SmetaRep->QuickRep1->Preview ();
}
// ---------------------------------------------------------------------------
void __fastcall TSmetaItog:: Button4Click (TObject *Sender)
{
SmetaItog->Close ();
SmetaMon->Show ();
}
// ---------------------------------------------------------------------------
Листинг формы Register
// ---------------------------------------------------------------------------
#include <vcl. h>
#include <systdate. h>
#pragma hdrstop
#include "MF_Unit. h"
#include "Register_unit. h"
// ---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource "*. dfm"
TFormReg *FormReg;
// ---------------------------------------------------------------------------
__fastcall TFormReg:: TFormReg (TComponent* Owner)
: TForm (Owner)
{
}
void __fastcall TFormReg:: Otbor (int flag)
{
if (flag==1) // число
{ Label7->Visible=true;
Label8->Visible=true;
Edit5->Visible=true;
Edit6->Visible=true;
Label6->Visible=false;
ComboBox2->Visible=false;
DatePicker1->Visible=false;
DatePicker2->Visible=false;
}
if (flag==2) // дата
{ Label7->Visible=true;
Label8->Visible=true;
Edit5->Visible=false;
Edit6->Visible=false;
Label6->Visible=false;
ComboBox2->Visible=false;
DatePicker1->Visible=true;
DatePicker2->Visible=true;
}
if (flag==3) // значения
{ Label7->Visible=false;
Label8->Visible=false;
Edit5->Visible=false;
Edit6->Visible=false;
Label6->Visible=true;
ComboBox2->Visible=true;
DatePicker1->Visible=false;
DatePicker2->Visible=false;
}
}
// ---------------------------------------------------------------------------
void __fastcall TFormReg:: Button1Click (TObject *Sender)
{
FormReg->Close ();
}
// ---------------------------------------------------------------------------
void __fastcall TFormReg:: DataSource1DataChange (TObject *Sender,
TField *Field)
{
IBQuery2->SQL->Clear ();
IBQuery2->SQL->Add ("Select name as Proc_Name from Processors where id=: proc");
IBQuery2->Open ();
Edit1->Text=IBQuery2->FieldByName ("Proc_Name") - >AsString;
IBQuery2->SQL->Clear ();
IBQuery2->SQL->Add ("Select name as Mat_Name from Matplatas where id=: matpl");
IBQuery2->Open ();
Edit2->Text=IBQuery2->FieldByName ("Mat_Name") - >AsString;
IBQuery2->SQL->Clear ();
IBQuery2->SQL->Add ("Select name as Mem_Name from Memorys where id=: mem");
IBQuery2->Open ();
Edit3->Text=IBQuery2->FieldByName ("Mem_Name") - >AsString;
IBQuery2->SQL->Clear ();
IBQuery2->SQL->Add ("Select name as Mon_Name from Monitors where id=: mon");
IBQuery2->Open ();
Edit4->Text=IBQuery2->FieldByName ("Mon_Name") - >AsString;
}
// ---------------------------------------------------------------------------
void __fastcall TFormReg:: FormShow (TObject *Sender)
{
IBQuery1->Close ();
IBQuery1->Open ();
ComboBox1->ItemIndex=0;
Otbor (1);
}
// ---------------------------------------------------------------------------
void __fastcall TFormReg:: Button2Click (TObject *Sender)
{
if (ComboBox1->ItemIndex==0) // ID
{ try {
IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register where Id between "+Edit5->Text+" AND "+Edit6->Text);
IBQuery1->Open ();
}
catch (.) {
Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);
}
}
if (ComboBox1->ItemIndex==1) // Дата
{ try {
IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register where Data between '"+DateToStr (DatePicker1->Date) +"' AND '"+DateToStr (DatePicker2->Date) +"'");
IBQuery1->Open ();
}
catch (.) {
Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);
}
}
if (ComboBox1->ItemIndex==2) // покупатель
{ try {
IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register where Customer = '"+ComboBox2->Text+"'");
IBQuery1->Open ();
}
catch (.) {
Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);
}
}
if (ComboBox1->ItemIndex==3) // сумма
{ try {
IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register where Summa between '"+Edit5->Text+"' AND '"+Edit6->Text+"'");
IBQuery1->Open ();
}
catch (.) {
Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);
}
}
if (ComboBox1->ItemIndex==4) // процессор
{ try {
IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register where proc in (select Id from processors where name= '"+ComboBox2->Text+"')");
IBQuery1->Open ();
}
catch (.) {
Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);
}
}
if (ComboBox1->ItemIndex==5) // мат. плата
{ try {
IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register where matpl in (select Id from matplatas where name = '"+ComboBox2->Text+"')");
IBQuery1->Open ();
}
catch (.) {
Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);
}
}
if (ComboBox1->ItemIndex==6) // память
{ try {
IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register where mem in (select Id from memorys where name= '"+ComboBox2->Text+"')");
IBQuery1->Open ();
}
catch (.) {
Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);
}
}
if (ComboBox1->ItemIndex==7) // монитор
{ try {
IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register where mon in (select Id from monitors where name= '"+ComboBox2->Text+"')");
IBQuery1->Open ();
}
catch (.) {
Application->MessageBox ("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);
}
}
}
// ---------------------------------------------------------------------------
void __fastcall TFormReg:: Button3Click (TObject *Sender)
{
IBQuery1->SQL->Clear ();
IBQuery1->SQL->Add ("Select * from Register");
IBQuery1->Open ();
}
// ---------------------------------------------------------------------------
void __fastcall TFormReg:: ComboBox1Change (TObject *Sender)
{
if (ComboBox1->ItemIndex==0) // ID
Otbor (1);
if (ComboBox1->ItemIndex==1) // Дата
Otbor (2);
if (ComboBox1->ItemIndex==2) // Покупатель
{
ComboBox2->Clear ();
IBQuery3->SQL->Clear ();
IBQuery3->SQL->Add ("Select Distinct Customer As Par From Register");
IBQuery3->Open ();
while (! IBQuery3->Eof)
{ ComboBox2->Items->Add (IBQuery3->FieldByName ("Par") - >AsString);
IBQuery3->Next ();
}
ComboBox2->ItemIndex=0;
Otbor (3);
}
if (ComboBox1->ItemIndex==3) // Сумма
Otbor (1);
if (ComboBox1->ItemIndex==4) // Процессор
{
ComboBox2->Clear ();
IBQuery3->SQL->Clear ();
IBQuery3->SQL->Add ("Select name from Processors where id IN (Select Distinct Proc From Register)");
IBQuery3->Open ();
while (! IBQuery3->Eof)
{ ComboBox2->Items->Add (IBQuery3->FieldByName ("name") - >AsString);
IBQuery3->Next ();
}
ComboBox2->ItemIndex=0;
Otbor (3);
}
if (ComboBox1->ItemIndex==5) // Мат. плата
{
ComboBox2->Clear ();
IBQuery3->SQL->Clear ();
IBQuery3->SQL->Add ("Select name from Matplatas where id IN (Select Distinct Matpl From Register)");
IBQuery3->Open ();
while (! IBQuery3->Eof)
{ ComboBox2->Items->Add (IBQuery3->FieldByName ("name") - >AsString);
IBQuery3->Next ();
}
ComboBox2->ItemIndex=0;
Otbor (3);
}
if (ComboBox1->ItemIndex==6) // Память
{
ComboBox2->Clear ();
IBQuery3->SQL->Clear ();
IBQuery3->SQL->Add ("Select name from Memorys where id IN (Select Distinct Mem From Register)");
IBQuery3->Open ();
while (! IBQuery3->Eof)
{ ComboBox2->Items->Add (IBQuery3->FieldByName ("name") - >AsString);
IBQuery3->Next ();
}
ComboBox2->ItemIndex=0;
Otbor (3);
}
if (ComboBox1->ItemIndex==7) // Монитор
{
ComboBox2->Clear ();
IBQuery3->SQL->Clear ();
IBQuery3->SQL->Add ("Select name from Monitors where id IN (Select Distinct Mon From Register)");
IBQuery3->Open ();
while (! IBQuery3->Eof)
{ ComboBox2->Items->Add (IBQuery3->FieldByName ("name") - >AsString);
IBQuery3->Next ();
}
ComboBox2->ItemIndex=0;
Otbor (3);
}
}
// ---------------------------------------------------------------------------
void __fastcall TFormReg:: Edit5KeyPress (TObject *Sender, char &Key)
{
if ( ( (Key<'0') || (Key>'9')) && (Key! ='. ')) {Key=0; Beep (); }
}
// ---------------------------------------------------------------------------
Размещено на Allbest.ru
Подобные документы
Состав и обоснование выбора компонентов персонального компьютера (процессора, материнской платы, комплектующих и периферийных устройств), требования к ним и характеристики. Структурная схема компьютера, его программное обеспечение и расчёт стоимости.
контрольная работа [1,3 M], добавлен 12.02.2015Сущность глобальной компьютеризации и ее распространенность на современном этапе. Основные характеристики персонального компьютера и требования к нему, главные критерии выбора и оценка ассортимента. Порядок выбора конфигурации персонального компьютера.
реферат [398,1 K], добавлен 31.10.2010Конфигурирование персонального компьютера для Вооруженных сил Российской Федерации и обоснование выбора комплектующих для него. Анализ характеристик комплектующих: процессора, материнской платы, видеокарты, жесткого диска и периферийных устройств.
курсовая работа [1,9 M], добавлен 16.07.2013Состав вычислительной системы - конфигурация компьютера, его аппаратные и программные средства. Устройства и приборы, образующие аппаратную конфигурацию персонального компьютера. Основная память, порты ввода-вывода, адаптер периферийного устройства.
презентация [143,8 K], добавлен 15.04.2013Конструкция системного блока, монитора, клавиатуры и мыши персонального компьютера, как элементов его минимальной комплектации, а также их назначение, особенности работы и современные тенденции развития. Отрывки статей о новинках архитектуры компьютера.
реферат [43,4 K], добавлен 25.11.2009Аппаратно-программные средства компьютера, позиционируемого в качестве учебного. Модернизация компонентов персонального компьютера, его потребляемая мощность. Исходная конфигурация компьютера. Установка дополнительных модуля памяти и жесткого диска.
курсовая работа [120,3 K], добавлен 21.01.2013Архитектура персонального компьютера, функциональные и технические характеристики его устройств. Компоненты материнской платы, строение процессора, виды памяти. Принципы работы процессора и обращение к данным. Пути развития персонального компьютера.
курсовая работа [102,4 K], добавлен 11.02.2011Компоновка частей компьютера и связь между ними. Понятие архитектуры персонального компьютера, принципы фон Неймана. Назначение, функции базовых программных средств, исполняемая программа. Виды, назначение, функции, специфика периферийных устройств.
контрольная работа [433,2 K], добавлен 23.09.2009Конфигурация современного персонального компьютера. Назначение и типы монитора, модема, системного блока, принтера, клавиатуры. Материнская плата, процессор, оперативная память. Сборка компьютера, установка компонентов. Безопасность на рабочем месте.
курсовая работа [557,9 K], добавлен 19.11.2009Понятие архитектуры персонального компьютера, компоновка частей компьютера и связи между ними. Составляющие системного блока ПК. Функции центрального процессора, системной платы, оперативного запоминающего устройства, видеокарты и жесткого диска.
реферат [30,7 K], добавлен 28.01.2014
