Клиент деректер қорының кестесі

 МАЗМҰНЫ
КІРІСПЕ 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 < 0 then
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-сурет. “Клиент” деректер қорының кестесі