Создание формы базы данных и формы хранящую информацию о текущих заявках находящихся в исполнении

Для создания данной формы и её функционирования необходимо создать базу данных в СУБД Microsoft Access в формате.mdb. Содержащую информацию о: номере заявки, ФИО сотрудника обратившегося за помощью, тип проблемы, подробности, описание, приоритет, время поступления заявки и время в которое приступили к выполнению заявки.

На форме необходимо следующие компоненты:

1. DataSource;

2. ADOTable;

3. ADOConnection;

4. Button – кнопка будет выполнять процедуру при закрытии заявки и переноса её в базу данных содержащую выполненную работу.

5. DBGrid;

6. Edit:

7. Label.

Основная функция данной формы заключается в хранении информации о текущих заявках находящихся в обслуживании. По завершению обращения необходимо осуществить процесс закрытия работ. Осуществляется это путём выделения нужной нам записи и нажатия кнопки «Закрыть заявку». После этого запись содержащая информацию будет перенесена на форму хранящую выполненные заявки.

Код кнопки «Закрыть заявку»:

procedure TFormRabota.Button1Click(Sender: TObject);

var

f: string;

buttonSelected: Integer;

begin

WorkDate: =Now;

f: =FormRabota.DataSource1.DataSet.Fields.Fields[0].Value;

buttonSelected: =MessageDlg('Вы уверены, что хотите закрыть заявку номер '+f, mtConfirmation, [mbOk, mbCancel], 0);

if buttonSelected = mrOK then

begin

FormSdelano.ADOTable1.Insert;

FormSdelano.DataSource1.DataSet.FieldByName('Номер заявки').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[0].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Фамилия').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[1].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Имя').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[2].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Отчество').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[3].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Кабинет').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[4].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Номер телефона').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[5].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Тип проблемы').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[7].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Подробности').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[8].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Описание').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[9].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Время поступления').AsDateTime: =FormRabota.DataSource1.DataSet.Fields.Fields[11].AsDateTime;

FormSdelano.DataSource1.DataSet.FieldByName('Время начала выполнения').AsDateTime: =FormRabota.DataSource1.DataSet.Fields.Fields[12].AsDateTime;

FormSdelano.DataSource1.DataSet.FieldByName('Специалист').AsString: =FormRabota.DataSource1.DataSet.Fields.Fields[6].Value;

FormSdelano.DataSource1.DataSet.FieldByName('Время окончания работ').AsString: =DateToStr(WorkDate)+TimeToStr(WorkDate);

FormSdelano.ADOTable1.Post;

FormRabota.ADOTable1.Delete;

end;

end;.

В результате удалось создать данную форму (рисунок 9):

Рисунок 9. Форма заявок в исполнении