Список литературы
1. Постановление Минтруда РФ от 21.08.1998 N 37 Об утверждении
Квалификационного справочника должностей руководителей, специалистов
и других служащих.
2. Положение по ведению бухгалтерского учета и бухгалтерской
отчетности в Российской Федерации (в ред. Приказов Минфина РФ от
30.12.1999 № 107н, от 24.03.2000 № 31н)
3. ГОСТ 28147-89 Системы обработки информации. Защита
криптографическая. Алгоритм криптографического преобразования Кобра
4. Гайдамакин Н. А., Автоматизированные информационные
системы, базы данных. Вводный курс., Изд. Гелиос, 2002 год, 375 стр.
5. Введение в системы баз данных – СПб: Издательский дом
"Вильямс", 2000. - 848 с.;
6. С. Б. Диго. - М. : Финансы и статистика, 2005. - 592 с.
7. Константайн Л., Локвуд Л. Разработка программного
обеспечения. СПб.: Питер, 2004.
8. Уткин В.Б. Информационные системы в экономике: Учебник для
студ. высш. учеб, заведений / В.Б. Уткин, К.В. Балдин. — М.: Издательский
центр «Академия», 2004. — 288 с.
9. Крис Дейт. Введение в базы данных, 6-е изд. Киев, Диалектика,
1998.
10. Ройс У. Управление проектами по созданию программного
обеспечения. М.: Лори, 2002.
11. Якобсон А., Буч Г., Рамбо Дж. Унифицированный процесс
разработки программного обеспечения. СПб.: Питер, 2002.
12. ГОСТ Р-1999. ИТ. Процессы жизненного цикла программных
средств.
Приложение
Код программы базы данных
Модуль главной формы
unit mfunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinOffice2007Black,
dxSkinsdxNavBarPainter, dxSkinscxPCPainter, cxPCdxBarPopupMenu, cxPC, dxNavBar,
cxClasses, cxCustomData, cxStyles, cxEdit,
dxSkinsForm,
dxSkinsdxStatusBarPainter, ExtCtrls, StdCtrls,
dxStatusBar, dxNavBarBase, dxNavBarCollns, dxSkinOffice2010Black, cxFilter, cxData,
cxDataStorage,
DB, cxDBData, cxGridLevel, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, dxSkinBlack, dxPSGlbl, dxPSUtl,
dxPSEngn, dxPrnPg, dxBkgnd,
dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns,
dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd,
dxPSPrVwAdv, dxPSPrVwRibbon, dxPScxPageControlProducer, dxPScxGridLnk,
dxPScxGridLayoutViewLnk, dxPScxEditorProducers, dxPScxExtEditorProducers,
dxPSCore, dxPScxCommon, cxContainer, dxSkinsdxBarPainter, dxBar,
cxTextEdit, cxMemo, cxRichEdit, cxDBRichEdit;
type
TMainForm = class(TForm)
Navigator: TdxNavBar;
NavigatorGroup1: TdxNavBarGroup;
NavigatorGroup2: TdxNavBarGroup;
NavigatorGroup3: TdxNavBarGroup;
Splitter1: TSplitter;
SB: TdxStatusBar;
Pages: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
Cghfdjxybrb: TcxTabSheet;
Panel1: TPanel;
ScinControler: TdxSkinController;
Label2: TLabel;
lvIDocs: TcxGridDBTableView;
gridIncomingDocsLevel1: TcxGridLevel;
gridIncomingDocs: TcxGrid;
dxBarManager1: TdxBarManager;
dxBarManager1Bar1: TdxBar;
btLogin: TdxBarLargeButton;
dxBarButton1: TdxBarButton;
dxBarLargeButton2: TdxBarLargeButton;
gr1IncomingDoc: TdxNavBarItem;
gr1SetOwner: TdxNavBarItem;
gr1SetInWork: TdxNavBarItem;
gr1SetArchive: TdxNavBarItem;
gr1NewProekt: TdxNavBarItem;
gr1ProectToDoc: TdxNavBarItem;
gr1SetSign: TdxNavBarItem;
gr1Transmit: TdxNavBarItem;
lvIDocsDocDate: TcxGridDBColumn;
lvIDocsDocTheme: TcxGridDBColumn;
lvIDocsStatus: TcxGridDBColumn;
lvIDocsDocType: TcxGridDBColumn;
lvIDocsFolderName: TcxGridDBColumn;
lvIDocsFio: TcxGridDBColumn;
lvIDocsDepartmentName: TcxGridDBColumn;
lvIDocsRoom: TcxGridDBColumn;
lvIDocsDocNumber: TcxGridDBColumn;
Splitter2: TSplitter;
cxPageControl2: TcxPageControl;
cxTabSheet4: TcxTabSheet;
cxTabSheet5: TcxTabSheet;
Label3: TLabel;
cxDBRichEdit1: TcxDBRichEdit;
Label4: TLabel;
cxGrid1: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
cxGridDBTableView1LifeDate: TcxGridDBColumn;
cxGridDBTableView1Anotation: TcxGridDBColumn;
cxGridDBTableView1Status: TcxGridDBColumn;
cxGridDBTableView1Fio: TcxGridDBColumn;
gr1SetFolder: TdxNavBarItem;
gr2PrintDocList: TdxNavBarItem;
gr2PrintNomenklatura: TdxNavBarItem;
Panel2: TPanel;
Label1: TLabel;
cxListDoc: TcxGrid;
cxGridDBTableView2: TcxGridDBTableView;
cxGridLevel2: TcxGridLevel;
Splitter3: TSplitter;
Panel3: TPanel;
Label5: TLabel;
cxNomenklatura: TcxGrid;
cxGridDBTableView3: TcxGridDBTableView;
cxGridLevel3: TcxGridLevel;
cxGridDBTableView2LifeDate: TcxGridDBColumn;
cxGridDBTableView2Anotation: TcxGridDBColumn;
cxGridDBTableView2Status: TcxGridDBColumn;
cxGridDBTableView2Fio: TcxGridDBColumn;
cxGridDBTableView2DocNumber: TcxGridDBColumn;
cxGridDBTableView2DocDate: TcxGridDBColumn;
cxGridDBTableView2DocTheme: TcxGridDBColumn;
dxComponentPrinter1: TdxComponentPrinter;
printList: TdxGridReportLink;
cxGridDBTableView3DocNumber: TcxGridDBColumn;
cxGridDBTableView3DocDate: TcxGridDBColumn;
cxGridDBTableView3DocTheme: TcxGridDBColumn;
cxGridDBTableView3DocType: TcxGridDBColumn;
cxGridDBTableView3Status: TcxGridDBColumn;
cxGridDBTableView3Fio: TcxGridDBColumn;
cxGridDBTableView3FolderName: TcxGridDBColumn;
cxGridDBTableView3DepartmentName: TcxGridDBColumn;
cxGridDBTableView3Room: TcxGridDBColumn;
printerNomenklatura: TdxGridReportLink;
Panel4: TPanel;
Label6: TLabel;
cxGrid2: TcxGrid;
cxGridDBTableView4: TcxGridDBTableView;
cxGridLevel4: TcxGridLevel;
cxGridDBTableView4Fio: TcxGridDBColumn;
cxGridDBTableView4PostName: TcxGridDBColumn;
cxGridDBTableView4Room: TcxGridDBColumn;
cxGridDBTableView4DepartmentName: TcxGridDBColumn;
Pages3: TcxPageControl;
Splitter4: TSplitter;
cxTabSheet3: TcxTabSheet;
cxTabSheet6: TcxTabSheet;
cxTabSheet7: TcxTabSheet;
Panel5: TPanel;
Label7: TLabel;
cxGrid3: TcxGrid;
cxGridDBTableView5: TcxGridDBTableView;
cxGridLevel5: TcxGridLevel;
cxGridDBTableView5FolderName: TcxGridDBColumn;
cxGridDBTableView5DepartmentName: TcxGridDBColumn;
cxGridDBTableView5Room: TcxGridDBColumn;
Panel6: TPanel;
Label8: TLabel;
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;