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



МАЗМҰНЫ - www.topreferat.com.kz

КІРІСПЕ 3

1 «КІТАПХАНА» АҚПАРАТТЫҚ ЖҮЙЕСІНІҢ ПРОЕКТІСІ 4

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

1.2 Пәндік облыстың анализі 4

1.3 MS Access-те проектілеу 5

1.4 BDE технологиясы 6

2 «КІТАПХАНА» АҚПАРАТТЫҚ ЖҮЙЕСІНІҢ ІСКЕ АСЫРЫЛУЫ 8

ҚОРЫТЫНДЫ 15

ҚОЛДАНЫЛҒАН ӘДЕБИЕТ 16

ҚОСЫМША А

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

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

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



МАЗМҰНЫ

КІРІСПЕ 3

1 «КІТАПХАНА» АҚПАРАТТЫҚ ЖҮЙЕСІНІҢ ПРОЕКТІСІ 4

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

1.2 Пәндік облыстың анализі 4

1.3 MS Access-те проектілеу 5

1.4 BDE технологиясы 6

2 «КІТАПХАНА» АҚПАРАТТЫҚ ЖҮЙЕСІНІҢ ІСКЕ АСЫРЫЛУЫ 8

ҚОРЫТЫНДЫ 15

ҚОЛДАНЫЛҒАН ӘДЕБИЕТ 16

ҚОСЫМША А

КІРІСПЕ

Бұл жұмыстың негізгі мақсаты:

Экономикалық ақпараттық жүйені баптау;

Пәндік облысты зерттеу;

Жүйенің концептуалды, логикалық және физикалық проектіленуі;

Жүйемен жұмыс кезінде практикалық дағдыларды формалау – процедуралар,
Қосымшалар арасында мәліметтер алмасыду ұйымдастыру.

Зерртеудің негізгі пәні кітапхана болып саналады.
Бұл баптаудың өзектілігі:

«Кітапхана» экономикалық ақпараттық жүйесі мәліметтер базасын басқаратын программа
Программа ПЭВМ операторының еңбегін толығымен автоматтайды: автоматты түрде
Программаны қолдану барасында алынған және қалған кітаптардың мәліметтер
1 «КІТАПХАНА» АҚПАРАТТЫҚ ЖҮЙЕСІНІҢ ПРОЕКТІСІ

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

Экономикалық ақпараттық жүйе бұл функциялары белгілі бір
АЭЖ мәліметтерді баптаудың есептерін шешуге, конторалық жұмыстарды автоматтау
Экономикалық жүйе құрылымы (өнеркәсіпті кәсіпорын, саудалық өнеркәсіп, коммерциялық
Іздеу есептері өзінің спецификасына ие, және ақпараттық іздеу
Экономикалық ортада басқару обьектісі бұл экономикалық қызмет көрсетудің
1.2 Пәндік облыстың анализі

Ақпараттық жүйелердің негізгі міндеттері сұрақ-жауап түрінде іске асырылатын
Ақпарат ақпараттық жүйеде мәліметтер формасында көрсетіледі. Ол ақпараттық
Пәндік облыстың мәні. Пәндік облыстың моделі – бұл
Имеется большое количество методик описания предметной области.

Пәндік облыстың анализі мәліметтер базасында қандай ақпарат сақталатынын
Менің ақпааттық жүйемнің пәндік облысы – кітапхана.

Кітапханада сақталатын кез келген кітап келесі параметрлерге ие
1.3 MS Access-те проектілеу

Access жүйесі – мәліметтер базасын басқаруға арналған соңғы
Microsoft – қолдануы тек қолданушының қиялымен шектелетін көпқырлы
Қосымшаларды программалаусыз Access макростарын қолданумен құру. Электронды кестелер
Microsoft Access – қолданылуы тек қолданушының қиялымен шектелетін
Қолданылатын база тек бір кестеден тұрады.

1.4 BDE технологиясы

BDE (Borland Database Engine — мәліметтерге кірге мүмкіндік
ODBC-ке қосылу керек болған жағдайда Microsoft ODBC драйверлерін
BDE жүйесі BDE Administrator (BDEADMIN.EXE) көмегімен конфигурацияланады.

2. КІТАПХАНА» АҚПАРАТТЫҚ ЖҮЙЕСІНІҢ ІСКЕ АСЫРЫЛУЫ

Программаның проектісі Delphi 7 мен MS Access құралдары
Мәліметтер базасын құру процессі екі қадамнан тұрады: алдымен
MS Access-те мәліметтер базасын құрайық. Қолданылатын мәліметтер базасы
Microsoft Access ортасында физикалық проектілеу орындаймыз. Кесте мен
Кесте атауы Поле атауы Мәліметтер типі Поле өлшемі
Кітаптар Кітап коды Тексттік 255

Атауы Тексттік 60

Автор Тексттік 50

Жанр Тексттік 20

Шығарылым жылы Сандық Ұзын бүтін

Беттер саны Сандық Ұзын бүтін

Сипаттамасы Поле МЕМО

Шолу Поле

бъРООППАППАекта

Иллюстрациялардың барбар/жоғы Логикалық

Кесте 1. «Кітаптар» кестесінің полелерінің қасиеттері

Псевдоним құру үшін келесі әрекеттерді орындау керек:

Басқару панелінде «Администрирование» таңдаймыз. (Сурет 1)

Сурет 1. Басқару панелі

“Мәліметтер көзі (ODBC)” таңдау .(Сурет 2)

Сурет 2. Мәліметтер көзі (ODBC)

“Қолданушылық DNS”-та “Қосу” батырмасын шертеміз және “Microsoft
Сурет 3. Жаңа мәліметтер көзін құру

“Мәліметтер көзінің атауы” – мәліметтер базасының атын жазамыз.
Сурет 4. ODBC драйверін орнату

“ОК” шертеміз.

Басты форма (Forml) - Сурет 5-те көрсетілген. Ол
Сурет 5. Басты форма

Форма «Просмотр каталога» позволяет посмотреть каталог книг. На
Сурет 6. «Каталог» формасы

Және де атауы бойынша іздеу жасауға, жанры, авторы
Сурет 6. «Каталог» формасында жүргізілетін іздеу

«Редактрлеу» формасы кітаптар туралы мәліметтерді редактрлеуге, жаңа кітаптарды
Формаға мәліметтерді қосу DBNavigator компонентінің «+» батырмасын
Сурет 7. «Редактировать» формасы

«Программа жайлы» формасы программа авторы туралы ақпараттан тұрады.
Сурет 8. «Программа жайлы» формасы

ҚОРЫТЫНДЫ

Берілген курстық проектіде «Кітапхана» экономикалық ақпараттық жүйесінің бапталуы
Жасалған жұмыстың басты нәтижесі – мәліметтер базасын қолдану
Қорытындысында, құрылған программа – қолдануында қарапайым және
ҚОЛДАНЫЛҒАН ӘДЕБИЕТ

Диго С.М. Базы данных: проектирование и использование. Учебное
Кузин А.В., Демин В.М.Разработка баз данных в системе
Тиори Т., Фрай Дж. : Проектирование структур баз
Гофман В., Хомоненко А.: Delphi 6 в подлиннике.
Пестрнков В. М., Маслобоев А. Н.: Delphi на
Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических
Дунаев С. В. Доступ к базам данных и
Сигнор Р., Стегман М. О. Использование ODBC для
Фленов М.Е. Библия Delphi. – СПб.: БХВ-Петербург, 2004.
ҚОСЫМША А

//Проекті файлы

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'imgUnit6.pas' {Form6};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.Run;

end.

//Unit 1

unit Unit1;

interface

uses

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

Dialogs, Grids, DBGrids, DB, DBTables, Menus, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Table1: TTable;

Table1_: TIntegerField;

Table1BDEDesigner: TStringField;

Table1BDEDesigner2: TStringField;

Table1BDEDesigner3: TIntegerField;

Table1BDEDesigner4: TStringField;

Table1BDEDesigner5: TIntegerField;

Table1BDEDesigner6: TMemoField;

Table1BDEDesigner7: TBlobField;

DataSource1: TDataSource;

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form6.show;

end;

Unit 3 unit Unit3;

//interface

uses

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

Dialogs, StdCtrls, ExtCtrls, DB, Grids, DBGrids, DBTables;

type

TForm3 = class(TForm)

Table1: TTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1_: TIntegerField;

Table1BDEDesigner: TStringField;

Table1BDEDesigner2: TStringField;

Table1BDEDesigner3: TIntegerField;

Table1BDEDesigner4: TStringField;

Table1BDEDesigner5: TIntegerField;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Label1: TLabel;

Edit1: TEdit;

RadioButton4: TRadioButton;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.RadioButton1Click(Sender: TObject);

begin

Table1.IndexFieldNames:='Автор';

end;

procedure TForm3.RadioButton2Click(Sender: TObject);

begin

Table1.IndexFieldNames:='Жанр';

end;

procedure TForm3.RadioButton3Click(Sender: TObject);

begin

Table1.IndexFieldNames:='Код_книги';

end;

procedure TForm3.RadioButton4Click(Sender: TObject);

begin

Table1.IndexFieldNames:='Год издания';

end;

procedure TForm3.Edit1Change(Sender: TObject);

begin

Table1.Filtered := false;

Table1.Filtered := true;

end;

procedure TForm3.Table1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept := (Edit1.Text = '') or (Pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(Table1.FieldByName('Наименование').AsString))=1);

end;

procedure TForm3.RadioButton1Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Автор';

end;

procedure TForm3.RadioButton2Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Жанр';

end;

procedure TForm3.RadioButton3Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Код_книги';

end;

procedure TForm3.RadioButton4Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Год издания';

end;

procedure TForm3.Edit1Change(Sender: TObject);

begin

ADOTable1.Filtered := false;

ADOTable1.Filtered := true;

end;

procedure TForm3.Table1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept := (Edit1.Text = '') or (Pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(ADOTable1.FieldByName('Наименование').AsString))=1);

end;

//Unit 4

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, DB, DBTables, DBCtrls, Mask, ExtCtrls;

type

TForm4 = class(TForm)

DBNavigator1: TDBNavigator;

DBImage1: TDBImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DataSource1: TDataSource;

Table1: TTable;

Button1: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBMemo1: TDBMemo;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

//Unit6

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm6 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

2