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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
DocViewDocStatusID.Value:=4;
DocViewOwnerID.Value:=PersonLoginID.Value;
DocView.post;
DBRefresh(DocView);
SetLife('Документподписанинпользователем '+PersonLoginFio.Value);
end;
end;
procedure TMainForm.gr1TransmitClick(Sender: TObject);
begin
with d do
begin
DocView.Edit;
DocViewDocStatusID.Value:=7;
DocViewOwnerID.Value:=PersonLoginID.Value;
DocView.post;
DBRefresh(DocView);
SetLife('Отправленкорреспондентупользователем '+PersonLoginFio.Value);
end;
end;
procedure TMainForm.gr1SetInWorkClick(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.gr1SetArchiveClick(Sender: TObject);
begin
with d do
begin
DocView.Edit;
DocViewDocStatusID.Value:=5;
DocViewOwnerID.Value:=PersonLoginID.Value;
DocView.post;
DBRefresh(DocView);
SetLife('Законченаобработкапользователем '+PersonLoginFio.Value);
end;
end;
procedure TMainForm.gr1SetFolderClick(Sender: TObject);
begin
with d do
begin
DocView.Edit;
if fmSetFolder.ShowModal <> mrOk then
begin
DocView.Cancel;
end else
begin
DocView.Post;
DBRefresh(DocView);
SetLife('Документперемещенпользователем ' +PersonLoginFio.Value +' впапку "'
+DocViewFolderName.Value+'"');
end;
end;
end;
procedure TMainForm.dxBarLargeButton2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TMainForm.NavigatorActiveGroupChanged(Sender: TObject);
begin
Pages.ActivePageIndex:=Navigator.ActiveGroupIndex;
end;
procedure TMainForm.gr2PrintDocListClick(Sender: TObject);
begin
printList.Preview(true);
end;
procedure TMainForm.gr2PrintNomenklaturaClick(Sender: TObject);
begin
printerNomenklatura.Preview(True);
end;
procedure TMainForm.gr3AddFolderClick(Sender: TObject);
begin
with d do
begin
Folder.Append;
if fmAddFolder.ShowModal <> mrOk then Folder.Cancel
else
begin
Folder.Post;
DBRefresh(Folder);
end;
end;
end;
procedure TMainForm.gr3AddDepClick(Sender: TObject);
var
s:String;
begin
s:=InputBox('Созданиедепартамента','Наименование :','');
if trim(s) ='' then exit;
with d do
begin
department.Append;
departmentDepartmentName.Value:=s;
departmentRoom.Value:='укажитекомнату';
department.post;
DBRefresh(department);
end;
end;
procedure TMainForm.gr3AddPostClick(Sender: TObject);
var
s:String;
begin
s:=InputBox('Созданиедолжности','Наименование :','');
if trim(s) ='' then exit;
with d do
begin
Post.Append;
PostPostName.Value:=s;
Post.post;
DBRefresh(Post);
end;end;
procedure TMainForm.PagesChange(Sender: TObject);
begin
Navigator.ActiveGroupIndex:=Pages.ActivePageIndex;
end;
procedure TMainForm.gr3AddUserClick(Sender: TObject);
begin
with d do
begin
PersonView.Append;
if fmAddUser.ShowModal <> mrOk then
begin
PersonView.Cancel;
exit;
end;
PersonView.Post;
DBRefresh(PersonView);
end;
end;
end.
Модуль доступа к базе данных
unit DataUnit;
interface
uses
SysUtils, Classes, DB, ADODB, Dialogs;
type
TD = class(TDataModule)
Conect: TADOConnection;
DocView: TADODataSet;
DocViewData: TDataSource;
DocType: TADODataSet;
DocTypeData: TDataSource;
DocStatus: TADODataSet;
DocStatusdata: TDataSource;
Folder: TADODataSet;
Folderdata: TDataSource;
PersonView: TADODataSet;
PersonViewData: TDataSource;
department: TADODataSet;
Источник: https://baza.diplomsite.ru/previewfile/579

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

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