Компьтерлер орналасатын бөлмелерге қойылатын талаптар

1.9 Мекемелердегі еңбек пен демалыс тәртібіне қойылатын талаптар

1. 
   Еңбек қызметінің түрлері үш күрделі дәрежеге бөлінеді:
   

Б тобы – Ақппаратты енгізу жұмысы

В тобы – ЭЕМ диалог тәртібіндегі творчествалық жұмыс.

2. 
   Үзілістер, экран алдындағы жұмыстың ұзақтығы.
   
3. 
   Медицина қолданушыларына ЕДТ және ДЭЕМ қойылатын талаптар.
   
4. 
   Комплекстық жаттығуларды өткізу.
   

Сонымен, орындалған жұмыс барысында келесі қорытындыға келдім деп айтуыма болады: біріншіден, мен таңдап алған тақырыбымның мәні зор. Себебі, ақпараттық құралдармен жабдықталған компьютерлерді қолданатын адамдар ақпаратты сақтайтын негізгі құралдарды сорттаумен, жинақтаумен көп уақыт өткізеді. Ал осы бағдарламаның көмегімен студенттердің бүкіл мәліметтерін іздеген кезде табылатындай әрекеттерді жасауға болады. Екіншіден, бұл мәліметтер қорымен жұмыс істейтін қаншама бағдарламалау тілдері болса да, көптеген артықшылықтары бар әрі қазіргі кезгі талаптарға жауап беретін Delphi бағдарламалау тілін қолдану мен үшін өте тиімді әрі қызықты болды. Үшіншіден, осындай курстық жұмысты жазу барысында мен мәліметтер қорларымен және оларды пайдалану мен ұйымдастыру, құрылымдарын дайындаумен тереңірек таныстым.

Енді осы жазған өзіндік жұмыстың тарауларын қысқаша қортындылап айтып кететін болсам , олар келесілерден тұрады:

Бірінші тарауда мәліметтер қорлары туралы жалпы мағұлымат беріп кеттім. Бұл тарау мәлімет қоры дегеніміз не деген жалпы сұраққа жауапты осы тараудан алуға болады деп ойлаймын.

Екінші тарауда МҚБЖ-мен жұмыс істеу туралы мағлұмат беріп кеттім. Ол дегеніміз мәліметтер қорын жұмыс істейтін негізі принципін, тәсілдерін және компонентері туралы айтылған.

Үшінші тарауда DBF, Paradox форматтарымен жұмыс жасау туралы мағлұмат беріп кеттім және бұл тарауда өзім құрған бағдарламаның құрылуы туралы да айта кетттім.

Сонымен сөзімді тамандай келе жоғарғы деңгейлі Delphi тілімен толық таныстым деп ойлаймын.

Қолданылған әдебиеттер

1. 
   Архангельский А.Я. Программирование в Delphi 6. – М.:ЗАО «Издательство БИНОМ», 2003г.-1120 с.
   
2. 
   Бобровский С. Delphi 6 и Kylix: библиотека программиста. – сПб.:Питер, 2002. – 560 с.
   
3. 
   Бобровский С. Delphi 5. учебный курс – сПб.:Питер, 2001г.
   
4. 
   Дантеманн Д., Мишел Д., Тейлор Д. Программирование в среде Delphi / Пер. с англ. – К.: НИПФ «Диа Софт Лтд.», 1995г. – 608 с.
   
5. 
   Культин Н. Delphi в задачах и примерах. – СПб.: БХВ-Петербург, 2004. – 288 с.
   
6. 
   Мозговой М.В. Занимательное программирование: Самоучитель. – СПб.: Питер, 2004 – 208 с.
   
7. 
   Понамарев В.Базы данных в Delphi 7. Самоучитель. – СПб.:Питер, 2003. – 224 с.
   
8. 
   Фаронов В. В. Delphi 6. Учебный курс.-М.: Издатель Молгачева С.В., 2001. – 672 с.
   
9. 
   Флёнов М.Е. Библия Delphi. – СПб.: БХВ-Петербург, 2004. – 880 с.
   
10. 
    Хомоненко А.Д. и др. Delphi 7/ Под общ. ред. А.Д.Хомоненко. – СПб.:БХВ-Петербург, 2004.-1216 с.
    

interface

uses

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

type

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;

var

implementation

uses MainUnit;

{$R *.dfm}

procedure TPasForm.Button1Click(Sender: TObject);

const h='ЭСЕЛЬ';

var str:string;

begin

if (str=h) then PasForm.Visible:=true;

if (str=h) then MainForm.Visible:=true;

end;

begin

MainForm.Close;

end;

end.

interface

uses

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

type

MainMenu1: TMainMenu;

FileMenu: TMenuItem;

BaseMenu: TMenuItem;

N3: TMenuItem;

ExitMenu: TMenuItem;

HelpMenu: TMenuItem;

HisMenu: TMenuItem;

Image1: TImage;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure BaseMenuClick(Sender: TObject);

procedure ExitMenuClick(Sender: TObject);

procedure HisMenuClick(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;

var

implementation

uses BaseUnit, HelpUnit, PasUnit;

{$R *.dfm}

procedure TMainForm.Button2Click(Sender: TObject);

begin

end;

begin

end;

begin

end;

begin

end;

begin

end;

interface

uses

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

type

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBText1: TDBText;

Button1: TButton;

Query1: TQuery;

Button3: TButton;

RadioGroup1: TRadioGroup;

CheckBox1: TCheckBox;

Edit2: TEdit;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Button4: TButton;

Button5: TButton;

ListBox1: TListBox;

Label1: TLabel;

Label2: TLabel;

Bevel1: TBevel;

Bevel2: TBevel;

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);

procedure Button5Click(Sender: TObject);

{ Private declarations }

public

{ Public declarations }

var

implementation

uses MainUnit;

{$R *.DFM}

procedure TBaseForm.Button1Click(Sender: TObject);

var

begin

'Улгеримін корсетінізде OK-дi басыныз.', '*');

if ozenka<> '*'

then

with BaseForm.Query1 do begin

Close;

SQL.Clear;

SQL.Add('FROM ":STANDARD2:tab.db"');

SQL.Add('WHERE');

SQL.Add('(ozenka = "'+ ozenka+ '")');

SQL.Add('ORDER BY Fam,Name,Country,ozenka');

Open;

if Query1.RecordCount <> 0 then

DataSource1.DataSet:=Query1

else begin

ShowMessage('Берiлген сураныс МК канагаттандырмайды.');

DataSource1.DataSet:=Table1;

end;

end;

procedure TBaseForm.FormActivate(Sender: TObject);

begin

with Session do

ConfigMode:=cmSession;

try

AddStandardAlias('STANDARD2',

'PARADOX');

Table1.Active:=True;

Finally

end;

end;

begin

end;

begin

then

CheckBox1.Caption:='Iздеу режимi косулы';

Edit2.SetFocus;

end

end;

var

begin

case RadioGroup1.ItemIndex of

0: strField:='Fam';

1: strField:='Name';

2: strField:='Country';

end;

Query1.SQL.Clear;

Query1.SQL.Add('Select * from tab.db where '+strField+' LIKE "'+Edit2.Text+'%"');

Query1.Open;

Query1.FieldByName('Fam').DisplayLabel:='Фамилия';

Query1.FieldByName('Name').DisplayLabel:='Аты';

Query1.FieldByName('Surname').DisplayLabel:='Теги';

Query1.FieldByName('Birthday').DisplayLabel:='Туган куни';

Query1.FieldByName('Education').DisplayLabel:='Оку тури';

Query1.FieldByName('Ozenka').DisplayLabel:='Улгерими';

Query1.FieldByName('Adress').DisplayLabel:='Мекен-жайы';

end;

begin

DataSource1.DataSet:=Query1;

DBGrid1.DataSource:=DataSource1;

end;

var

begin

Query1.SQL.Clear;

Query1.SQL.Add('Select '+ComboBox1.Text+

' from tab.db '+'Order by '+ComboBox2.Text);

Query1.Open;

try

begin

Query1.FieldByName('name').DisplayLabel:='аты';

Query1.FieldByName('surname').DisplayLabel:='тегi';

Query1.FieldByName('birthday').DisplayLabel:='туган кунi';

Query1.FieldByName('country').DisplayLabel:='туган жерi';

Query1.FieldByName('education').DisplayLabel:='оку турi';

Query1.FieldByName('ozenka').DisplayLabel:='улгерiмi';

Query1.FieldByName('adress').DisplayLabel:='мекен-жайы';

end

else

for i:=0 to ComboBox1.Items.Count-1 do

if ComboBox2.Text=ComboBox1.Items.Strings[i]

then Query1.FieldByName(ComboBox2.Text).

DisplayLabel:=ListBox1.Items.Strings[i-1];

end;

end;

ComboBox1.Items.Add('*');

for i:=0 to Query1.FieldCount-1 do

ComboBox1.Items.Add(Query1.Fields.Fields[i].FieldName);

ComboBox2.Items.Clear;

for i:=0 to Query1.FieldCount-1 do

ComboBox2.Items.Add(Query1.Fields.Fields[i].FieldName);

ComboBox1.Enabled:=true;

ComboBox2.Enabled:=true;

Button5.Enabled:=true;

end;

procedure TBaseForm.ComboBox1Change(Sender: TObject);

if ComboBox1.Text<>'*'

then

begin

ComboBox2.Text:=ComboBox1.Text;

end

else ComboBox2.Enabled:=true;

procedure TBaseForm.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

if Key=#13 then

Key:=#0;

end;

procedure TBaseForm.ComboBox2KeyPress(Sender: TObject; var Key: Char);

begin

if Key=#13 then

Key:=#0;

end;

procedure TBaseForm.Button5Click(Sender: TObject);

var

i: integer;

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('Select * from tab.db Order by Fam');

Query1.Open;

try

Query1.FieldByName('name').DisplayLabel:='аты';

Query1.FieldByName('surname').DisplayLabel:='тегi';

Query1.FieldByName('birthday').DisplayLabel:='туган кунi';

Query1.FieldByName('country').DisplayLabel:='туган жерi';

Query1.FieldByName('education').DisplayLabel:='оку турi';

Query1.FieldByName('ozenka').DisplayLabel:='улгерiмi';

Query1.FieldByName('adress').DisplayLabel:='мекен-жайы';

except

end;

ComboBox1.Text:='*';

ComboBox1.Items.Add('*');

for i:=0 to Query1.FieldCount-1 do

ComboBox1.Items.Add(Query1.Fields.Fields[i].FieldName);

ComboBox2.Items.Clear;

ComboBox2.Text:='fam';

for i:=0 to Query1.FieldCount-1 do

ComboBox2.Items.Add(Query1.Fields.Fields[i].FieldName);

Edit2.Text:='';

end;

end.

interface

uses

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

type

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;

var

implementation

{$R *.dfm}

procedure THelpForm.Button1Click(Sender: TObject);

begin

close;

end.

Біріншісі пароль беру және негізгі бағдарламаға кіру формасы.

Е
кіншісі негізгі бағдарлама меню формасы.