Приветствую Вас, Гость! Регистрация RSS
Суббота, 13.08.2022


Главная » Файлы » Лабораторные работы » Лабораторные работы

Лабораторні роботи 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;
Категория: Лабораторные работы | Добавил: opteuropa | Теги: скачати лабораторну на інформаційну, проектування ІС, скачати лабораторну роботу з АПІС
Просмотров: 273 | Загрузок: 13 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Украина онлайн

Рейтинг@Mail.ru

подать объявление бесплатно