Студопедия

КАТЕГОРИИ:

АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника


Задача 25.




Отобразить в новой форме Фамилию, Имя, Отчество студентов, обучающихся в заданной группе и заданном курсе. Группа и курс выбираются в форме 1 щелчком мыши по DBGrid.

Вставка новой записи:

SQL запрос:

Insert into fio values (199,1,1,’Табуреткин’, ‘Иван’, ‘Иванович’)

Задача 26

Добавить нового студента в таблицу fio

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ADODataSet1.Active:=false;

ADODataSet1.CommandText:='select surname, name from fio';

ADODataSet1.Active:=true;

 

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.ShowModal

end;

 

procedure TForm2.Button1Click(Sender: TObject);

begin

ADOQuery1.SQL.Text:='insert into fio values ('+

IntToStr(nomer+1)+',1,1,'+''''+Edit1.Text+''''+','+

''''+Edit2.Text+''''+','+

''''+Edit3.Text+''''+')';

ADOQuery1.ExecSQL;

Form2.Close;

// Showmessage((ADOQuery1.SQL.Text));

 

end;

 

procedure TForm2.FormActivate(Sender: TObject);

begin

ADODataSet1.Active:=false;

ADODataSet1.CommandText:='select max(st_id) from fio';

ADODataSet1.Active:=true;

nomer:=ADODataSet1.FieldValues['Expr1000'];

end;

Задача 27

Добавить новый предмет в таблицу subjects


Поделиться:

Дата добавления: 2015-08-05; просмотров: 66; Мы поможем в написании вашей работы!; Нарушение авторских прав





lektsii.com - Лекции.Ком - 2014-2024 год. (0.007 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав
Главная страница Случайная страница Контакты