Разработка системы управления электронным документооборотом на примере ООО "Курортное"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



Питер, 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