Автор работы: Пользователь скрыл имя, 13 Ноября 2011 в 08:48, курсовая работа
Менің курстық жұмысымның тақырыбы Кітап қоймасының деректер қоры деп аталады. Бұл деректер қоры басқа да бағдарламалар секілді Delphi тілінде жасалады . Delphi тілі мен Access бағдарламасының көмегімен жасалған.
TurboPascal-ды жетілдіре отырып Borland фирмасы көптеген жетістіктерін ұсынды.Паскаль тілі бағдарламаны оқыту тілі ғана болды. Кейіннен паскаль қиын да қызықты бағдарламалар мен басқа ида жетістіктерге жетті . Техникалық эвалюция кезегімен жеке компьютерлердің көптеген жетістіктері OC-MSDOS жүиесіндегі Windows бағдарламавларының көмегімен өте қызықты әрі жетілдірілген программалық жүиелер шыға бастады .
кіріспе 3
ТАПСЫРМАЛАР РЕТІ 7
YER-диаграмма 9
БАЙЛАНЫС ҚҰРЫЛЫМЫ ………………………….. 10
КІТАП ҚОЙМАЛАРЫ ДЕРЕКТЕР ҚОРЫ.....................................11
ЕНГІЗУ БАЗАСЫ................................................................................17
СУРАНЫС БАЗАСЫ..........................................................................18
КЕСТЕ БАЗАСЫ.................................................................................19
ҚОРЫТЫНДЫ....................................................................................20
ПАЙДАЛАНҒАН ӘДЕБИЕТТЕР.....................................................21
МАЗМҰНЫ
Кіріспе.
Менің курстық жұмысымның тақырыбы Кітап қоймасының деректер қоры деп аталады. Бұл деректер қоры басқа да бағдарламалар секілді Delphi тілінде жасалады . Delphi тілі мен Access бағдарламасының көмегімен жасалған.
TurboPascal-ды жетілдіре отырып Borland фирмасы көптеген жетістіктерін ұсынды.Паскаль тілі бағдарламаны оқыту тілі ғана болды. Кейіннен паскаль қиын да қызықты бағдарламалар мен басқа ида жетістіктерге жетті . Техникалық эвалюция кезегімен жеке компьютерлердің көптеген жетістіктері OC-MSDOS жүиесіндегі Windows бағдарламавларының көмегімен өте қызықты әрі жетілдірілген программалық жүиелер шыға бастады .
1993-жылы MicroSoft- фирмасы ең бірінші қарапайым бағдарламалау тілі VisualBasic Жүйесін шығарды. Borland өзінің өнімін шығарды оның аты Delphi.
Delphi-бұл Windows жүиесінде жұмыс жасай алатын бағдарлама. Delphi-дің бірінші версиясы Windows 3.1.жүиесінде жұмыс жасайтын. Windows95 жүиесі шыққаннан кейін Borland фирмасы 16-разрядтық версиясын шығарды Delphi 2 , одан кейін заманға сай 32-разрядтық Delphi 3, кейін келе Delphi 4.., 5,.. 6,7...шыға бастады.
Delphi
көптеген элементерден тұратын бағдарламалау
жүиесі . Delphi кәсіпқой программистер жұмыс
істеуге арналған . Студенттердің алдында
Delphi – ді Widows жүиесі бойынша жұмыс
құру , және соны оқып білуге мақсат
қояды.
Delphi-бағдарламасын енгізгеннен кейін төрт терезе ашылады .
Бағдарламаның ең басты бөлігін құрайтын бөлімдері:
1.Бастапқы терезе.
2.Форма терезесі.
3.Бағдарламаны кодтау бағдарламасы.
4.Бөлімдер инспекторы.
Экранның
үстіңгі жағында бастапқы терезе
орналасқан . Ол Delphi7 –нің Project1
бөлігін құрайды.бастапқы терезенің
бетінде проект жасайтын бөлімдері
орналасқан . бастапқы терезеде
керек-жарақтар мен компаненттер
орналасқан . Бұл терезе Delphi жұмыс
істеп тұрғанша экран үстінде ашық
күйінде тұрады.Бастапқы терезені
жапқан бетте жұмыс доғарылады.
Менюдің ішінде тестік жұмыстарды жасайтын және құруға арналған командалар бар.
Құрал-саймандар бөлігі . Командаларды таңдайтын , меню командаларын, File, View сияқты т.б. кнопкалардан тұрады. Батырманы қандай да бір керекті менюге басатын болса, соның нәтижесін береді.
Палитра компоненттері. Компоненттердің көмегімен жұмыс жасаушы өзінің жұмысын жасайды.Әр компоненттер Delphi-дің ішіндегі визуалды компоненттер кітапханасы - Visual Component Library (VCL). Олар интерфейстің қолданбалы бағдарламасын жасады.
Форма терезесі. Ішінде Windows – терезесінде проект жасайтын бағдарламасы бар. Форма - бұл терезе жұмыстың бастапқы кезеңі. Бастапқы терезедегі меню арқылы , рамкалар қою т.б. жүзінде жүреді.
Бөлім инспекторы. Форманы форматтауға , түстерін өзгертуге , әріптердің размерлерін түзеуге , компонент тұрыстарын түзету т.б.
Бөлім инпекторы екі бөліктен тұрады , әрқайсысын батырманы басу арқылы активтеуге болады. Бірінші бөлігі Properties (свойства) деп аталады . бұл бөлімнің сол жағында редактор компоненттерінің тізімі орналарқан .Екінші бөліктің аты Events(события) .
Бұл деректер қоры кітап қоймасы жайлы баяндайды. Кітап қоймасының деректер қоры құрылысы келесідей болады:
Келесі ақпаратты алуға мүмкіндігі бар форманы және есептің сұранысын құру:
«Кітап
қоймалары» деректер
қоры.
Бұл кітап қоймасының сырт бейнесі . Ол «Фаил» «Таблицы» Запросы» «Ввод данных» деген мәзірлердан құралған.
ПРОЦЕДУРАЛАР
unit
Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ExtCtrls, StdCtrls, jpeg;
type
TForm_Main = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
SQL1: TMenuItem;
Button_Close: TButton;
Bevel1: TBevel;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure SQL1Click(Sender: TObject);
procedure Button_CloseClick(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Main: TForm_Main;
implementation
uses Warhouses, Presences, Books, Sales, In_Warhouse, In_Book, In_Presence,
In_Sale, SQL_Query, QKnowledge, QSale_Cost, QAuthor, QGain;
{$R
*.DFM}
procedure TForm_Main.N2Click(Sender: TObject);
begin
Close;
end;
procedure TForm_Main.N4Click(Sender: TObject);
begin
Form_Warhouses.Show;
end;
procedure TForm_Main.N5Click(Sender: TObject);
begin
Form_Presences.Show;
end;
procedure TForm_Main.N6Click(Sender: TObject);
begin
Form_Books.Show;
end;
procedure TForm_Main.N7Click(Sender: TObject);
begin
Form_Sales.Show;
end;
procedure TForm_Main.N9Click(Sender: TObject);
begin
Form_In_Warhouse.Show;
end;
procedure TForm_Main.N11Click(Sender: TObject);
begin
Form_In_Book.Show;
end;
procedure TForm_Main.N10Click(Sender: TObject);
begin
Form_In_Presence.Show;
end;
procedure TForm_Main.N12Click(Sender: TObject);
begin
Form_In_Sale.Show;
end;
procedure TForm_Main.SQL1Click(Sender: TObject);
begin
Form_SQL_Query.Show;
end;
procedure
TForm_Main.Button_CloseClick(
begin
close;
end;
procedure TForm_Main.N14Click(Sender: TObject);
begin
Form_QKnowledge.Show;
end;
procedure TForm_Main.N15Click(Sender: TObject);
begin
Form_QSale_Cost.Show;
end;
procedure TForm_Main.N16Click(Sender: TObject);
begin
Form_QAuthor.Show;