![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Создание формы базы данных и формы хранящую информацию о текущих заявках находящихся в исполнении
Для создания данной формы и её функционирования необходимо создать базу данных в СУБД 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. Форма заявок в исполнении
|