Дипломная работа: Автоматизация процесса выбора экскурсионного тура ООО "Coral Travel"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
cxGrid4: TcxGrid;
cxGridDBTableView6: TcxGridDBTableView;
cxGridLevel6: TcxGridLevel;
cxGridDBTableView6ID: TcxGridDBColumn;
cxGridDBTableView6DepartmentName: TcxGridDBColumn;
cxGridDBTableView6Room: TcxGridDBColumn;
Panel7: TPanel;
Label9: TLabel;
cxGrid5: TcxGrid;
cxGridDBTableView7: TcxGridDBTableView;
cxGridLevel7: TcxGridLevel;
cxGridDBTableView7PostName: TcxGridDBColumn;
gr3AddFolder: TdxNavBarItem;
gr3AddDep: TdxNavBarItem;
gr3AddPost: TdxNavBarItem;
gr3AddUser: TdxNavBarItem;
procedure gr1IncomingDocClick(Sender: TObject);
procedure btLoginClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure gr1SetOwnerClick(Sender: TObject);
procedure gr1SetInWorkClick(Sender: TObject);
procedure gr1SetArchiveClick(Sender: TObject);
procedure gr1SetFolderClick(Sender: TObject);
procedure dxBarLargeButton2Click(Sender: TObject);
procedure NavigatorActiveGroupChanged(Sender: TObject);
procedure gr1NewProektClick(Sender: TObject);
procedure gr1ProectToDocClick(Sender: TObject);
procedure gr1SetSignClick(Sender: TObject);
procedure gr1TransmitClick(Sender: TObject);
procedure gr2PrintDocListClick(Sender: TObject);
procedure gr2PrintNomenklaturaClick(Sender: TObject);
procedure gr3AddFolderClick(Sender: TObject);
procedure gr3AddDepClick(Sender: TObject);
procedure gr3AddPostClick(Sender: TObject);
procedure PagesChange(Sender: TObject);
procedure gr3AddUserClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses IncomingFormUnit, LoginUnit, ChoiseUnit, SetFolderUnit, AddUserUnit,
DataUnit, AddFolderUnit;
{$R *.dfm}
procedure TMainForm.gr1IncomingDocClick(Sender: TObject);
begin
with d do
begin
if TComponent(Sender).Tag = 0 then
begin
DocView.Append;
DocViewDocDate.Value:=date+time;
DocViewDocTypeId.Value:=1;
DocViewDocStatusID.Value:=1;
end else
if DocViewDocStatusID.Value <> 1 then
begin
ShowMessage('Редактированию подлежат только документы со статусом
"Зарегистрирован"');
exit;
end;
fmIncomingDoc.Caption:='Регистрация входящего документа';
if fmIncomingDoc.ShowModal <> mrOk then
begin
DocView.Cancel;
exit;
end;
try
DocView.Post;
DBRefresh(DocView);
LifeView.Append;
LifeViewUserID.Value:=PersonLoginID.Value;
LifeViewDocumentID.Value:=DocViewID.Value;
LifeViewDocStatusID.Value:=1;
LifeViewLifeDate.Value:=date+time;
LifeViewAnotation.Value:='Зарегистрировандокумент № '+DocViewDocNumber.Value+ '
от '+DocViewDocDate.AsString;
LifeView.Post;
DBRefresh(LifeView);
except
ShowMessage('Ошибкасохраненияданных');
end;
end;
end;
procedure TMainForm.btLoginClick(Sender: TObject);
begin
with d do
begin
if fmLogin.ShowModal <> mrOk then exit;
if Trim(PersonLoginPassword.AsString) <> Trim(fmLogin.edPass.Text) then
begin
ShowMessage('Неверно указан пароль пользователя');
exit;
end;
Pages.Visible:=True;
SB.Panels[1].Text:=' Пользователь '+D.PersonLoginFio.Value+'.
'+d.PersonLoginDepartmentName.Value;
end;
end;
procedure TMainForm.FormActivate(Sender: TObject);
begin
Pages.Visible:=false;
Pages.ActivePageIndex:=0;
Navigator.ActiveGroupIndex:=0;
Pages3.ActivePageIndex:=0;
if not Opentables then Application.Terminate;
SB.Panels[1].Text:=' Пользователь '+D.PersonLoginFio.Value+'.
'+d.PersonLoginDepartmentName.Value;
btLoginClick(self);
end;
procedure TMainForm.gr1SetOwnerClick(Sender: TObject);
begin
with d do
begin
DocView.Edit;
if fmChoiseUser.ShowModal <> mrOk then exit;
DocView.Post;
DBRefresh(DocView);
SetLife('Пользовательизменен. Прим. '+fmChoiseUser.edAnotate.Text);
end;
end;
procedure TMainForm.gr1NewProektClick(Sender: TObject);
begin
with d do
begin
DocView.Append;
fmIncomingDoc.Caption:='Проект исходящего документа';
if fmIncomingDoc.ShowModal <> mrOk then
begin
DocView.Cancel;
exit;
end;
try
DocViewDocTypeId.Value:=2;
DocViewDocStatusID.Value:=6;
DocViewDocDate.Value:=date+time;
DocView.Post;
DBRefresh(DocView);
SetLife('Созданпроектдокумента № '+DocViewDocNumber.Value+ ' от
'+DocViewDocDate.AsString);
except
ShowMessage('Ошибка сохранения данных');
end;
end;
end;
procedure TMainForm.gr1ProectToDocClick(Sender: TObject);
begin
with d do
begin
DocView.Edit;
DocViewDocStatusID.Value:=2;
DocViewOwnerID.Value:=PersonLoginID.Value;
DocView.post;
DBRefresh(DocView);
SetLife('Принятвработупользователем '+PersonLoginFio.Value);
end;
end;
procedure TMainForm.gr1SetSignClick(Sender: TObject);
begin
with d do
begin
DocView.Edit;
Источник: https://baza.diplomsite.ru/previewfile/579

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009
- Программа ГПИ
---Готовые билеты---
?Теоретические основы анализа и мониторинга качества