. , , ,

,,,

,

1.

2.

2.1

2.2

2.3

2.4

2.5

2.6

3.

3.1

3.2

3.3

3.4

,


: " ", 230103 " ( )" , " ".

.

, :

-      ;

-      ;

-      , ;

-      ;

.

, , .

.


1.        

. () , .

. , , . , , , , .

, , ( ).

, , .

:

;

;

:

;

;

;

.

1: ( 1).

, .

1. , .

;

;

.

. (), , .

:

Ø   ;

Ø   ;

Ø   ;

Ø   ;

, . , , . , ..

, , :

Ø   ;

Ø   ;

Ø   ;

Ø   ;

Ø   ;

Ø   ;

, 2:

2.

1.     

Ø   ;

Ø   ;

2.      Ø   ;
3.      Ø   ;
4.     

Ø   ;

Ø   ;

5.          ;

Ø   () ;

Ø   () ;

6.          Ø   ;

:

Ø  ;

Ø  ;

Ø  ;

Ø  ;

Ø  ;

Ø  - ;

Ø  ;

Ø  ;


2.        

2.1     

. :

Ø   ;

Ø   ;

Ø   .

:

Ø   .

Ø  

Ø  

Ø  

Ø  

Ø   -

Ø  

Ø  

:

1.         , , :

Ø : , , ;

Ø ;

2.         - , :

Ø ;

3.         :

Ø -

Ø ( );

4.         :

Ø .

3. , .

/
1.           

_/

-

_

_

_

2.           

_/

3.           

_/

4. ,

/
1.     

_/

_

_

2.     

_


2.2     

5.

5. .

/

1.

2.

()

( )

2

3

( 2)

( 2)

6.

6. .

/

1.         

() 4 ( 2)

7.

7. .

/

1.

2.

-

5

6

( 2)

( 2)

: ( 3) . 7.

2.3     

, :

Ø , ;

Ø , ;

Ø ;

Ø .

: ( 4).

: ; , . , . "" "", ""

, , , :

1.   :

Ø   _/;

Ø   ;

Ø   -;

Ø   _ ;

Ø   _;

Ø   _.

2.         :

Ø   _/;

Ø   ;

Ø   ;

Ø   ;

Ø   .

3.         :

Ø   _/;

Ø   ;

Ø   ;

Ø   .

4.         :

Ø   _/;

Ø   _;

Ø   _;

Ø   _;

Ø   _;

Ø   ;

Ø   .

5.   :

Ø   ;

Ø   ;

Ø   ;

Ø   ;

Ø   ;

Ø   _.

, 8: ( 5).

. 9: ( 6).


2.4     

: Pentium IV, Canon 100. , . . , . , Windows Microsoft Office. .mdb (MS Access).

Delphi. Delphi - . Delphi Borland Object Pascal, Turbo Pascal.

Delphi (RAD -Rapid Application Development). , Two Ways Tools. , - , . , , , .

Delphi , , . SQL.

2.5     

10. ( 7).

-, .

Ritual.exe ( 2), MaskEdit . :

-  "" ( 5) . . " " ( 6), "" ( 7);

-  " " ( 8) ;

-"" ( 9) ;

2 :

-"" ( 10) "" ( 11) . "" " " ( 12);

-          "" ( 13) .

8.

2.6     

5 , 13 , , . "DataModule1". "DataModule1" 12 ( 9).

. , : Klient_Table1, Uslugi_Table2, Zakaz_Table1, ProdavetsTable1, Nakladn_Table1, ADOTable1 .

: Klient, Uslugi, Zakaz, Prodavets, Nakladn, DataSource1 .

:

Glavnaya.pas.

1.         procedure TGlavnaya_.Button1Click - ;

procedure TGlavnaya_.Button1Click(Sender: TObject);

begin

DBEdit1.ReadOnly:=false;//

DBEdit2.ReadOnly:=false;//

DBEdit3.ReadOnly:=false; //

Button3.Enabled:=true; //

Button4.Enabled:=true;//

Button1.Enabled:=false;//

Button2.Enabled:=false;//

Button6.Enabled:=false; //

Button7.Enabled:=false; //

DBEdit1.SetFocus; //

DataModule1.Klient_Table1.Insert; //

end;

2.         procedure TGlavnaya_.Button3Click ;

procedure TGlavnaya_.Button3Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or (DBEdit3.Text='')

then

begin

ShowMessage(' '); //

DBEdit1.SetFocus;//

end

else

begin

Button3.Enabled:=false; //

Button4.Enabled:=false; //

Button1.Enabled:=true; //

Button2.Enabled:=true; //

Button6.Enabled:=true; //

Button7.Enabled:=true; //

DataModule1.Klient_Table1.Post; //

DBEdit1.ReadOnly:=true; //

DBEdit2.ReadOnly:=true; //

DBEdit3.ReadOnly:=true; //

end;

end;


3.         procedure TGlavnaya_.Button4Click - "";

procedure TGlavnaya_.Button4Click(Sender: TObject);

begin

Button3.Enabled:=false; //

Button4.Enabled:=false; //

Button1.Enabled:=true; //

Button2.Enabled:=true; //

Button6.Enabled:=true; //

Button7.Enabled:=true; //

DataModule1.Klient_Table1.Cancel; //

DBEdit1.ReadOnly:=true;//

DBEdit2.ReadOnly:=true; //

DBEdit3.ReadOnly:=true; //

end;

4.         procedure TGlavnaya_.Button7Click

procedure TGlavnaya_.Button7Click(Sender: TObject);

begin

DataModule1.Klient_Table1.Prior;//

end;

5.         procedure TGlavnaya_.Button9Click

procedure TGlavnaya_.Button9Click(Sender: TObject);

begin

Otch_Nakladnaya_.QRLabel9.Caption:=' ';//

Otch_Nakladnaya_.QRLabel26.Caption:=DBEdit1.Text; //

Otch_Nakladnaya_.QRLabel27.Caption:=DBEdit1.Text;//

Otch_Nakladnaya_.QuickRep1.Preview;//

end;

6.         procedure TGlavnaya_.Button21Click

procedure TGlavnaya_.Button21Click(Sender: TObject);

begin

if (Edit1.Text='') or (Edit1.Text='0')

then

ShowMessage(' ')

Else

begin

DBText1.Caption:=IntToStr((strtoint(Edit1.Text))+(strtoint(DBText1.Caption)));

DataModule1.Uslugi_Table2.FieldByName('-').AsString:=DBText1.Caption;;

Edit1.Text:='0';

DataModule1.Uslugi_Table2.Post; //

Button13.Enabled:=true; //

Button14.Enabled:=true; //

Button10.Enabled:=true; //

Button15.Enabled:=true; //

Button21.Visible:=false; //

Button21.Enabled:=false; //

Button11.Visible:=true; //

Button11.Enabled:=false; //

Button12.Enabled:=false; //

Edit1.ReadOnly:=true; //

end;

end;

7.         procedure TGlavnaya_.Button11Click

procedure TGlavnaya_.Button11Click(Sender: TObject);

begin

if (DBEdit7.Text='') or (Edit1.Text='') or (DBEdit11.Text='')

or (Edit2.Text='')

then

ShowMessage(' ') //

Else

begin

DBText1.Caption:=Edit1.Text; //

DataModule1.Uslugi_Table2.FieldByName('-').AsString:=DBText1.Caption;;

Edit1.Text:='0';

Edit3.Text:=IntToStr(((strtoint(DBEdit11.Text))* (strtoint(Edit2.Text))) div (strtoint('100')) );

DBEdit9.Text:=IntToStr((strtoint(Edit3.Text))+(strtoint(DBEdit11.Text)));

DataModule1.Uslugi_Table2.Post;

Button13.Enabled:=true; //

Button14.Enabled:=true; //

Button10.Enabled:=true; //

Button15.Enabled:=true; //

Button21.Visible:=true; //

Button21.Enabled:=false; //

Button11.Visible:=false; //

Button11.Enabled:=false; //

Button12.Enabled:=false; //

DBEdit7.Enabled:=false; //

Edit1.ReadOnly:=true; //

DBEdit11.ReadOnly:=true; //

Edit2.ReadOnly:=true; //

end;

end;

8.         procedure TGlavnaya_.Button8Click

procedure TGlavnaya_.Button8Click(Sender: TObject);

begin

Edit4.Text:=InputBox(' ',' ','1'); //

if StrToInt(Edit4.Text)>DataModule1.Uslugi_Table2.FieldByName('-').AsInteger then

begin

ShowMessage(' , !'); //

Button8.Click; //

end

else

begin

//

DataModule1.Uslugi_Table2.Edit;//

DataModule1.Uslugi_Table2.FieldByName('_').AsString:=DBEdit4.Text;

DataModule1.Uslugi_Table2.FieldByName('-').AsInteger:=DataModule1.Uslugi_Table2.FieldByName('-').AsInteger-StrToInt(Edit4.Text);

DataModule1.Uslugi_Table2.Post;//

Edit5.Text:=IntToStr(StrToInt(Edit4.Text) * StrToInt(DBEdit5 .Text));

//

DataModule1.Zakaz_Table1.Insert;

DataModule1.Zakaz_Table1.FieldByName('_').AsString:='1';

DataModule1.Zakaz_Table1.FieldByName('_').AsString:=DataModule1.Klient_Table1.FieldByName('_/').AsString;

DataModule1.Zakaz_Table1.FieldByName('_').AsString:=DataModule1.Uslugi_Table2.FieldByName('_/').AsString;

DataModule1.Zakaz_Table1.FieldByName('_').AsString:=DBEdit4.Text;

DataModule1.Zakaz_Table1.FieldByName('').AsString:=Edit4.Text;

DataModule1.Zakaz_Table1.FieldByName('').AsString:=Edit5.Text;

DataModule1.Zakaz_Table1.Post;

Button9.Enabled:=true;

///////////////////////////////////////////////////////

DataModule1.ADOTable1.Active:=false;

DataModule1.ADOTable1.Active:=true;

DataModule1.ADOTable1.Filtered:=False; //

DataModule1.ADOTable1.Filter:='_='+Edit6.Text;// //

DataModule1.ADOTable1.Filtered:=True; //

end;

End;

Zastavka.pas

1.         procedure TZastavka_.Button1Click - .

procedure TZastavka_.Button1Click(Sender: TObject);

begin

if MaskEdit1.Text='' then //

begin

ShowMessage(' '); //

MaskEdit1.SetFocus end else

if MaskEdit1.Text<>DataModule1.ProdavetsTable1.FieldByName('').AsString then //

begin

ShowMessage(' '); //

MaskEdit1.Clear; //

MaskEdit1.SetFocus end else //

begin

MaskEdit1.Clear; //

Zastavka_.Hide; //

Glavnaya_.Show; //

end;

end;


3.

 

3.1     

 

, . : , , .

3.2

"" : :

1.         IBM- (Intel Pentium 1 );

2.         64 ;

3.         50 ;

4.         CD-ROM;

5.         Windows 98 ;

6.         SVGA ( 15 ) , ;

7.         , 101/102- ;

8.         "" 2-, 3- Serial Mouse.

Windows. MS Office( 2000).

: Baza.mdb Ritual.exe .

3.3

, :

1.   CD-ROM;

2.   "";

3.   ".mdb" "";

4.   "";

5.   "" " ".

6.   "OK".

.

Ritual.exe. . 13 ( 10).

""

.

""

"" 14 ( 10).

- , , , .

" ", , . , , . " " 15 ( 10).

"" , "". "" 16 ( 10).

"", , .

 

3.4

.

"", :

, :


, , "" :


, . . . . Access .

, . . - .

.

, .

.


,

1.         . " Delphi 7. ", .: , 2003.

2.         .. "Delphi 7. ", .: , 2005.

3.         "DelphiWorld", 5.0, 2002-2003.

4.         . " : , , ", .: , 2001.

5.         .. " Delphi 7" , "-", 2005. 1152.

6.         " ";

7.         "Delphi v6.0 Book";

8.         "Delphi v7.0 Book";

9.         .., .. "Delphi 6" ., -, 2002. 1152.

10.      25 " ".


1.

1: .


2

2: " ()".

3: " ( )".


4: " ()".

5: "".


6: "-".


3.

7: .


4.

:

1.         .

2.         "" .

3.         "" .

4.         .

-:

5.         -.

6.         -.

7.         "" -.

8.         "" -.

9.         -.

10.      - .

.

11.      .

12.      .

13.      "" .

14.      "" .

15.      .

16.      .

17.      "" .

18.      "" .

19.      "" .

20.      "" .

21.      " " .

22.      " " .

23.      .

.

24.      .

25.      .

26.      "" .

27.      "" .

28.      .

29.      .

.

30.      .

31.      " " .

32.      .

33.      .

34.      .


5

8: .


6.

9: .


7.

10 "".


10 (): "".


8.

11: - .


9

12:


10.

13: " ".

14: ""


15: " "

16: ""

1. 2. 2.1 2.2 2.3

 

 

 

! , , , .
. , :