Главная: Рефераты

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

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;

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;

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;

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.

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.