Page 109 - Теория кавитации

«Электронды пошта арқылы жіберу» батырмасы
ToolButton арқылы жасалған батырма деректерді электронды пошта арқылы жібереді. Ол
үшін мына процедура құрылған:
procedure TFrmMain.RepToMailExecute(Sender: TObject);
begin
DataSetToMail(caption,grid,Qry,true);
end;

«Текстік файлға шығару» батырмасы
Бұл батырма деректерді текстік форматтағы файлға шығарады. Ол үшін мына процедура
қолданылады.
procedure TFrmMain.ActExportExecute(Sender: TObject);
begin
DataSetToCSV(caption,grid,Qry,true); end;

Іздеу жолы
Бұл жолда регистрді есепке алмай және толық емес сөз бойынша іздеу ұйымдастырылады.
Ол Edit жолына керекті сөзді жазу арқылы жүзеге асады.
procedure TFrmMain.EditChange(Sender: TObject);
var fld:string;
begin
case OrderBy[1] of
'1' : fld :='plases';
'2' :fld :='physics';
'3' :fld :='kl_ed_izm';
'4' :fld :='kl_deadline';
end;
qry.Locate(fld,edit.Text,[loCaseInsensitive, loPartialKey]);
end;

«Түзетулер енгізу» және «Өшіру» батырмалары
Бұл батырмалар арналарды түзету және өшіру үшін ұйымдастырылды. Ол батырмалар
егер деректер базасы бос болмаған жағдайда ғана жұмыс істейді. Оны actedit.Enabled:=not
qry.IsEmpty меншіктеуі тексереді.
procedure TFrmMain.DataSource1DataChange(Sender: TObject; Field: TField);
begin
actedit.Enabled:=not qry.IsEmpty;
actdel.Enabled:=not qry.IsEmpty;
if assigned(FrmParImit) then
FrmParImit.UpdateData;
end;

3.6 Қолданушы нұсқауы

3.6.1 Бағдарламаны іске қосу

Бұл бағдарлама кванттық жылу электр стансасының өлшегіш каналдарының
көрсеткіштерін сақтауға және бақылап отрыуға арналған. Бағдарламаны шақыру үшін
амалдағыш жүйеге стандарты әдіспен «asu.exe» файлын іске қосу керек. Сол кезде төмендегі
форма шығады. Ол жерде “GO” батырмасын басу керек.

108