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- суретте көрсетілген.
кесте- Педагогикалық кадрлар терезесінің компоненттері
Компоненттер
|
Қасиеттері
|
Сипаттамасы
|
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- суретте бар. Коды төменде көрсетілген.
кесте- Қызметкерлердің жеке мәліметтері терезесінің компоненттері
Компоненттер
|
Қасиеттері
|
Си
|
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. Жүйені құруға және енгіздіруге кеткен шығын келесі формуламен есептелінеді:
Достарыңызбен бөлісу: |