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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
DepartmentData: TDataSource;
LifeView: TADODataSet;
LifeViewdata: TDataSource;
PersonLogin: TADODataSet;
PersonLoginData: TDataSource;
PersonLoginID: TIntegerField;
PersonLoginFio: TStringField;
DocViewID: TIntegerField;
DocViewDocNumber: TStringField;
DocViewDocDate: TDateTimeField;
DocViewDocTheme: TStringField;
DocViewDocTypeId: TIntegerField;
DocViewDocStatusID: TIntegerField;
DocViewOwnerId: TIntegerField;
DocViewFolderID: TIntegerField;
DocViewDocContent: TBlobField;
DocViewDocType: TStringField;
DocViewStatus: TStringField;
DocViewFio: TStringField;
DocViewFolderName: TStringField;
LifeViewID: TIntegerField;
LifeViewDocumentID: TIntegerField;
LifeViewLifeDate: TDateTimeField;
LifeViewDocStatusID: TIntegerField;
LifeViewUserID: TIntegerField;
LifeViewAnotation: TStringField;
LifeViewStatus: TStringField;
LifeViewFio: TStringField;
PersonLoginPostName: TStringField;
PersonLoginDepartmentName: TWideStringField;
PersonLoginPassword: TStringField;
DocViewDepartmentName: TWideStringField;
DocViewRoom: TWideStringField;
LifeViewDocNumber: TStringField;
LifeViewDocDate: TDateTimeField;
LifeViewDocTheme: TStringField;
LifeViewDocContent: TBlobField;
LifePrintData: TDataSource;
LifePrint: TADODataSet;
Postdata: TDataSource;
Post: TADODataSet;
departmentID: TAutoIncField;
departmentDepartmentName: TWideStringField;
departmentRoom: TWideStringField;
PostID: TAutoIncField;
PostPostName: TStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
D: TD;
procedure DBRefresh(DBSet:TADODataSet);
function Opentables:boolean;
procedure SetLife(Anotate:String);
implementation
{%CLASSGROUP 'System.Classes.TPersistent'}
{$R *.dfm}
procedure SetLife(Anotate:String);
begin
with d do
begin
LifeView.Append;
LifeViewAnotation.Value:=Anotate;
LifeViewDocStatusID.Value:=DocViewDocStatusID.Value;
LifeViewDocumentID.Value:=DocViewID.Value;
LifeViewUserID.Value:=PersonLoginID.Value;
LifeViewLifeDate.Value:=Date+Time;
LifeView.Post;
DBRefresh(LifeView);
end;
end;
function Opentables:boolean;
var
il:TStringList;
begin
with d do
begin
try
il:=TStringList.Create;
Opentables:=True;
//соединениессервером
il.LoadFromFile('Docflow.ini');
Conect.Close;
Conect.ConnectionString:=il[0];
il.free;
Conect.Open;
except
Showmessage('Ошибкасоединенияссерверомбазыданных. Проверьтефайл Docflow.ini');
result:=false;exit;
end;
Источник: https://baza.diplomsite.ru/previewfile/579

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

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