ҚАЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ ҒЫЛЫМ ЖӘНЕ БІЛІМ МИНИСТРЛІГІ
ТҰРАР РЫСҚҰЛОВ АТЫНДАҒЫ ҚАЗАҚ ЭКОНОМИКАЛЫҚ УНИВЕРСИТЕТІ
«Қолданбалы информатика» кафедрасы
Курстық жұмыс
Тақырыбы: ”Магазин жұмысын автоматтандыру”
Оқытушы:
Мамандығы:
Тобы:
Мазмұны
Кіріспе 3-4
Автоматтандыру туралы жалпы мағлұмат
Негізгі бөлім 5-23
Есептің қойылымы
Программаға арналған негізгі шарттар мен оны орындау жолдары
Кіру құжаттары
Программаны орындау барысы
Шығу құжаттары
Мәліметтер қорымен жұмыс жасайтын жобалар
Программалық жабдықталуы
Программа листингісі 21-26
Қорытынды...............................................................27
Пайдаланған әдебиеттер тізімі 28
КІРІСПЕ
|Ғылыми прогресс - білімнің жоғарылауымен және ақпарат көлемінің
Автоматтандыру – техникалық құрал-жабдықтарды, сондай-ақ энергияны, материалды және
Онда:
1) технологиялық, энергетикалық, көліктік, тұрмыстық-өндірістік процестер;
2) Күрделі агрегаттарды, кемелерді, ғарыш кемелерін, өндірістік құрылыстар
3) Цехты, мекемені, сондай-ақ әскери құрамалар мен бөлімшелерді
4) Ғылыми-зерттеулер, медициналық және техникалық диагностикалау сапасын жақсарту,
Жалпы мәліметтер қоры - адамды материалдар, ақпараттарды жеткізу,
Автоматтандырудын арқасында адамдар үлкен фирмалардағы тауарларды, мекемелердегі құжаттарды,
Автоматтандырудың мақсаты - еңбек өнімділігі мен өнім сапасын
Автоматтандыру – ғылыми-техникалық прогрестің басты бір бағыты.
Автоматтандырудың екінші бір пайдасы: уақытты үнемдейді және де
Автоматтандыру дәрежесі – автоматтандыру құралдарын пайдаланып орындалатын операциялар
Әр түрлі ұйымдардың табысты жұмыс жасауы үшін ақпаратты
Мәліметтер қоры - ақпаратты сақтауды және де мәліметтерге
Мәліметтер қоры деп деректердің электрондық сақтаушысын айтады. Оларға
Delphi жүйесі деректер базасын басқару жүйесі болып табылмайды,
Есептің қойылымы
Программаға арналған негізгі шарттар және орындау жолдар
Бұл курстық жұмыстың мақсаты- деректер базасын құру және
жұмыс істеу.Олардың қарым-қатынасын құрып,оларға қойылған талаптарды жүзеге асыру.
Атрибуттарға есім берілуі керек және олардың құрылымы біртекті
Жолдың реттілігі маңызды емес.
Атрибуттардың реттілігі маңызды емес.
Қайталанатын жолдары болмауы тиіс.
Сонымен қатар біз SQL-тілін қолдануымыз керек. Бір маңызды
Қазіргі уақытта кез келген ұйымды, бірлестікті және
Магазин жұмысын талдаудың автоматтандырылған жүйесі бізге сол магазиннің
т.б. мәліметтерді білуге көмектеседі
Курстық жобаны жазудағы басты мақсатым магазинде сатылатын тауарлар
Кіру құжаттары
Программаны орындау барысы.
Осы курстық жұмыста мен әр түрлі тауарлар жөнінде
Мен өз курстық жұмысымды осы кестеден бастадым.
№ Тауар аты Тауар саны Бағасы Жылы Сатушы
Тауар аты Фирмасы
1.Database Desktop – ты ашып, File – New
QBE Query Визуалды сұраныстарды құру және оларды файлға
SQL File SQL-де сұраныстар жасау және оларды файлға
Table Жаңа кесте құру.
Table алғаннан кейін бізге мынадай сұхбат терезесі
Жоғарыдағы кестеде программаны іске қосудың жалпы кестесі көрсетілген.
толтырамыз. Ол үшін берілген есептің шарты бойынша керекті
метті толтырамыз.
Құрылып жатқан кестенің әрбір өрісіне бір жазба сәйкес
Әр өріске ең алдымен ат (Field Name) беріледі.
Validity Checks - бұл қасиет кестенің
1.2-кесте
Required Field Бұл идентикаторда әрбір жазбада керекті жолдар
Minimum мәннің минимумы. Бұл қасиетті сандық өріске берген
Maximum Мәннің максимумы. Бұл қасиетті сандық өріске берген
Default Бұл қасиетті сандық және логикалық өрістерге, ал
Picture Енгізілетін мәннің түрін көрсетуге болады. Мысалы, телефон
Assist Бұл батырма Picture түрін құруға көмектесетін диалогтық
Кесте қасиетін беру
“+”-Autoincerement, 1 мөлшерге өсіп отыратын ұзын бүтін сан.
“A”-Alpa, жолдық өріс.
“S”-Short, қысқа сандар тізбегі.
“D”-Date, Мезгілді көрсетеді.
“L”-Logical, логикалық өріс.
“I”-Long integer, ұзын сандар тізбегі.
Енді төмендегі терезеге назар аударсақ, одан біз кестедегі
Table Lookup- көру терезесі
Table Lookup – бұл бөлім берілген кестенің өрісін
Drive (or Alias) сырғымалы тізіміне Browse… кнопкасын басу
Secondary Index – бұл бөлім ары қарай жұмыс
Жаңа индекс құру үшін Define- анықтау батырмасын басу
Referential Integrity – бұл бөлім әртүрлі кестелердің арасында
Fields панелінен керек деген өрісті таңдап аламыз. Стрелкасы
BDE Administrator – да мәліметтер қоры драйверлерін және
Delphi қолданбасы деректер базасына қатынауды BDE арқылы жүзеге
BDE Administrator программасы түрлі типтегі BDE мәліметтер қорының
Деректер базасымен жұмыс, ережеге сай, бір қолданушылық режимде
Бұл программа терезесі екі беттен тұрады:
Databases-мәліметтер қоры және Configuration- конфигурация. Сол жақ панельде
Шығу құжаттары
Мәліметтер қорымен жұмыс жасайтын жобалар құру
Мәліметтер қорымен жұмыс жасайтын қарапайым жоба жасап көрейік:
Бұл кестедегі жобадағы компаненттер мен МБ-дағы мәліметтер базасындағы
Осы жобаларды жасай отырып, “ Объект инспекторы ”
Компонент Қасиеттері Мәні
Table1 Database Name Банки
Table Name 1tab
Active True
DataSourse1 Dataset Table1
DBGrid1 DataSourse DataSourse1
DBNavigator1 DataSourse DataSourse1
Жаңа жоба ашып формаға BDE кітапханасынан Table компанентін
Біздің курстық жұмыс бойынша форма саны 4, яғни
Алғашқы жобаның мәндерін орындау үшін бірнеше қосымшалар енгіземіз.
procedure TForm2.FormCreate(Sender: TObject);
begin
Table1.Active:=true;
end;
Тура осындай формасының OnDestory оқиғасына мынандай өңдеуші енгіземіз:
procedure TForm2.FormDestroy(Sender: TObject);
begin
Table1.Active:=false;
end;
Бұл өзгерістер программаны жүктегенде кете мен мәліметтер қоры
Барлық орналастырған формамызды бір –бірімен байлаыстырамыз. Ол қасиетер
Әр бір формаға өзімізге қажетті компаненттерді орналастырамыз.Соларға жеке
Қалған барлық формаларға бірдей коппаненттерді орналастырамыз.Олар: Table, DataSourse,
Form2-де, жоғарыдағы суреттен байқасақ, кызметкерлердің жеке мәліметтері берілген:
Ал үшінші формада, яғни Form3-те толық кесте бойынша
Form4-да, яғни төртінші формада тауар аты және жасаған
Бұл құрылған барлық формалардағы мәліметтерді сұрыптауға болатындығын айта
Іздеген мәліметімізді қасиеттер бөліміндегі Filter деген жерге жазамыздағы,
Сонымен қатар, кесте толтырған кезде өзімізге, әсіресе көп
Жалпы мәліметтер базасының негізгі мақсаты – көптеген ақпараттарды
Осы курстық жұмысты жасау арқылы, мен көптеген ақпарат
Program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
i1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Image1: TImage;
procedure i1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit
{$R *.dfm}
procedure TForm1.i1Click(Sender: TObject);
begin
form2:=tform2.create(self);
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form3:=tform3.create(self);
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form4:=tform4.create(self);
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Close;
end;
end.
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm3 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
Table1.Active:=true;
end;
procedure TForm3.FormDestroy(Sender: TObject);
begin
Table1.Active:=false;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm4 = class(TForm)
Table1: TTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
Table1.Active:=true;
end;
procedure TForm4.FormDestroy(Sender: TObject);
begin
Table1.Active:=false;
end;
end.
Қорытынды
Менің курстық жұмысымның қорытындысына кесек, магазин жұмысын еңілдету
жерлеріне байланысты анықтамалық жасауәр бір магазинге өте
Міне осындай жағдайларда оны осы автоматтандырылған анықтамалықтан
сұраныс беру арқылы оңай тауып аламыз. Автоматтандыру іске
дәлдігіне де сенімсіз қарауға тура келеді.
Осы курстық жұмыстың тапсырмасы-магазин операциялары жайлы мәліметті тез
Бұл курстық жұмыстың маған берген пайдасы көп болды.
Менің ойымша, автоматтандырылған жүйелер адамзат өмірінің ажырамас, ең
Пайдаланылған әдебиеттер тізімі:
Уэйт М., Прата С., Мартин Д. Язык СИ.
Фаронов В.В. Москва, изд.” Нолидж ”: “ Работа
Архангельский А.Я. “ Программирование на Delphi - 7
Иванова Т.С, Ничушкина Т.Н, Пугачев Е.К. “ Объектно
Им.Н.Э.Баумана, 2003.
Фаронов В.В. “Delphi - 6” Учебный курс –
Гофман В.Э, Хоманенко А.Д. “ Delphi - 6
2