Программа негізінен екі бөлімен түрады


Болашақтағы мақсат - бағдарламалық өнімнің түрлерін кеңейту және сату көлемін арттыру



жүктеу/скачать 469.5 Kb.
бет4/4
Дата05.03.2016
өлшемі469.5 Kb.
#42504
түріПрограмма
1   2   3   4

Болашақтағы мақсат - бағдарламалық өнімнің түрлерін кеңейту және сату көлемін арттыру.

Қорытынды

Қорыта айтқанда дипломдық жұмыстың нәтижесі Delphi программалау тілін қолданып мектеп оқшылары үшін информатика пәнінен тест құрылады. Бұл жүйеге мәліметтерді классификациялау және ұйымдастыру, бөлімдері енген. Ақапараттық жүйенің нәтижесінде мәліметтер компьютерде өңделеді. Программада мектептегі бастауыш сынып мүғалімдерінің жұмысын біраз жеңілдету және де уақытты тиімді пайдалануды көздедім. Бірақ бұл программа ешқашан мұғалімнің орынын толық алмастыра алмайды, өйткені бастауыш сынып оқушыларына әрқашан сұрақтарына жауап беріп отыратын адам қажет.

Бұл жұмыстың нәтижесінде ХХІ-ші ғасыр талабына сай қолдануға болатын берілгендер қоры жасалынды. Бұл берілгендер қорын Delphi программасында жасадым. Себебі, Delphi программасымен жұмыс істеу принциптері Windows жүйесіне негізделген, оның объектілері терезе түрінде ашылады. Сондықтан Windows жүйесімен таныс болған қолданушы DeIphi программасында берілгендер қорымен жұмыс істеу қиындық тудырмайды.

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



Түйін
Дипломдық жұмыстың нәтижесі DELPHI программалау тілін қолданып мектеп оқушылары үшін информатика пәнінен тест құрылады. Бұл жүйеге мәліметтерді классификациялау және ұйымдастыру, бөлімдері енген. Себебі DELPHI программамен жұмыс істеу принциптері Windows жүйесіне негізделген, оның объектілері терезе түрінде ашылады. Сондықтан Windows жүйесімен таныс болған қолданушы DELPHI программасында берілгендер қорымен жұмыс істеу қиындық тудырмайды.

Резюме

Результат дипломной работы разработка тестов по информатике для школьников в среде DELPHI. В эту систему входят классификация и организация данных. Потому что принцип работы среды DELPHI основывается на системе Windows. Пользователю, работающему с определенной системой Windows не составит труда создать базы данных в среде DELPHI в виде тестов.



summary

Result of degree work development of tests on computer science for schoolboys in DELPHI environment. This system includes classification and a data structure. Because the principle of work of DELPHI environment is based on system Windows. The user working with certain system Windows cannot create databases in DELPHI environment as tests.



Қосымша

unit Marcl;

interface

uses


Windows, Messages, SysUtiIs, Classes, Graphics,

Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;

type


TForml = cIass(TForm)

Panell: TPaneI;

Buttonl: TButton;

Button2: TButton;

Panel2: TPanel;

Timerl: TTimer;

Labell: TLabel;

Panel3: TPanel;

Imagel: TImage;

Image2: TImage;

GroupBoxl: TGroupBox;

Label2: TLabel;

Panel4: TPaneI;

Image3: TImage;

procedure ButtonlCHck(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure TimerlTimer(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;


var

Form1: TForm1;

implementation

uses Marc2;

{uses Marc1;}

{$R *.DFM}

procedure TForml.ButtonlClick(Sender: TObject);

begin


Form2.Show;

end;


procedure TForm1.Button2Click(Sender: TObject);

begin


Close;

end;


procedure TForml.TimerlTimer(Sender: TObject);

var DateTime: TdateTime;

begin

DateTime:=Time;



Label2.caption:=TimeToStr(DateTime);

with label1 do

begin

if Ieft<460 then



left:=left+height div 10 else left:=-160

end;


begin

{with Image1 do

ifleft<460 then

left:=left+width div 10 else left: = -160}

end;

with Image2 do begin



if left<460 then

left:=left+width div 10 else left:=-160

end;

end;


end.
unit Marc2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,



Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, Menus;

type

TForm2 = class(TForm)



Panel1: TPanel;

Button1: TButton;

Panel2: TPanel;

RadioButtonl: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

Button2: TButton;

Imagel: TImage;

MainMenul: TMainMenu;

I1: TMenuItem;

i2: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure ButtonlClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure i2Click(Sender: TObject);

procedure NlClick(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;


var

Form2: TForm2;

implementation

uses Marc3, Marc4, Marc5, Marc6;

{uses Unit3, Unit4, Unit5, Unit6;}

{$R *.DFM}

procedure TForm2.ButtonlClick(Sender: TObject);

begin


Close;

end;


procedure TForm2.Button2Click(Sender: TObject);

begin


if Form2.RadioButtonl.Checked=true then

begin


Form3.Show;

end;


if Form2.RadioButton2.Checked=true then

begin


Form4.Show;

end;


if Form2.RadioButton3.Checked=true then

begin


Form5.Show;

end;


if Form2.RadioButton4.Checked=true then

begin


Form6.Show;

end;


end;

procedure TForm2.i2Click(Sender: TObject);

begin

Form3.Show;



end;

procedure TForm2.NlClick(Sender: TObject);

begin

Form4.Show;



end;

procedure TForm2.N2Click(Sender: TObject);

begin

Form5.Show;



end;

procedure TForm2.N3Click(Sender: TObject);

begin

Form6.Show;



end;

procedure TForm2.N4Click(Sender: TObject);

begin

Close;


end;

end.


unit Marc3;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,



Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;

type

TForm3 = class(TForm)



Panel1: TPanel;

Button1: TButton;

Panel2: TPanel;

DataSourcel: TDataSource;

Tablel: TTable;

GroupBoxl: TGroupBox;

DBGridl: TDBGrid;

DBNavigatorl: TDBNavigator;

procedure ButtonlCHck(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;


var

Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.ButtonlClick(Sender: TObject);

begin


Close;

end;


end.
unit Marc4;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,



Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;

type

TForm4 = class(TForm)



Panel1: TPanel;

Button1: TButton;

Panel2: TPanel;

GroupBoxl: TGroupBox;

DataSourcel: TDataSource;

Tablel: TTable;

DBGridl: TDBGrid;

DBNavigatorl: TDBNavigator;

procedure ButtonlCHck(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;


var

Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.ButtonlClick(Sender: TObject);

begin


Close;

end;


end.

program Marka;

uses

Forms,


Marcl in 'Marcl.pas' {Form1},

Marc2 in 'Marc2.pas' {Form2},

Marc3 in 'Marc3.pas' {Form3},

Marc4 in 'Marc4.pas' {Form4},

Marc5 in 'Marc5.pas' {Form5},

Marc6 in 'Marc6.pas' {Form6},

Marc7 in 'Marc7.pas' {Form7},

Marc8 in 'Marc8.pas' {Form8},

Marc9 in 'Marc9.pas' {Form9};

{$R *.RES}

begin

Application.Initialize;



Application.CreateForm(TForml, Form1);

AppHcation.CreateForm(TForm2, Form2);

AppHcation.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

AppHcation.CreateForm(TForm7, Form7);

Application.CreateForm(TForm8, Form8);

Application.CreateForm(TForm9, Form9);

Application.Run; end.

unit Marc6;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,



Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, Menus, ExtDlgs,

Mask;

type TForm6 = class(TForm)



Panel2: TPanel;

DataSourcel: TDataSource;

Tablel: TTable;

GroupBoxl: TGroupBox;

DBGridl: TDBGrid;

MainMenul: TMainMenu;

N14: TMenuItem;

11: TMenuItem;

N1: TMenuItem;

i2: TMenuItem;

N2: TMenuItem;

OpenPictureDialogl: TOpenPictureDialog;

Buttonl: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

DBMemol: TDBMemo;

DBImagel: TDBImage;

procedure ButtonlClick(Sender: TObject);

procedure NlCHck(Sender: TObject);

procedure I1Click(Sender: TObject);

procedure i2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Button2CHck(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4CIick(Sender: TObject);

procedure Button5CIick(Sender: TObject);

procedure Button6CHck(Sender: TObject);

procedure Button7CIick(Sender: TObject); private

{ Private declarations }

public


{ Public declarations }

end;


var

Form6: TForm6;

implementation

uses Marc8, Marc7, Marc9;

{ٱuses Unit8, Unit7, Unit9;}

{$R*.DFM}

procedure TForm6.ButtonlClick(Sender: TObject);

begin


Tablel.Edit;

if OpenPictureDialogl.Execute then begin DBImage1.Picture.LoadFromFile(OpenPictureDialogl.File Name);

{DBIMagelLoadPicture;} end;

Tablel.Post; end;

procedure TForm6.NlCHck(Sender: TObject); begin

Form8.Show; end;

procedure TForm6.I1Click(Sender: TObject);

begin


Form7.Show;

end;


procedure TForm6.i2Click(Sender: TObject);

begin


Form9.Show;

end;


procedure TForm6.N2Click(Sender: TObject);

begin Close;

end;

procedure TForm6.Button2Click(Sender: TObject);



begin

Tablel.First;

end;

procedure TForm6.Button3Click(Sender: TObject);



begin

Tablel.Prior;

end;

procedure TForm6.Button4Click(Sender: TObject);



begin

Tablel.Next;

end;

procedure TForm6.Button5Click(Sender: TObject);



begin

Tablel.Last;

end;

procedure TForm6.Button6Click(Sender: TObject);



begin

Tablel.Insert;

end;

procedure TForm6.Button7Click(Sender: TObject);



begin

Tablel.Delete;

end;

end.


unit Marc7;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,



Controls, Forms, Dialogs,

Menus, Mask, DBCtrls, StdCtrls, Db, DBTables, ExtCtrls, Grids, DBGrids;

type TForm7 = class(TForm)

MainMenul: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Tablel: TTable;

DataSourcel: TDataSource;

GroupBoxl: TGroupBox;

Labell: TLabel;

Label2: TLabel;

Label3: TLabeI;

Label4: TLabeI;

Label5: TLabel;

Editl: TEdit;

DBEditl: TDBEdit;

Edit2: TEdit;

Edit3: TEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Edit4: TEdit;

Edit5: TEdit;

DBGridl: TDBGrid;

procedure N2Click(Sender: TObject);

procedureEditlChange(Sender:TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Edit5Change(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;


var

Form7: TForm7;

implementation

{$R *.DFM}

procedure TForm7.N2Click(Sender: TObject);

begin close;

end;

procedure TForm7.EditlChange(Sender: TObject);



begin

Tablel.Locate('Shigargan zavody', Editl.text,

[locaseinsensitive, loPartialkey]);

end;


procedure TForm7.Edit2Change(Sender: TObject);

begin


Tablel.Locate('Marcasy', Edit2.text, [locaseinsensitive,

loPartialkey]);

end;

procedure TForm7.Edit3Change(Sender: TObject);



begin

Tablel.Locate('Shigargan jily', Edit3.text,

[locaseinsensitive, loPartialkey]);

end;


procedure TForm7.Edit4Change(Sender: TObject);

begin


Tablel.Locate('Tusy', Edit4.text, [locaseinsensitive,

loPartialkey]);

end;

procedure TForm7.Edit5Change(Sender: TObject);



begin

Tablel.Locate('Bagasy', Edit5.text, [locaseinsensitive,

loPartialkey]);

end;


end.

unit Marc8;

interface

uses


Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, Menus, Db, DBTables, ExtCtrls;

type TForm8 = class(TForm)

GroupBoxl: TGroupBox;

DataSourcel: TDataSource;

Tablel: TTable;

MainMenul: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

DBGridl: TDBGrid;

Buttonl: TButton;

RadioGroupl: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioButtonl: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

procedure N2Click(Sender: TObject);

{ procedure ButtonlCIick(Sender: TObject);}

private

{ Private declarations }



public

{ Public declarations }

end;

var


Form8: TForm8;

implementation

{$R *.DFM}

procedure TForm8.N2Click(Sender: TObject);

begin

close;


end;

{procedure TForm8.ButtonlClick(Sender: TObject);

begin

case RadioButtonl. end;}



end.

unit Marc9;

interface

uses


Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

StdCtrls, Menus, Grids, DBGrids, Db, DBTables;

type


TForm9 = class(TForm) GroupBoxl: TGroupBox;

DataSourcel: TDataSource;

Tablel: TTable;

DBGridl: TDBGrid;

Buttonl: TButton;

Button2: TButton;

Labell: TLabel;

Label2: TLabel;

Label3: TLabel;

LabeI4: TLabel;

Label5: TLabel;

MainMenul: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Editl: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Label6: TLabeI;

Label7: TLabeI;

procedure N2Click(Sender: TObject);

procedure ButtonlCIick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;


var

Form9: TForni9;

implementation

{$R *.DFM}

procedure TForm9.N2Click(Sender: TObject);

begin Close;

end;

procedure TForm9.ButtonlClick(Sender: TObject);



begin

with Tablel do begin SetRangeStart;

FieldByName('Bagasy').AsString:=Editl.text;

SetRangeEnd;

FieIdByName('Bagasy').AsString:=Edit2.text;

ApplyRange;

end;

end;


procedure TForm9.Button2Click(Sender: TObject);

begin


Tablel.CancelRange;

end;


procedure TForm9.FormCreate(Sender: TObject);

begin


Tablel.Indexname:='indBagasy';

end;


end.

ҚОЛДАНЫЛҒАН Әдебиеттер
1. Владимир Гофман, Анатолий Работа сбазами данных в Delphi. Санкт-Петербург, "БХВ-Петербург", 2002 г.

2. Бойко B.B., Савинков B.M Проектирование баз данных. Москва. 1998г.

3. Бобровский C. Delphi-5. Учебник курс. Москва, 2000 г.

4. Культин H. CaMoy4.Delphi. Санкт-Перербург. 1999 г.

5. Епанешиков A.M. Программирование в среде Delphi.

6. Шумаков П.В. Delphi и создание базы данных. Москва, 1997 г.

7. Фаронов B.B. Delphi 4.0. Начинающий курс. 1999 г.

8. Гринберг Ф., Гринберг P. Самоучитель программирования на входным языке СУБД Dbase. Москва, "Мир", 1989 г.

9. Дарахвелидзе П., Марков E. Delphi — среда визального программирования — СПБ. ВНУ — Санкт-Петербург, 1996 г.

10. Рубенкинг H. Программирования delphi для "чайников". Киев, "Диалектика", 1996 г.

11. ПотоцкийВ.К. Объектно — ориентированное программирование. Ленинград, 1991 г.

12. О.Камардинов, Х.Жантелі Delphi 5-6. Шымкент, 2002 ж.




жүктеу/скачать 469.5 Kb.

Достарыңызбен бөлісу:
1   2   3   4



©dereksiz.org 2024
әкімшілігінің қараңыз
    Басты бет