![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Создание клиентской формы
На данном этапе разработки будет осуществляться разработка формы, которая позволяет клиентам банка составлять и отправлять заявки на выполнение работ. Для этого необходимо создать новую форму: File-New-Form. Разместить необходимые нам компоненты: 1. ClientSocket – не визуальный компонент, отвечает за подключение клиента к серверу, отправку и приём сообщений и настройку коммуникаций. 2. Memo – визуальный компонент, позволяет отображать в удобном формате большие объёмы текстовых данных, по сравнению с Edit, так же служит для ввода информации. 3. Edit – отображают имя пользователя чей логин и пароль были введены при авторизации, описание элементов формы. 4. ComboBox – визуальный компонент, представляет собой выпадающий список с вариантами выбора. 5. Button – кнопка отправки сообщения. Предназначение данной формы заключается в удобном и понятном оформлении заявки пользователем на выполнение работ специалистом технической поддержки. Для того, что бы составить заявки необходимо: 1. Выбрать из выпадающего списка «Тип проблемы» один из пунктов обозначающий тип проблемы: программная, аппаратная, отсутствие интернет подключения, затрудняюсь выбрать. 2. В зависимости от выбранного типа проблемы изменится содержание выпадающего списка «Подробности». Для «Программная» это будет: операционная система, пакет office, сопровождающее ПО, затрудняюсь выбрать. Для «Аппаратная» это будет: компьютер и комплектующие, принтер, затрудняюсь выбрать. Для «Отсутствует интернет подключение» список подробности отсутствует, так как возможные проблемы заранее установлены и известны. 3. В окне «Описание проблемы» необходимо указать дополнительное сведения, которые могли бы помочь для осознания проблемы техническому специалисту. 4. Кнопка «Отправить заявку», при её нажатии осуществляется оправка сообщения специалисту технической поддержки, состоящая из: данных отправителя, пита проблемы, подробностей и описания проблемы. 5. После нажатия кнопки в окне «Системные сообщения» появится сообщение об отправки заявки и в случаи его успешной передачи подтверждение приёма и его времени. Так же разработан процесс предотвращающий отправление пустых или не полных сообщений, сообщаю пользователю о недостающей информации. Главным компонентом осуществляющим передачу данных в сети является ClientSocket, а точнее технология Socket, включающая в себя связь между ClientSocket и ServerSocket. На стороне ClientSocket необходимо указать IP адресс и порт сервера. Код осуществляющий передачу данных через сеть: procedure TFormKlient.Button1Click(Sender: TObject); begin WorkDate: = Now; If ComboBoxProblem.Text=('Выберите тип проблемы') then begin Label1.Font.Color: =clRed; Label1.Caption: =('Вы не выбрали тип проблемы'); end else If (ComboBoxProblem.Text=('Затрудняюсь выбрать')) and (memo2.Text='') then begin label1.Caption: =('Тип проблемы'); Label1.Font.Color: =clBlack; Label5.Font.Color: =clRed; Label5.Caption: =('Приложите описание проблемы'); end else If (ComboBoxProblem2.Visible=True) and ((ComboBoxProblem2.Text='Выберите вид устройства') or (ComboBoxProblem2.Text='Выберите вид программного обеспечения')) then begin Label2.Font.Color: =clRed; end else begin if ComboBoxProblem2.Text='' then ComboBoxProblem2.Text: ='Нет'; if memo2.Text='' then memo2.Text: ='Нет'; label5.Caption: =('Описание проблемы'); label1.Caption: =('Тип проблемы'); Label1.Font.Color: =clBlack; Label5.Font.Color: =clBlack; Label2.Font.Color: =clBlack; Packet: =ComboBoxProblem.Text+#13+ComboBoxProblem2.Text+#13+Memo2.text+#13+inttostr(Index); ClientSocket1.Socket.SendText(ansistring(Packet)); memo1.Lines.Add('Ваша заявка была отправлена, сортрудник техничекой поддержки свяжется с вами в ближайшее время'+TimeToStr(WorkDate)); end; end;. В результате удалось разработать данную форму(рисунок 6): Рисунок 6. Клиентская форма
|