Главная » Файлы » Лабораторные работы » Лабораторные работы |
Лабораторні роботи 1,2,3,4 З дисципліни «Автоматизоване проектування інформаційних систем»
[ Скачать с сервера (235.5 Kb) ] | 01.04.2017, 14:24 |
Національний університет харчових технологій Кафедра інформаційних систем Лабораторні роботи 1,2,3,4 З дисципліни «Автоматизоване проектування інформаційних систем» Програмний код Locate begin if not DataModule2.pers.Locate('Ïð³çâèùå',Edit1.text,[]) then ShowMessage('Äàíèé çàïèñ íå ³ñíóº!'); Edit1.Clear; end; Lookup procedure TForm3.Button2Click(Sender: TObject); var LookupRes: Variant; begin LookupRes:=DataModule2.pers.Lookup('Ïð³çâèùå',Edit1.text,'Ïîñàäà'); if not VarIsNull(Lookupres) then ShowMessage(string(Lookupres)) else ShowMessage('Äàíèé çàïèñ íå ³ñíóº!'); Edit1.Clear; end; Метод Cancel If StrtoInt(Edit2.Text)>=1100 then begin DataModule2.kontr.Edit; DataModule2.kontr.FieldByName('Çàðïëàòà').AsInteger:=strtoint(Edit2.Text); DataModule2.kontr.Post; end Else begin Application.MessageBox('̳í³ìàëüíà çàðïëàòà 1100ãðí.','Ïîìèëêà!', MB_OK); end; Edit1.Clear; Фільтрація procedure TForm6.Button3Click(Sender: TObject); begin DataModule2.tovar.Filtered:=false; DataModule2.tovar.Filter:='Ö³íà_çà_îäèíèöþ>='+Edit2.Text+' and Ö³íà_çà_îäèíèöþ<='+Edit3.Text; DataModule2.tovar.Filtered:=true; end; end. Відміна фільтрації procedure TForm6.Button4Click(Sender: TObject); begin DataModule2.tovar.Filtered:=false; Edit2.Clear; Edit3.Clear; end; | |
Просмотров: 414 | Загрузок: 13 | Рейтинг: 0.0/0 |
Всего комментариев: 0 | |