Смекни!
smekni.com
Информатика и программирование

Информационная система менеджера по работе с клиентами таксопарка "Семерочка" (стр. 7 из 9)

29. Информация о добавлении (списание) машины в таблице "Машины" системой администрирования;

30. Информация менеджеру по работе с клиентами из системы администрирования о добавлении (списание) машины;

31. Информация начальнику гаража о добавлении (списание) машины.

Принятие(увольнение) водителей

32. Запрос работником отдела кадров на принятие (увольнение) водителя;

33. Запрос системе администрирования на принятие (увольнение) водителя;

34. Запрос системой администрирования в таблицу "Водители" на сохранение (удаление) данных о водителе;

35. Информация о сохранении (удалении) данных о водителе системой администрирования;

36. Информация менеджеру по работе с клиентами из системы администрирования о принятии (увольнении) водителя;

37. Информация работнику кадров о принятии (увольнении) водителя;

Принятие(увольнение) операторов

38. Запрос работником отдела кадров на принятие (увольнение) оператора;

39. Запрос системе администрирования на принятие (увольнение) оператора;

40. Запрос системой администрирования в таблицу "Операторы" на сохранение (удаление) данных об операторе;

41. Информация о сохранении (удалении) данных об операторе системой администрирования;

42. Информация менеджеру по работе с клиентами из системы администрирования о принятии (увольнении) оператора;

43. Информация работнику кадров о принятии (увольнении) оператора;

Корректировка поездок

44. Запрос менеджера по работе с клиентами в систему администрирования на корректировку данных о поездках осуществлённых водителем;

45. Запрос системой администрирования в таблицу "Водители" на корректировку данных о поездках осуществлённых водителем;

46. Информация из таблицы "Водители" в систему администрирования о корректировке данных о поездках, осуществлённых водителем;

47. Информация менеджеру по работе с клиентами из системы администрирования о корректировке данных о поездках, осуществлённых водителем;

Запрос на получение информации о поездках осуществлённых водителем

48. Запрос менеджеру по работе с клиентами от водителя на получение информации о осуществленных им поездках;

49. Запрос менеджера по работе с клиентами в систему формирования отчетов на получение информации о поездках осуществлённых водителем;

50. Запрос системой формирования отчетов на получение информации о поездках осуществлённых водителем в таблицу "Водители";

51. Информация о поездках осуществлённых водителем из таблицы "Водители" в систему формирования отчетов;

52. Информация менеджеру по работе с клиентами об поездках осуществлённых водителем из системы формирования отчетов;

53. Информация об поездках осуществлённых водителем от менеджера по работе с клиентами водителю в виде отчета.


Приложение 4

Рисунок 3. Инфологическая модель


Приложение 5

Рисунок 4. Схема датологической модели


Приложение 6

Рисунок 5. Схема загрузки формы проверки прав доступа

Рисунок 6. Выбор пункта подменю "Далее"


Рисунок 7. Выбор пункта подменю "Водители"

Рисунок 8. Выбор пункта подменю "На главную"


Приложение 8


Рисунок 9. Блок-схема.


Приложение 9

Рисунок 10. Сообщение оператору "О неверном пароле"

Рисунок 11. Сообщение оператору "О незаполненных полях"

Рисунок 12. Сообщение оператору "О выходе из программы"


Приложение 10

unit Glavnaya

interface

uses

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

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

XPMan,shellapi, ComCtrls;

type

TGlavnaya_f = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton4: TSpeedButton;

GroupBox1: TGroupBox;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Glavnaya_f: TGlavnaya_f;

implementation

uses Voditeli, Parol_red, Mashini , Operator, Oformlenie_poezdki,

Otchet, Status, Vybor_otcheta, Korrektirovka;

{$R *.dfm}

procedure TGlavnaya_f.SpeedButton1Click(Sender: TObject);

begin

// вывод сообщения

if MessageDlg('Вы хотите выйти из программы?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Application.Terminate; //закрытиепрограммы

end;

procedure TGlavnaya_f.SpeedButton5Click(Sender: TObject);

begin

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

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

end;

procedure TGlavnaya_f.SpeedButton6Click(Sender: TObject);

begin

Mashini_f.Show; //открытие формы машины

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

end;

procedure TGlavnaya_f.SpeedButton4Click(Sender: TObject);

begin

Glavnaya_f.Hide;

Oformlenie_poezdki_f.show;

end;

procedure TGlavnaya_f.SpeedButton8Click(Sender: TObject);

begin

Vybor_otcheta_.Show;

Glavnaya_f.Hide;

end;

procedure TGlavnaya_f.SpeedButton9Click(Sender: TObject);

begin

Glavnaya_f.Hide;

Status_f.show;

end;

procedure TGlavnaya_f.SpeedButton10Click(Sender: TObject);

begin

Korrektirovka_.Show;

Glavnaya_f.Hide;

end;

procedure TGlavnaya_f.SpeedButton7Click(Sender: TObject);

begin

Operatory_f.Show;//открытие формы водители

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

end;

end.

unit Korrektirovka

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls;

type

TKorrektirovka_ = class(TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label2: TLabel;

Label3: TLabel;

GroupBox1: TGroupBox;

Button6: TButton;

Edit1: TEdit;

Label10: TLabel;

CheckBox2: TCheckBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button7: TButton;

procedure Button6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Korrektirovka_: TKorrektirovka_;

implementation

uses DM, Glavnaya, Otchet_poezdki, Otchet_vse_voditeli;

{$R *.dfm}

procedure TKorrektirovka_.Button6Click(Sender: TObject);

begin

if

CheckBox2.Checked then

DM_f.ADOTable2.Filtered:=false

else

begin

DM_f.ADOTable2.Filtered:=false;

DM_f.ADOTable2.Filter:='ФИО_Водителя='''

+ (Edit1.Text)+'''';

DM_f.ADOTable2.Filtered:=true;

end;

end;

procedure TKorrektirovka_.Button5Click(Sender: TObject);

begin

Glavnaya_f.Show;

Korrektirovka_.Hide;

end;

procedure TKorrektirovka_.Button1Click(Sender: TObject);

begin

DBEdit2.ReadOnly:=false;

Button1.Enabled:=false;

Button2.Enabled:=false;

Button5.Enabled:=false;

Button7.Enabled:=false;

Button3.Enabled:=true;

Button4.Enabled:=true;

DM_f.ADOTable2.Edit;

DBEdit2.SetFocus;

end;

procedure TKorrektirovka_.Button2Click(Sender: TObject);

var

a:integer;

begin

a:=0;

DBEdit2.ReadOnly:=false;

DM_f.ADOTable2.Edit;

DBEdit2.Text:=IntToStr(a);

DM_f.ADOTable2.Post;

end;

procedure TKorrektirovka_.Button3Click(Sender: TObject);

begin

if DBEdit2.Text='' then

begin

ShowMessage('Введите колличество поездок');

DBEdit2.SetFocus;

end

else

begin

DBEdit2.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=true;

Button5.Enabled:=true;

Button7.Enabled:=true;

Button3.Enabled:=false;

Button4.Enabled:=false;

DM_f.ADOTable2.Post;

ShowMessage('Данныесохранены');

end;

end;

procedure TKorrektirovka_.Button4Click(Sender: TObject);

begin

DBEdit2.ReadOnly:=true;

Button1.Enabled:=true;

Button2.Enabled:=true;

Button5.Enabled:=true;

Button7.Enabled:=true;

Button3.Enabled:=false;

Button4.Enabled:=false;

DM_f.ADOTable2.Cancel;

end;

procedure TKorrektirovka_.Button7Click(Sender: TObject);

begin

if CheckBox2.Checked then

Otchet_vse_voditeli_.QuickRep1.Preview

else

Otchet_poezdki_.QuickRep1.Preview;

end;

end.

unit Mashini

interface

uses

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

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

DBGrids;

type

TMashini_f = class(TForm)

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

SpeedButton7: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton1: TSpeedButton;

SpeedButton8: TSpeedButton;

procedure SpeedButton7Click(Sender: TObject);

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

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

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Mashini_f: TMashini_f;

implementation

uses Glavnaya, DM;

{$R *.dfm}

procedure TMashini_f.SpeedButton7Click(Sender: TObject);

begin

Mashini_f.Hide;//скрытие формы машины

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

end;

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

begin

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

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

end;

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

begin

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

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

end;

procedure TMashini_f.SpeedButton2Click(Sender: TObject);

begin

DM_f.ADOTable3.Prior;

end;

procedure TMashini_f.SpeedButton1Click(Sender: TObject);

begin

DM_f.ADOTable3.Next;

end;

procedure TMashini_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;

DBEdit1.SetFocus;

DM_f.ADOTable3.Insert;

end;

procedure TMashini_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;

 
назад
читать дальше
1
2
3
4
5
6
7
8
9
НАПИШИТЕ НАМ
Copyright © Smekni.com. All rigths reserved.