, , , , .
.
- .
- .
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
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 , . . , .