Разработка системы управления электронным документооборотом на примере ООО "Курортное"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Питер, 2005. - 295 с. : ил.
.Чекалов А. Базы данных: от проектирования до разработки приложений А. Чекалов. - СПб: BHV, 2003. - 384 c.
.Шкарина Л. Язык SQL:учебный курс / Л.Шкарина. - СПб.: Питер, 2001.
ПРИЛОЖЕНИЕ 1
Листинг программного продукта
Ниже представлен листинг программного продукта.
unit LogUnit;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls, Mask, DBCtrls, jpeg;
= class(TForm): TPanel;: TImage;: TLabel;: TLabel;: TMaskEdit;: TButton;: TEdit;Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TLogForm;
DMUnit, MainUnit;
{$R *.dfm}
TLogForm.Button1Click(Sender: TObject);Access:boolean;,b,Empt:string;:=Edit1.Text;:=MaskEdit1.Text;:=false;(Dm.User.RecordCount=0) or (not Dm.ADOConnection1.Connected) then(Edit1.Text='Admin') and (MaskEdit1.Text='111') then Access:=true.User.First;not (Dm.User.Eof) do(a=Dm.User.FieldByName('Логин').AsString) and (b=Dm.User.FieldByName('Пароль').AsString) then Access:=true;.User.Next;;;Access then.User.Locate('Логин', a,[]);.StatusBar1.Panels[1].Text:=Dm.User.FieldByName('ФИО').AsString;.Filter:='';.Adm.Locate('КодПрава',Dm.User.FieldByName('КодПрава').AsInteger,[]);(Dm.Adm.FieldByName('Название').AsString='Администратор') or (Edit1.Text='Admin') then MainForm.N4.Visible:=trueMainForm.N4.Visible:=false;.Form:=Dm.Adm.FieldByName('Формирование').AsBoolean;.Utv:=Dm.Adm.FieldByName('Утверждение').AsBoolean;.Isp:=Dm.Adm.FieldByName('Исполнение').AsBoolean;.UserIndex:=Dm.User.FieldByName('КодПользователя').AsInteger;;.TabSheet1.Show;.Show;.Visible:=False;;;
.
MainUnit;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus, ExtCtrls, Grids, DBGrids, StdCtrls;
type= class(TForm): TPanel;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TStatusBar;: TDBGrid;: TDBGrid;: TDBGrid;: TMenuItem;: TMenuItem;: TButton;: TButton;: TButton;: TButton;: TButton;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TTimer;TabSheet1Show(Sender: TObject);TabSheet2Show(Sender: TObject);TabSheet3Show(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);FormShow(Sender: TObject);N7Click(Sender: TObject);Timer1Timer(Sender: TObject);N11Click(Sender: TObject);N10Click(Sender: TObject);N14Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);N12Click(Sender: TObject);N13Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);Button3Click(Sender: TObject);Button2Click(Sender: TObject);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TMainForm;, Isp, Form:boolean;: integer;:string;
DMUnit, LogUnit, AdmUnit, ClientsUnit, CountryUnit, DepUnit, PostUnit,, RuleUnit, FIUnit;
{$R *.dfm}
TMainForm.TabSheet1Show(Sender: TObject);.Claim.Filter:='(([Сформировал]<>Null) and ([Утвердил]=Null) and ([Исполнитель]=Null))'+ Filter;.Visible:=true;.Caption:='Проверен';.Enabled:=Form;.Enabled:=Utv;.Visible:=true;;
TMainForm.TabSheet2Show(Sender: TObject);.Claim.Filter:='(([Сформировал]Null) and ([Исполнитель]=Null))'+Filter;.Visible:=true;.Caption:='Исполнен';.Enabled:=Form;.Enabled:=Isp;.Visible:=false;;
TMainForm.TabSheet3Show(Sender: TObject);.Claim.Filter:='(([Сформировал]Null))'+ Filter;.Visible:=false;.Enabled:=Form;.Visible:=false;;
TMainForm.N5Click(Sender: TObject);.Hide;.Show;.Edit1.Text:='';.MaskEdit1.Text:='';;
TMainForm.N6Click(Sender: TObject);.Close;;
TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);.Close;;
TMainForm.FormShow(Sender: TObject);.Claim.Filter:='([Сформировал]<>Null) and ([Утвердил]=Null) and ([Исполнитель]=Null)';.Visible:=true;.Caption:='Проверен';.Enabled:=Form;.Enabled:=Utv;.Visible:=true;.Checked:=true;;
TMainForm.N7Click(Sender: TObject);.Visible:=N7.Checked;.Top:=583;;
TMainForm.Timer1Timer(Sender: TObject);.Panels[3].Text:=DateToStr(Now);.Panels[5].Text:=TimeToStr(Now);;
TMainForm.N11Click(Sender: TObject);.Show;;
TMainForm.N10Click(Sender: TObject);.Show;;
TMainForm.N14Click(Sender: TObject);.Show;;
TMainForm.N8Click(Sender: TObject);.Show;;
TMainForm.N9Click(Sender: TObject);.Show;;
TMainForm.N12Click(Sender: TObject);.Show;;
TMainForm.N13Click(Sender: TObject);.Show;;
TMainForm.Button4Click(Sender: TObject);.Show;;
TMainForm.Button5Click(Sender: TObject);dm.Claim.Modified then Dm.Claim.Post;;
TMainForm.Button3Click(Sender: TObject);.Claim.Delete;;
TMainForm.Button2Click(Sender: TObject);.Claim.Insert;.Show;;
TMainForm.Button1Click(Sender: TObject);PageControl1.ActivePageIndex of
: Begin.Claim.Edit;.Claim.FieldByName('Утвердил').AsInteger:=MainUnit.UserIndex;.Claim.FieldByName('ДатаУтверждения').AsDateTime:=Now;.Claim.Post;;
: Begin.Claim.Edit;.Claim.FieldByName('Исполнитель').AsInteger:=MainUnit.UserIndex;.Claim.FieldByName('ДатаИсполнения').AsDateTime:=Now;.Claim.Post;;;;
.
PostUnit;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, Mask;
= class(TForm): TDBGrid;: TPanel;: TDBNavigator;: TLabel;: TDBEdit;
{ Private declarations }
{ Public declarations };
: TPostForm;
DMUnit;
{$R *.dfm}
.
ResUnit;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBCtrls, StdCtrls, Mask, ExtCtrls, Grids, DBGrids;
= class(TForm): TDBGrid;: TPanel;: TDBNavigator;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBLookupComboBox;
{ Private declarations }
{ Public declarations };
: TResForm;
DMUnit;
{$R *.dfm}
.
RuleUnit;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DBCtrls, Mask, ExtCtrls, Grids, DBGrids;= class(TForm): TDBGrid;: TPanel;: TDBNavigator;: TLabel;: TDBEdit;: TDBCheckBox;: TDBCheckBox;: TDBCheckBox;
{ Private declarations }
{ Public declarations };
: TRuleForm;
DMUnit;
{$R *.dfm}
.
SED;
,in 'LogUnit.pas' {LogForm},in 'DMUnit.pas' {DM: TDataModule},in 'MainUnit.pas' {MainForm},in 'CountryUnit.pas' {CountryForm},in 'ResUnit.pas' {ResForm},in 'ClientsUnit.pas' {ClientForm},in 'AdmUnit.pas' {UserForm},in 'RuleUnit.pas' {RuleForm},in 'PostUnit.pas' {PostForm},in 'DepUnit.pas' {OtdForm},in 'FIUnit.pas' {FIForm};
{$R *.res}
.Initialize;.CreateForm(TLogForm, LogForm);.CreateForm(TDM, DM);.CreateForm(TMainForm, MainForm);.CreateForm(TCountryForm, CountryForm);.CreateForm(TResForm, ResForm);.CreateForm(TClientForm, ClientForm);.CreateForm(TUserForm, UserForm);.CreateForm(TRuleForm, RuleForm);.CreateForm(TPostForm, PostForm);.CreateForm(TOtdForm, OtdForm);.CreateForm(TFIForm, FIForm);.Run;.AdmUnit;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBCtrls, StdCtrls, Mask, ExtCtrls, Grids, DBGrids;
= class(TForm): TDBGrid;: TPanel;: TDBNavigator;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;
{ Private declarations }
{ Public declarations };
: TUserForm;
DMUnit;
{$R *.dfm}
.
ClientsUnit;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;
= class(TForm): TDBGrid;: TPanel;: TDBNavigator;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;
{ Private declarations }
{ Public declarations };
: TClientForm;
DMUnit;
{$R *.dfm}
.
CountryUnit;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;
= class(TForm): TDBGrid;: TPanel;: TDBNavigator;: TLabel;: TDBEdit;
{ Private declarations }
{ Public declarations };
: TCountryForm;
DMUnit;
{$R *.dfm}
.
DepUnit;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;
= class(TForm): TDBGrid;: TPanel;: TDBNavigator;: TLabel;: TDBEdit;
{ Private declarations }
{ Public declarations };
: TOtdForm;
DMUnit;
{$R *.dfm}
.
DMUnit;, Classes, DB, ADODB, XPMan;
= class(TDataModule): TADOConne