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