47149 (608132), страница 8

Файл №608132 47149 (Информационная система менеджера по работе с клиентами таксопарка "Семерочка") 8 страница47149 (608132) страница 82016-07-302016-07-30СтудИзба

Информационная система менеджера по работе с клиентами таксопарка "Семерочка"

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Регистрация/авторизация

Текст из файла (страница 8)

SpeedButton20: TSpeedButton;

SpeedButton21: TSpeedButton;

DBEdit35: TDBEdit;

ComboBox3: TComboBox;

DBEdit34: TDBEdit;

SpeedButton19: TSpeedButton;

SpeedButton22: TSpeedButton;

Label4: TLabel;

Label5: TLabel;

Label50: TLabel;

Label7: TLabel;

SpeedButton1: TSpeedButton;

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure SpeedButton19Click(Sender: TObject);

procedure SpeedButton22Click(Sender: TObject);

procedure SpeedButton20Click(Sender: TObject);

procedure SpeedButton21Click(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Status_f: TStatus_f;

implementation

uses DM, Glavnaya;

{$R *.dfm}

procedure TStatus_f.SpeedButton10Click(Sender: TObject);

begin

ComboBox2.Enabled:=True; //активация поля ввода информации

DM_f.ADOTable3.Edit;// Изменение записи в таблице

Label31.Font.Color:=ClGray; //Изменение цвета надписи

if DBEdit33.Text='True' then

Label31.Caption:='Свободен' //Установка значения

else

Label31.Caption:='Занят';//Установка значения

SpeedButton16.Enabled:=True; //Активация кнопки

SpeedButton10.Enabled:=False;//Деактивация кнопки

SpeedButton17.Enabled:=False; //Деактивация кнопки

SpeedButton18.Enabled:=False; //Деактивация кнопки

end;

procedure TStatus_f.SpeedButton16Click(Sender: TObject);

begin

if DBEdit33.Text='True' then

Label31.Caption:='Свободен' //Установка значения

else

Label31.Caption:='Занят';//Установка значения

DM_f.ADOTable3.FieldByName('Статус').AsString:=DBEdit33.Text; //Добавление строки в таблицу

DM_f.ADOTable3.Post; //Сохранение записи в таблицу

Label31.Font.Color:=ClRed;//Изменение цвета надписи

SpeedButton16.Enabled:=False; //Деактивация кнопки

SpeedButton10.Enabled:=True; //Активация кнопки

SpeedButton17.Enabled:=True; //Активация кнопки

SpeedButton18.Enabled:=True; //Активация кнопки

ComboBox2.Text:=''; //Очистка поля ввода информации

ComboBox2.Enabled:=False; //Деактивация поля ввода информации

ShowMessage('Статус машины успешно изменен'); //Вывод сообщения

end;

procedure TStatus_f.SpeedButton17Click(Sender: TObject);

begin

DM_f.ADOTable3.Next;

if DBEdit33.Text='True' then

Label31.Caption:='Свободен' //Установка значения

else

begin

Label31.Caption:='Занят';//Установка значения

ComboBox2.Text:=''; //Очистка поля ввода информации

end;

procedure TStatus_f.SpeedButton18Click(Sender: TObject);

begin

DM_f.ADOTable3.Prior;

if DBEdit33.Text='True' then

Label31.Caption:='Свободен'//Установка значения

else

begin

Label31.Caption:='Занят';//Установка значения

ComboBox2.Text:=''; // Очистка поля ввода информации

end;

procedure TStatus_f.ComboBox2Change(Sender: TObject);

begin

if ComboBox2.Text='Свободен' then

DBEdit33.Text:='True' //Установка значения

else

DBEdit33.Text:='False' //Установка значения

end;

procedure TStatus_f.FormShow(Sender: TObject);

begin

DM_f.ADOTable3.Filtered:=False; //Деактивация фильтра

DM_f.ADOTable2.Filtered:=False; //Деактивация фильтра

if DBEdit33.Text='true' then

Label31.Caption:='Свободен' //Установка значения

else

Label31.Caption:='Занят';//Установка значения

if DBEdit35.Text='true' then

Label50.Caption:='Свободен'

else

Label50.Caption:='Занят';

end;

procedure TStatus_f.SpeedButton19Click(Sender: TObject);

begin

ComboBox3.Enabled:=True; //Активация поля ввода информациии

DM_f.ADOTable2.Edit; //Изменение записи в таблице

Label50.Font.Color:=ClGray; //Изменение цвета надписи

if DBEdit35.Text='True' then

Label50.Caption:='Свободен' //Установка значения

else

Label50.Caption:='Занят'; //Установка значения

SpeedButton22.Enabled:=True; //Активация кнопки

SpeedButton19.Enabled:=False; //Деактивация кнопки

SpeedButton20.Enabled:=False; //Деактивация кнопки

SpeedButton21.Enabled:=False; //Деактивация кнопки

ComboBox2.Text:=''; //Очистка поля ввода информации

end;

procedure TStatus_f.SpeedButton22Click(Sender: TObject);

begin

if DBEdit35.Text='True' then

Label50.Caption:='Свободен'//Установка значения

else

Label50.Caption:='Занят';//Установка значения

DM_f.ADOTable2.FieldByName('Статус').AsString:=DBEdit35.Text; //Добавление записи в таблицу

DM_f.ADOTable2.Post; //Сохранение записи в таблице

Label50.Font.Color:=ClRed; //Изменение цвета надписи

SpeedButton22.Enabled:=False; //Деактивация кнопки

SpeedButton19.Enabled:=True; //Активация кнопки

SpeedButton20.Enabled:=True; //Активация кнопки

SpeedButton21.Enabled:=True; //Активация кнопки

ComboBox3.Text:=''; // Очистка поля ввода информации

ComboBox3.Enabled:=False; //Деактивация поля ввода информации

ShowMessage('Статус водителя успешно изменен');// Вывод сообщения

end;

procedure TStatus_f.SpeedButton20Click(Sender: TObject);

begin

DM_f.ADOTable2.Prior; //Навигация по таблице

if DBEdit35.Text='True' then

Label50.Caption:='Свободен'

else

begin

Label50.Caption:='Занят';

ComboBox3.Text:=''; //Очистка поля ввода информации

end;

procedure TStatus_f.SpeedButton21Click(Sender: TObject);

begin

DM_f.ADOTable2.Next; //Навигация по таблице

if DBEdit35.Text='True' then

Label50.Caption:='Свободен'

else

begin

Label50.Caption:='Занят';

ComboBox3.Text:='';//Очистка поля ввода информации

end;

procedure TStatus_f.ComboBox3Change(Sender: TObject);

begin

if ComboBox3.Text='Свободен' then

DBEdit35.Text:='True' //Установка значения

else

DBEdit35.Text:='False' //Установка значения

end;

procedure TStatus_f.SpeedButton1Click(Sender: TObject);

begin

Glavnaya_f.Show; //открытие формы главная

Status_f.Hide;// скрытие формы

end;

end.

unit Voditeli

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids,

Mask;

type

TVoditeli_f = class(TForm)

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

SpeedButton7: TSpeedButton;

DBEdit5: TDBEdit;

DBEdit7: TDBEdit;

Label5: TLabel;

Label7: TLabel;

SpeedButton3: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure SpeedButton7Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Voditeli_f: TVoditeli_f;

implementation

uses Glavnaya, DM;

{$R *.dfm}

procedure TVoditeli_f.SpeedButton7Click(Sender: TObject);

begin

Voditeli_f.Hide;//скрытие формы водители

Glavnaya_f.Show;//открытие формы главная

end;

procedure TVoditeli_f.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then //нажатие Enter

DBEdit2.SetFocus;//Переход на следующую строку при нажатии Enter

end;

procedure TVoditeli_f.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then //нажатие Enter

DBEdit3.SetFocus;//Переход на следующую строку при нажатии Enter

end;

procedure TVoditeli_f.DBEdit3KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then //нажатие Enter

DBEdit4.SetFocus;//Переход на следующую строку при нажатии Enter

end;

procedure TVoditeli_f.SpeedButton3Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DBEdit7.ReadOnly:=False;

DBEdit1.SetFocus;

DM_f.ADOTable2.Insert;

end;

procedure TVoditeli_f.SpeedButton8Click(Sender: TObject);

begin

SpeedButton3.Enabled:=false;

SpeedButton4.Enabled:=false;

SpeedButton2.Enabled:=false;

SpeedButton1.Enabled:=false;

SpeedButton7.Enabled:=false;

SpeedButton8.Enabled:=false;

SpeedButton5.Enabled:=true;

SpeedButton6.Enabled:=true;

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBEdit3.ReadOnly:=False;

DBEdit4.ReadOnly:=False;

DBEdit5.ReadOnly:=False;

DBEdit7.ReadOnly:=False;

DM_f.ADOTable2.Edit;

DBEdit1.SetFocus;

end;

procedure TVoditeli_f.SpeedButton4Click(Sender: TObject);

begin

DM_f.ADOTable2.Delete;

end;

procedure TVoditeli_f.SpeedButton5Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or

(DBEdit3.Text='') or (DBEdit4.Text='') or

(DBEdit5.Text='') or (DBEdit7.Text='')

then

ShowMessage('Заполните все поля')

else begin

DM_f.ADOTable2.Post;

SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=True;

DBEdit7.ReadOnly:=True;

end;

procedure TVoditeli_f.SpeedButton6Click(Sender: TObject);

begin SpeedButton3.Enabled:=true;

SpeedButton4.Enabled:=true;

SpeedButton2.Enabled:=true;

SpeedButton1.Enabled:=true;

SpeedButton7.Enabled:=true;

SpeedButton8.Enabled:=true;

SpeedButton5.Enabled:=False;

SpeedButton6.Enabled:=False;

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBEdit3.ReadOnly:=True;

DBEdit4.ReadOnly:=true;

DBEdit5.ReadOnly:=True;

DBEdit7.ReadOnly:=True;

DM_f.ADOTable2.Cancel;

end;

procedure TVoditeli_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable2.Prior;

end;

procedure TVoditeli_f.SpeedButton1Click(Sender: TObject);

begin

DM_f.ADOTable2.Next;

end;

procedure TVoditeli_f.FormShow(Sender: TObject);

begin

DM_f.ADOTable2.Filtered:=false;

end;

end.

Характеристики

Тип файла

Документ

Размер

12 Mb

Материал

Информационная система менеджера по работе с клиентами таксопарка "Семерочка"

Тип материала

Курсовая работа

Предмет

Информатика

Учебное заведение

Неизвестно

Список файлов курсовой работы

informacionnaya-sistema-menedzhera-po-rabote-s-klientami-taksoparka-quotsemerochkaquot-1469857653-47149.zip

47149.rtf

Поделитесь ссылкой:

Ставлю 10/10
Все нравится, очень удобный сайт, помогает в учебе. Кроме этого, можно заработать самому, выставляя готовые учебные материалы на продажу здесь. Рейтинги и отзывы на преподавателей очень помогают сориентироваться в начале нового семестра. Спасибо за такую функцию. Ставлю максимальную оценку.

Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.

Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.

Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.

Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.

Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.

Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.

Всё и так отлично
Всё очень удобно. Особенно круто, что есть система бонусов и можно выводить остатки денег. Очень много качественных бесплатных файлов.

Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.

Отличный помощник
Отличный сайт с кучей полезных файлов, позволяющий найти много методичек / учебников / отзывов о вузах и преподователях.

Отлично помогает студентам в любой момент для решения трудных и незамедлительных задач
Хотелось бы больше конкретной информации о преподавателях. А так в принципе хороший сайт, всегда им пользуюсь и ни разу не было желания прекратить. Хороший сайт для помощи студентам, удобный и приятный интерфейс. Из недостатков можно выделить только отсутствия небольшого количества файлов.

Спасибо за шикарный сайт
Великолепный сайт на котором студент за не большие деньги может найти помощь с дз, проектами курсовыми, лабораторными, а также узнать отзывы на преподавателей и бесплатно скачать пособия.