Добавление записей

Добавление нового студента и определение его в определенную комнату

При нажатии на кнопку добавит студента открывается следующая форма:

На данной форме происходит добавление студента, а так же на ней имеется возможность просмотра не полностью занятых комнат, а так же абсолютно свободных комнат.

Код кнопки определения студента в непустую комнату:

datamodule3.ADOQuery4.Parameters.Clear;

d1:=strtoint(form6.dbtext1.caption);

d2:=strtoint(form6.dbtext2.caption);

DataModule3.ADOquery4.Parameters.AddParameter.Name:='D1';

DataModule3.ADOquery4.Parameters.AddParameter.Name:='D2';

DataModule3.ADOquery4.Parameters.ParamByName('D1').Value:=d1;

DataModule3.ADOquery4.Parameters.ParamByName('D2').Value:=d2;

datamodule3.adoquery4.execsql;

datamodule3.ADOQuery4.Parameters.Clear;

datamodule3.ADOTable1.close;

datamodule3.ADOTable2.close;

datamodule3.ADOTable3.close;

datamodule3.ADOQuery1.close;

datamodule3.ADOQuery2.close;

datamodule3.ADOQuery6.close;

datamodule3.ADOQuery5.close;

datamodule3.ADOTable1.Open;

datamodule3.ADOTable2.Open;

datamodule3.ADOTable3.Open;

datamodule3.ADOQuery1.Open;

datamodule3.ADOQuery2.Open;

datamodule3.ADOQuery6.Open;

datamodule3.ADOQuery5.Open;

После добавления и определения комнаты студенту происходит автаматическое обновление всех таблиц программы. Добавление студента в ранее ни кем не занимаемую комнату происходит аналогичным образом. Сразу после добавления студента в пустую комнату, благодаря обновлению таблиц, данная комната попадает в список не заполненных комнат.

Так же в программе предусмотрено добавление платежей. Что бы добавит новый платеж следует на главной вкладке кликнуть по кнопке «Добавить платеж», затем откроется следующая форма:

Код кнопки добавления:

datamodule3.adoquery3.sql[1]:='VALUES ('+''''+DBText2.Caption+''','+''''+edit2.text+''','+''''+ComboBox1.text+''','+''''+edit1.text+''')';

datamodule3.adoquery3.execsql;

datamodule3.ADOTable3.Close;

datamodule3.ADOTable3.Open;

form4.Close;

2.

2.1

Поиск по сайту: