| 1. | 1. | |
| 2. | 2. Access ( ) | |
| 3. | 3. Access.() | |
| 4. | 4. ( 4 ) | |
| 5. | 5. .( delphi 7 ) | |
| 6. | 6. -.(6 html) | |
| 7. | 7. ( ) |
:
1. , .
2. , , .
3. .
4. , , .
5. - .
6. , , , .
7. (), .
8. , , .
9. .
:
2.1. .
2.2. .
2.3. .
2.4. .
.
.01 , , , , .
:
:
- ;
- ;
- ;
:
- ;
|
|
|
- Case- ;
- ;
- SQL;
- ;
- ;
:
- , , ;
- , ;
- ;
- ;
- , , ,
;
- ; ;
- ;
- ;
- , ;
- ;
- ;
-
, , .
1.
:
,
:
1) ,
2)
3)
4)
.
.
o ( ).
o , .
o ,
.
o
.
o , , .
o , , .
o , ,
, .
Microsoft Access ,
.
.
.
:
1) . : "".
2) 1998. , , . , , . , - . , . 4 . , , - . 2006. . -, , 2010. 50 . , "", .
|
|
|
| \ | () | |
| 500 . | ||
| 100-200 | ||
| 50- 20- . |
.
| WIFI () | |||||||
| () | PreonOffice 11242 | Skylink c TablePhone M1 | Ricoh SP 203SFNw | 4G (LTE) M100-3 (), 100 / | D-link DGS-1210-28P | ASUS RT-AC66U | PreonUltimate 3467 |
| 11110. | 2600. | 11020. | 1200. | 34200. | 9050. | 29300. | |
| Preon | Skylink | Ricoh | D-link | ASUS | preon |
| 1. | |||||
| 2. | , | ||||
| 3. | |||||
| 4. |
:
"" , . , , .
:
: -.
:
1 9-10
2 7
:
, , . .
- :
- ;
- ;
- ;
:
. , , , , .
:
9-10 , 1 60%, 90%.
:
1. 200. 450. .( )
2. (30 ) 400.
3. 400.. 450..
4. 250 ..
5. (, .) 50 . .
6. .
:
|
|
|
1. , - 6-9 ..
:
1. 100 .
2. 550 ..
3. , , 250 .
4. (, ) 3000 .
5. 100-150..
6. 200 ..
7. 30 .
: -
.
- .
:
1. -. , . , , .
2. - - . - , , .
3. . , , , , , , , .
4. , , , .
5. . .
6. - , , .
-.
. , , . , ( ) . - , .
:
;
;
;
30% ;
;
;
2. Access
:
, .
. ()
, ()
.
, .
,
. QBE (Query By Example
) SQL.
|
|
|
, ,
.
.
, , .
, HTML,
Internet Explorer.
,
, .
, Visual Basic,
.
:
3. Access.
:
-- .
(
),
.
: , ,
, .
--
. ,
. --
, ,
, .
: ,
, .
--
, .
() , IIIIIIIIII
, ,
.
: , .
.
:
:
SELECT *
FROM
WHERE expiration=21 Or Price=20000;
SELECT *
FROM ;
SELECT *
FROM ;
SELECT *
FROM
WHERE ID_K=2;
SELECT *
FROM ;
SELECT *
FROM
WHERE ID_K=2 And ID_T=2;
INSERT INTO (ID_Z, ID_K, Data)
VALUES (31, "7", "03.04.2013");
INSERT INTO (ID_K, F, I, O, Adress)
VALUES (11, "", "", "", "., ,12");
INSERT INTO (ID_T, Name_T, Price, amount, expiration)
VALUES (1, " ", "70000", " ", "21.12.2010");
UPDATE SET Data = 01.01.2015
WHERE ID_Z="1";
UPDATE SET Phone = 8500003
WHERE ID_K=16;
UPDATE INNER JOIN ON .ID_T=.ID_T SET .kolvo = .kolvo-.kolvo
WHERE .ID_T=.ID_T;
UPDATE SET Price = 28000
WHERE Name_T="";
DELETE ID_Z
FROM
WHERE ID_Z=31 and ID_K=7;
DELETE ID_K
FROM
WHERE ID_K=18;
DELETE ID_T
FROM
WHERE ID_T=1;
1
id
.
id
.
id
.
id
.
id
.
2
.
.
, , id .
.
2
.
.
3
|
|
|
2 id =3
.
5
.
212 =10
.
=300 =10
.
4.
:
:
4
2
:
4.1
Private Sub Êíîïêà1_Click()
On Error GoTo Err_Êíîïêà1_Click
Dim SQLCommand
SQLCommand = " Insert Into Êëèåíò (I,O,F,Adress,Phone) VALUES (""" & Name_Client & """,""" & Otchestvo_client & """,""" & Family_Client & """,""" & Adress_Client & """,""" & Phone_Client & """) "
MsgBox (SQLCommand)
DoCmd.RunSQL SQLCommand
Exit_Êíîïêà1_Click:
Exit Sub
Err_Êíîïêà1_Click:
MsgBox Err.Description
Resume Exit_Êíîïêà1_Click
End Sub
2
:
Private Sub Êíîïêà1_Click()
On Error GoTo Err_Êíîïêà1_Click
Dim SQLCommand
SQLCommand = " Insert Into Êëèåíò (I,O,F,Adress,Phone) VALUES (""" & Name_Client & """,""" & Otchestvo_client & """,""" & Family_Client & """,""" & Adress_Client & """,""" & Phone_Client & """) "
MsgBox (SQLCommand)
DoCmd.RunSQL SQLCommand
Exit_Êíîïêà1_Click:
Exit Sub
Err_Êíîïêà1_Click:
MsgBox Err.Description
Resume Exit_Êíîïêà1_Click
End Sub
5. .
:
:
Private Sub Add_Tovar_Click()
Dim SQLCommand
SQLCommand = " Insert Into Çàêàç (ID_K, ID_T, Kolvo) VALUES (""" & FIO_T & """,""" & Tovar_sklad & """,""" & ÏîëåÑîÑïèñêîì32 & """) "
MsgBox (SQLCommand)
DoCmd.RunSQL SQLCommand
End Sub
Private Sub Obnov_Enter()
End Sub
Private Sub Obnov_Exit(Cancel As Integer)
End Sub
Private Sub Tovar_sklad_BeforeUpdate(Cancel As Integer)
If Tovar_sklad <> "0" Then
Dim I
Dim rs As Recordset
Dim SQL
ÏîëåÑîÑïèñêîì32.RowSource = ""
SQL = "Select kolvo From Ñêëàä WHERE ID_T =" & Tovar_sklad
Set rs = CurrentDb.OpenRecordset(SQL)
For I = 1 To rs.Fields("kolvo")
ÏîëåÑîÑïèñêîì32.AddItem (I)
Next
End If
End Sub
. . Tovar_sklad. Private sub Tovar_sklad Tovar_sklad . ADD_tovar_click 1 . .
.
6. -.
:
:
6.
html. . . . vbscript. , KUKU . .
, .
.
html. vbscript. dim lenght_text. dim. length_text dim. I length_text. FIO. . sub. .
.
7.
:
:
7.
MS Access
MsgBox " .
.
