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


Мазмұны:
Есептің қойылымы........................................................................3
1.Кіріспе.........................................................................................4
2.Теориялық бөлім........................................................................5
2.1. Мәліметтер қорын басқару жүйесіне негізгі сипаттама......5
2.2.Database Desktop көмегімен кесте құру.................................7
2.3.ВDE Administrator программасы.........................................18
2.4.Delphi ортасында мәліметтер базасымен жұмыс жасайтын
2.5 Берілгендер жиынымен жұмыс істеудің негізгі әдіс-тәсілдері.....................................................................................22
2.5.1.Мәліметтер жиынын сорттау............................................22
2.5.2.Жазбаларға фильтрация жасау.........................................23
3.Қорытынды...............................................................................24
4.Қолданылған әдебиеттер...........................................................25
5.Қосымша....................................................................................26
6.Программа листингі..................................................................33
2.
Есептің қойылымы
Аптека жұмысының мәліметтер базасын құру келесі рет бойынша
1.Таңдалған тақырыпқа байланысты мәліметтер жинау
2.Аптекадағы дәрі–дәрмекке байланысты жалпы кесте құру.
3.Database Desktop программасында негізгі кестелерді байланыстыру.
4.BDE Administrator программасында кестелерге каталог құру.
5.Delphi ортасында берілген кестеге байланысты жобалар
Жазбаларға сорттау жұмыстарын жасау.
Жазбаларды іздестіру жұмыстарын жасау.
Жазбаларды өшіру жұмыстарын жасау.
Программадан шығу жұмыстарын жасау.
Кіріспе
Мәліметтер қоры кейбір қолданбалы ақпараттық жүйеде қолданылатын
Иерархиялық модульге деректер бұтақ тәріздес құрылым түрінде беріледі.Деректердің
Желілік модульге деректер ерікті граф түрінде беріледі. Желілік
Объектілі – бағытталған модульге мәліметтер қорының жазбасы объект
Реляциялық модульге деректер кесте түрінде беріледі.Деректердің мұндай түрінде
Қазіргі заманға сай ақпараттық жүйеге мыналар жатады:
Есептеуіш жүйе
Бір немесе бірнеше мәліметтер қоры
Мәліметтер қорын басқару жүйесі
Қолданбалы программалар жиынтығы
Мәліметтер қоры – арнайы орталықтандырылған программалық басқарудағы және
4.
Теориялық бөлім
Мәліметтер қорын басқару жүйесі – деректер базасын құруға,
Delphi құралы локалдық және тораптық мәліметтер қорын құрып
Локалдық мәліметтер қорын басқару жүйесінің барлық бөліктері қолданушы
Тораптық мәліметтер қорын басқару жүйесінің негізгі атрибуттары файл-серверлік,
Аптекадағы дәрі–дәрмекке байланысты жалпы мәліметтер келесі кесте
№ Түрі Тіркелген
№ Атауы Патент
телмеген
атауы Өндіруші
мемлекет Сақтау
Мерзімі Бағасы Саны Сатылу бағасы
1 Дәрі 29194 Мезим
Форте Панкреатин Германия 3 жыл 430тг 10 450тг
2 Дәрі 19255 Бисептол Ко-тримоксазол Польша 5 жыл
3 Мазь 20811 Долгит Ибупрофен Германия 3 жыл
4 Капсула 37253 Кетонал Кетопрофен Словения 3 жыл
5 Дәрі 54457 Андипал
Қазақстан 4 жыл 30тг 14 50тг
6 Ампула 20334 Циано
кабаламин
Беларусь 2 жыл 90тг 5 140тг
7 Ампула 78945 Цефалин Цефазолин Түркия 2 жыл
8 Ампула 481880 Кавинтон Винпоцетин Венгрия 5 жыл
9 Ампула 363834 Никомед Преднизалон Австрия 5
10 Дәрі 10577 Найз Нимесулид Индия 3 жыл
11 Ампула 65656 гентамицин санавита Германия 5 жыл
6.
3.2.Database Desktop көмегімен кесте құру.
Database Desktop программасы - кестені құруға және редактірлеуге
Database Desktop программасында аптека жұмысын келесідей қадамдар арқылы
Database Desktop программасын жүктейік.Содан кейін File / New
1- сурет
Онда берілген командалар келесі түрде сипатталады
QBE Query – визуальды сұраныстарды құру және оларды
SQL File – SQL-де сұраныстар жасау және оларды
Table – жаңа кесте құру.
Бұл командалар ішінен Table командасын таңдап аламыз.Төмендегі суретте
2- сурет
7.
4- суретте көрсетілгендей кестенің құрылымын құрушы терезе ашылады.
4- сурет.
Мәліметтер қорын құрайтын кестелер негізінен дискілердегі каталогтарда орналасады.Кестелерді
6- суретте көрсетілгендей әр өріске ең алдымен ат
береміз.Ол өріс идентификаторы деп аталады және 25 символдан
Содан кейін өрістің типін (Type) анықтау керек.Өріс типін
8.
Alpha – 1-255 аралығында берілетін жолдық өріс.(белгіленуі -A
Number – (аралығындағы) нақты сандар.(белгіленуі -N);
Money – оң және теріс сандар, Number-ден берілу
Short – (-32767 мен 32767) аралығындағы қысқа бүтін
Long Integer – (-2147483648 мен 2147483647) аралығындағы ұзын
BCD – BCD форматтағы сандар. Жоғарғы нақтылықты қажет
Data – датаны көрсететін мән.( белгіленуі-D);
Time – уақытты көрсететін мән.( белгіленуі –Т);
Timestamp – (0-32) аралығындағы датаны және уақытты сақтайтын
Memo – (1-240) аралығындағы ұзындығы шектелмеген мәтіндерге арналған
Formatted Memo - (0-240) аралығындағы форматталған мәтіндер сақталатын
Graphic – bmp форматтағы файлдағы суреттер (белгіленуі-G);
OLE – осы типті мәліметтер – суреттер, дыбыстар,
Logical – логикалық өрістер. Қалыпты жағдайда – true
Autoincrement – 1 мөлшерге өсіп отыратын ұзын бүтін
9.
5 – сурет.
Менің тапсырмамда бұл типтер келесі түрде көрсетілген:
№ Виды Регист.№ Торговое
название Непатентованное
название Производитель Срок
годности Условия отпуска из аптек Стоимость Количество Цена
+ А I A A A D A
20
20 20 25
20
Кейбір типтерге, мысалы, Alpha типіне қосымша өлшемін беру
10.
6- сурет.
6- суретте берілгендей файлдың атын,типін, өлшемін, кілттік өрісін
Жоғарғыда берілген кестені құрып, сақтап болғаннан кейін, негізгі
Енді бағанағы локалдық диск (С:)-да дайындаған
8- суретте берілген.
11.
7- сурет.
8- сурет.
12.
9- сурет.
Берілген кестенің қасиеттерін беру үшін локалдық диск
10- сурет.
6- суреттің терезесінің оң жағында кестенің қасиеті берілген,яғни
13.
Validity Checks – мәндердің дұрыстығын тексеру үшін қолданылады.Бұл
Required Field – бұл индекатор арқылы әр жазбада
Minimum value – ең кіші мән. Бұл қасиетті
Maximum value - ең үлкен мән. Бұл қасиетті
Default value – қалыпты жағдайдағы мән. Бұл қасиетті
Picture – мұнда мәліметтерді енгізу шаблоны беріледі.Мысалы, телефон
Assist – Picture шаблонын беру үшін сұхбат терезесін
2. Table Lookup – көру терзесі.Бұл қасиет кестедегі
11- сурет.
Secondary Indexes – екінші индекс. Secondary Indexes қасиетін
Unique –бірдей атпен берілмеуді қамтамасыз етеді.
Descending – кесте кему ретімен реттеледі(қалыпты жағдайда өсу
Case Sensitive – символдардың енгізілу регистірі есепке алынатын
Maintained – бұл опция белгіленулі тұрған кезде кесте
Secondary Indexes қасиет арқылы мен өз тапсырмамдағы аптека
12- сурет.
15.
3.Referential Integrity – сілтеме деңгейіндегі бүтінділік.Сілтеме деңгейіндегі бүтінділік
13-сурет.
16.
15- сурет.
4.Рassword Security – кіру парольдері.Бұл қасиет арқылы кестеге
17.
3.3.BDE Administrator программасы
BDE Administrator программасы - мәліметтер қорын бабына келтіруге
14- сурет.
Локалдық кесте үшін Standard типін таңдаймыз және ОК
Оның типі (Standard)
Драйвердің типі (кесте параметрі = Paradox)
18.
BCD форматы үшін санның аударылуының тура мәнінің
қажеттілігі. Екі мән қабылдайды: false, true.
Path – мәліметтер қорынан каталогқа жол.Псевдоним параметірін өзгертуге
19.
3.4. Delphi ортасында мәліметтер базасымен жұмыс жасайтын
Мәліметтер базасымен жұмыс жасайтын, берілген кестеге байланысты
Main Menu – бұл компонент программаның бас менюі
TDBGrid – ешқандай кодсыз жазбаларды редактірлеуге, өшіруге және
TDBNavigator – мәліметтер топтамасымен байланысқан көрсетілімдерді басқаруға мүмкіндік
First – бірінші жазбаға өту.
Prior – алдыңғы жазбаға өту.
Next – кейінгі жазбаға өту.
Last – ең соңғы жазбаға өту.
20.
Insert – көрсетілген бағыт бойынша жазба
Delete - көрсетілген бағыт бойынша жазбаны
Edit – берілген жазбаны редактірлеу.
Post – мәліметтер қорының кестесінің жаңа өзгерісін сақтау.
Cancel – жаңа енгізілген өзгерісті болдырмау.
Refresh - мәліметтер қорындағы жаңа деректертерді сақтай
Table –мәліметтер қорының кестесіне арналған берілгендер жиынтығы.Бұл компонент
Data Source – мәліметтер қорының негізгі көзі.Кестелер арасындағы
3.5. Берілгендер жиынымен жұмыс істеудің негізгі әдіс-тәсілдері
3.5.1.Берілгендер жиынын сорттау. Берілгендер жиынындағы жазбамен қолайлы
Сорттау бағытын басқару сол уақытта берілген индекс ixDescending
3.5.2.Жазбаларға фильтрация жасау. Фильтрация – мәліметтер жиынының ішіне
Атауы бойынша фильтрация жасау – жазбаға қойылатын талап
Диапазоны бойынша фильтрация жасау – мәліметтер жиынында жолдың
Қорытынды.
Қорыта келгенде, аптека жұмысын жеңілдету үшін мәліметтер қорын
Жалпы курстық жұмыстың мақсаты: аптека жұмысын
Қолданылған әдебиеттер:
С.Бабровский «Описание системы и языка программирования Delphi 7»,
Л.М.Климова «Основы программирования .Решение типовых задач», Москва 2006г.
Валерий Фаронов «Разработка приложений для баз данных и
Эндрю Возневич «Визуальное программирование на Object Pascal»,Издателство «Бином»
В.Гофман, А.Хомоненко «Delphi 5 в подлиннике»,Санкт-Петербург 1999г.
25.
Қосымша
14- сурет.
15- сурет.
26.
16- сурет.
17- сурет.
27.
18- сурет.
19-сурет.
28.
20- сурет.
21- сурет.
29.
22- сурет.
23- сурет.
30.
24- сурет.
25- сурет.
31.
26- сурет.
32.
Программа листингi
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm.N1Click(Sender:TObject);
begin
form1:=tform1.create(self);
end;
33.
procedure TForm.N1Click(Sender:TObject);
begin
form2:=tform2.create(self);
end;
procedure TForm.N1Click(Sender:TObject);
begin
form3:=tform3.create(self);
end;
34.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Grids,
type
TForm2 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Table1: TTable;
Table1Num: TAutoIncField;
Table1Vidi: TStringField;
Table1RegistNum: TIntegerField;
Table1Torgnazvania: TStringField;
Table1NePatnazvania: TStringField;
Table1Proizvoditel: TStringField;
Table1Srokgodnosty: TDateField;
Table1Usloviaotpuskaizaptek: TStringField;
Table1Stoimost: TSmallintField;
Table1Kolichestvo: TSmallintField;
Table1Sena: TSmallintField;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
35.
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Table1.Close;
Table1.Exclusive:=true;
Table1.Open;
Table1.AddIndex('indPost', 'Post ',
[ixDescending,ixCaseInsensitive]);
Table1.Close;
Table1.Exclusive:=false;
Table1.Open;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
close;
end;
end.
36.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls,
type
TForm3 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Table1Num: TAutoIncField;
Table1Vidi: TStringField;
Table1RegistNum: TIntegerField;
Table1Torgnazvania: TStringField;
Table1NePatnazvania: TStringField;
Table1Proizvoditel: TStringField;
Table1Srokgodnosty: TDateField;
Table1Usloviaotpuskaizaptek: TStringField;
Table1Stoimost: TSmallintField;
Table1Kolichestvo: TSmallintField;
Table1Sena: TSmallintField;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
37.
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
close;
end;
end.
38.






Ұқсас жұмыстар

---

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

---

Мәліметтер базасының обьектілері

---

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

---

Деректер қорын басқару жүйелері

---

Мәліметтер қоры сервері

---

Автопарк мәліметтер қорын құру

---

Пәндік ақпараттарды сипаттау және мәліметтер қорының құрылымын дайындау туралы

---

Экономикалық ақпараттық жүйе түсінігі

---

Мәліметтер қоры жайлы жалпы мағлұматтар

---

Almaty әуежайына мәліметтер қорын құру

---