.


:




:

































 

 

 

 





 

 

, , , , .

.

- .

- .

Delphi 2009.

 

         
         
. . .
. ..     .
. .. ..              
        . 121
. .      
.      
                     

1

1.1

1.2

1.3

1.3.1

1.3.2

1.3.3

1.3.4

1.4

1.5

1.6

2

2.1

2.2

3

4

5

5.1

5.2

5.3

6

6.1

6.2

6.3

6.4

6.5

6.6

6.7

7

7.1

7.2

7.3

7.4

7.5

7.6

8

8.1

8.2

8.3

8.4

, , . , , , .

, : , , , , . , . , .

, . - . Firebird 2.5.

 

 

1.1

. .. ..

1.2

SHOP .

1.3

, :

- - , , , , , ;

- - , , ;

:

- ;

- ;

- ;

- .

1.3.2

, . . .

 

1.3.3

, :

1) - 1,5 ;

2) 1024 ;

3) 300;

4) 500 .

 

1.3.4

, . Firebird 2.5 , . Firebird, , . Windows XP/7/8.

 

1.4

, :

- ;

- ;

- ;

- .

.

 

1.7

:

1.

 

1

() 12.09.14 ..
CASE- OpenModelSphere 15.10.14 ..
Delphi 10.11.14 ..
06.12.14 ..
-  
Firebird 10.11.14 ..
10.11.14 ..

 

 

1.7

, .

.

 

2

 

2.1

, , , .

2.

2 -

ID

 

 

3.

3 -

ID

 

4.

4 -

ID

 

5.

 

 

5 -

ID

 

ID, ID, ID, ID.

0,N , , 1,1 , ( -) .. , . . , 1,1 .

0,N , , 1,1 , .. , . .

0,N , , 1,1 , ( -) .. , . . , 1,1 .

1.

1

, .

 

3

.

.

ID (ID).

ID (ID), , . . ID .

ID (ID), (ID).

. , Open ModelSphere .

6 .

6

ID ID_Isg
Name_Isg
Adress

7 .

7

ID ID_As
Name_tovar
Razmer

 

7

7

Cena
Kol_vo
Tek_data
_ID Isgotovitel_ID

 

8 .

8

ID ID
Kol_vo
Tek_data
Sklad_ID
ID Assortiment_Isgotovitel_ID
ID Assortiment _ID

 

9 .

 

9

ID ID
Data
Kol_vo
ID Sklad_ID

 

2.

2

, .

 

4

.

, , , Firebird.

, . .

, Insert Rule, Update Rule No Action, Delete Rule ascade.

10 , , , ().

10 - , , , ()

IID IID Integer
Name_Isg Varchar(30)
Adress Varchar(20)

 

11 , , , ().

11 - , , , ()

AID AID Integer
Name Varchar (20)

11

11 - , , , ()

Razmer Integer
Cena Double Precision
Kol_vo Integer
Tek_data Date
ID Isgotovitel_IID Integer

 

12 , , , ().

12 - , , , ()

SID SID Integer
Kol_vo Integer
Data Date
ID Assortiment_ Isgotovitel_IID Varchar(30)
ID Assortiment_AID Varchar(30)

 

 

14 .

14 -

Primary key (IID)
Primary key ( IID, IID)
Primary key (SID)
Primary key ( SID, PID)

 

15 .

15 -

FK1 ( IID)
FK1 ( IID, IID)
FK1 ( SID)

 

3 .

3

 

, .

OpenModel Sphere SQL , 1.

IB Expert SHOP.FDB TEAM009 slave009.

: GEN1 ASSORTIMENT ID, GEN2 IZGOTOVITEL ID.

4.

 

4

: IZGOTOVITEL_BIO IZGOTOVITEL, ID , , ASSORTIMENT_BIO ASSORTIMENT, ID , .

5 - 6.

5 ASSORTIMENT_BIO

 

 

6 ISGOTOVITEL_BIO

 

, SHOP.FBD FireBird 2.5.

 

 

5

 

5.1

.

7.

 

 

7 -

 

5.2

:

- .

, , , .

- .

, , , .

- .

, , , , .

:

- .

, , , .

- .

, , , .

- .

, , , , .

.

-

, , , , , .

 

-

, , , , , .

- , 1200

, , 1200, , , , .

-

, , , , .

 

- .

, , , , Close.

 

5.2

16.

 

16

Button2
Button3
Button4
buAdd
buEdit
buDelete
AddPrep
EdaitOtp
Button1
Button2
Button3 1200
Button6
Button4

 

6

6.1

, prSimple.exe. Object Pascal Borland Delphi 2009. Firebird. .

6.2

.

 

6.3

. main001. DM. , DM, . AddPrep ( ), EditPrep ( ). Apteka : AddAP ( ), EditAp ( ). main001, AddPrep, EditPrep, Zaprosi DM, .. .

17.

17 -

Main001 fmMain
DM dm1
AddPrep fmAddPrep
EditPrep fmEditPrep

17

17 -

Zaprosi fmZaprosi

 

fmMain 9.

9 - fmMain

 

IZGOTOVITEL, ASSORTIMENT fmMain. Standart : MainMenu1: TMainMenu, ActionList1: TActionList, buExit: TButton, buRefresh: TButton, buAdd: TButton, buEdit: TButton, buDelete, TButton Button1: TButton, TButton Button: TButton, TButton Button3: TButton, TButton Button4: TButton, Panel1: Tpanel, Panel2: Tpanel; Win32 - StatusBar1: TstatusBar; DataControls - DBGrid1: TDBGrid. DBGrid2: TDBGrid.

DBGrid1 ISGOTOVITEL . DBGrid2 ASSORTIMENT . MainMenu1 . . . . , . , , . ISGOTOVITEL. ISGOTOVITEL. ISGOTOVITEL. .

ActionList1 , .

buExit () . buRefresh () , . buAdd () ISGOTOVITEL. buEdit () ISGOTOVITEL. buDelete () ISGOTOVITEL. Button1 () , . Button2 () ASSORTIMENT. Button3 () ASSORTIMENT. Button4 () ASSORTIMENT.

ISGOTOVITEL (fmAddPrep) 10.

10 - ISGOTOVITEL

: Panel1, Button1 (ʻ), Button2 (), Label1, Label2, 2 Edit1, Edit2.

ISGOTOVITEL (fmEditPrep) 11.

11 - ISGOTOVITEL

: Panel1, Button1 (ʻ), Button2 (), Label1, Label2, 2 Edit1, Edit2.

ASSORTIMENT (fmAddPrep) 12.

12 - fmAddPrep ASSORTIMENT

: Button1 (ʻ), Button2 (), Label1, Label2, Label3, Label4, Label5, Label6, Edit1, Edit2, Edit3, Edit4, DateTimePicker1, DateTimePicker2, TDBlookUpCombobox1.

 

ASSORTIMENT (fmEditPrep) 13.

13 - fmEditPrep ASSORTIMENT

: Button1 (ʻ), Button2 (), Label1, Label2, Label3, Label4, Label5, Label6, Edit1, Edit2, Edit3, Edit4, DateTimePicker1, DateTimePicker2, TDBlookUpCombobox1.

ISGOTOVITEL 14.

14 - Zaprosi

: Button1 ( ), Button2 ( ), Button3 ( 1200), Button ( ), DBGrid1 Izgotovitel .

DM : FIBPlus: dbShop, dstAll, dstAssortiment, dsAssortiment, dstIsgotovitel, dsIsgotovitel, dstQuerty, frxDBDataset1, frxReport1, ReadTransaction, WriteTransaction.

15.

15

18 29.

 

 

18 dbShop

DBName sqledu03:D:\Data\16\SHOP.fdb
DBParams user_name = TEAM009 password = slave009
LibraruName C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll
DefaultTransaction ReadTransaction
DefaultUpdateTransaction WriteTransaction

 

19 dstAll

DataBase dbShop
DBName sqledu03:D:\Data\16\SHOP.fdb
DBParams user_name = TEAM009 password = slave009
LibraruName C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll
DefaultTransaction ReadTransaction
DefaultUpdateTransaction WriteTransaction

 

20 dstAssortiment

DBName sqledu03:D:\Data\16\SHOP.fdb

 

20

20 dstAssortiment

DBParams user_name = TEAM009 password = slave009
LibraruName C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll
DefaultTransaction ReadTransaction
DefaultUpdateTransaction WriteTransaction

 

21 dstAssortiment

DBParams user_name = TEAM009 password = slave009
LibraruName C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll
DefaultTransaction ReadTransaction
DefaultUpdateTransaction WriteTransaction

 

22 dsAssortiment

DBParams user_name = TEAM009 password = slave009
LibraruName C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll
DefaultTransaction ReadTransaction

22

22 dsAssortiment

DefaultUpdateTransaction WriteTransaction

 

23 dstIsgotovitel

DBParams user_name = TEAM009 password = slave009
LibraruName C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll
DefaultTransaction ReadTransaction
DefaultUpdateTransaction WriteTransaction

 

24 dsIsgotovitel

DBParams user_name = TEAM009 password = slave009
LibraruName C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll
DefaultTransaction ReadTransaction
DefaultUpdateTransaction WriteTransaction

 

 

25 dstQuerty

DataBase dbShop
DBParams user_name = TEAM009 password = slave009
LibraruName C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll
DefaultTransaction ReadTransaction
DefaultUpdateTransaction WriteTransaction

 

26 frxDBDataset1

DataSourse dsAll
Name frxDBDataset1
UserName frxDBDataset1

 

27 frxReport1

InFile \Software\Fast Reports
Name frxReport1
PreviewOptions TfrxPreviewOptions
PrintOptions TfrxPrintOptions
ReportOptions TfrxReportOptions
ScriptLanguage PascalScript

28 ReadTransaction

DefaultDataBase dbShop
Name ReadTransaction

 

29 WriteTransaction

DefaultDataBase dbShop
Name WriteTransaction

 

 

frReport1 frxDBDataset1 FastReport 4.0. frReport1 .

16.

 

16 - ,

dfm- .

29.

 

29 ISGOTOVITEL, ASSORTIMENT

Zapros

     
  Unit1 procedure TForm1. FormShow(Sender: TObject) . .
procedure TForm1. FormClose(Sender: TObject; var Action: TCloseAction) . .
procedure TForm1.acQuitExecute(Sender: TObject) . .. .
procedure TForm1.acRefreshExecute(Sender: TObject) .
procedure TForm1.Button1Click(Sender: TObject) IZGOTOVITEL.
TForm2.Button1Click(Sender: TObject)
TForm2.Button2Click(Sender: TObject)
TForm2.Button3Click(Sender: TObject) 10
procedure TfmAdd.FormClose(Sender: TObject; var Action: TCloseAction); .
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); .

 

29

29 ISGOTOVITEL, ASSORTIMENT

     
EditPrep procedureTForm4.FormShow(Sender: TObject); Assortiment.
procedure TForm4.Button1Click(Sender: TObject); .
procedureTForm4.FormClose(Sender: TObject; var Action: TCloseAction); .
AddOtp procedure TAddotpuch.Button1Click(Sender: Tobject); OTPUCHENO.
procedure TAddotpuch.FormClose(Sender: TObject; var Action: TCloseAction); .

 

6.4

 

SHOP , :

1) - 1,5 ;

2) 1024 ;

3) 300;

4) 500 .

 

6.5

prSimpleP001.exe D:\. Firebird 2.5, .

 

6.6

.

 

6.6

 

, , .

 

7

 

7.1

SHOP, .

 

7.2

SHOP. . , .

 

7.3

SHOP , . . , .

 





:


: 2016-10-30; !; : 496 |


:

:

, .
==> ...

773 - | 681 -


© 2015-2024 lektsii.org - -

: 0.201 .