Бүкіл әлемнің фирмалары мен компаниялары қызметке қажет ақпаратты сақтау және өңдеу үшін компьютерлерді қолданады


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



жүктеу 0,8 Mb.
бет5/6
Дата25.12.2017
өлшемі0,8 Mb.
#6125
1   2   3   4   5   6

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





  1. Барлық бөлмелердің тұраған орнының нұсқасы болуы керек.

  2. Подвалды жерлерде компьтерлік кабинеттің немесе кластың орналасуына тыйым салынады.

  3. Кабинетте немесе кез-келген компьютерлік класта клмпьтерлер тек қана периниталды түрде орналасуы керек. Өйткені, жоғарғы жиіліктегі электромагниттік сәулелендіру алдымен алға содан кейін кері қарай тарайды.

  4. Бір адамдық жұмыс аумағы 5,0 кв.м, ДДУ да – 6 кв.м болуы тиіс.

  5. Шу деңгейі және вибрациялар қалыпты күйінен басым болатындықтан компьютерлік кабинеттер бөлмелермен шектелмеуі керек (шеберханалар, цехтар және спорт кешендері).

  6. ДЭЕМ орналасқан бөлмелер. ДЭЕМ бөлмелерінде қандай жылыту және ауаны қалыпты температурда ұстау жүйесіне ие болады.


1.3 Микроклиматқа қойылатын талаптар





  1. Суық кездегі температурасы 22-240 С, ылғалдылығы 40-60%, ауа қозғалысының жылдамдығы –0,1 м/сек;

Жылы кездердегі ауа температурасы 23-250 С, ылғалдылығы 40-

60%, ауа қозғалысының жылдамдығы –0,1 м/сек;



  1. Ауа ылғалдылығына ие болу (иондық 1 куб.м қолайлы саны 1500-3000 оң және 3000-5000 теріс, ең аз керекті п+400, п-600, ең көп керектіп-50 000, п-50 000 ).

  2. Зиянды заттар ауа ортасына бөлініп шығатын – полистирол мен сополимер стиролына бөлініп шығатын – стирол, бензол, толуол, формальдегид, акрилонитрил. Повлинихлоридттық пластикалардан – ацетольдегид, хлорланған сутегі, ароматтталған көміртегі, фтолаттар. Эпоксидтық смолдан – эпилхлоргидрин, фенолфармальдегидтық смолдан – фенол және формальдегид бөлініп шығады.



1.5 Жұмыс орнындағы жарыққа қойылатын талаптар





  1. Табиғи жарық – БТЖ 15%;

  2. Біріктірілген жарық кемінде 500 лк, стол бетіндегі жарық 500 лк, экран бетіндегі жарық 300 лк болуы керек.

  3. Экрандық торларсыз жарық түсіргіштер қолданылмайды;

  4. Терезе шынынларын және жарық түсіргіштерді жылына кем дегенде екі рет тазалап отыру керек. Сондай-ақ жанып кеткен лампаларды ауыстуру керек.



1.6 Шу мен вибрацияларға қойлатын талаптар





  1. Барлық оқу орындарында, оның ішінде жоғарғы оқу орындары, мектептерде және әрбәр компьютерленген мекемелерде шу дәрежесі 50 д БА дан аспауы керек. Инженерлі-техникалық жұмысты, сарамандық және аналитикалық өлшей бақылауды орындағанда шу дәрежесі 60д БА дан аспауы тиіс. Операторлардың ЭЕМ бөлмесіндегі шу дәрежесі 65д Ба дан аспауы керек, есептеуіш машиналардың шу агрегаттары 75д Ба дан аспауы керек.

  2. Бөлмедегі шу дәрежесін азайту үшін арнайы шу толқындарын өзіне тартып алатын материалдар қолданылады. Қосымша шу толқындарын өзіне тартып алатындарға: мықты матадан тігілген, бөлмедегі қабырға түсіне сәйкес келетін перде жатады. Перделердің еңдері терезе еңінен екі есе үлкен болуы керек.

1.7 Иондалған сәулелердің және иондалмаған мәулелердің деңгейіне


қойылатын талап
Электростатикалық өрістің қуаты компьютерді қолданатын оқушыларға, институт, универститет және колледж оқушыларына – пернеден 1 см ара қашықтықта отырғанда берілетін мәні 15 кв.м, монитордан (70 см) бас аралығындағы берілетін мәні – 15 кв.м.


1.8 Компьютермен қамтамассыз етілген мекемелерге қойылатын талаптар





  1. Барлық кабинеттердің терезелерінде сыртқы қалпақшасы тура күн сәулелерінің түсуінен сақтайтын және жарық сәулесін реттеп отыратын жалюзилары мен перделері болуы керек.

  2. Қатар орналасқан компьютердың:

  • Бір видеомонитрдың сыртқы бет жағы екіншісінен кем дегенде 2,0м ара қашықтықта болуы керек Сонымен қатар видеомонитор қалай орналасса да олардың жақтарының ара қашқтығы 1,0м болуы тиіс.

  • Терезе орналасқан қабырға ойығымен столдардың ара қашықтығы 0,25-тен – 0,5м-ге дейін болуы керек.

  1. Жұмыс столдарының құрылымы ДЭЕМ орналасуына қолайлы

болуы тиіс.

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

  2. Видеомонитор экраны көзден 70-80 см ара қашықтықта болып, 50 см жақындықта болмау керек.

  3. Компьютер орналасқан кабинетті күнде-күнде дымқылдап жинау керек.

  4. ДЭЕМ кабинетінде міндетті түрде аптечка мен өрт сөндіргіштер болу керек.

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





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

А тобы – экраннан ақпппартты есептеу

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

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


  1. Үзілістер, экран алдындағы жұмыстың ұзақтығы.

  2. Медицина қолданушыларына ЕДТ және ДЭЕМ қойылатын талаптар.

  3. Комплекстық жаттығуларды өткізу.



Қорытынды
Негізі менің жұмысымның мақсаты студенттер туралы мәліметте қорын ұйымдастыру.

Сонымен, орындалған жұмыс барысында келесі қорытындыға келдім деп айтуыма болады: біріншіден, мен таңдап алған тақырыбымның мәні зор. Себебі, ақпараттық құралдармен жабдықталған компьютерлерді қолданатын адамдар ақпаратты сақтайтын негізгі құралдарды сорттаумен, жинақтаумен көп уақыт өткізеді. Ал осы бағдарламаның көмегімен студенттердің бүкіл мәліметтерін іздеген кезде табылатындай әрекеттерді жасауға болады. Екіншіден, бұл мәліметтер қорымен жұмыс істейтін қаншама бағдарламалау тілдері болса да, көптеген артықшылықтары бар әрі қазіргі кезгі талаптарға жауап беретін 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 с.


ҚОСЫМША А

Пароль орнату коды
unit PasUnit;

interface

uses

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



Dialogs, StdCtrls;

type


TPasForm = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;

var


PasForm: TPasForm;

implementation

uses MainUnit;

{$R *.dfm}

procedure TPasForm.Button1Click(Sender: TObject);

const h='ЭСЕЛЬ';

var str:string;

begin


str:=edit1.Text;

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

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

end;


procedure TPasForm.Button2Click(Sender: TObject);

begin


Close;

MainForm.Close;

end;

end.


ҚОСЫМША Ә

Меню қатарын орнату коды
unit MainUnit;

interface

uses

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



Dialogs, StdCtrls, Menus, ExtCtrls, jpeg;

type


TMainForm = class(TForm)

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

{ Public declarations }

end;

var


MainForm: TMainForm;

implementation

uses BaseUnit, HelpUnit, PasUnit;

{$R *.dfm}

procedure TMainForm.Button2Click(Sender: TObject);

begin


BaseForm.ShowModal;

end;


procedure TMainForm.Button3Click(Sender: TObject);

begin


HelpForm.ShowModal;

end;


procedure TMainForm.BaseMenuClick(Sender: TObject);

begin


BaseForm.ShowModal;

end;


procedure TMainForm.ExitMenuClick(Sender: TObject);

begin


Close;

end;


procedure TMainForm.HisMenuClick(Sender: TObject);

begin


HelpForm.ShowModal;

end;


end.

ҚОСЫМША Б

Мәліметтерді ұйымдастыратын және құратын код.
unit BaseUnit;

interface

uses

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



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

type


TBaseForm = class(TForm)

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

{ Private declarations }

public

{ Public declarations }



end;

var


BaseForm: TBaseForm;

implementation

uses MainUnit;

{$R *.DFM}

procedure TBaseForm.Button1Click(Sender: TObject);

var


ozenka: string[50];

begin


ozenka:=InputBox('МК-нан акпарат танда',

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

if ozenka<> '*'

then


begin

with BaseForm.Query1 do begin

Close;

SQL.Clear;



SQL.Add('SELECTFam,Name,Surname,Birthday,Education, Ozenka,Adress,country');

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

SQL.Add('WHERE');

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

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

Open;


end;

if Query1.RecordCount <> 0 then

DataSource1.DataSet:=Query1

else begin

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

DataSource1.DataSet:=Table1;

end;

end;


end;

procedure TBaseForm.FormActivate(Sender: TObject);

begin

with Session do



begin

ConfigMode:=cmSession;

try

AddStandardAlias('STANDARD2',



ExtractFilePath(ParamStr(0))+'Basa\’

'PARADOX');

Table1.Active:=True;

Finally


ConfigMode:=cmAll;

end;


end;

end;


procedure TBaseForm.Button3Click(Sender: TObject);

begin


close;

end;


procedure TBaseForm.CheckBox1Click(Sender: TObject);

begin


if CheckBox1.Checked=true

then


begin

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

Edit2.SetFocus;

end


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

end;


procedure TBaseForm.Edit2Change(Sender: TObject);

var


strField:string;

begin


if not CheckBox1.Checked then Exit;

case RadioGroup1.ItemIndex of

0: strField:='Fam';

1: strField:='Name';

2: strField:='Country';

end;


Query1.Close;

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;


procedure TBaseForm.FormCreate(Sender: TObject);

begin


Application.Title:='Студенттердiн малиметтер коры';

DataSource1.DataSet:=Query1;

DBGrid1.DataSource:=DataSource1;

end;


procedure TBaseForm.Button4Click(Sender: TObject);

var


i: integer;

begin


Query1.Close;

Query1.SQL.Clear;

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

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

Query1.Open;

try


if ComboBox1.Text='*' then

begin


Query1.FieldByName('fam').DisplayLabel:='фамилия';

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


begin

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;


except

end;


ComboBox1.Items.Clear;

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);



begin

if ComboBox1.Text<>'*'

then

begin


ComboBox2.Enabled:=false;

ComboBox2.Text:=ComboBox1.Text;

end

else ComboBox2.Enabled:=true;



end;

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

begin

if Key=#13 then



begin

Key:=#0;


Button4.Click;

end;


end;

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

begin

if Key=#13 then



begin

Key:=#0;


Button4.Click;

end;


end;

procedure TBaseForm.Button5Click(Sender: TObject);

var

i: integer;



begin

Query1.Close;

Query1.SQL.Clear;

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

Query1.Open;

try


Query1.FieldByName('fam').DisplayLabel:='фамилия';

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.Items.Clear;

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.


ҚОСЫМША В

Авторлар туралы мағұлыматты беру коды.
unit HelpUnit;

interface

uses

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



Dialogs, StdCtrls, jpeg, ExtCtrls;

type


THelpForm = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;

var


HelpForm: THelpForm;

implementation

{$R *.dfm}

procedure THelpForm.Button1Click(Sender: TObject);

begin

close;


end;

end.


Енді негізгі проектімнің формаларын көрсетіп кетейік. Жоғарыда айтқанымдай менің бағдарламам үш формадан тұрады.

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





Е

жүктеу 0,8 Mb.

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




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау