Студопедия

Главная страница Случайная страница

Разделы сайта

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






  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;
    Начать пользоваться сервисом
  • Создание формы базы данных и формы хранящую информацию о текущих заявках находящихся в исполнении






    Для создания данной формы и её функционирования необходимо создать базу данных в СУБД 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. Форма заявок в исполнении






    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.