RENT A CAR AGENCY

DATABASE

DOCUMENTATION

Rent a Car Agency Database

CREATED IN: MS Access 2003 SP1

AUTHOR: MIROSŁAW DĄBROWSKI

GROUP: 229a

PJWSTK

© 2005I. TOR (Terms of References)

Project Name: Rent a Car Database

Needs:

II. ENTITY GRAPH

On next page is included a entity graph which shows relations between tables and relation between objects created during preparing of database.

Rent a Car Database

Entity Graph

III. Index and operating system functions of

Rent a Car Agency Database

1. Inputing/Viewing/Editing/Deleting data about Agents

• ID Agent (Primary Key)

• ID Base

• Name

• Surname

• Adress

• Telephone

• Cell Phone

• Photo

• Salary

Inputing/Viewing/Editing/Deleting data about Bases

• ID Base (Primary Key)

• ID Province

• Name

• City

• City District

• Adress

• Tel Kierunkowy

• Telephone

• Inputing/Viewing/Editing/Deleting data about Car Marks

• ID Car Mark (Primary Key)

• Name

• Logo

• Inputing/Viewing/Editing/Deleting data about Cars

• ID Car (Primary Key)

• ID Base

• ID Mark

• Model

• Registered Number

• Production Year

• Value

• Capacity

• AC

• OC

• NW

• Rent Price

• Inputing/Viewing/Editing/Deleting information about Clients

• ID Client (Primary Key)

• Name

• Surname

• City

• Adress

• Date of Birth

• Telephone

• Cellphone

• Inputing/Viewing/Editing/Deleting information about Mechanics

• ID Mechanic (Primary Key)

• ID Base

• Name

• Surname

• Adress

• Telephone

• Cell Phone

• Photo

• Salary

• Inputing/Viewing/Editing/Deleting information about Orders

• ID Order (Primary Key)

• ID Client

• ID Car

• Rent Write Date

• Rent Start Date

• Rent End Date

• Viewing information about Provinces

• ID Province (Primary Key)

• Name

• Chcking orders from X days ago

• Viewing Salary for each Base

• Changing salary of all workers by x%

• Changing salary of all workers by given value

• Finding information about:

• Agents (by name; surname and overall search)

• Bases (by name;province;district;city and overall search)

• Cars (by model; mark and overall search)

• Car Marks

• Clients (by name; surname and overall search)

• Mechanics (by name; surname and overall search)

• Orders

• Reports:

• Show / print / send via email all / specific reports of Agents

• Show / print / send via email all / specific reports of Bases

• Show / print / send via email all / specific reports of Cars

• Show / print / send via email all / specific reports of Clients

• Show / print / send via email all / specific reports of Mechanics

• Show / print / send via email all / specific reports of Orders

• Show / print report about database relations

IV. HIERARCHY OF BASIC SYSTEM MODULES

1. START (f) (Introducton screen)

2. MAIN MENU database panel (f) (this module is mian windows in database. Here ends and starts (without Introduction screen) all operations in database.)

1. Editing / Adding / Deleting data stored (Section)

1. Editing / Adding / Deleting data about agents (f)

2. Editing / Adding / Deleting data about bases (f)

3. Editing / Adding / Deleting data about car marks (f)

4. Editing / Adding / Deleting data about cars (f)

5. Editing / Adding / Deleting data about clients (f)

6. Editing / Adding / Deleting data about mechanics (f)

7. Editing / Adding / Deleting data about orders (f)

2. Get Information (Section)

1. Viewing data about agents (f)

2. Viewing data about bases (f)

3. Viewing data about car marks (f)

4. Viewing data about cars (f)

5. Viewing data about clients (f)

6. Viewing data about mechanics (f)

7. Viewing data about orders (f)

3. Search engine (Section)

1. Searching data about agents (sq)

2. Searching data about bases (sq)

3. Searching data about car marks (sq)

4. Searching data about cars (sq)

5. Searching data about clients (sq)

6. Searching data about mechanics (sq)

7. Searching data about orders (sq)

4. Report engine (Section)

1. operations on report about bases (r)

2. operations on report about cars (r)

3. operations on report about clients (r)

4. operations on report about mechanics (r)

5. operations on report about orders (r)

5. ABOUT (b) - Information about author of database (f)

6. Quit (b) - Exit database with closing Access

V. INDEX OF MODULES WITH FUNCTIONS

1. START (f)

Function: Iintroduction of database

Body: separate form

2. MAIN MENU database panel (f)

Function: Main window in database. Here user have access to all database functions

Body: separate form

3. Se (f)

Function: looking up art works

4. Viewinglooking up all artists of a specified author (f)

Function: viewing all works of one author

Body: separate form

5. looking up artworks of a specified type (f)

fun Function ction: viewing all works of one type

Body: separate form

6. looking up artworks of a specified style (f)

Function: viewing all works of one style

Body: separate form

7. Finding agents by inputing a name or a surname (sq)

Function: finding agents satisfying condition (name or surname)

Body: select query

8. Finding bases by inputing a name or a province (sq)

Function: finding bases satisfying condition (name or base province)

Body: select query

9. Finding cars by inputing a model or a mark (sq)

Function: finding cars satisfying condition (model or mark)

Body: select query

10. Finding clients by inputing a name or a surname (sq)

Function: finding a clients gents satisfying condition (name or surname)

Body: select query

11. Finding mechanics by inputing a name or a surname (sq)

Function: finding mechanics satisfying condition (name or surname)

Body: select query

12. Changing agents Salary by % (uq)

Function: updates salry for all agents by given %

Body: update querry

13. Changing mechanics Salary by % (uq)

Function: updates salry for all mechanics by given %

Body: update querry

14. Chnging agents Salary by given value (uq)

Function: edit updates salry for all mechanics by given value

Body: update querry

15. Chnging mechnics Salary by given value (uq)

Function: updates salry for all mechanics by given value

Body: update querry

16. Edit / Add agents (f)

Function: editing / adding / deleting data about agents

Body: separate form

17. Edit / Add bases (f)

Function: editing / adding / deleting data about bases

Body: separate form

18. Edit / Add cars (f)

Function: editing / adding / deleting data about cars

Body: separate form

19. Edit / Add car marks (f)

Function: editing / adding / deleting data about car marks

Body: separate form

20. Edit / Add clients (f)

Function: editing / adding / deleting data about clients

Body: separate form

21. Edit / Add mechanics (f)

Function: editing / adding / deleting data about mechanics

Body: separate form

22. Edit / Add orders (f)

Function: editing / adding / deleting data data about orders

Body: separate form

23. Viewing all agents working in specific base (sub form)

Function: shows all agents working in specific base

Body: subform

24. Viewing all mechanics working in specific base (sub form)

Function: shows all mechanics working in specific base

Body: subform

25. Viewing all cars working in specific base (sub form)

Function: shows all cars in specific base

Body: separate form

26. Viewing salary for all agents working in specific base (f)

Function: shows sum of all agents salaries working in a specific base

Body: separate form

27. Viewing salary for all mechanics working in specific base (f)

Function: shows sum of all mechanics salaries working in a specific base

Body: separate form

28. Show / printing / sending via e-mail reports (f)

Function: Showing / printing / sending reports

Body: separate form

29. ABOUT (f)

Function: infofmation about author of this database

Body: separate form

VI. TABLES - CONSTRUCTION / PROPERTIES

Table: Agents

Properties:

OrderByOn: False

Created Date: 2005-06-08

LastUpdated:: 2005-06-12

Orientation: from left to right

Record Count: 12

Updatable: True

Columns

NAME TYPE SIZE

ID_AGENT Auto number -

ID Base Liczba całkowita długa 50

Name Text 50

Surname Text 50

Address Text 50

Telephone Long Integer -

Cell phone Long Integer -

Photo OLE Object -

Salary Waluta -

Table: Bases

Properties:

OrderByOn: False

Created Date: 2005-06-08

LastUpdated:: 2005-06-12

Orientation: from left to right

Record Count: 17

Updatable: True

Columns

NAME TYPE SIZE

ID_BASE Auto number -

ID Province Long Integer 50

Name Text 50

City Text 50

City District Text 50

Address Text 50

Tel Kierunkowy Long Integer 50

Telephone Long Integer 50

Table: CarMarks

Properties:

OrderByOn: False

Created Date: 2005-06-08

LastUpdated:: 2005-06-12

Orientation: from left to right

Record Count: 15

Updatable: True

Columns

NAME TYPE SIZE

ID_CAR_MARK Auto number -

Name Text 50

Logo OLE Object -

Table: Cars

Properties:

OrderByOn: False

Created Date: 2005-06-08

LastUpdated:: 2005-06-12

Orientation: from left to right

Record Count: 23

Updatable: True

Columns

NAME TYPE SIZE

ID_CAR Auto number -

ID Base Long Integer -

ID Mark Long Integer -

Registered Number Text 50

Production Year Long Integer -

Value Long Integer -

Capacity Long Integer -

AC Yes/No -

OC Yes/No -

NW Yes/No -

Name Text 50

Rent Salutary -

Table: Clients

Properties:

OrderByOn: False

Created Date: 2005-06-08

LastUpdated:: 2005-06-12

Orientation: from left to right

Record Count: 3

Updatable: True

Columns

NAME TYPE SIZE

ID_CLIENT Auto number

Name Text 50

Surname Text 50

City Text 50

Address Text 50

Date Of Birth Date -

Telephone Long Integer -

Cell phone Long Integer -

Table: Mechanics

Properties:

OrderByOn: False

Created Date: 2005-06-08

LastUpdated:: 2005-06-12

Orientation: from left to right

Record Count: 7

Updatable: True

Columns

NAME TYPE SIZE

ID_MECHANIC Auto number

ID Base Long Integer 50

Name Text 50

Surname Text 50

Address Text 50

Telephone Long Integer -

Cell phone Long Integer -

Photo OLE Object -

Salary Waluta -

Table: Order

Properties:

OrderByOn: False

Created Date: 2005-06-08

LastUpdated:: 2005-06-12

Orientation: from left to right

Record Count: 3

Updatable: True

Columns

NAME TYPE SIZE

ID_ORDER Auto number -

ID Client Long Integer -

ID Car Long Integer -

Rent Write Date Date -

Rent Start Date Date -

Rent End Date Date -

Table: Provinces

Properties:

OrderByOn: False

Created Date: 2005-06-08

LastUpdated:: 2005-06-12

Orientation: from left to right

Record Count: 16

Updatable: True

Columns

NAME TYPE SIZE

ID_PROVINCE Auto number -

Name Text 50

VII. QUERIES - CONSTRUCTION / SQL / PROPERTIES

Query: K_Agents

Properties:

DateCreated: 2005-06-08 22:55:01

DefaultView: Arkusz danych

DOL: Dane dwójkowe długie

GUID: {guid {87EBBEF4-0DA3-4753-AAF3-57A3F7320C04}}

LastUpdated: 2005-06-12 16:51:49

MaxRecords: 0

ODBCTimeout: 60

OrderByOn: False

Orientation: Od lewej do prawej

RecordLocks: Bez blokowania

RecordsAffected: 0

RecordsetType: Dynamiczny

ReturnsRecords: True

Type: 0

Updatable: True

SQL:

SELECT T_Agents.ID_AGENT, T_Agents.[ID Base], T_Agents.Name, T_Agents.Surname, T_Agents.Adress, T_Agents.Telephone, T_Agents.CellPhone, T_Agents.Photo, T_Agents.Salary, T_Bases.ID_BASE, T_Bases.[ID Province], T_Bases.Name, T_Bases.City, T_Bases.[City District], T_Bases.Adress, T_Bases.[Tel Kierunkowy], T_Bases.Telephone, T_Provinces.Name

FROM T_Provinces INNER JOIN (T_Bases INNER JOIN T_Agents ON T_Bases.ID_BASE = T_Agents.[ID Base]) ON T_Provinces.ID_PROVINCE = T_Bases.[ID Province]

ORDER BY T_Agents.ID_AGENT;

Columns:

NAME TYPE SIZE

ID_AGENT Liczba całkowita długa 4

ID Base Liczba całkowita długa 4

T_Agents.Name Tekst 50

Surname Tekst 50

T_Agents.Adress Tekst 50 T_Agents.Telephone Liczba całkowita długa 4

CellPhone Liczba całkowita długa 4

Photo Obiekt OLE N/A

Salary Waluta 8

ID_BASE Liczba całkowita długa 4

ID Province Liczba całkowita długa 4

T_Bases.Name Tekst 50

City Tekst 50

City District Tekst 50

T_Bases.Adress Tekst 50

Tel Kierunkowy Liczba całkowita długa 4

T_Bases.Telephone Liczba całkowita długa 4

T_Provinces.Name Tekst 50

Query: K_Bases

Properties:

DateCreated: 2005-06-08 22:55:05

DefaultView: Arkusz danych

DOL: Dane dwójkowe długie

GUID: {guid {1B676B3F-0776-45CE-BE55-BDBB1F23ECF5}}

LastUpdated: 2005-06-08 23:39:47

MaxRecords: 0

ODBCTimeout: 60

OrderByOn: False

Orientation: Od lewej do prawej

RecordLocks: Bez blokowania

RecordsAffected: 0

RecordsetType: Dynamiczny

ReturnsRecords: True

Type: 0

Updatable: True

SQL:

SELECT T_Bases.ID_BASE, T_Bases.[ID Province], T_Bases.Name, T_Bases.City, T_Bases.[City District],

T_Bases.Adress, T_Bases.[Tel Kierunkowy], T_Bases.Telephone, T_Provinces.ID_PROVINCE,

T_Provinces.Name

FROM T_Provinces INNER JOIN T_Bases ON T_Provinces.ID_PROVINCE=T_Bases.[ID Province]

ORDER BY T_Bases.ID_BASE;

Columns:

NAME TYPE SIZE

ID_BASE Liczba całkowita długa 4

ID Province Liczba całkowita długa 4

T_Bases.Name Tekst 50

City Tekst 50

City District Tekst 50

Adress Tekst 50

Tel Kierunkowy Liczba całkowita długa 4

Telephone Liczba całkowita długa 4

type Tekst 50

ID_PROVINCE Liczba całkowita długa 4

T_Provinces.Name Tekst 50

Query: K_ BasesAndProvinces

Properties:

DateCreated: 2005-06-08 22:55:09

DefaultView: Arkusz danych

DOL: Dane dwójkowe długie

GUID: {guid {82107581-C0CC-4D4B-9952-2BE113B2F844}}

LastUpdated: 2005-06-09 19:16:51

MaxRecords: 0

ODBCTimeout: 60

OrderByOn: False

Orientation: Od lewej do prawej

RecordLocks: Bez blokowania

RecordsAffected: 0

RecordsetType: Dynamiczny

ReturnsRecords: True

Type: 0

Updatable: True

SQL:

SELECT T_Bases.ID_BASE, T_Bases.Name, T_Bases.City, T_Bases.[City District], T_Bases.Adress,

T_Provinces.Name

FROM T_Provinces INNER JOIN T_Bases ON T_Provinces.ID_PROVINCE=T_Bases.[ID Province]

GROUP BY T_Bases.ID_BASE, T_Bases.Name, T_Bases.City, T_Bases.[City District], T_Bases.Adress,

T_Provinces.Name;

Columns:

NAME TYPE SIZE

ID_BASE Liczba całkowita długa 4

T_Bases.Name Tekst 50

City Tekst 50

City District Tekst 50

Adress Tekst 50

T_Provinces.Name Tekst 50

Query: K_ Cars

Properties:

DateCreated: 2005-06-08 22:55:11

DefaultView: Arkusz danych

DOL: Dane dwójkowe długie

GUID: {guid {6DF1B070-6F4D-4F81-A976-1D0D609289E9}}

LastUpdated: 2005-06-12 12:54:05

MaxRecords: 0

ODBCTimeout: 60

OrderByOn: False

Orientation: Od lewej do prawej

RecordLocks: Bez blokowania

RecordsAffected: 0

RecordsetType: Dynamiczny

ReturnsRecords: True

Type: 0

Updatable: True

SQL:

SELECT T_Cars.ID_CAR, T_CarMarks.Name, T_CarMarks.Logo, T_Cars.[Registered Number],

T_Cars.[Production Year], T_Cars.Value, T_Cars.Capacity, T_Cars.AC, T_Cars.OC, T_Cars.NW, T_Bases.Name,

T_Bases.City, T_Bases.[City District], T_Bases.Adress, T_Provinces.Name, T_Cars.Model, T_Bases.[Tel

Kierunkowy], T_Bases.Telephone, T_Bases.ID_BASE, T_Cars.[ID Base], T_CarMarks.ID_CAR_MARK, T_Cars.[ID

Mark], T_Cars.RentPrice

FROM T_Provinces INNER JOIN (T_CarMarks INNER JOIN (T_Bases INNER JOIN T_Cars ON

T_Bases.ID_BASE=T_Cars.[ID Base]) ON T_CarMarks.ID_CAR_MARK=T_Cars.[ID Mark]) ON

T_Provinces.ID_PROVINCE=T_Bases.[ID Province]

ORDER BY T_Cars.ID_CAR;

Columns:

NAME TYPE SIZE

ID_CAR Liczba całkowita długa 4

T_CarMarks.Name Tekst 50

Logo Obiekt OLE N/A

Registered Number Tekst 50

Production Year Liczba całkowita długa 4

Value Liczba całkowita długa 4

Capacity Liczba całkowita długa 4

AC Tak/Nie 1

OC Tak/Nie 1

NW Tak/Nie 1

Query: search_author

Właściwości

.BlokowanieRekordów: Bez blokowania .CzasOczekiwaniaODBC: 60

.PorządkowanieWłączon False .TypZestawuRekordów: Dynamiczny

.ZwracaRekordy: True Data utworzenia: 00-04-11 08:41:49

MaxRecords: 0 Orientation: 0

Ostatnio modyfikowany: 00-06-03 12:57:39 RecordsAffected: 0

Type: 0 Updatable: True

SQL

SELECT authors.name, Product.title, Product.year, Product.photo, Product.size, Product.price,

Product.type_id, Product.style_id

FROM authors INNER JOIN Product ON authors.id_author = Product.id_author

WHERE (((authors.name)=[enter authors name]));

Parametry kwerendy

Nazwa Typ

[enter authors name] Tekst

Kolumny

Nazwa Typ Rozmiar

name Tekst 50

title Tekst 50

year Liczba całkowita długa 4

photo Obiekt OLE N/A

size Tekst 50

price Liczba całkowita długa 4

type_id Liczba całkowita długa 4

style_id Liczba całkowita długa 4

Query: search_price

Właściwości

.BlokowanieRekordów: Bez blokowania .CzasOczekiwaniaODBC: 60

.PorządkowanieWłączon False .TypZestawuRekordów: Dynamiczny

.ZwracaRekordy: True Data utworzenia: 00-04-11 08:57:35

MaxRecords: 0 Orientation: 0

Ostatnio modyfikowany: 00-06-03 13:10:42 RecordsAffected: 0

Type: 0 Updatable: True

SQL

SELECT Product.title, Product.year, Product.price, authors.name

FROM authors INNER JOIN Product ON authors.id_author = Product.id_author

WHERE (((Product.price)<=[enter highest price]));

Parametry kwerendy

Nazwa Typ

[enter highest price] Tekst

Kolumny

Nazwa Typ Rozmiar

title Tekst 50

year Liczba całkowita długa 4

price Liczba całkowita długa 4

name Tekst 50

Query: search_title

Właściwości

.BlokowanieRekordów: Bez blokowania .CzasOczekiwaniaODBC: 60

.PorządkowanieWłączon False .TypZestawuRekordów: Dynamiczny

.ZwracaRekordy: True Data utworzenia: 00-04-11 08:43:39

MaxRecords: 0 Orientation: 0

Ostatnio modyfikowany: 00-06-03 13:15:22 RecordsAffected: 0

Type: 0 Updatable: True

SQL

SELECT Product.title, authors.name, authors.live_period, Product.year, Product.Orginal, Product.price,

Product.size

FROM authors INNER JOIN Product ON authors.id_author = Product.id_author

WHERE (((Product.title)=[enter title]));

Parametry kwerendy

Nazwa Typ

[enter title] Tekst

Kolumny

Nazwa Typ Rozmiar

title Tekst 50

name Tekst 50

live_period Tekst 50

year Liczba całkowita długa 4

Orginal Tak/Nie 1

price Liczba całkowita długa 4

size Tekst 50

Query: search_year

Właściwości

.BlokowanieRekordów: Bez blokowania .CzasOczekiwaniaODBC: 60

.PorządkowanieWłączon False .TypZestawuRekordów: Dynamiczny

.ZwracaRekordy: True Data utworzenia: 00-06-03 13:07:05

MaxRecords: 0 Orientation: 0

Ostatnio modyfikowany: 00-06-03 13:07:21 RecordsAffected: 0

Type: 0 Updatable: True

SQL

SELECT Product.year, Product.title, authors.name, Product.Orginal, Product.price, Product.size

FROM authors INNER JOIN Product ON (authors.id_author = Product.id_author) AND (authors.id_author =

Product.id_author)

WHERE (((Product.year)=[input year]));

Parametry kwerendy

Nazwa Typ

[input year] Tekst

Kolumny

Nazwa Typ Rozmiar

year Liczba całkowita długa 4

title Tekst 50

name Tekst 50

Orginal Tak/Nie 1

price Liczba całkowita długa 4

size Tekst 50

Kwerenda: style_product

Właściwości

.BlokowanieRekordów: Bez blokowania .CzasOczekiwaniaODBC: 60

.PorządkowanieWłączon False .TypZestawuRekordów: Dynamiczny

.ZwracaRekordy: True Data utworzenia: 00-05-09 09:52:44

MaxRecords: 0 Orientation: 0

Ostatnio modyfikowany: 00-05-29 21:14:31 RecordsAffected: 0

Type: 0 Updatable: True

SQL

SELECT Product.title, Product.year, Product.size, authors.name, styles.style

FROM styles INNER JOIN (authors INNER JOIN Product ON authors.id_author = Product.id_author) ON

styles.style_id = Product.style_id;

Kolumny

Nazwa Typ Rozmiar

title Tekst 50

year Liczba całkowita długa 4

size Tekst 50

name Tekst 50

style Tekst 50

Kwerenda: Titles

Właściwości

.BlokowanieRekordów: Bez blokowania .CzasOczekiwaniaODBC: 60

.PorządkowanieWłączon False .TypZestawuRekordów: Dynamiczny

.ZwracaRekordy: True Data utworzenia: 00-05-29 23:59:22

MaxRecords: 0 Orientation: 0

Ostatnio modyfikowany: 00-05-29 23:59:22 RecordsAffected: 0

Type: 0 Updatable: True

SQL

SELECT Product.title

FROM Product;

Kolumny

Nazwa Typ Rozmiar

title Tekst 50

Kwerenda: type_product

Właściwości

.BlokowanieRekordów: Bez blokowania .CzasOczekiwaniaODBC: 60

.PorządkowanieWłączon False .TypZestawuRekordów: Dynamiczny

.ZwracaRekordy: True Data utworzenia: 00-05-09 09:51:27

MaxRecords: 0 Orientation: 0

Ostatnio modyfikowany: 00-05-29 21:14:44 RecordsAffected: 0

Type: 0 Updatable: True

SQL

SELECT Product.title, Product.year, Product.size, authors.name, types.type

FROM types INNER JOIN (authors INNER JOIN Product ON authors.id_author = Product.id_author) ON

(types.type_id = Product.type_id) AND (types.type_id = Product.type_id);

Kolumny

Nazwa Typ Rozmiar

title Tekst 50

year Liczba całkowita długa 4

size Tekst 50

name Tekst 50

type Tekst 50

8. MACRAS CONSTRUCTION

Makro: AutoExec

Właściwości

Container: Scripts Data utworzenia: 00-05-23 13:26:49

Ostatnio modyfikowany: 00-05-23 13:26:49 Owner: admin

UserName: admin

Akcje

Nazwa Warunek Akcja Argument Wartość

Beep

Minimize

OpenForm Nazwa formularza: frmStart

Widok: Form

Nazwa filtru:

Warunek WHERE:

Tryb danych: -1

Tryb okna: Normalny

Makro: search_author

Właściwości

Container: Scripts Data utworzenia: 00-06-03 13:07:58

Ostatnio modyfikowany: 00-06-03 13:07:58 Owner: admin

UserName: admin

Akcje

Nazwa Warunek Akcja Argument Wartość

Beep

OpenQuery Nazwa kwerendy: search_author

Widok: Arkusz danych

Tryb danych: Edycja

Makro: search_price

Właściwości

Container: Scripts Data utworzenia: 00-06-03 13:08:19

Ostatnio modyfikowany: 00-06-03 13:08:19 Owner: admin

UserName: admin

Akcje

Nazwa Warunek Akcja Argument Wartość

Beep

OpenQuery Nazwa kwerendy: search_price

Widok: Arkusz danych

Tryb danych: Edycja

Makro: search_title

Właściwości

Container: Scripts Data utworzenia: 00-06-03 13:08:31

Ostatnio modyfikowany: 00-06-03 13:08:31 Owner: admin

UserName: admin

Akcje

Nazwa Warunek Akcja Argument Wartość

Beep

OpenQuery Nazwa kwerendy: search_title

Widok: Arkusz danych

Tryb danych: Edycja

Makro: search_year

Właściwości

Container: Scripts Data utworzenia: 00-06-03 13:08:58

Ostatnio modyfikowany: 00-06-03 13:08:58 Owner: admin

UserName: admin

Akcje

Nazwa Warunek Akcja Argument Wartość

Beep

OpenQuery Nazwa kwerendy: search_year

Widok: Arkusz danych

Tryb danych: Edycja

Makro: sygnal

Właściwości

Container: Scripts Data utworzenia: 00-06-03 13:26:55

Ostatnio modyfikowany: 00-06-03 13:26:55 Owner: admin

UserName: admin

Akcje

Nazwa Warunek Akcja Argument Wartość

Beep

9. GLOBAL MODULES DEFINITIONS

Moduł: Kasuj

Właściwości

Container: Modules Data utworzenia: 00-06-03 14:23:07

Ostatnio modyfikowany: 00-06-03 14:23:07 Owner: admin

UserName: admin

Code

1 Attribute VB_Name = "Kasuj"

2 Option Compare Database

3

4 Public Sub Kasuj()

5 On Error GoTo Err_butDel_Click

6

7

8 DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

9 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

10

11 Exit_butDel_Click:

12 Exit Sub

13

14 Err_butDel_Click:

15 MsgBox Err.Description

16 Resume Exit_butDel_Click

17

18 End Sub

Moduł: NextPrev

Właściwości

Container: Modules Data utworzenia: 00-06-03 13:38:58

Ostatnio modyfikowany: 00-06-03 13:38:58 Owner: admin

UserName: admin

Code

1 Attribute VB_Name = "NextPrev"

2 Option Compare Database

3

4 Public Sub nastepny()

5 On Error GoTo Err_Next_Click

6

7

8 DoCmd.GoToRecord , , acNext

9

10 Exit_Next_Click:

11 Exit Sub

12

13 Err_Next_Click:

14 MsgBox "You are on last position. Next position doesn't exsist"

15 Resume Exit_Next_Click

16

17 End Sub

18 Public Sub poprzedni()

19 On Error GoTo Err_Prev_Click

20

21

22 DoCmd.GoToRecord , , acPrevious

23

24 Exit_Prev_Click:

25 Exit Sub

26

27 Err_Prev_Click:

28 MsgBox "You are on thirst position. Previous position doesn't exsist"

29 Resume Exit_Prev_Click

30

31 End Sub

Moduł: Zamknij

Właściwości

Container: Modules Data utworzenia: 00-06-03 14:21:27

Ostatnio modyfikowany: 00-06-03 14:21:27 Owner: admin

UserName: admin

Code

1 Attribute VB_Name = "Zamknij"

2 Option Compare Database

3

4 Public Sub Zamknij()

5 On Error GoTo Err_butClose_Click

6

7

8 DoCmd.Close

9 DoCmd.OpenForm "frmIndex"

10

11 Exit_butClose_Click:

12 Exit Sub

13

14 Err_butClose_Click:

15 MsgBox Err.Description

16 Resume Exit_butClose_Click

17

18 End Sub

19

20

10. FORMS CONSTRUCTION WITH VBA CODE

Form: catalog

Objects

Section: Szczegóły

Label: Etykieta0

Label: Etykieta14

Label: Etykieta2

Label: Etykieta26

Label: Etykieta3

Label: Etykieta32

Label: Etykieta4

Label: Etykieta6

TextBox: id_product

TextBox: name

Command Button: Next

Związana ramka obiektu: photo

Command Button: Polecenie34

Command Button: Prev

TextBox: price

TextBox: recension

TextBox: size

TextBox: style

TextBox: title

TextBox: type

TextBox: year

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_catalog"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

• Private Sub Form_Load()

13

14 End Sub

15

16 Sub Next_Click()

17 NextPrev.nastepny

18 End Sub

19

20 Private Sub Prev_Click()

21 NextPrev.poprzedni

22 End Sub

23 Private Sub Polecenie34_Click()

24 On Error GoTo Err_Polecenie34_Click

25

26

27 Screen.PreviousControl.SetFocus

28 DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

29

30 Exit_Polecenie34_Click:

31 Exit Sub

32

33 Err_Polecenie34_Click:

34 MsgBox Err.Description

35 Resume Exit_Polecenie34_Click

36

37 End Sub

Form: frmAddAuthor

Objects

Section: Szczegóły

Textbox: address

Checkbox: alive

Command button: butAdd

Command button: butClose

Textbox: city

Label: Etykieta0

Label: Etykieta1

Label: Etykieta2

Label: Etykieta3

Label: Etykieta4

Label: Etykieta5

Label: Etykieta6

Textbox: id_author

Textbox: live_period

Textbox: name

Textbox: phone

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmAddAuthor"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

12

13 Private Sub Form_BeforeUpdate(Cancel As Integer)

14 Dim strMsg As String

15 Dim strTitle As String

16 Dim intStyle As Integer

17

18 If IsNull([name]) Or [name] = "" Then

19 strMsg = "You must input authors name"

20 strTitle = "Name required!"

21 intStyle = vbOKOnly + vbExclamation

22 MsgBox strMsg, intStyle, strTitle

23 Cancel = True

24 End If

25

26 If IsNull([address]) Or [address] = "" Then

27 strMsg = "You must input authors address"

28 strTitle = "Address required!"

29 intStyle = vbOKOnly + vbExclamation

30 MsgBox strMsg, intStyle, strTitle

31 Cancel = True

32 End If

33

34 If IsNull([city]) Or [city] = "" Then

35 strMsg = "You must input city"

36 strTitle = "City required!"

37 intStyle = vbOKOnly + vbExclamation

38 MsgBox strMsg, intStyle, strTitle

39 Cancel = True

40 End If

41

42 End Sub

43 Private Sub butAdd_Click()

44 On Error GoTo Err_butAdd_Click

45

46

47 DoCmd.GoToRecord , , acNewRec

48

49 Exit_butAdd_Click:

50 Exit Sub

51

52 Err_butAdd_Click:

53 MsgBox Err.Description

54 Resume Exit_butAdd_Click

55

56 End Sub

57 Private Sub butClose_Click()

58 On Error GoTo Err_butClose_Click

59

60

61 DoCmd.Close

62 DoCmd.OpenForm "frmIndex"

63 Exit_butClose_Click:

64 Exit Sub

65

66 Err_butClose_Click:

67 MsgBox Err.Description

68 Resume Exit_butClose_Click

69

70 End Sub

71

Form: frmAddExpert

Objects

Section: Szczegóły

Command button: butAdd

Command button: butClose

Textbox: city

Label: Etykieta0

Label: Etykieta1

Label: Etykieta2

Label: Etykieta3

Textbox: id_expert

Textbox: name

Textbox: phone

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmAddExpert"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

12

13

14 Private Sub butAdd_Click()

15 On Error GoTo Err_butAdd_Click

16

17

18 DoCmd.GoToRecord , , acNewRec

19

20 Exit_butAdd_Click:

21 Exit Sub

22

23 Err_butAdd_Click:

24 MsgBox Err.Description

25 Resume Exit_butAdd_Click

26

27 End Sub

28 Private Sub butClose_Click()

29 On Error GoTo Err_butClose_Click

30

31

32 DoCmd.Close

33 DoCmd.OpenForm "frmIndex"

34

35 Exit_butClose_Click:

36 Exit Sub

37

38 Err_butClose_Click:

39 MsgBox Err.Description

40 Resume Exit_butClose_Click

41

42 End Sub

43

44 Private Sub Form_BeforeUpdate(Cancel As Integer)

45 Dim strMsg As String

46 Dim strTitle As String

47 Dim intStyle As Integer

48

49 If IsNull([name]) Or [name] = "" Then

50 strMsg = "You must input expert's name"

51 strTitle = "Name required!"

52 intStyle = vbOKOnly + vbExclamation

53 MsgBox strMsg, intStyle, strTitle

54 Cancel = True

55 End If

56 If IsNull([city]) Or [city] = "" Then

57 strMsg = "You must input city"

58 strTitle = "City required!"

59 intStyle = vbOKOnly + vbExclamation

60 MsgBox strMsg, intStyle, strTitle

61 Cancel = True

62 End If

63 If IsNull([phone]) Or [phone] = "" Then

64 strMsg = "You must input phone"

65 strTitle = "Phone required!"

66 intStyle = vbOKOnly + vbExclamation

67 MsgBox strMsg, intStyle, strTitle

68 Cancel = True

69 End If

70

71 End Sub

Form: frmAddExpo

Objects

Section: Szczegóły

Command button: butAdd

Command button: butClose

Label: Etykieta0

Label: Etykieta1

Label: Etykieta2

Label: Etykieta3

Label: Etykieta4

Textbox: id_exp

Textbox: info

Textbox: name

Textbox: place

Textbox: start

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmAddExpo"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butAdd_Click()

13 On Error GoTo Err_butAdd_Click

14

15

16 DoCmd.GoToRecord , , acNewRec

17

18 Exit_butAdd_Click:

19 Exit Sub

20

21 Err_butAdd_Click:

22 MsgBox Err.Description

23 Resume Exit_butAdd_Click

24

25 End Sub

26 Private Sub butClose_Click()

27 On Error GoTo Err_butClose_Click

28

29

30 DoCmd.Close

31 DoCmd.OpenForm "frmIndex"

32

33 Exit_butClose_Click:

34 Exit Sub

35

36 Err_butClose_Click:

37 MsgBox Err.Description

38 Resume Exit_butClose_Click

39

40 End Sub

41

42 Private Sub Form_BeforeUpdate(Cancel As Integer)

43

44 Dim strMsg As String

45 Dim strTitle As String

46 Dim intStyle As Integer

47

48 If IsNull([name]) Or [name] = "" Then

49 strMsg = "You must input exhibition name"

50 strTitle = "Name required!"

51 intStyle = vbOKOnly + vbExclamation

52 MsgBox strMsg, intStyle, strTitle

53 Cancel = True

54 End If

55 If IsNull([start]) Or [start] = "" Then

56 strMsg = "You must input start date"

57 strTitle = "Start date required!"

58 intStyle = vbOKOnly + vbExclamation

59 MsgBox strMsg, intStyle, strTitle

60 Cancel = True

61 End If

62 If IsNull([place]) Or [place] = "" Then

63 strMsg = "You must input place"

64 strTitle = "Place required!"

65 intStyle = vbOKOnly + vbExclamation

66 MsgBox strMsg, intStyle, strTitle

67 Cancel = True

68 End If

69 If IsNull([Info]) Or [Info] = "" Then

70 strMsg = "You must input infoline"

71 strTitle = "Infoline required!"

72 intStyle = vbOKOnly + vbExclamation

73 MsgBox strMsg, intStyle, strTitle

74 Cancel = True

75 End If

76

77

78 End Sub

Form: frmAddExpoProd

Objects

Section: Detail

Command button: Command2

Combo box: id_exp

Combo box: id_product

Label: Label3

Label: Label4

Command button: Polecenie6

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmAddExpoProd"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

12

13

14 Private Sub Command2_Click()

15 On Error GoTo Err_Command2_Click

16

17

18 DoCmd.GoToRecord , , acNewRec

19 Forms![frmIndex]![frmExpo].Form![frmChildExpo].Form.Requery

20

21 Exit_Command2_Click:

22 Exit Sub

23

24 Err_Command2_Click:

25 MsgBox Err.Description

26 Resume Exit_Command2_Click

27

28 End Sub

29

30

31

32 Private Sub Form_BeforeUpdate(Cancel As Integer)

33

34 Dim strMsg As String

35 Dim strTitle As String

36 Dim intStyle As Integer

37

38 If IsNull([id_product]) Or [id_product] = "" Then

• strMsg = "You must select an artwork"

• strTitle = "Artwork required!"

41 intStyle = vbOKOnly + vbExclamation

42 MsgBox strMsg, intStyle, strTitle

43 Cancel = True

44 End If

45

46

47 End Sub

48

49 Private Sub Form_Load()

50

51 End Sub

52

53 Private Sub Polecenie6_Click()

54 Dim str As String

55 str = "[id_exp]=Forms![frmIndex]![frmAddExpoProd].Form![id_exp].Value"

56 DoCmd.OpenForm "frmExpoInfo", , , str

57 Forms![frmExpoInfo].SetFocus

58 End Sub

59

60 End Sub

Form: frmAddProduct

Objects

Section: Szczegóły

Command button: butAdd

Command button: butClose

Label: Etykieta10

Label: Etykieta11

Label: Etykieta12

Label: Etykieta13

Label: Etykieta14

Label: Etykieta15

Label: Etykieta16

Label: Etykieta17

Label: Etykieta19

Label: Etykieta26

Podformularz/Podraport: frmRecension

Combo box: id_author

Textbox: id_product

Checkbox: Orginal

Związana ramka obiektu: photo

Textbox: price

Textbox: size

Combo box: style_id

Textbox: title

Combo box: type_id

Textbox: year

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmAddProduct"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub Form_BeforeUpdate(Cancel As Integer)

13

14 Dim strMsg As String

15 Dim strTitle As String

16 Dim intStyle As Integer

17

18 If IsNull([title]) Or [title] = "" Then

19 strMsg = "You must input title"

20 strTitle = "Title required!"

21 intStyle = vbOKOnly + vbExclamation

22 MsgBox strMsg, intStyle, strTitle

23 Cancel = True

24 End If

25

26 If IsNull([id_author]) Or [id_author] = "" Then

27 strMsg = "You must select Author"

28 strTitle = "Author required!"

29 intStyle = vbOKOnly + vbExclamation

30 MsgBox strMsg, intStyle, strTitle

31 Cancel = True

32 End If

33

34 If IsNull([year]) Or [year] = "" Then

35 strMsg = "You must input year"

36 strTitle = "Year required!"

37 intStyle = vbOKOnly + vbExclamation

38 MsgBox strMsg, intStyle, strTitle

39 Cancel = True

40 End If

41

42 If IsNull([type_id]) Or [type_id] = "" Then

43 strMsg = "You must select type"

44 strTitle = "Type required!"

45 intStyle = vbOKOnly + vbExclamation

46 MsgBox strMsg, intStyle, strTitle

47 Cancel = True

48 End If

49

50 If IsNull([style_id]) Or [style_id] = "" Then

51 strMsg = "You must select style"

52 strTitle = "Style required!"

53 intStyle = vbOKOnly + vbExclamation

54 MsgBox strMsg, intStyle, strTitle

55 Cancel = True

56 End If

57

58 If IsNull([price]) Or [price] = "" Then

59 strMsg = "You must input price"

60 strTitle = "Price required!"

61 intStyle = vbOKOnly + vbExclamation

62 MsgBox strMsg, intStyle, strTitle

63 Cancel = True

64 End If

65

66 End Sub

67

68 Private Sub butAdd_Click()

69 On Error GoTo Err_butAdd_Click

70

71

72 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

73

74 Exit_butAdd_Click:

75 Exit Sub

76

77 Err_butAdd_Click:

78 MsgBox Err.Description

79 Resume Exit_butAdd_Click

80

81 End Sub

82 Private Sub butClose_Click()

83 On Error GoTo Err_butClose_Click

84

85

86 DoCmd.Close

87 DoCmd.OpenForm "frmIndex"

88

89 Exit_butClose_Click:

90 Exit Sub

91

92 Err_butClose_Click:

93 MsgBox Err.Description

94 Resume Exit_butClose_Click

95

96 End Sub

Form: frmAddStyle

Objects

Section: Szczegóły

Command button: butAdd

Command button: butClose

Label: Etykieta0

Label: Etykieta1

Textbox: style

Textbox: style_id

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmAddStyle"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub Form_BeforeUpdate(Cancel As Integer)

13 Dim strMsg As String

14 Dim strTitle As String

15 Dim intStyle As Integer

16 If IsNull([style]) Or [style] = "" Then

17 strMsg = "You must input style"

18 strTitle = "Style required!"

19 intStyle = vbOKOnly + vbExclamation

20 MsgBox strMsg, intStyle, strTitle

21 Cancel = True

22 End If

23 End Sub

24

25 Private Sub butAdd_Click()

26 On Error GoTo Err_butAdd_Click

27

28

29 DoCmd.GoToRecord , , acNewRec

30

31 Exit_butAdd_Click:

32 Exit Sub

33

34 Err_butAdd_Click:

35 MsgBox Err.Description

36 Resume Exit_butAdd_Click

37

38 End Sub

39 Private Sub butClose_Click()

40 On Error GoTo Err_butClose_Click

41

42

43 DoCmd.Close

44 DoCmd.OpenForm "frmIndex"

45

46 Exit_butClose_Click:

47 Exit Sub

48

49 Err_butClose_Click:

50 MsgBox Err.Description

51 Resume Exit_butClose_Click

52

53 End Sub

54

Form: frmAddType

Objects

Section: Szczegóły

Command button: butAdd

Command button: butClose

Label: Etykieta0

Label: Etykieta1

Textbox: type

Textbox: type_id

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmAddType"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12

13

14 Private Sub butAdd_Click()

15 On Error GoTo Err_butAdd_Click

16

17

18 DoCmd.GoToRecord , , acNewRec

19

20 Exit_butAdd_Click:

21 Exit Sub

22

23 Err_butAdd_Click:

24 MsgBox Err.Description

25 Resume Exit_butAdd_Click

26

27 End Sub

28 Private Sub butClose_Click()

29 On Error GoTo Err_butClose_Click

30

31

32 DoCmd.Close

33 DoCmd.OpenForm "frmIndex"

34

35 Exit_butClose_Click:

36 Exit Sub

37

38 Err_butClose_Click:

39 MsgBox Err.Description

40 Resume Exit_butClose_Click

41

42 End Sub

43

44 Private Sub Form_BeforeUpdate(Cancel As Integer)

45

46 Dim strMsg As String

47 Dim strTitle As String

48 Dim intStyle As Integer

49

50 If IsNull([type]) Or [type] = "" Then

51 strMsg = "You must input type"

52 strTitle = "Type required!"

53 intStyle = vbOKOnly + vbExclamation

54 MsgBox strMsg, intStyle, strTitle

55 Cancel = True

56 End If

57 End Sub

Form: frmAuthors

Objects

Section: NagłówekFormularza

Section: StopkaFormularza

Section: Szczegóły

Command button: butClose

Podformularz/Podraport: frmChildAuthor

Label: frmChildAuthor_Label

Textbox: name

Label: name_Label

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmAuthors"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butClose_Click()

13 Zamknij.Zamknij

14 End Sub

Form: frmDelAuthor

Objects

Section: Szczegóły

Textbox: address

Checkbox: alive

Command button: butClose

Command button: butDel

Command button: butNext

Command button: butPrev

Textbox: city

Label: Etykieta0

Label: Etykieta1

Label: Etykieta2

Label: Etykieta3

Label: Etykieta4

Label: Etykieta5

Label: Etykieta6

Textbox: id_author

Textbox: live_period

Textbox: name

Textbox: phone

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmDelAuthor"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

12

13

14 Private Sub butDel_Click()

15

16 Dim strDel As String

17 strDel = "DELETE * FROM authors WHERE id_author=" & Me![id_author]

18

19 DoCmd.RunSQL strDel

20 Me.Requery

21 End Sub

22

23 Private Sub butClose_Click()

24 Zamknij.Zamknij

25 End Sub

26

27 Private Sub butPrev_Click()

28 NextPrev.poprzedni

29 End Sub

30

31 Private Sub butNext_Click()

32 NextPrev.nastepny

33 End Sub

Form: frmChildAuthor

Objects

Section: NagłówekFormularza

Section: StopkaFormularza

Section: Szczegóły

TextBox: price

Label: price_Label

TextBox: size

Label: size_Label

TextBox: style

Label: style_Label

TextBox: title

Label: title_Label

TextBox: type

Label: type_Label

TextBox: year

Label: year_Label

Form: frmChildExpo

Objects

Section: NagłówekFormularza

Section: StopkaFormularza

Section: Szczegóły

TextBox: name

Label: name_Label

TextBox: size

Label: size_Label

TextBox: title

Label: title_Label

TextBox: year

Label: year_Label

Form: frmChildStyles

Objects

Section: NagłówekFormularza

Section: StopkaFormularza

Section: Szczegóły

TextBox: name

Label: name_Label

TextBox: size

Label: size_Label

TextBox: title

Label: title_Label

TextBox: year

Label: year_Label

Form: frmChildTypes

Objects

Section: NagłówekFormularza

Section: StopkaFormularza

Section: Szczegóły

TextBox: name

Label: name_Label

TextBox: size

Label: size_Label

TextBox: title

Label: title_Label

TextBox: year

Label: year_Label

Form: frmDelAuthor

Objects

Section: Szczegóły

Textbox: address

Checkbox: alive

Command button: butClose

Command button: butDel

Command button: butNext

Command button: butPrev

Textbox: city

Label: Etykieta0

Label: Etykieta1

Label: Etykieta2

Label: Etykieta3

Label: Etykieta4

Label: Etykieta5

Label: Etykieta6

Textbox: id_author

Textbox: live_period

Textbox: name

Textbox: phone

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmDelAuthor"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

12

13

14 Private Sub butDel_Click()

15

16 Dim strDel As String

17 strDel = "DELETE * FROM authors WHERE id_author=" & Me![id_author]

18

19 DoCmd.RunSQL strDel

20 Me.Requery

21 End Sub

22

23 Private Sub butClose_Click()

24 Zamknij.Zamknij

25 End Sub

26

27 Private Sub butPrev_Click()

28 NextPrev.poprzedni

29 End Sub

30

31 Private Sub butNext_Click()

32 NextPrev.nastepny

33 End Sub

Form: frmDelExpert

Objects

Section: Szczegóły

Command button: butClose

Command button: butDel

Command button: butNext

Command button: butPrev

Textbox: city

Label: Etykieta0

Label: Etykieta1

Label: Etykieta2

Label: Etykieta3

Textbox: id_expert

Textbox: name

Textbox: phone

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmDelExpert"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butDel_Click()

13 Dim strDel As String

14 strDel = "DELETE * FROM expert WHERE id_expert=" & Me![id_expert]

15

16 DoCmd.RunSQL strDel

17 Me.Requery

18 End Sub

19 Private Sub butPrev_Click()

20 NextPrev.poprzedni

21 End Sub

22 Private Sub butNext_Click()

23 NextPrev.nastepny

24 End Sub

25 Private Sub butClose_Click()

26 Zamknij.Zamknij

27 End Sub

Form: frmDelProduct

Objects

Section: Szczegóły

Command button: butClose

Command button: butDel

Command button: butNext

Command button: butPrev

Label: Etykieta10

Label: Etykieta11

Label: Etykieta12

Label: Etykieta13

Label: Etykieta14

Label: Etykieta15

Label: Etykieta16

Label: Etykieta17

Label: Etykieta19

Label: Etykieta26

Combo box: id_author

Textbox: id_product

Checkbox: Orginal

Związana ramka obiektu: photo

Textbox: price

Textbox: size

Combo box: style_id

Textbox: title

Combo box: type_id

Textbox: year

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmDelProduct"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Private Sub butClose_Click()

12 Zamknij.Zamknij

13 End Sub

14

15 Private Sub butDel_Click()

16

17 Dim strDel As String

18 strDel = "DELETE * FROM Products WHERE id_product=" & Me![id_product]

19

20 DoCmd.RunSQL strDel

21 Me.Requery

22

23 End Sub

24

25 Private Sub butPrev_Click()

26 NextPrev.poprzedni

27 End Sub

28

29 Private Sub butNext_Click()

30 NextPrev.nastepny

• End Sub

Form: frmDetiledSearch

Objects

Section: Szczegóły

Label: Etykieta0

Command Button: Polecenie1

Command Button: Polecenie3

Command Button: Polecenie4

Command Button: Polecenie5

Form: frmEditAuthor

Objects

Section: Szczegóły

TextBox: address

CheckBox: alive

Command Button: butAdd

Command Button: butClose

TextBox: city

Label: Etykieta0

Label: Etykieta1

Label: Etykieta2

Label: Etykieta3

Label: Etykieta4

Label: Etykieta5

Label: Etykieta6

TextBox: id_author

TextBox: live_period

TextBox: name

TextBox: phone

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmEditAuthor"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butAdd_Click()

13 On Error GoTo Err_butAdd_Click

14

15

16 DoCmd.GoToRecord , , acNewRec

17

18 Exit_butAdd_Click:

19 Exit Sub

20

21 Err_butAdd_Click:

22 MsgBox Err.Description

23 Resume Exit_butAdd_Click

24

25 End Sub

26 Private Sub butClose_Click()

27 On Error GoTo Err_butClose_Click

28

29

30 DoCmd.Close

31 DoCmd.OpenForm "frmIndex"

32 Exit_butClose_Click:

33 Exit Sub

34

35 Err_butClose_Click:

36 MsgBox Err.Description

37 Resume Exit_butClose_Click

38

39 End Sub

Form: frmEditExpert

Objects

Section: Szczegóły

Command Button: butAdd

Command Button: butClose

TextBox: city

Label: Etykieta0

Label: Etykieta1

Label: Etykieta2

Label: Etykieta3

TextBox: id_expert

TextBox: name

TextBox: phone

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmEditExpert"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butAdd_Click()

13 On Error GoTo Err_butAdd_Click

14

15

16 DoCmd.GoToRecord , , acNewRec

17

18 Exit_butAdd_Click:

19 Exit Sub

20

21 Err_butAdd_Click:

22 MsgBox Err.Description

23 Resume Exit_butAdd_Click

24

25 End Sub

26 Private Sub butClose_Click()

27 On Error GoTo Err_butClose_Click

28

29

30 DoCmd.Close

31 DoCmd.OpenForm "frmIndex"

32

33 Exit_butClose_Click:

34 Exit Sub

35

36 Err_butClose_Click:

37 MsgBox Err.Description

38 Resume Exit_butClose_Click

39

40 End Sub

Form: frmEditExpo

Objects

Section: Szczegóły

Command Button: butAdd

Command Button: butClose

Label: Etykieta0

Label: Etykieta1

Label: Etykieta2

Label: Etykieta3

Label: Etykieta4

TextBox: id_exp

TextBox: info

TextBox: name

TextBox: place

TextBox: start

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmEditExpo"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butAdd_Click()

13 On Error GoTo Err_butAdd_Click

14

15

16 DoCmd.GoToRecord , , acNewRec

17

18 Exit_butAdd_Click:

19 Exit Sub

20

21 Err_butAdd_Click:

22 MsgBox Err.Description

23 Resume Exit_butAdd_Click

24

25 End Sub

26 Private Sub butClose_Click()

27 On Error GoTo Err_butClose_Click

28

29

30 DoCmd.Close

31 DoCmd.OpenForm "frmIndex"

32

33 Exit_butClose_Click:

34 Exit Sub

35

36 Err_butClose_Click:

37 MsgBox Err.Description

38 Resume Exit_butClose_Click

39

40 End Sub

Form: frmEditProduct

Objects

Section: Szczegóły

Command Button: butAdd

Command Button: butClose

Label: Etykieta10

Label: Etykieta11

Label: Etykieta12

Label: Etykieta13

Label: Etykieta14

Label: Etykieta15

Label: Etykieta16

Label: Etykieta17

Label: Etykieta19

Label: Etykieta26

Podformularz/Podraport: frmRecension

Combo box: id_author

TextBox: id_product

CheckBox: Orginal

Związana ramka obiektu: photo

Command Button: Polecenie25

TextBox: price

TextBox: size

Combo box: style_id

TextBox: title

Combo box: type_id

TextBox: year

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmEditProduct"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butAdd_Click()

13 On Error GoTo Err_butAdd_Click

14

15

16 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

17

18 Exit_butAdd_Click:

19 Exit Sub

20

21 Err_butAdd_Click:

22 MsgBox Err.Description

23 Resume Exit_butAdd_Click

24

25 End Sub

26 Private Sub butClose_Click()

27 On Error GoTo Err_butClose_Click

28

29

30 DoCmd.Close

31 DoCmd.OpenForm "frmIndex"

32

33 Exit_butClose_Click:

34 Exit Sub

35

36 Err_butClose_Click:

37 MsgBox Err.Description

38 Resume Exit_butClose_Click

39

40 End Sub

Form: frmExhibitions

Objects

Section: NagłówekFormularza

Section: StopkaFormularza

Section: Szczegóły

Command Button: butClose

Podformularz/Podraport: frmChildExpo

Label: frmChildExpo_Label

TextBox: name

Label: name_Label

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmExhibitions"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butClose_Click()

13 Zamknij.Zamknij

14 End Sub

Form: frmExhibitions2

Objects

Section: Szczegóły

Podformularz/Podraport: frmChildExpo

Label: frmChildExpo_Label

TextBox: name

Label: name_Label

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmExhibitions2"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butClose_Click()

13 Zamknij.Zamknij

14 End Sub

Form: frmIndex

Objects

Section: Szczegóły

Add

Command Button: butExit

Podformularz/Podraport: catalog

Catalogue

Delete

Edit

Label: Etykieta17

Label: Etykieta27

Label: Etykieta55

Label: Etykieta61

Label: Etykieta62

Expo

FormantKarta6

Podformularz/Podraport: frmAddExpoProd

Podformularz/Podraport: frmDetiledSearch

Podformularz/Podraport: frmExpo

Podformularz/Podraport: frmIndexAdd

Podformularz/Podraport: frmIndexDel

Podformularz/Podraport: frmIndexEdit

Podformularz/Podraport: frmPrices

Podformularz/Podraport: frmRaports

Podformularz/Podraport: frmSales

Podformularz/Podraport: frmSearchCryteria

Info

Obraz: Obraz16

Prices

Reports

Sales

View

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmIndex"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

12

13 Dim X As Integer

14

15 Private Sub butExit_Click()

16 On Error GoTo Err_butExit_Click

17 X = MsgBox("Are you sure you want to quit?", vbYesNo)

18 If X = 6 Then

19 DoCmd.Quit

20 Else

21

22 End If

23

24 Exit_butExit_Click:

25 Exit Sub

26

27 Err_butExit_Click:

28 MsgBox Err.Description

29 Resume Exit_butExit_Click

30

31 End Sub

32

33 Private Sub butViewExpo_Click()

34 On Error GoTo Err_butViewExpo_Click

35

36 Dim stDocName As String

37 Dim stLinkCriteria As String

38

39 stDocName = "frmExhibitions"

40 DoCmd.OpenForm stDocName, , , stLinkCriteria

41

42 Exit_butViewExpo_Click:

43 Exit Sub

44

45 Err_butViewExpo_Click:

46 MsgBox Err.Description

47 Resume Exit_butViewExpo_Click

48

49 End Sub

Form: frmIndexAdd

Objects

Section: Szczegóły

Command Button: butAuthor

Command Button: butExpert

Command Button: butExpo

Command Button: butProduct

Command Button: butStyle

Command Button: butType

Label: Etykieta1

Label: Etykieta12

Label: Etykieta13

Label: Etykieta15

Label: Etykieta5

Label: Etykieta6

Label: Etykieta7

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmIndexAdd"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butAuthor_Click()

13 On Error GoTo Err_Author_Click

14 DoCmd.Close

15 DoCmd.OpenForm "frmAddAuthor"

16 Exit_Author_Click:

17 Exit Sub

18 Err_Author_Click:

19 MsgBox "Error in opening form. Conntact database administrator"

20 Resume Exit_Author_Click

21

22 End Sub

23

24 Private Sub butStyle_Click()

25 On Error GoTo Err_Style_Click

26 DoCmd.Close

27 DoCmd.OpenForm "frmAddStyle"

28 Exit_Style_Click:

29 Exit Sub

30 Err_Style_Click:

31 MsgBox "Error in opening form. Conntact database administrator"

32 Resume Exit_Style_Click

33 End Sub

34

35 Private Sub butType_Click()

36 On Error GoTo Err_Type_Click

37 DoCmd.Close

38 DoCmd.OpenForm "frmAddType"

39 Exit_Type_Click:

40 Exit Sub

41 Err_Type_Click:

42 MsgBox "Error in opening form. Conntact database administrator"

43 Resume Exit_Type_Click

44 End Sub

45

46 Private Sub butProduct_Click()

47 On Error GoTo Err_Product_Click

48 DoCmd.Close

49 DoCmd.OpenForm "frmAddProduct"

50 Exit_Product_Click:

51 Exit Sub

52 Err_Product_Click:

53 MsgBox "Error in opening form. Conntact database administrator"

54 Resume Exit_Product_Click

55 End Sub

56 Private Sub butExpert_Click()

57 On Error GoTo Err_butExpert_Click

58 DoCmd.Close

59

60 Dim stDocName As String

61 Dim stLinkCriteria As String

62

63 stDocName = "frmAddExpert"

64 DoCmd.OpenForm stDocName, , , stLinkCriteria

65

66 Exit_butExpert_Click:

67 Exit Sub

68

69 Err_butExpert_Click:

70 MsgBox Err.Description

71 Resume Exit_butExpert_Click

72

73 End Sub

74 Private Sub butExpo_Click()

75 DoCmd.Close

76 On Error GoTo Err_butExpo_Click

77

78 Dim stDocName As String

79 Dim stLinkCriteria As String

80

81 stDocName = "frmAddExpo"

82 DoCmd.OpenForm stDocName, , , stLinkCriteria

83

84 Exit_butExpo_Click:

85 Exit Sub

86

87 Err_butExpo_Click:

88 MsgBox Err.Description

89 Resume Exit_butExpo_Click

90 End Sub

Form: frmIndexDel

Objects

Section: Szczegóły

Command Button: butAuthor

Command Button: butExpert

Command Button: butProduct

Label: Etykieta18

Label: Etykieta19

Label: Etykieta20

Label: Etykieta21

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmIndexDel"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butProduct_Click()

13 DoCmd.Close

14 On Error GoTo Err_butProduct_Click

15

16 Dim stDocName As String

17 Dim stLinkCriteria As String

18

19 stDocName = "frmDelProduct"

20 DoCmd.OpenForm stDocName, , , stLinkCriteria

21

22 Exit_butProduct_Click:

23 Exit Sub

24

25 Err_butProduct_Click:

26 MsgBox Err.Description

27 Resume Exit_butProduct_Click

28

29 End Sub

30 Private Sub butAuthor_Click()

31 DoCmd.Close

32 On Error GoTo Err_butAuthor_Click

33

34 Dim stDocName As String

35 Dim stLinkCriteria As String

36

37 stDocName = "frmDelAuthor"

38 DoCmd.OpenForm stDocName, , , stLinkCriteria

39

40 Exit_butAuthor_Click:

41 Exit Sub

42

43 Err_butAuthor_Click:

44 MsgBox Err.Description

45 Resume Exit_butAuthor_Click

46

47 End Sub

48 Private Sub butExpert_Click()

49 DoCmd.Close

50 On Error GoTo Err_butExpert_Click

51

52 Dim stDocName As String

53 Dim stLinkCriteria As String

54

55 stDocName = "frmDelExpert"

56 DoCmd.OpenForm stDocName, , , stLinkCriteria

57

58 Exit_butExpert_Click:

59 Exit Sub

60

61 Err_butExpert_Click:

62 MsgBox Err.Description

63 Resume Exit_butExpert_Click

64

65 End Sub

Form: frmIndexEdit

Objects

Section: Szczegóły

Command Button: butAuthor

Command Button: butExpert

Command Button: butProduct

Label: Etykieta1

Label: Etykieta12

Label: Etykieta13

Label: Etykieta7

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmIndexEdit"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butAuthor_Click()

13 On Error GoTo Err_Author_Click

14 DoCmd.Close

15 DoCmd.OpenForm "frmEditAuthor"

16 Exit_Author_Click:

17 Exit Sub

18 Err_Author_Click:

19 MsgBox "Error in opening form. Conntact database administrator"

20 Resume Exit_Author_Click

21

22 End Sub

23

24 Private Sub butProduct_Click()

25 On Error GoTo Err_Product_Click

26 DoCmd.Close

27 DoCmd.OpenForm "frmEditProduct"

28 Exit_Product_Click:

29 Exit Sub

30 Err_Product_Click:

31 MsgBox "Error in opening form. Conntact database administrator"

32 Resume Exit_Product_Click

33 End Sub

34 Private Sub butExpert_Click()

35 On Error GoTo Err_butExpert_Click

36 DoCmd.Close

37

38 Dim stDocName As String

39 Dim stLinkCriteria As String

40

41 stDocName = "frmEditExpert"

42 DoCmd.OpenForm stDocName, , , stLinkCriteria

43

44 Exit_butExpert_Click:

45 Exit Sub

46

47 Err_butExpert_Click:

48 MsgBox Err.Description

49 Resume Exit_butExpert_Click

50

51 End Sub

Form: frmIndexExpo

Objects

Section: Szczegóły

Label: Etykieta10

Label: Etykieta13

Label: Etykieta9

Combo box: Kombi0

Pole listy: Lista2

Pole listy: Lista7

Command Button: Polecenie4

Command Button: Polecenie5

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmIndexExpo"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

Form: frmIndexSearch

Objects

Section: Szczegóły

Command Button: butAuthor

Command Button: butExpo

Command Button: butStyle

Command Button: butType

Label: Etykieta0

Label: Etykieta1

Label: Etykieta5

Label: Etykieta6

Label: Etykieta7

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmIndexSearch"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butAuthor_Click()

13 On Error GoTo Err_Author_Click

14 DoCmd.OpenForm "frmAuthors"

15 Exit_Author_Click:

16 Exit Sub

17 Err_Author_Click:

18 MsgBox "Error in opening form. Conntact database administrator"

19 Resume Exit_Author_Click

20 End Sub

21

22 Private Sub butType_Click()

23 On Error GoTo Err_Type_Click

24 DoCmd.OpenForm "frmTypes"

25 Exit_Type_Click:

26 Exit Sub

27 Err_Type_Click:

28 MsgBox "Error in opening form. Conntact database administrator"

29 Resume Exit_Type_Click

30 End Sub

31 Private Sub butStyle_Click()

32 On Error GoTo Err_Style_Click

33 DoCmd.OpenForm "frmStyles"

34 Exit_Style_Click:

35 Exit Sub

36 Err_Style_Click:

37 MsgBox "Error in opening form. Conntact database administrator"

38 Resume Exit_Style_Click

39 End Sub

40 Private Sub butExpo_Click()

41 On Error GoTo Err_Expo_Click

42 DoCmd.OpenForm "frmExhibitions"

43 Exit_Expo_Click:

44 Exit Sub

45 Err_Expo_Click:

46 MsgBox "Error in opening form. Conntact database administrator"

47 Resume Exit_Expo_Click

48 End Sub

49

Form: frmPrices

Objects

Section: Szczegóły

Label: Etykieta0

Label: Etykieta1

Label: Etykieta11

Label: Etykieta4

Label: Etykieta5

Label: Etykieta6

Label: Etykieta7

Command Button: Polecenie12

Command Button: Polecenie13

Command Button: Polecenie14

Command Button: Polecenie15

TextBox: Tekst10

TextBox: Tekst2

TextBox: Tekst8

TextBox: Tekst9

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmPrices"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

12

13 Dim SCom As String

14

15 Private Sub Polecenie12_Click()

16 SCom = "UPDATE Product SET price=price+(price*Tekst2.Value/100)"

17 DoCmd.RunSQL SCom

18 Tekst2.Value = ""

19 End Sub

20

21 Private Sub Polecenie13_Click()

22 SCom = "UPDATE Product SET price=price-(price*Tekst8.Value/100)"

23 DoCmd.RunSQL SCom

24 Tekst8.Value = ""

25 End Sub

26

27 Private Sub Polecenie14_Click()

28 SCom = "UPDATE Product SET price=price+Tekst9.Value"

29 DoCmd.RunSQL SCom

30 Tekst9.Value = ""

31 End Sub

32

33 Private Sub Polecenie15_Click()

34 SCom = "UPDATE Product SET price=price-Tekst10.Value"

35 DoCmd.RunSQL SCom

36 Tekst10.Value = ""

37 End Sub

Form: frmRaports

Obiekt

Section: Detail

Command Button: Command0

Command Button: Command1

Command Button: Command2

Command Button: Command3

Command Button: Command4

Command Button: Command5

Label: Etykieta12

Label: Label6

Label: Label7

Label: Label8

Label: Label9

Command Button: Polecenie10

Command Button: Polecenie11

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmRaports"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub Command0_Click()

13 On Error GoTo Err_Command0_Click

14

15 Dim stDocName As String

16

17 stDocName = "authors"

18 DoCmd.OpenReport stDocName, acPreview

19

20 Exit_Command0_Click:

21 Exit Sub

22

23 Err_Command0_Click:

24 MsgBox Err.Description

25 Resume Exit_Command0_Click

26

27 End Sub

28 Private Sub Command1_Click()

29 On Error GoTo Err_Command1_Click

30

31 Dim stDocName As String

32

33 stDocName = "authors"

34 DoCmd.OpenReport stDocName, acNormal

35

36 Exit_Command1_Click:

37 Exit Sub

38

39 Err_Command1_Click:

40 MsgBox Err.Description

41 Resume Exit_Command1_Click

42

43 End Sub

44 Private Sub Command2_Click()

45 On Error GoTo Err_Command2_Click

46

47 Dim stDocName As String

48

49 stDocName = "expert"

50 DoCmd.OpenReport stDocName, acPreview

51

52 Exit_Command2_Click:

53 Exit Sub

54

55 Err_Command2_Click:

56 MsgBox Err.Description

57 Resume Exit_Command2_Click

58

59 End Sub

60 Private Sub Command3_Click()

61 On Error GoTo Err_Command3_Click

62

63 Dim stDocName As String

64

65 stDocName = "expert"

66 DoCmd.OpenReport stDocName, acNormal

67

68 Exit_Command3_Click:

69 Exit Sub

70

71 Err_Command3_Click:

72 MsgBox Err.Description

73 Resume Exit_Command3_Click

74

75 End Sub

76 Private Sub Command4_Click()

77 On Error GoTo Err_Command4_Click

78

79 Dim stDocName As String

80

81 stDocName = "Product"

82 DoCmd.OpenReport stDocName, acPreview

83

84 Exit_Command4_Click:

85 Exit Sub

86

87 Err_Command4_Click:

88 MsgBox Err.Description

89 Resume Exit_Command4_Click

90

91 End Sub

92 Private Sub Command5_Click()

93 On Error GoTo Err_Command5_Click

94

95 Dim stDocName As String

96

97 stDocName = "Product"

98 DoCmd.OpenReport stDocName, acNormal

99

100 Exit_Command5_Click:

101 Exit Sub

102

103 Err_Command5_Click:

104 MsgBox Err.Description

105 Resume Exit_Command5_Click

106

107 End Sub

108 Private Sub Polecenie10_Click()

109 On Error GoTo Err_Polecenie10_Click

110

111 Dim stDocName As String

112

113 stDocName = "Sold"

114 DoCmd.OpenReport stDocName, acPreview

115

116 Exit_Polecenie10_Click:

117 Exit Sub

118

119 Err_Polecenie10_Click:

120 MsgBox Err.Description

121 Resume Exit_Polecenie10_Click

122

123 End Sub

124 Private Sub Polecenie11_Click()

125 On Error GoTo Err_Polecenie11_Click

126

127 Dim stDocName As String

128

129 stDocName = "Sold"

130 DoCmd.OpenReport stDocName, acNormal

131

132 Exit_Polecenie11_Click:

133 Exit Sub

134

135 Err_Polecenie11_Click:

136 MsgBox Err.Description

137 Resume Exit_Polecenie11_Click

138

139 End Sub

Form: frmRecension

Objects

Section: Szczegóły

Label: Etykieta1

Label: Etykieta2

Combo box: id_expert

TextBox: recension

Form: frmSales

Objects

Section: Szczegóły

Label: Etykieta0

Label: Etykieta1

Label: Etykieta12

Label: Etykieta18

Label: Etykieta19

Label: Etykieta20

Label: Etykieta3

Label: Etykieta7

Combo box: id_author

Command Button: Next

Command Button: Polecenie11

Command Button: Prev

TextBox: pri

TextBox: prod

Combo box: style_id

Combo box: type_id

TextBox: tyt

TextBox: yea

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmSales"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

12

13 Dim SCom As String

14 Dim SCom2 As String

15

16

17

18 Private Sub Next_Click()

19 NextPrev.nastepny

20 End Sub

21

22 Private Sub Polecenie11_Click()

23

24 SCom = "INSERT INTO Sold(id_product, title, id_author, year, type_id, style_id, price)

VALUES(prod, tyt, id_author, yea, type_id, style_id, pri)"

25 SCom2 = "UPDATE Sold"

26 DoCmd.RunSQL SCom

27 DoCmd.RunSQL SCom2

28

29 Kasuj.Kasuj

30

31 End Sub

32

33 Private Sub Prev_Click()

34 NextPrev.poprzedni

35 End Sub

36

Form: frmStart

Objects

Section: Szczegóły

Label: Etykieta4

Label: Etykieta5

Obraz: Obraz2

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmStart"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11 Option Explicit

12

13 Dim Box As Integer

14 Private Sub boxOpen_Click()

15 If boxOpen.Value = 1 Then

16 boxOpen.Value = 0

17 Else

18 boxOpen.Value = 1

19 End If

20 End Sub

21

22 Private Sub Obraz2_Click()

23 DoCmd.OpenForm "frmIndex"

24 DoCmd.Close acForm, "frmStart"

25 End Sub

Form: frmStyles

Objects

Section: NagłówekFormularza

Section: StopkaFormularza

Section: Szczegóły

Command Button: butClose

Podformularz/Podraport: frmChildStyles

Label: frmChildStyles_Label

TextBox: style

Label: style_Label

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmStyles"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butClose_Click()

13 Zamknij.Zamknij

14 End Sub

Form: frmTypes

Objects

Section: NagłówekFormularza

Section: StopkaFormularza

Section: Szczegóły

Command Button: butClose

Podformularz/Podraport: frmChildTypes

Label: frmChildTypes_Label

TextBox: type

Label: type_Label

Code

1 VERSION 1.0 CLASS

2 BEGIN

3 MultiUse = -1 'True

4 END

5 Attribute VB_Name = "Form_frmTypes"

6 Attribute VB_GlobalNameSpace = False

7 Attribute VB_Creatable = True

8 Attribute VB_PredeclaredId = True

9 Attribute VB_Exposed = False

10 Option Compare Database

11

12 Private Sub butClose_Click()

13 Zamknij.Zamknij

14 End Sub

REPORTS

• list of Agents

• list of Bases

• list of Cars

• list of Clients

• list of Orders

2

---