Xxi ғасыр ақпараттандырылған кезең болғандықтан



жүктеу 1,94 Mb.
бет6/7
Дата07.12.2017
өлшемі1,94 Mb.
#3493
1   2   3   4   5   6   7
13 сурет - Бас форма терезесі
unit Unit8;

interface

uses

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



Dialogs, ExtCtrls, StdCtrls, Buttons, OleCtrls, ShockwaveFlashObjects_TLB;

type


Tbaza = class(TForm)

Image1: TImage;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Image2: TImage;

BitBtn5: TBitBtn;

ShockwaveFlash1: TShockwaveFlash;

Open1: TOpenDialog;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;

var


baza: Tbaza;

implementation

uses Unit2, Unit9, Unit10, Unit1, Unit11;

{$R *.dfm}

procedure Tbaza.BitBtn1Click(Sender: TObject);

begin


Kory.ShowModal;

end;


procedure Tbaza.BitBtn2Click(Sender: TObject);

begin


Ped_engiz.ShowModal;

end;


procedure Tbaza.BitBtn4Click(Sender: TObject);

begin


close;

end;


procedure Tbaza.FormCreate(Sender: TObject);

var w,h:integer;

begin

w:=Screen.WorkAreaWidth;



h:=Screen.WorkAreaHeight;

top:=0;left:=0;width:=w;Height:=h;

Image2.Left:=round(w)-round(Image2.Width/3);

ShockwaveFlash1.Left:=round(w)-round(ShockwaveFlash1.Width*1.382);

ShockwaveFlash1.Height:=(h)+(ShockwaveFlash1.Height*5);

Bitbtn1.Top:=round(h/2)-290; Bitbtn1.Left:=round(w/1)-round(Bitbtn1.Width/1);

Bitbtn2.Top:=round(h/2)-200; Bitbtn2.Left:=round(w)-round(Bitbtn2.Width/1);

Bitbtn3.Top:=round(h/2)-110; Bitbtn3.Left:=round(w)-round(Bitbtn3.Width/1);

Bitbtn5.Top:=round(h/2)-20; Bitbtn5.Left:=round(w)-round(Bitbtn4.Width/1);

Bitbtn4.Top:=round(h/2)+90; Bitbtn4.Left:=round(w)-round(Bitbtn4.Width/1);

ShockwaveFlash1.Height:=650;

ShockwaveFlash1.Top:=-1;


ShockwaveFlash1.Movie:=open1.FileName;

ShockwaveFlash1.Play;

{okutype.Items.LoadFromFile(cdir+'\data\okutype.txt');

okutype_f.Items.LoadFromFile(cdir+'\data\okutype.txt');

jynys.Items.LoadFromFile(cdir+'\data\jynys.txt');

zhynys_f.Items.LoadFromFile(cdir+'\data\jynys.txt'); }

end;
procedure Tbaza.BitBtn3Click(Sender: TObject);

begin


Kacca.ShowModal;

end;
procedure Tbaza.BitBtn5Click(Sender: TObject);

begin

Kuch.ShowModal;



end;

end.


Екінші «Берілгендер қоры» терезесінде балалар жайлы мәліметтерді толығымен көруге болады. Бұл формаға Ttable компонентінің көмегімен кесте шақырылған, TdataSource компонентін кестемен байланыстырған, TDBGrid компоненті кестені экранға көрсетіп тұрады, TbitBtn компоненттері «басына» кестенің басына бару, «алдына» кестенің алдынғы қатарына өту, «келесі» кестенің келесі қатарына түсу, «соңына» кестенің соңғы қатарына бару әрекеттерін орындайды. Бірақ біз бұл бетте берілгендер қорына өзгертулер мен толықтрулар енгізе алмаймыз, бұл іс-әрекеттерді орындау үшін арнайы «Мәліметтерді енгізу» терезесі ашылған.Tlable көмегімен тақырыпша жазылған , Tbevel компоненті сәндік үшін пайдаланылған. Бұл терезенің көмегімен «мәліметтерді іздеу», «Статистикалық диаграмма», «Баспаға шығару» терезелеріне өтуге болады. Бұл терезенің коды 13 – суреттің астында жазылған.

4 кесте – «Берілгендер қоры» терезесінің компоненттері



Компоненттер

Қасиеттері

Сипаттамасы

Table1

Active

DataBaseName

TableName

IndexName



True

C:\qqqq\baza

Bala.db

iKod


DataSource1

Name

DataSet


DS_kory

Table1


DBGrid1

DataSource

DS_kory

Label1

Caption

Transparent



Берілгендер қоры

True


BitBtn1

Caption

басына

BitBtn2

Caption

алдына

BitBtn3

Caption

келесі

BitBtn4

Caption

соңына

BitBtn5

Caption

Мәліметтерді енгізу

BitBtn6

Caption

Мәліметтерді іздеу

BitBtn7

Caption

Статистикалық диаграмма

BitBtn8

Caption

Баспаға шығару

BitBtn9

Caption

Жабу



13 сурет – Берілгендер қоры


procedure TKory.BitBtn6Click(Sender: TObject);

begin


close;

end;


procedure TKory.BitBtn1Click(Sender: TObject);

begin


Engizu.ShowModal;

end;


procedure TKory.BitBtn2Click(Sender: TObject);

begin


Izdey.ShowModal;

end;


procedure TKory.BitBtn5Click(Sender: TObject);

begin


Esep.ShowModal;

end;


procedure TKory.BitBtn4Click(Sender: TObject);

begin


Form4.ShowModal;

end;


procedure TKory.FormCreate(Sender: TObject);

var w,h:integer;

begin

w:=Screen.WorkAreaWidth;



h:=Screen.WorkAreaHeight;

top:=-4;left:=6;width:=745;Height:=686;

DS_Kory.DataSet:=Table1;

Table1.Open;

end;

procedure TKory.BitBtn3Click(Sender: TObject);



begin

Table1.First;

end;

procedure TKory.BitBtn7Click(Sender: TObject);



begin

Table1.Prior;


procedure TKory.BitBtn8Click(Sender: TObject);

begin


Table1.Next;

end;


procedure TKory.BitBtn9Click(Sender: TObject);

begin


Table1.Last;

end;


end.

Үшінші терезе «Мәліметтерді енгізу» Бұл терезеге (14-сурет) бала- бақшаға жаңадан келген балалардың жеке мәліметтерін енгізуге, өзгертуге және кеткен балаларды базадан алып тастауға болады. Мұнда Navigator1 компонентінің арнайы батырмаларының көмегімен берілгендер қорына жаңа мәлімет енгізуге, енгізілген мәліметтерді өзгертуге, бала-бақшадан кеткен балалардың немесе қажеті жоқ мәліметтерді өшіругу, енгізілген жаңа мәліметтерді сақтауға және керек болмаған жағдайда бекер ету процестерін жүргізуге болады. «Енгізілген мәліметті көріңіз» батырмасымен «Берілгендер қоры» терезесіне өтіп берілгендер қорына енгізілген немесе өзгертілген ақпараттарды көруге болады. Бұл іс-әрекеттерді орындау үшін қолданылған компоненттер 5-кестеде көрсетілген. Бағдарлама коды төменде көрсетілген.

5 кесте – Мәліметтерді енгізу терезесінің компоненттері


Компоненттер

Қасиеттері

Сипаттамасы

Table1

Name

Active


DataBaseName

TableName

IndexName


T_ez

True


C:\qqqq\baza

Bala.db


iKod

DataSource1

Name

DataSet


DS_ez

T_ez


DBEdit1

DataSource

DataField



DS_ez

Familia


Label1

Caption

Transparent



Фамилия

True


DBEdit2

DataSource

DataField



DS_ez

Ati


Label2

Caption

Transparent



Есімі

True


DBEdit3

DataSource

DataField



DS_ez

Tuilgan_jil



Label3

Caption

Transparent



Туылған жылы

True


DBEdit4

DataSource

DataField



DS_ez

Jinisi


Label4

Caption

Transparent



Жынысы

True


DBEdit5

DataSource

DataField



DS_ez

Ulti


Label5

Caption

Transparent



Ұлты

True


DBEdit6

DataSource

DataField



DS_ez

Gruppa


Label6

Caption

Transparent



Тобы

True


DBEdit7

DataSource

DataField



DS_ez

Tuu_tyr_kual



Label7

Caption
Transparent

Туу туралы куәліктің нөмірі

True


DBMemo1

DataSource

DataField



DS_ez

Adres


Label8

Caption

Transparent



Мекен жайы

True


DBEdit9

DataSource

DataField



DS_ez

Telefon


Label9

Caption

Transparent



Телефоны

True


DBNavigator1

DataSource

DS_ez

Label10

Caption

Transparent



Мәліметтерді енгізу

True


14 сурет – Берілгендерді енгізу


procedure TEngizu.BitBtn1Click(Sender: TObject);

begin


//Kory.ShowModal;

close;


end;
procedure TEngizu.FormCreate(Sender: TObject);

begin


top:=-4;left:=6;width:=745;Height:=686;

end;


Төртінші терезе «Балалар жайлы мәліметтерді іздеу» Бұл бетте мысалы, кез келген бір баланың тобын, мекен жайын немесе ата - аналары жайлы мәліметтерді іздеп табуға және баланың айлық төлем ақысының төленген немесе төленбегенін білуге болады. Іздеу процесін жүргізу үшін «іздеу қатары» жолында тұрған ақ терезеге, яғни Edit1 компонентінің ішіне керекті баланың фамилиясын енгізсеңіз іздеу қатары автоматты түрде сізге керекті мәліметтерді толығымен шығарып береді. Мұнда көрсетілетін мәліметтер іздеген баланың аты- жөні, тобы, туылған күні, мекен жайы, телефон нөмірі және айлық төлем ақысының төленген немесе төленбегені жайлы мәліметтерді де көруге болады. Мұнда бақшаға жаңадан келген баланың ата–анасы жайлы мәліметтерді Тnavigator компонентінің көмегімен осы бетке енгізіп отырамыз, ал төлемақысы байланыс бойынша автоматты түрде көрініп тұрады. Мұндай іс-әрекеттерді істейтін бағдарлама коды терезе астында жазылған. Бұл бетке қолданылған компоненттер 6-кестеде көрсетілген. Терезе беті 15-суретте көрсетілген.
6 кесте – Мәліметтерді іздеу терезесінің компоненттері

Компоненттер

Қасиеттері

Сипаттамасы

Table1

Name

Active


DataBaseName

TableName

IndexName


T_iz

True


C:\qqqq\baza

Bala.db


iKod

DataSource1

Name

DataSet


DS_iz

T_iz


Table2

Name

Active


DataBaseName

TableName

IndexName

MasterFields

MasterSource


T_ata_ana

True


C:\qqqq\baza

Ata_ana.db

iKod

Kod


DS_iz

DataSource2

Name

DataSet


DS_ata_ana

T_ata_ana



Table3

Name

Active


DataBaseName

TableName

IndexName

MasterFields

MasterSource


T_oplata

True


C:\qqqq\baza

Oplata.db

iKod

Kod


DS_iz

DBEdit1

DataSource

DataField



DS_ez

Familia


DataSource3

Name

DataSet


DS_oplata

T_oplata


Label1

Caption
Transparent

Балалар жайлы мәліметтерді іздеу

True


Label2

Caption

Transparent



Іздеу қатары

True


Edit1

Text

Бос ету

DBEdit1

DataSource

DataField



DS_iz

Familia


Label1

Caption

Transparent



Фамилиясы

True


DBEdit2

DataSource

DataField



DS_iz

Ati


Label2

Caption

Transparent



Есімі

True


DBEdit3

DataSource

DataField



DS_iz

Tuilgan_jil



Label3

Caption

Transparent



Туылған жылы

True


DBEdit4

DataSource

DataField



DS_iz

Gruppa


Label4

Caption

Transparent



Тобы

True


DBEdit5

DataSource

DataField



DS_iz

Tuu_tyr_kual



Label5

Caption
Transparent

Туу туралы куәліктің нөмірі

True


DBMemo1

DataSource

DataField



DS_iz

Adres


Label7

Caption

Transparent



Мекен жайы

True


DBEdit6

DataSource

DataField



DS_iz

Telefon


Label6

Caption

Transparent



Телефоны

True


Label8

Caption

Transparent



Ата-аналар жайлы мәлімет

True


DBGrid1

DataSource

DS_ata_ana

Navigator1

DataSource

DS_ata_ana

Label9

Caption

Transparent



Төлем ақы

True


DBEdit7

DataSource

DataField



DS_oplata

Oplata


BitBtn

Caption

Артқа


15 сурет - Мәліметтерді іздеу терезесі


procedure TIzdey.BitBtn1Click(Sender: TObject);

begin


close;

end;
procedure TIzdey.Edit1Change(Sender: TObject);

begin

T_iz.Open;



T_iz.Locate('Familia',Edit1.Text,[LoCaseInsensitive,LoPartialKey]);

end;
procedure TIzdey.FormCreate(Sender: TObject);

begin

top:=-4;left:=6;width:=745;Height:=686;



end;

end.
Бесінші терезе «Балалардың статистикалық диаграммасы». Бұл терезеде біз қандай топта қанша бала бар екендіген көрсететін статистикалық диаграммамен танысамыз. Сіз өзіңізге керекті топтың балалар санын білгіңіз келсе ,онда керекті топтарды белгілеп немесе барлық топтардағы балалар санын да білуге болады. Ол кезде сіз барлық топтарға белгіше қойасыз да белгішелердің астында орнатылған «диаграмма» түймесін бір рет шертсеңіз сізге 17-суретте көрсетілгендей диаграмма шығады. Сіз бұл беттен қандай топта қанша бала бар екенін оңай ғана біле аласыз. 17- суретте «Ересектер» тобымен «Естиярлар» тобының балалар саны көрсетілген. Егер де сізге осы беттен шығу керек болса онда «Жабу» батырмасын басыңыз. Диаграмманы тұрғызу үшін қажет болған компоненттер 7-кестеде көрсетілген.

7 кесте-Статистикалық диаграмма терезесінің компоненттері


Компоненттер

Қасиеттері

Сипаттамасы

Table1

Name

Active


DataBaseName

TableName



Table1

True


C:\qqqq\baza

Bala.db


DataSource1

Name

DataSet


DS_diog

Table1


GroupBox1

Caption

Топтар бойынша балалар саны

CheckBox1

Caption

Бүлдіршіндер

CheckBox2

Caption

Естиярлар

CheckBox3

Caption

Ересектер

SpeedButton1

Caption

диаграмма

Label1

Caption

Тransparent



Балалардың статистикалық диаграммасы

True


GroupBox2

Caption

Жынысына статистикалық диаграмма

RadioButton1

Caption

Топтар бойынша

CheckBox4

Caption

Бүлдіршіндер

CheckBox5

Caption

Естиярлар

CheckBox3

Caption

Ересектер

RadioButton1

Caption

Ішкі топтар бойынша

Label2

Caption

Transparent



Есімі

True


Edit1

Text

Бос ету

Label3

Caption

Transparent



Тобын енгіз

True


SpeedButton2

Caption

диаграмма

BtiBtn1

Caption

Жабу

Chart1

Align

client

NoteBook1

Pages

Diagram, Stat



16 сурет- Статистикалық диаграмма терезесі


17 сурет-Топтар бойынша балалар санының

статистикалық диаграмма терезесі
procedure TForm4.BitBtn1Click(Sender: TObject);

begin


close;

end;
procedure TForm4.BitBtn2Click(Sender: TObject);

begin

notebook1.ActivePage:='stat'



end;
procedure TForm4.SpeedButton1Click(Sender: TObject);

var k1,k2,k3:integer;

year,m,d : word;

begin


DecodeDate(Date, year,m,d);

//Table1.TableName:=cdir+'\baza\bala.db';

Table1.Open;

k1:=0;k2:=0;k3:=0;

while not Table1.Eof do

if(CheckBox1.Checked)or(CheckBox2.Checked)or(CheckBox3.Checked)then

begin

if(CheckBox1.Checked)and(year-Table1.FieldByName('Kabildanganuakiti').AsInteger=1)then inc(k1);



if(CheckBox2.Checked)and(year-Table1.FieldByName('Kabildanganuakiti').AsInteger=2)then inc(k2);

if(CheckBox3.Checked)and(year-Table1.FieldByName('Kabildanganuakiti').AsInteger=3)then inc(k3);

Table1.Next;

end else break;

Table1.Close;

Series2.Clear;

Series1.Active:=False;

Series2.Active:=true;

Chart1.Title.Text.Text:='топтар бойынша балалар санының статистикалық диаграммасы';

if(CheckBox1.Checked)then Chart1.Series[1].Add(k1,'Бүлдiршiндер');

if(CheckBox2.Checked)then Chart1.Series[1].Add(k2,'Естиярлар');

if(CheckBox3.Checked)then Chart1.Series[1].Add(k3,'Ересектер');

Notebook1.ActivePage:='diogram';

end;


Егер де бізге топтар арасынан ер мен қыздардың статистикалық диаграммасы немесе саны керек болса, онда «Топтар бойынша» түймесін белгілеп топтардың бірін немесе барлығына белгіше қойып таңдаймыз

(18-сурет). Ал «ішкі топтар бойынша» түймесін белгілесек онда «тобын енгіз» деген қатарға өзімізге керекті топты толық атымен жазып шығамыз. Диаграмманың нәтижесін алу үшін «Диаграмма» түймесін басамыз. Нәтижесі 19-суретте көрсетілген.


18 сурет – Статистикалық диаграмма терезесі



18-суретте статистикалық диаграмманың жынысына арналған бөлімін таңдау жолдары көрсетілген. Коды 19-суреттің астында жазылған.

19 сурет- Топтар бойынша ер мен қыздардың

статистикалық диаграммасы
Procedure TForm4.SpeedButton2Click(Sender: TObject);

var day : word;

month : word;

year : word;

k,b:integer;

begin


k:=0;b:=0;

DecodeDate(Date, year, month, day);

Table1.Open;

while not Table1.Eof do

begin

if(RadioButton1.Checked)then



begin

if(CheckBox4.Checked)and(year-Table1.FieldByName('Kabildanganuakiti').AsInteger=1)then

begin

if(Table1.FieldByName('jinisi').AsString='ер')then inc(b);



if(Table1.FieldByName('jinisi').AsString='қыз')then inc(k);

end;


if(CheckBox5.Checked)and(year-Table1.FieldByName('Kabildanganuakiti').AsInteger=2)then

begin


if(Table1.FieldByName('jinisi').AsString='ер')then inc(b);

if(Table1.FieldByName('jinisi').AsString='қыз')then inc(k);

end;

if(CheckBox6.Checked)and(year-Table1.FieldByName('Kabildanganuakiti').AsInteger=3)then



begin

if(Table1.FieldByName('jinisi').AsString='ер')then inc(b);

if(Table1.FieldByName('jinisi').AsString='қыз')then inc(k);

end;


Chart1.Title.Text.Text:='Топтар бойынша ер мен қыздардың статистикалық диаграммасы';

end; //if-then

if RadioButton2.Checked then

begin


if (Table1.FieldByName('Gruppa').AsString=Edit1.Text)then

begin


if(Table1.FieldByName('jinisi').AsString='ер')then inc(b);

if(Table1.FieldByName('jinisi').AsString='кыз')then inc(k);

end;

Chart1.Title.Text.Text:=Edit1.Text+' Тобы бойынша ер мен қыздардың статистикалық диаграммасы';



end;

Table1.Next;

end;//while

Table1.Close;

Series1.Clear;

Series1.Active:=true;

Series2.Active:=False;

Chart1.Series[0].Add(b,'ер');

Chart1.Series[0].Add(k,'қыз');

Notebook1.ActivePage:='diogram'

end;

procedure TForm4.FormCreate(Sender: TObject);



begin

top:=-4;left:=6;width:=745;Height:=686;

end;

end.
Алтыншы терезе «Педагогикалық кадрлар» . бұл терезенің көмегімен мекемеде жұмыс істейтін педагогикалық мамандардың аты жөнін, мамандығын, білімін, пед стажы жайлы толық мәліметтер енгізілген. Бұл мәліметтерді осы терезенің өзіне Navigator1 компонентінің көмегімен толықтырып отырады. «Іздеу» белгішесін белгілесек іздеу қатары қосылады, іздеу жолынан «Фамилия», «Мамандығы», «Тобы» қатарларынан өзіңізге керекті таңдап алып белгілеп өзіңізге керекті мәліметті енгізсеңіз, онда сіздің өзіңізге керекті мәліметтер автоматты түрде экранға шығады. Мәліметтеріңізді алған соң «қалпына келтіру» батырмасын басып берілгендер қорын қалпына келтіріп алуыңызға болады. Сорттау қатарынан кез келген өрісті таңдап «орындау» батырмасын бассаңыз таңдаған өрісіңіз бойынша берілгендер қорын сорттай аласыз. Қайтадан «Қалпына келтіру» батырмасын басыңыз. «Қызметкерлердің жеке мәліметтері»батырмасын басып қызметкерлердің жеке мәліметтері туралы ақпараттарға өте аласыз. «Педагогикалық кадрлар» терезесіне керекті компоненттер 8-кестеде көрсетілген. Терезе беті 20- суретте көрсетілген.



    1. кесте- Педагогикалық кадрлар терезесінің компоненттері

Компоненттер

Қасиеттері

Сипаттамасы

Table1

Name

Active


DataBaseName

TableName



Table1

True


C:\qqqq\baza

Pedagog.db



DataSource1

Name

DataSet


DS_ped

Table1


DBGrid1

DataSource

DS_ped

Navigator1

DataSource

DS_ped

CheckBox2

Caption

Естиярлар

CheckBox3

Caption

Ересектер

SpeedButton1

Caption

диаграмма

Label1

Caption

Тransparent



Педагогикалық кадрлар

True


GroupBox1

Caption

іздеу

RadioButton1

Caption

Фамилиясы

RadioButton2

Caption

Мамандығы

RadioButton3

Caption

Тобы

CheckBox1

Caption

Іздеу қатары

Combobox1

Text

Items


*

ішін толтыру



CheckBox3

Caption

Ересектер

BіtBtn1

Caption

Орындау

BіtBtn2

Caption

Қалпына келтіру


20 сурет –Педагогикалық кадрлар


procedure TPed_engiz.BitBtn1Click(Sender: TObject);

var


i: integer;

begin


Query1.Close;

Query1.SQL.Clear;

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

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

Query1.Open;

// rus names

try

if ComboBox1.Text='*' then



begin

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

Query1.FieldByName('Maman').DisplayLabel:='Мамандык';

Query1.FieldByName('Bilimi').DisplayLabel:='Бiлiмi';

Query1.FieldByName('Attes_otken_jil').DisplayLabel:='Аттестациядан откен жыл';

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;

CheckBox2.Enabled:=true;

end;

procedure TPed_engiz.BitBtn2Click(Sender: TObject);



var

i: integer;

begin

Query1.Close;



Query1.SQL.Clear;

Query1.SQL.Add('Select * from Tarbie.db Order by FIO');

Query1.Open;

// rus names

try

Query1.FieldByName('FIO').DisplayLabel:='Фамилия имя детей';



Query1.FieldByName('Maman').DisplayLabel:='Пол';

Query1.FieldByName('Bilimi').DisplayLabel:='Нация';

Query1.FieldByName('Ped_staj').DisplayLabel:='Год рождения';

Query1.FieldByName('Kategoria').DisplayLabel:='';

Query1.FieldByName('Attes_otken_jil').DisplayLabel:='Группа';

Query1.FieldByName('Gruppa').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:='*';

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

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

Edit1.Text:='';

// Edit2.Text:='';

end;

procedure TPed_engiz.CheckBox2Click(Sender: TObject);



begin

if CheckBox2.Checked=true

then

begin


CheckBox2.Caption:='Iздеу катары косылды';

Edit1.SetFocus;

end

else CheckBox2.Caption:='Iздеу катары ошiрулi';



end;

procedure TPed_engiz.Edit1Change(Sender: TObject);

var

strField:string;



begin

if not CheckBox2.Checked then Exit;

// выбрать поле поиска

case RadioGroup1.ItemIndex of

0: strField:='FIO';

1: strField:='Maman';

2: strField:='Gruppa';

end;


// выполнить поиск

Query1.Close; // |

Query1.SQL.Clear; // ' LIKE "%'+Edit3.Text+'%"' - ищет фрагмент текста

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

Query1.Open;

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

Query1.FieldByName('Maman').DisplayLabel:='Мамандыгы';

Query1.FieldByName('Bilimi').DisplayLabel:='Бiлiмi';

Query1.FieldByName('Ped_staj').DisplayLabel:='Пед стаж';

Query1.FieldByName('Kategoria').DisplayLabel:='Категория';

Query1.FieldByName('Attes_otken_jil').DisplayLabel:='Аттестациядан откен жыл';

Query1.FieldByName('Gruppa').DisplayLabel:='Тобы';

end;

procedure TPed_engiz.FormCreate(Sender: TObject);



begin

top:=-4;left:=6;width:=745;Height:=686;

end;

procedure TPed_engiz.BitBtn3Click(Sender: TObject);



begin

close;


end;

procedure TPed_engiz.BitBtn4Click(Sender: TObject);

begin

Pedagog.ShowModal;



end.

Жетінші терезе «Қызметкерлердің жеке мәліметтері» бұл терезеде педагогикалық кадрлардың жеке мәліметтерін көруге болады. «Іздеу қатары» терезесіне өзіңізге керекті қызметкердің фамилиясын енгізсеңіз өзіңізге керекті мәліметті аласыз. «Есеп» батырмасын бассаңыз мәліметтерді баспаға шығарып аласыз. «Қызметкерлердің жеке мәліметтері» терезесінде пайдаланылған мәліметтер 9-кестеде көрсетілген. Терезесі 21- суретте бар. Коды төменде көрсетілген.



    1. кесте- Қызметкерлердің жеке мәліметтері терезесінің компоненттері

Компоненттер

Қасиеттері

Си

Table1

Name

Active


DataBaseName

TableName



T_ez

True


C:\qqqq\baza

Ped_engiz.db



DataSource1

Name

DataSet


DS_ped_ez

T_ez


DBGrid1

DataSource

DS_ped_ez

Navigator1

DataSource

DS_ped_ez

Label1

Caption

Тransparent



Іздеу қатары

True


Edit1

Text

Бос ету

BіtBtn1

Caption

Есеп

BіtBtn2

Caption

Жабу

procedure TPedagog.BitBtn3Click(Sender: TObject);

begin


close;

end;
procedure TPedagog.Edit1Change(Sender: TObject);

begin

Table1.Locate('FIO',Edit1.Text,[loCaseInsensitive, loPartialKey]);



end;
procedure TPedagog.BitBtn4Click(Sender: TObject);

begin


//Ped_engiz.ShowModal;

end;
procedure TPedagog.FormCreate(Sender: TObject);



begin

top:=-4;left:=6;width:=745;Height:=686;



end;
end.

21 сурет - Қызметкерлердің жеке мәліметтері терезсі


Жетінші терезе «Тамақтану режімі» бұл терезеде балаларды тамақтандырудың апталық мәзірі көрсетілген. Аптаның күндері жазылған батырмаларды бассаңыз балалардың күнделікті тамақтану мәзірімен танысасыз.(22-сурет). Бұл көбіне аспазшылырға керек болатын терезе. Терезеге қолданылған компоненттер 10-кестеде көрсетілген. Ал терезе беті 22-суретте, Коды төменде көрсетілген.

10 кесте- Тамақтану мәзірі терзесінің компоненттері



Компоненттер

Қасиеттері

Сипаттамасы

Memo1

Items

Дүйсенбі күні берілетін тамақ мәзірі

Memo2

Items

Сейсенбі күні берілетін тамақ мәзірі

Memo3

Items

Сәрсенбі күні берілетін тамақ мәзірі

Memo4

Items

Бейсенбі күні берілетін тамақ мәзірі

Memo5

Items

Жұма күні берілетін тамақ мәзірі

Label1

Caption

Тransparent



Тамақтану режімі

True


BіtBtn1

Caption

Дүйсенбі

BіtBtn2

Caption

Сейсенбі

BіtBtn3

Caption

Сәрсенбі

BіtBtn4

Caption

Бейсенбі

BіtBtn5

Caption

Жұма


22 сурет-Тамақтану режімі


procedure Tkuch.FormCreate(Sender: TObject);

begin


top:=-4;left:=6;width:=745;Height:=686;

//Bitbtn3.Visible:=false;

Memo1.visible:=false;

Memo2.visible:=false;

Memo3.visible:=false;

end;
procedure Tkuch.BitBtn1Click(Sender: TObject);

begin

Memo1.visible:=true;



Memo2.visible:=false;

Memo3.visible:=false;

Memo4.visible:=false;

Memo5.visible:=false;

//Bitbtn3.visible:=true;

end;
procedure Tkuch.BitBtn2Click(Sender: TObject);

begin

close;


end;
procedure Tkuch.BitBtn3Click(Sender: TObject);

begin


Memo3.Visible:=true;

Memo2.Visible:=false;

Memo1.Visible:=false;

Memo4.visible:=false;

Memo5.visible:=false;

end;
procedure Tkuch.Memo1Change(Sender: TObject);

begin

//Bitbtn3.Visible:=false;



end;
procedure Tkuch.BitBtn4Click(Sender: TObject);

begin


Memo2.Visible:=true;

Memo1.visible:=false;

Memo3.visible:=false;

Memo4.visible:=false;

Memo5.visible:=false;

end;
procedure Tkuch.BitBtn5Click(Sender: TObject);

begin

Memo1.visible:=false;



Memo2.visible:=false;

Memo3.visible:=false;

Memo4.visible:=true;

Memo5.visible:=false;

end;
procedure Tkuch.BitBtn6Click(Sender: TObject);

begin


Memo1.visible:=false;

Memo2.visible:=false;

Memo3.visible:=false;

Memo4.visible:=false;

Memo5.visible:=true;

end;


end.
4 ТЕХНИКА-ЭКОНОМИКАЛЫҚ НЕГІЗДЕМЕ

«Бағдарламалық қамтаманың экономикалық мәні келесі түрде айтуға болады: есептеу техникасы мен желілерінің бағдарламалық және аппараттық қамтамасыздануы өндірістің техникалық деңгейін жоғарылатса, жұмыс өнімділігін күшейтіп, өндірістікпен салыстырғанда эксплуатациялық шығындарды төмендету мәселерін шешетін, бағдарламасы жоқ қамтамамен салыстырғанда.

Бағдарламалық қамтаманы іске асыру үшін біркелкі қосымша капиатлдық шығындар қажет етіледі, сонымен қатар, бағдарламаны қолдану үшін қосымша ағымдық эксплуатациялық шығындар крек етіледі.

Капитальдық шығындарға алынатын заттар құнын, техникалық автоматтандыру құралдарын монтаждау мен транспортировка, қосымша бағдарламалық қамтаманы орнатуға арналған қажетті өндірістік орындарды тұрғызу құны, сонымен қатар, желіні орнатуға және телекоммуникацияға кеткен материалдар құны, және т.б.

Бағдарламалық қамтама құралдарын эксплуатациялау мен оны тұрақты жұмыс режимінде ұстауға байланысты қосымша ағымдық шығындар. Бұған: бағдарламалық қамтаманы іске асыратын жұмысшыға төленетін жалақы, құрылғыларды жөндеу мен эксплуатациялау кететін шығындар түрлері.

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

Бағдарламаның тиімділігі натуралдығы және тұру бағасымен көрінеді:

А) Бағдарламалық қамтамасыздандырудың капиталды шығыны;

Б) Жыл бойындағы эксплуатациялық шығынды экономдау;

В) Бағдарламалық қамтамасыздандырудың капиталды шығынының өтелу мерзімі.

4.1 Жүйеге қосылған барлық құрылымдардың шығынын есептеу

1. Жүйені құруға және енгіздіруге кеткен шығын келесі формуламен есептелінеді:



жүктеу 1,94 Mb.

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




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

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