Файл: Проектирование бизнес- процесса «Управление документооборотом».pdf

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

myFile : TextFile;s1,s2 :string ;

begin

AssignFile(myFile, 'c:\Test.txt');

ReWrite(myFile);

s1:=edit1.text;

s2 :=edit2.text;

WriteLn(myFile,s1) ;

WriteLn(myFile,s2) ;

showmessage('Áëàãîäàðèì çà ðåãèñòðàöèþ');

closefile(myFile);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

myFile : TextFile;s1,s2 :string ;

begin

AssignFile(myFile, 'c:\Test.txt');

Reset(myFile);

readln( myFile,s1);

readln( myFile,s2);

if (s1=edit1.text) and(s2=edit2.text) then

form2.show else

showmessage('Äîñòóï ðàçðåøåí') ;

closefile(myFile);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

myFile : TextFile;s1,s2 :string ;

begin

AssignFile(myFile, 'c:\Test1.txt');

Reset(myFile);

readln( myFile,s1);

readln( myFile,s2);

if (s1=edit1.text) and(s2=edit2.text) then

form3.show else

showmessage('Äîñòóï íå ðàçðåøåí') ;

closefile(myFile);

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DBGrid1: TDBGrid;

Button1: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

showmessage(' Ïåðåõîä ê ñïðàâêà') ;

form6.Show;

form2.close ;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

Button2: TButton;

Button4: TButton;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DBGrid1: TDBGrid;

Label1: TLabel;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

ADOConnection2: TADOConnection;

ADODataSet5: TADODataSet;

Label2: TLabel;

DataSource3: TDataSource;

DBGrid3: TDBGrid;

ADOConnection3: TADOConnection;

ADODataSet6: TADODataSet;

Button5: TButton;

Button6: TButton;

Label3: TLabel;

Button7: TButton;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit4, Unit5, Unit7, Unit9;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

adodataset1.Delete;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

form3.close ;

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

showmessage('Äîñòóï ê äîêóìåíòàì') ;

form4.Show;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

showmessage('Äåéñòâèÿ Þðèäè÷åñêèõ ëèö') ;

form5.Show;

end;

procedure TForm3.Button7Click(Sender: TObject);

begin

showmessage('Ñïðàâêà') ;

form7.Show;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

form9.Show;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

form4.close ;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls, StdCtrls;

type

TForm5 = class(TForm)

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Image1: TImage;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

form5.close ;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

Button1: TButton;

Image1: TImage;

Image2: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

showmessage('Ïåðåõîä ê Îôîðìëåíèþ') ;

form8.Show;

form6.close ;

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type

TForm7 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

form7.close ;

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm8 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Button1: TButton;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

PrintDialog1: TPrintDialog;

Button3: TButton;

Button2: TButton;

Button4: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit10;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

var

myFile : TextFile;s1,s2,s3,s4,s5,s6 :string ;

begin

AssignFile(myFile, 'c:\Test3.txt');

ReWrite(myFile);

s1:=edit1.text;

s2 :=edit2.text;

s3:=edit5.text;

s4:=edit3.text;

s5:=edit4.text;

s6:=edit6.text;

WriteLn(myFile,s1) ;

WriteLn(myFile,s2) ;

WriteLn(myFile,s3) ;

WriteLn(myFile,s4) ;

WriteLn(myFile,s5) ;

WriteLn(myFile,s6) ;

showmessage('Áëàãîäàðèì çà óñëóãó');

closefile(myFile);

end;

procedure TForm8.Button3Click(Sender: TObject);

begin

form10.show;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

form8.close ;

end;

procedure TForm8.Button4Click(Sender: TObject);

var

f:textFile;

str:string;

begin

AssignFile(f, 'c:\Test3.txt');

reset(f);

memo1.Lines.Add(edit1.Text+'/ '+edit2.Text+'/ '+edit3.Text+'/ '+edit4.Text+'/ '+edit5.Text+'/ '+edit6.Text+'/ ');

readLn(f, str);

CloseFile(f);

end;

end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Mask, DBCtrls;

type

TForm9 = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

form3.adodataset1.post;

close;

end;

end.

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm10 = class(TForm)

Image1: TImage;

Edit2: TEdit;

Edit3: TEdit;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);

var a: integer;

s:integer;

begin

writeln ('Ââåäèòå a');

readln (a);

s:=a*10;

readln (s);

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

form10.close ;

end;

end.

Рисунок 4. Авторизация

Рисунок 5. Кнопки действий

Рисунок 6. Работа с документами

Рисунок 7. Вход под пользователя

Рисунок 8. Справки и оформление заявок

ЗАКЛЮЧЕНИЕ

В моей курсовой работе представленная программа нотариуса. Нотариус включает в себя важные функции работы с документами. Имеет регистрацию как и с физического лица так и с юридического лица, а так же список документов и важную информацию про физическое лицо. Имеется справка для большего удобства работы с документами.

В результате усложнения как структуры документов, так и процессов использования документов возникают дополнительные задачи управления документами: