Автосалон туралы мәліметтер

«Автосалон» МҚБЖ құрутақырыбындағы жоба

5В070400 - «Есептеу техникасы және бағдарламалық қамтамасыз ету»

Мазмұны:

Кіріспе

1. Пәндік саланы талдау.
2. Құрылған қосымшаға сипаттамаМҚ кестелерінің құрылымыҚолданушыға нұсқау

Қорытынды

Пайдаланылған әдебиеттер тізімі

Қосымша

Кіріспе

Мәліметтер қоры - қоғамның қандай да бір саласындағы объектілер туралы мәліметтер жиынтығы. Мәліметтер қоры ақпараттық технологияда үлкен роль атқарады және үлкен көлемді ақпараттарды автоматты түрде өңдеудің маңызды құралы болып табылады. Мәліметтер қоры мәліметтермен жұмыс істейтін қарапайым және ыңғайлы құрал және өндірістің әр түрлі салаларында қолданылады.

Мәліметтер қоры бірнеше ортақ қасиеттері бар элементтер жиынынан тұратын нысандарды сипаттауға арналған. Мәліметтер қорымен жұмыс істейтін ақпараттық жүйелердегі жалпыға арналған программалық қамтамасыз ету мәліметтер қорын басқару жүйесі (МҚБЖ) деп аталады. Мәліметтер қорын басқару жүйелері - бұл мәліметтер қорын құруға, енгізуге және өңдеуден өткізуге арналған тілдік және программалық құралдардың кешені.

Әлемде МҚБЖ-ның 1000-нан астам түрі бар. Мәліметтер қорын басқарудың әр алуан жүелері мәліметтердің әр түрлі модельдерін пайдаланады.

Мәліметтерге қол жеткізу мүмкіндігі көптеген пайдаланушыларға мәліметтер қорына жылдам және тиімді түрде жүгінуге мүмкіндік береді. МҚБЖ көптеген пайдаланушылар бір мезгілде қол жеткізуге ие болған жағдайда пайдаланушының бірі мәліметтерге жүгінсе, енді бірі сол кезде оларға өзгертулер енгізіп жататындай келіспеушілік оқиғалардың туындамауын бақылап отырады.

Құрылған қосымшаға сипаттама

Бұл жоба Delphi 7 программалау тілінде жазылған.

«Автосалон» туралы мәліметтер қорымен келесідей амалдарды жүзеге асыруға болады:

• енгізу;
• 1 жазбаны жою;
• барлық жазбаларды жою;
• сұраныс жасау;
• іздеу;
• сұрыптау;
• есептеу;
• есеп беру.

МҚ кестелерінің құрылымы

«Автосалон» мәліметтер қоры екі кестеден тұрады: avto1және avto2.

Avto1

Avto2

Қолданушыға нұсқау

«Жануарлар әлемі» мәліметтер қорының бастапқы формасы келесі түрде бейнеленеді.

Оң жақ бұрыштағы «Жануарлар әлемі» батырмасын басқан кезде кестелерге жануарлар туралы мәлімет енгізілген формаға өтеміз.

Бұл формада екі кесте орналасқан, сонымен қатар әр түрлі оперцияларды орындауға арналған батырмалар бар. Мәліметтерді негізгі кестеге енгізу үшін Menu-дегі «Мәліметтерді енгізу» пунктін таңдаймыз.

«Мәліметтерді енгізу» пунктін таңдаған кезде негізгі кестеге мәліметтер енгізуге арналған келесі форма ашылады.

Формада көрсетілгендей жануарлар туралы мәліметтер жазамыз және «Енгізу» батырмасын шертеміз.

«Енгізу» батырмасының коды:

procedure TForm2. Button1Click(Sender: TObject) ;

begin

Form1. query1. close;

form1. query1. sql. clear;

form1. query1. sql. add ('insert into januar555. db

(Nomer, Zhanuar_aty, Tip, Sany, Mekeni) ') ;

form1. query1. sql. add('values("'+edit1. Text+'", "'+edit2. Text+'", "'+edit3. text+'", "'

edit4. text+'", "'+edit5. Text+'") ; ') ;

form1. query1. execsql;

form1. query1. close;

form1. query1. sql. clear;

form1. query1. sql. add('select*from januar555. db') ;

form1. query1. open;

end;

«Енгізу» батырмасын басқан кезде мәлімет кестеге енгізіледі.

Ал бағыныңқы кестеге мәлімет енгізу үшін Form1-дегі «Енгізу» батырмасын басамыз. Сол кезде келесі форма ашылады.

«Енгізу» батырмасының коды:

procedure TForm4. Button1Click(Sender: TObject) ;

begin

Form1. query2. close;

form1. query2. sql. clear;

form1. query2. sql. add('insert into mekeni555. db(Nomer, Zhanuar_aty, Tip, Erekweligi, Kop_taralgan_jerleri) ') ;

form1. query2. sql. add('values("'+edit1. text+'", "'+edit2. Text+'", "'+edit3. Text+'", "'+edit4. text+'", "'+edit5. text+'") ; ') ;

form1. query2. execsql;

form1. query2. close;

form1. query2. sql. clear;

form1. query2. sql. add('select*from mekeni555. db') ;

form1. query2. open;

end;

Form1-дегі «Барлық жазбаны жою» батырмасын шерткен кезде кестедегі барлық мәліметтер жойылады. Батырма коды:

procedure TForm1. Button1Click(Sender: TObject) ;

var i:integer;

begin

if messagedlg('Барлық жазбаларды жою керек пе?', mtconfirmation,

[mbyes, mbno], 0) =mryes

then begin

form1. query1. First;

for i:=1 to query1. recordcount do

begin

form1. query1. Delete;

form1. query1. Next;

end;

end;

end;

«Ағымдағы жазбаны жою» батырмасын шерткен кезде кестедегі ағымдағы жазба жойылады. Батырма коды:

procedure TForm1. Button2Click(Sender: TObject) ;

begin

if messagedlg('Жазбаны жою керек пе?', mtconfirmation,

[mbyes, mbno], 0) =mryes

then form1. Query1. Delete;

end;

Сонымен қатар бұл мәліметтер қорында агрегаттық функцияларды қолдана отырып амалдар орындауға болады. Ол үшін Menu-де «Агрегаттық функцияларды қолдану» пунктін таңдаймыз. Келесі формада «Жануарлардың жалпы санын есептеу», «Ең коп таралған жануарлар» және «Ең аз таралған жануарлар» деген батырмалар бар.

«Жануарлардың жалпы санын есептеу» батырмасын шеркен кезде негізгі кестеде енгізілген жануарлар санының қосындысын шығарады.

«Жануарлардың жалпы санын есептеу» батырмасының коды:

procedure TForm5. Button1Click(Sender: TObject) ;

begin

query1. Close;

query1. SQL. Clear;

query1. SQL. add('select sum(sany) from januar555') ;

query1. execsql;

query1. open;

end;

«Ең көп таралған жануарлар» батырмасын шеркен кезде негізгі кестеде енгізілген жануарлардың ішіндегі саны жағынан көп жануар атын шығарады.

«Ең көп таралған жануарлар» батырмасының коды:

procedure TForm5. Button2Click(Sender: TObject) ;

begin

query1. Close;

query1. sql. clear;

query1. SQL. Add('select Zhanuar_aty, sany from januar555 where sany=(select max(sany) from januar555) ') ;

query1. execsql;

query1. Open;

end;

«Ең аз таралған жануарлар» батырмасын шеркен кезде негізгі кестеде енгізілген жануарлардың ішіндегі саны жағынан аз жануар атын шығарады.

«Ең аз таралған жануарлар» батырмасының коды:

procedure TForm5. Button3Click(Sender: TObject) ;

begin

query1. Close;

query1. sql. clear;

query1. SQL. Add('select Zhanuar_aty, sany from januar555 where sany=(select

min(sany) from januar555) ') ;

query1. execsql;

query1. Open;

end;

«Жануарлар әлемі» мәліметтер қорында сұрыптау жүргізуді келесідей орындаймыз: «Сұрыптау түрі» және «Сұрыптау бағыты».

Menu-дегі «Сұрыптау» пунктін таңдаған кезде келесідей форма ашылады.

«Сұрыптау» батырмасының коды:

procedure TForm6. Button1Click(Sender: TObject) ;

var s:string;

begin

form1. query1. close;

form1. query1. sql. clear;

form1. query1. sql. add('select*from januar555. db') ;

ase radiogroup2. ItemIndex of

0:s:='';

1:s:=' desc';

end;

case radiogroup1. ItemIndex of

0:s:='order by Zhanuar_aty'+s;

1:s:='order by Tip'+s;

2:s:='order by Sany'+s;

end;

form1. query1. sql. add(s) ;

form1. query1. open;

end;

Сонымен қатар бұл жобада мәліметтерді іздеуді жүзеге асыруға болады. Іздеу «Жануар аты» және «Типі» бойынша жүзеге асырылады. Сұрыптау формасы келесідей түрде болады.

«ОК» батырмасының коды:

procedure TForm9. BitBtn1Click(Sender: TObject) ;

var KeyFields:String; KeyValues:Variant;

Options:TLocateOptions;

begin

if not (CheckBox1. Checked or CheckBox2. Checked) then begin

MessageDlg('Іздеу шарты көрсетілмеген!', mtInformation, [mbOK], 0) ;

exit; end;

if CheckBox1. Checked and CheckBox2. Checked then begin

KeyFields:=' Zhanuar_aty; Tip';

KeyValues:=VarArrayOf([Edit1. Text, Edit2. Text] ) ;

End else begin

if CheckBox1. Checked then begin

KeyFields:=' Zhanuar_aty';

KeyValues:=Edit1. Text;

end;

if CheckBox2. Checked then begin

KeyFields:='Tip';

KeyValues:=Edit2. Text;

end; end;

Options:=[loCaseInsensitive, loPartialKey] ;

if not form1. Query1. Locate(KeyFields, KeyValues, Options) then begin

Beep;

MessageDlg('Жазба табылған жоқ!', mtInformation, [mbOK], 0) ;

exit; end;

Қосымшаға қарапайым сұраныстар шартын таңдауға мүмкіндік беретін жаңа форма қостым. Сұранс нәтижелері негізгі кестеде бейнеленеді.

Келесі шарттарды қанағаттандыратын сұраныстар құрылды:

1. Жануардың мекен ету ортасы бойынша;
2. Номері көрсетілген аралықта болатын жануарлар туралы ақпарат.

Сұраныстарды жүзеге асыратын форма келесідей түрде болады.

«Мекен ету ортасы» таңдалынып алынады. Мысалы:

... жалғасы

Автосалон жұмысының деректер қорын жобалау

Деректер базасын жасау

Мадияр-Құрылыс ЖШС компаниясы - Диплом алды практика

«Toyota» автосалон деректер қорына навигациялық тәсілдерді қолдану

MS Access программасын оқып үйрену және оны қолдану

Мәліметтер қорын басқару жүйесі бойынша дәрістер

Компьютерлік техниканың даму сатысы

Информатика - Пәнді оқыту

Банктік несие қызметтері

Банктің қысқаша сипаттамасы мен қысқаша тарихи анықтамасы

• Іс жүргізу
• Автоматтандыру, Техника
• Алғашқы әскери дайындық
• Астрономия
• Ауыл шаруашылығы
• Банк ісі
• Бизнесті бағалау
• Биология
• Бухгалтерлік іс
• Валеология
• Ветеринария
• География
• Геология, Геофизика, Геодезия
• Дін
• Ет, сүт, шарап өнімдері
• Жалпы тарих
• Жер кадастрі, Жылжымайтын мүлік
• Журналистика
• Информатика
• Кеден ісі
• Маркетинг
• Математика, Геометрия
• Медицина
• Мемлекеттік басқару
• Менеджмент
• Мұнай, Газ
• Мұрағат ісі
• Мәдениеттану
• ОБЖ (Основы безопасности жизнедеятельности)
• Педагогика
• Полиграфия
• Психология
• Салық
• Саясаттану
• Сақтандыру
• Сертификаттау, стандарттау
• Социология, Демография
• Спорт
• Статистика
• Тілтану, Филология
• Тарихи тұлғалар
• Тау-кен ісі
• Транспорт
• Туризм
• Физика
• Философия
• Халықаралық қатынастар
• Химия
• Экология, Қоршаған ортаны қорғау
• Экономика
• Экономикалық география
• Электротехника
• Қазақстан тарихы
• Қаржы
• Құрылыс
• Құқық, Криминалистика
• Әдебиет
• Өнер, музыка
• Өнеркәсіп, Өндіріс