TOPREFERAT.COM.KZ - Қазақша рефераттар

 МАЗМҰНЫ

КІРІСПЕ 3

1. МӘЛІМЕТТЕР БАЗАСЫ ЖАЙЫНДА ЖАЛПЫ МӘЛІМЕТТЕР 5

1.1 Мәліметтер базасы (МБ), мәліметтер базасын басқару жүйесі (МББЖ) ұғымдары 5

2.1. Мәліметтер базасы – есептеулер сақталатын мәліметтер массиві 7

3. ЗЕРТТЕУ ӘДІСТЕМЕСІ 8

3.1 Аналитикалық көрсетілуі 8

3.2 Есептің қойылымы 12

3.3 Қосымша құру. ДҚ кестесін құру 12

4. МӘЛІМЕТТЕР ҚОРЫН ЖОБАЛАУ КЕЗЕҢДЕРІ 13

4.1 Пәндік аймақты жүйелік талдау 13

4.2 Пәндік аймақты сипаттау 13

4.3 Жобалау негізі 13

4.3.1 Инфологиялық жобалау 14

4.3.2 Даталогиялық жобалау 15

4.3.3 Логикалық жобалау 16

4.3.4 Физикалық жобалау 17

4.4 ДҚ-мен жұмыс істеуге арналған компоненттер 18

5. DELPHI - ПРОГРАММАЛАУ ОРТАСЫНДА ЖАСАЛЫНҒАН ҮЛГІЛЕР 19

5.1 Деректер қорларының кестелерін толтыру 19

ҚОРЫТЫНДЫ 34

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ 35

Жұмыс түрі: Курстық жұмыс
Жұмыс көлемі: 35 бет
Пәні: Соңғы қосылған курстық жұмыстар

-----------------------------------------------------------------------------------

КУРСТЫҚ ЖҰМЫСТЫҢ ҚЫСҚАРТЫЛҒАН МӘТІНІ
 МАЗМҰНЫ

КІРІСПЕ 3

1. МӘЛІМЕТТЕР БАЗАСЫ ЖАЙЫНДА ЖАЛПЫ
1.1 Мәліметтер базасы (МБ), мәліметтер базасын басқару жүйесі
2.1. Мәліметтер базасы – есептеулер сақталатын мәліметтер
3. ЗЕРТТЕУ ӘДІСТЕМЕСІ 8

3.1 Аналитикалық көрсетілуі 8

3.2 Есептің қойылымы 12

3.3 Қосымша құру. ДҚ кестесін құру 12
4. МӘЛІМЕТТЕР ҚОРЫН ЖОБАЛАУ КЕЗЕҢДЕРІ 13

4.1 Пәндік аймақты жүйелік талдау 13

4.2 Пәндік аймақты сипаттау 13

4.3 Жобалау негізі 13

4.3.1 Инфологиялық жобалау 14

4.3.2 Даталогиялық жобалау 15

4.3.3 Логикалық жобалау 16

4.3.4 Физикалық жобалау 17

4.4 ДҚ-мен жұмыс істеуге арналған компоненттер 18
5. DELPHI - ПРОГРАММАЛАУ ОРТАСЫНДА ЖАСАЛЫНҒАН ҮЛГІЛЕР
5.1 Деректер қорларының кестелерін толтыру 19

ҚОРЫТЫНДЫ 34

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ 35

.

КІРІСПЕ

Курстық жобада қарастырылған деректер базасымен ақпараттық жүйелерді қолдану
Ақпараттық жүйелердің автоматтандырылуы есептеу техникасының көмегімен жүзеге асырылады.
Білім беру саласы бойынша АЖ-лердің екі тобын айырады:
Пайдаланушылардың деректерді өңдеуден өткізу жүйелерін қолдануы көбінесеақпараттың жаңартылуын
Ақпараттық жүйелерді фактографиялық пен құжаттық деп екіге бөлуге
Деректер базасының өзгешелігі ретінде деректердің өздерінің суреттемелерімен
Автоматтандырылған АЖ-нің маңызды құрамдас бөлігі –деректер базасын басқару
Курстық жобада деректер базасы мен ақпараттық жүйелер қарастырылады.
1. МӘЛІМЕТТЕР БАЗАСЫ ЖАЙЫНДА ЖАЛПЫ
1.1 Мәліметтер базасы (МБ), мәліметтер базасын басқару жүйесі
Мәліметтер базасы деп деректердің электрондық сақтаушысын айтады. Оларға
Мәліметтер базасы – ақпаратты сақтауды және мәліметтерге
Мәліметтер базасын басқару жүйесі (МББЖ) дегеніміз ( көлемді
Мәліметтер базасын басқару жүйесі деректер базасын құруға, толтыруға,
Delphi 7 жүйесі деректер базасын басқару жүйесі болып
Локальді МББЖ-нің барлық бөліктері қолданушы компьютерінің деректер базасында
Тораптық МББЖ-ге файл-серверлік, клиент-серверлік, бөлінген МББЖ-лар жатады. Осы
Көпқолданбалы МББЖ ақпараттық жүйе құруға мүмкіндік береді. Көпқолданбалы
Delphi 7-ді кәдімгі МББЖ деп айтуға оның өзінің
Бұны бірақ жетіспеушілігі деп те айтуға болмайды, себебі
Өзінің архитектурасы бойынша МББЖ бірүзбелі, екіүзбелі және үшүзбелі
МББЖ-ның бөлек бөліктерінің орналасуына байланысты локальді және желілік
Локальді МББЖ-ның барлық бөліктері қолданушының МБ компьютерінде орналастырылады.
Желілерге файл-серверлік, клиент-серверлік және таратылған МББЖ-лар жатады. Бұл
Файл-серверлік МББЖ-да барлық мәліметтер, әдетте, әрдайым желіге қосулы
Клиент-серверлі жүйелер желіге ауыртпалықта біршамаға төмендетеді, өйткені клиент
2.1. Мәліметтер базасы – есептеулер сақталатын мәліметтер
Мәліметтер базасын жасау кезінде 2 мәселені ескеру қажет:

1. Мәліметтер өздерін қолданатын программадан тәуелсіз болуы керек,яғни
2. Жай бағдарлама тілінде жазылуы күрделі еңбекті қажет
Мәліметтер базасымен жұмыс жасайтын бағдарламалардың мынадай түрлері белгілі:

Отандық: НАБОБ, ПАЛЬМА, БАНК және т.б.

Шетелдік: ADAbase, Dbase, FoxBase, FoxPro, Karat, Acces, Paradox,
Осылардың ішінде бұл курстық жұмыс Paradox-та жасалды.

Paradox – бұл Delphi 7-дің мәліметтер базасымен жұмыс
3. ЗЕРТТЕУ ӘДІСТЕМЕСІ

3.1 Аналитикалық көрсетілуі

Ақпараттық жүйе – бұл қолданушылардың талаптарын қанағаттандыратын ақпаратты
Ақпараттық жүйені құрудың негізгі мақсатына сәйкес ақпараттық жүйенің
жұмыстың жеделдігін және қызметкерлердің еңбегінің өнімділігін қамтамасыз ету;
берілетін мәліметтердің шынайы және нақты болуы;

тапсырушының сұранысы бойынша мәліметтерді алу жеделдігін қамтамасыз ету;
Ақпараттық жүйенің негізгі ресурсы – ақпараттық ресурс.

Ақпараттық ресурстар дегеніміз - құндылық және материалдық ресурстар
Ақпараттық жүйе (АЖ) күрделі жүйе болып табылады. Ол
Ақпараттық жүйе жобасы АЖ құру мен жұмыс істетудің
Ақпаратты есептеу жүйесі – бұл ақпараттық жүйе жобасын
Ақпараттық жүйенің құрылымы– бұл ақпараттық жүйенің элементтері мен
Ақпараттық жүйелер құрылымы бойынша функционалды және жабдықтаушы бөлімнен
Ақпараттық жүйенің функционалды бөлімі - бұл басқарудың мағыналы
Ақпараттық жүйенің жабдықтаушы бөлімі - бұл жүйені жұмыс
Техникалық жабдықтау - бұл ақпараттық жүйені жұмыс істетуде
Ақпаратты дайындау, жинау және тіркеу құралдары алғашқы ақпараттарды
Ақпаратты өңдеу құралдары алғашқы мәліметтерді түрлендіру қызметін атқарады.
Ұйымдастыру техника құралдарына ақпаратты қорғау, бейнелеу құралдары кіреді.

Техникалық жабдықтаудың ақпараттық жүйесі келесі талаптарды қанағаттандыруы керек:
ақпараттық есептерді максималды автоматтандыру;

мәліметтерді іздеу, жылдам енгізу және жоғары өнімділікті қамтамасыз
функционалды сенімді болу;

сұхбаттық режимде ақпаратты өндіру;

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

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

Программалық жабдықтау - техникалық жабдықтау жабдығын жұмыс
Программалық жабдықтау келесі талаптарды қанағаттандыруы керек:

программалық жабдықтаудың ең маңызды талаптары болып табылатын сенімділікті,
қолайлылықты, яғни программалық жабдықтау компьютерлік программалармен жұмыс істей
жеңіл меңгерілуі, яғни жұмыс жасауға қолайлы болуы тиіс;
Жалпы программалық жабдықтау – бұл жабдықтаудың кең көлемдегі
Арнайы программалық жабдықтау - нақты мәселелерді шешуге және
Жалпы программалық жабдықтау - бұл жабдықтаудың кең көлемдегі
Түрі Сипаттамасы

Жалпы Операциялық жүйе - Windows XP 2000, MS
Арнайы Delphi7

сурет. Программалық жабтықтаудың сипаттамасы

Ақпараттық жабдықтау - бұл ақпараттық жүйелерде қолданылатын экономикалық
Элементтері Сипаттамасы

Ақпараттық технология Барлық ақпараттар мәліметтер базасында сақталады

МБ түрі Реляционды

Жіктеу жүйесі Жіктеудің фасеттік жүйесі

Кодтау жүйесі Идентификационды әдіс,кодтаудың реттік жүйесі

Қорғау Істен шыққан жағдайларда мәліметтерді қалпына келтіру жүйесі

2 – сурет. Ақпараттық жабдықтаудың сипаттамасы

3.2 Есептің қойылымы

Курстық жұмыстың негізгі есебі - “Банк депозиттері” туралы
Курстық жұмыстың мақсаты - база мәліметтерінің қасиеттерін, олардың
Курстық жұмыста “Банк депозиттері” жайлы және оның
Жүйемен жұмыс барысында “Банк депозиттері” келесі мәселелерді шешуге
Емханада жұмыс істеудін ыңғайлы жүйесін ұйымдастыру;

Емделушіні тіркеп, оған тіркеу нөмірін тағайындау;

Емделушіні толық тексеруден өткізу;

Әрбір жаңа клиенттің регистрация номерин тағайындайды;

Әрбір емделушіге ұсыныс пен сол ұсыныстағы қалаған ем
3.3 Қосымша құру. ДҚ кестесін құру

Қарапайым қосымша жасаулары мына кезеңдерден тұрады:

ДҚ кестелерін құру ;

Қосымша форма құру .

DataBaseDesktop бағдарламасын қолданып, ДҚ кестелері құру. Жаңа
кесте үлгісін таңдау ;

кесте құрылымын беру ;

кілттік алаңдары көрсету ;

индексті анықтау ;

алаңның мәнін анықтау ;

парольді анықтау ;

кестелер аралық сілтемелік бүтіндікті сұрау ( байланыстың
4. МӘЛІМЕТТЕР ҚОРЫН ЖОБАЛАУ КЕЗЕҢДЕРІ

4.1 Пәндік аймақты жүйелік талдау

Жалпы алғанда пәндік аймақтың құрамы мен құрылысын таңдаудың
Функциональдық түрі - МҚ құруда оны пайдаланатын адамдардың
Пәндік түрі - бұл жағдайда МҚ болашақта пайдаланушылардың
4.2 Пәндік аймақты сипаттау

Жүйе “Банк депозиттері” ұсыныстары және емделушінің соңғы алатын
Қарастырып отырған “Банк депозиттері” жеті бағыттағы ұсыныстарды бере
4.3 Жобалау негізі

Қатынастық деректер қорының жобасы дегеніміз – барлық
Жалпы алғанда жобалаудың келесі кезеңдерін бөліп көрсетуге болады:
1. Пәндік аймақтың ақпараттық объектілерін жүйелік талдау.
2. Пәндік аймақтың инфологиялық моделін
3. МҚ-н даталогиялық немесе логикалық жобалау, яғни МҚ-ң,
4. МҚ-ң физикалық жобалау, яғни
Егер екінші және үшінші
4 – сурет. МҚ-ның жобaлау кезеңдері

4.3.1 Инфологиялық жобалау

Пәндік аймақтың инфологиялық моделін жобалау-пәндік аймақтың обектілерін қандай
Жүйедегі ақпаратқа мынадай шектеу қойылады:

клиенттің аты – жөні бірдей болуы мүмкін;

клиенттің регистрация номері қайталанбау керек;

бір клиент бірнеше ұсыныстарды тағайындауы мүмкін;

бір клиент бірнеше ұсыныстардағы бірнеше қызметтерді тағайындауы мүмкін;

қызметті тағайындау үшін клиенттің регистрация номері болуы керек;

4.3.2 Даталогиялық жобалау

Қатынастық деректер қорын даталогиялық жобалау кезеңі ол қордың
Даталогиялық жобалау кезеңі келесі нәтижелерге қол жеткізеді:

МҚ- ның концептуальды схемасын сипаттау таңдалған МҚБЖ-ні терминдерін
Сыртқы модельдерді сипаттау(таңдалған МҚБЖ-ні терминдерін пайдалана отырып жасалады).

Қ-дағы деректер бүтіндігін сақтауды сипаттау.

МҚ-ның семантикалық бүтіндігін сақтау процедураларын құруды қолдау.

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

4.3.3 Логикалық жобалау

Кестелер арасындағы байланыстарды көрсетейік.

8 - сурет. Банк депозиттері мен клиенттер арасындағы
9 - сурет. Клиент пен сейф номері арасындағы
4.3.4 Физикалық жобалау

Delphi-де ДҚ құру ДҚ сақталынған және орналасқан
Біз “С:/Банк депозиттері” деп папка аштық. Енді ДҚБЖ
10-сурет. “Банк депозиттері” МҚ-ның физикалақ жобасы

4.4 ДҚ-мен жұмыс істеуге арналған компоненттер

ДҚ-ы кестелері дискіде орналасады. Олар физикалық объекті болып
Мәліметтер жиыны- жазбалар, ол бір немесе бірнеше ДҚ-ы
Delphi-де ДҚ жұмысы жұмыс істеу үшін Table Query,
StoredProc –ДҚ жойылған әрекеттестік ұйымы;

DesisionQuery – шешімдерді қабылдайтын жүйелерінің құруға арналған.

ДҚ мүмкіншіліктері TDataSet сыныбын қамсыздандырады, ол редакциялауы және
Мәліметтер жиынымен операцияларда мәліметтерге екі түрлі амал қолданылады:
1.Навигациялық

2.Реляциялық

Қатынастың навигациялық тәсілі әрбір жеке мәліметтер жиынының
Реляциялық тәсіл жазбалар тобын өңдеуге негізделген. Егер бір
5. DELPHI - ПРОГРАММАЛАУ ОРТАСЫНДА ЖАСАЛЫНҒАН

ҮЛГІЛЕР

Delphi-де ДҚ құру ДҚ сақталынған және орналасқан
Біз “С:/Банк депозиттері” деп папка аштық. Енді
5.1 Деректер қорларының кестелерін толтыру

11-сурет. “Депозит” деректер қорының кестесі

13-сурет. “Кредит” деректер қорының кестесі

Басты форма

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Image1: TImage;

Label1: TLabel;

Timer1: TTimer;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show();

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Left:=Label1.Left-1;

if Label1.Left+Label1.Width Label1.Left:=Self.Width;

end;

end.

2-форма. “Бас меню”

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

MainMenu1: TMainMenu;

Kyzmetkerler1: TMenuItem;

Uslugy1: TMenuItem;

Klienty1: TMenuItem;

Vyhod1: TMenuItem;

Malimet1: TMenuItem;

Image1: TImage;

procedure Kyzmetkerler1Click(Sender: TObject);

procedure Uslugy1Click(Sender: TObject);

procedure Klienty1Click(Sender: TObject);

procedure Malimet1Click(Sender: TObject);

procedure Vyhod1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit3, Unit5, Unit4, Unit6;

{$R *.dfm}

procedure TForm2.Kyzmetkerler1Click(Sender: TObject);

begin

Form2.Visible:=False;

Form3.Visible:=True;

end;

procedure TForm2.Uslugy1Click(Sender: TObject);

begin

Form2.Visible:=False;

Form5.Visible:=True;

end;

procedure TForm2.Klienty1Click(Sender: TObject);

begin

Form2.Visible:=False;

Form4.Visible:=True;

end;

procedure TForm2.Malimet1Click(Sender: TObject);

begin

close;

end;

procedure TForm2.Vyhod1Click(Sender: TObject);

begin

Form2.Visible:=False;

Form6.Visible:=True;

end;

end.

2-форма. “Депозиттер”

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls,
type

TForm3 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Query1: TQuery;

Button6: TButton;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

Query2: TQuery;

Table2: TTable;

Label1: TLabel;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

ComboBox1: TComboBox;

Button7: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Table1.Edit;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

Table1.Delete;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

Query1.Close;

if not Query1.Prepared then

Query1.Prepare;

Query1.ParamByName('FIO_param').Value := ComboBox1.Text;

Query1.Open;

end;

procedure TForm3.Button7Click(Sender: TObject);

begin

close;

end;

procedure TForm3.N1Click(Sender: TObject);

begin

Form3.Visible:=False;

Form2.Visible:=True;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

end;

end.

3-форма. “Кредит түрлері”

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, jpeg, ExtCtrls,
type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

Button1: TButton;

Memo1: TMemo;

Button2: TButton;

Button3: TButton;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

Table2: TTable;

Query1: TQuery;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

Query2: TQuery;

Button4: TButton;

Label1: TLabel;

ComboBox1: TComboBox;

Image1: TImage;

Label2: TLabel;

Label3: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure Memo1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

procedure Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure DBGrid2CellClick(Column: TColumn);

procedure N1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm4.DBGrid1CellClick(Column: TColumn);

begin

DBGrid2.BeginDrag(True);

end;

procedure TForm4.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

begin

Accept:= Source IS TDBGrid;

end;

procedure TForm4.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);

var i : integer;

begin

Memo1.Clear;

for i:= 0 to -1 + DBGrid1.FieldCount do

begin

Memo1.Lines.Add(DBGrid1.Fields[i].AsString);

end;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

If OpenDialog1.Execute then

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

If OpenDialog1.Execute then

Memo1.Lines.SaveToFile(OpenDialog1.FileName);

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

Query1.Close;

if not Query1.Prepared then

Query1.Prepare;

Query1.ParamByName('FIO_param').Value := ComboBox1.Text;

Query1.Open;

end;

procedure TForm4.DBGrid2CellClick(Column: TColumn);

begin

DBGrid1.BeginDrag(True);

end;

procedure TForm4.N1Click(Sender: TObject);

begin

Form4.Visible:=False;

Form2.Visible:=True;

end;

end.

4-форма. “Клиент жайлы ақпараттар”

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, Menus, jpeg,
DBCtrls;

type

TForm5 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

Image1: TImage;

Button2: TButton;

Table1: TTable;

Edit1: TEdit;

Query1: TQuery;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

Table2: TTable;

Query2: TQuery;

Label1: TLabel;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure DBGrid2CellClick(Column: TColumn);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm5.N1Click(Sender: TObject);

begin

Form5.Visible:=False;

Form2.Visible:=True;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Query1.Active:=False;

Query1.SQL.Clear;

Query1.SQL.Add('select * from Uslugy.db where Kyzmetter = '
Query1.Active:=True;

end;

procedure TForm5.DBGrid2CellClick(Column: TColumn);

begin

DBGrid2.Visible:=false;

DBGrid2.Visible:=true;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

Table1.Edit;

end;

end.

5-форма. “Мәліметтер”

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, Menus, jpeg,
type

TForm6 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

Table2: TTable;

Table3: TTable;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

Button1: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm6.N1Click(Sender: TObject);

begin

Form6.Visible:=False;

Form2.Visible:=True;

end;

end.

ҚОРЫТЫНДЫ

Құрылған мәліметтер базасы “Банк депозиттері” жайында болып отырғандықтан
Аталған деректер қорын уақыт ағымына қарай өзгертіп
Бұл курстық жұмысты жасау барысында Delphi7 ортасында мәліметтер
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ

Балғабаева Л.Ш. Мәліметтер және білім базасы. Алматы.
Балғабаева Л.Ш. Delphi7. Зертханалық жұмыстарға әдістемелік нұсқаулар. Алматы,
Балғабаева Л.Ш. “Мәліметтер базасы” пәні бойынша оқу-әдістемелік кешен.
Архангельский А.Я. Программирование в Delphi7. – М: Бином,
Фаронов В. Программирование Баз Данных в. – М:
Карпова Т. Базы Данных. – Санкт-Петербург, 2001

14

12-сурет. “Клиент” деректер қорының кестесі