IT419 Project
IT419 Project
IT419 Project
Page 1
IT419
Database Management System
DADA is a shop that is located at Bayanan Muntinlupa City. DADA sells clothes,
shoes, jackets, jeans and accessories. It started as a small business and is now growing
to become hopefully a big and successful clothing store. This clothing company
provides the newest trends and the hippest clothes. I have proposed to build a
database for DADAto be able to help in modernizing and keeping up with the
Description of operations
In the year 2007 the two couples cannot handle their shop because they are too
old. So their daughter named Reylinda Gomez start manages their parent’s store.
Reylinda Gomez is an I.T student of Informatics Festival Mall. Reylinda got an idea
to build a database for their shop; she will use a Microsoft Access and Structured
combines the relational Microsoft Jet Database Engine with a graphical user interface
applications and is included in the Professional and higher versions for Windows and
also sold separately. Access stores data in its own format based on the Access Jet
Database Engine. It can also import or link directly to data stored in other Access
databases, Excel, SharePoint lists, text, XML, Outlook, HTML, dBase, Paradox,
Lotus 1-2-3, or any ODBC-compliant data container including Microsoft SQL Server,
Oracle, MySQL and Postgre SQL. Software developers and data architects can use it
Page 2
IT419
Database Management System
to develop application software and non-programmer "power users" can use it to build
wide variety of objects, including DAO (Data Access Objects) and ActiveX Data
parties. Visual objects used in forms and reports expose their methods and properties
operating system functions can be declared and called from VBA code modules,
for managing data in relational database management systems (RDBMS). Its scope
includes data query and update, schema creation and modification, and data access
control. SQL was one of the first languages for Edgar F. Codd’s relational model in
his influential 1970 paper, "A Relational Model of Data for Large Shared Data
Banks" and became the most widely used language for relational databases.
Page 3
IT419
Database Management System
I. Business Rules
The company sells clothes in their right process. They can transact to the supplier for
orders, and each customer can have a membership id for their discount. The company
II. Constraint
# Customer_ID
(#) Customer_Name
o Address
o Contact_Number
# Order_ID
* Product_ID
* Product_Name
o Quantity
* Customer_ID
Page 4
IT419
Database Management System
# Inventory_ID
(#) Inventory_Name
o Units
# Category_ID
(#) Category_Name
* Product_ID
# Product_ID
(#) Product_Name
o Stocks
o Price
* Inventory_ID
Page 5
IT419
Database Management System
# Employee_ID
(#) First_Name
(#) Last_Name
o Position
o Salary
Page 6
IT419
Database Management System
I. Entity Relationship
o Contact_Number
o Position
o Salary
Page 7
IT419
Database Management System
o Quantity
* Customer_ID
o Price
* Inventory_ID
Page 8
IT419
Database Management System
Employee
Employee ID #
First_Name (#)
Last_Name (#)
Postion o
Salary o
Category
Category_ID #
Category_Name (#)
Product_ID *
Customer
Customer_ID #
Customer_Name (#)
Address o
Contact_Number o
Model Diagram
Products
Database Management System
Product_ID #
Product_Name (#)
Stocks o
Price o
Inventory_ID *
Order
Order_ID #
Product_ID *
Product_Name *
Quantity o
Customer_ID *
Inventory
Inventory_ID #
Inventory_Name (#)
Units o
Database Management System
Design
Database Management System
Table Description
Tables Description
Inventory Table
Inventory_Name Text
Units Number
Database Management System
Products Table
Inventory_ID Text
Product_Name Text
Stocks Number
Price Currency
Category Table
Product_ID Text
Category_Name Text
Customer Table
Customer_Name Text
Address Text
Contact_Number Number
Database Management System
Order Table
Product_ID Text
Customer_ID Text
Product_Name Text
Product_Quantity Number
Employee Table
First_Name Text
Last_Name Text
Position Text
Salary Currency
Database Management System
Development
Database Management System
Scripts Listing
User Form
End Sub
DoCmd.Close
Exit_cmdexit_Click:
Exit Sub
Err_cmdexit_Click:
MsgBox Err.Description
Database Management System
Resume Exit_cmdexit_Click
End Sub
DoCmd.Close
stDocName = "MainForm"
Else
txtuser = ""
txtpass = ""
txtuser.SetFocus
End If
Database Management System
Exit_cmdlogin_Click:
Exit Sub
Err_cmdlogin_Click:
MsgBox Err.Description
Resume Exit_cmdlogin_Click
End Sub
Database Management System
Main Form
DoCmd.Close
stDocName = "EmployeeForm"
Exit_cmdemp_Click:
Exit Sub
Err_cmdemp_Click:
MsgBox Err.Description
Resume Exit_cmdemp_Click
End Sub
DoCmd.Close
Database Management System
stDocName = "InventoryForm"
Exit_cmdinven_Click:
Exit Sub
Err_cmdinven_Click:
MsgBox Err.Description
Resume Exit_cmdinven_Click
End Sub
DoCmd.Close
stDocName = "CategoryForm"
Exit_cmdcategory_Click:
Exit Sub
Err_cmdcategory_Click:
MsgBox Err.Description
Database Management System
Resume Exit_cmdcategory_Click
End Sub
DoCmd.Close
stDocName = "ProductForm"
Exit_cmdproduct_Click:
Exit Sub
Err_cmdproduct_Click:
MsgBox Err.Description
Resume Exit_cmdproduct_Click
End Sub
DoCmd.Close
Database Management System
stDocName = "CustomerForm"
Exit_cmdcustomer_Click:
Exit Sub
Err_cmdcustomer_Click:
MsgBox Err.Description
Resume Exit_cmdcustomer_Click
End Sub
DoCmd.Close
stDocName = "OrderForm"
Exit_cmdorder_Click:
Exit Sub
Err_cmdorder_Click:
MsgBox Err.Description
Database Management System
Resume Exit_cmdorder_Click
End Sub
Category Form
DoCmd.GoToRecord , , acNext
Exit_cmdnext_Click:
Exit Sub
Err_cmdnext_Click:
MsgBox Err.Description
Resume Exit_cmdnext_Click
End Sub
DoCmd.GoToRecord , , acPrevious
Database Management System
Exit_cmdprev_Click:
Exit Sub
Err_cmdprev_Click:
MsgBox Err.Description
Resume Exit_cmdprev_Click
End Sub
DoCmd.GoToRecord , , acFirst
Exit_cmdgtf_Click:
Exit Sub
Err_cmdgtf_Click:
MsgBox Err.Description
Resume Exit_cmdgtf_Click
End Sub
DoCmd.GoToRecord , , acLast
Database Management System
Exit_cmdgtl_Click:
Exit Sub
Err_cmdgtl_Click:
MsgBox Err.Description
Resume Exit_cmdgtl_Click
End Sub
Screen.PreviousControl.SetFocus
Exit_cmdfind_Click:
Exit Sub
Err_cmdfind_Click:
MsgBox Err.Description
Resume Exit_cmdfind_Click
End Sub
DoCmd.GoToRecord , , acNewRec
Exit_cmdadd_Click:
Exit Sub
Err_cmdadd_Click:
MsgBox Err.Description
Resume Exit_cmdadd_Click
End Sub
Exit_cmddel_Click:
Exit Sub
Err_cmddel_Click:
MsgBox Err.Description
Resume Exit_cmddel_Click
End Sub
Exit_cmdsave_Click:
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End Sub
DoCmd.PrintOut acSelection
Exit_cmdprint_Click:
Exit Sub
Err_cmdprint_Click:
MsgBox Err.Description
Resume Exit_cmdprint_Click
Database Management System
End Sub
Exit_cmdundo_Click:
Exit Sub
Err_cmdundo_Click:
MsgBox Err.Description
Resume Exit_cmdundo_Click
End Sub
DoCmd.Close
stDocName = "MainForm"
Exit_cmdmain_Click:
Exit Sub
Database Management System
Err_cmdmain_Click:
MsgBox Err.Description
Resume Exit_cmdmain_Click
End Sub
DoCmd.Close
Exit_cmdexit_Click:
Exit Sub
Err_cmdexit_Click:
MsgBox Err.Description
Resume Exit_cmdexit_Click
End Sub
Database Management System
Customer Form
DoCmd.GoToRecord , , acNext
Exit_cmdnext_Click:
Exit Sub
Err_cmdnext_Click:
MsgBox Err.Description
Resume Exit_cmdnext_Click
End Sub
DoCmd.GoToRecord , , acPrevious
Exit_cmdprev_Click:
Exit Sub
Err_cmdprev_Click:
Database Management System
MsgBox Err.Description
Resume Exit_cmdprev_Click
End Sub
DoCmd.GoToRecord , , acFirst
Exit_cmdgtf_Click:
Exit Sub
Err_cmdgtf_Click:
MsgBox Err.Description
Resume Exit_cmdgtf_Click
End Sub
DoCmd.GoToRecord , , acLast
Exit_cmdgtl_Click:
Exit Sub
Database Management System
Err_cmdgtl_Click:
MsgBox Err.Description
Resume Exit_cmdgtl_Click
End Sub
Screen.PreviousControl.SetFocus
Exit_cmdfind_Click:
Exit Sub
Err_cmdfind_Click:
MsgBox Err.Description
Resume Exit_cmdfind_Click
End Sub
DoCmd.GoToRecord , , acNewRec
Exit_cmdadd_Click:
Database Management System
Exit Sub
Err_cmdadd_Click:
MsgBox Err.Description
Resume Exit_cmdadd_Click
End Sub
Exit_cmddel_Click:
Exit Sub
Err_cmddel_Click:
MsgBox Err.Description
Resume Exit_cmddel_Click
End Sub
DoCmd.PrintOut acSelection
Exit_cmdprint_Click:
Exit Sub
Err_cmdprint_Click:
MsgBox Err.Description
Resume Exit_cmdprint_Click
End Sub
Exit_cmdsave_Click:
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End Sub
Exit_cmdundo_Click:
Exit Sub
Err_cmdundo_Click:
MsgBox Err.Description
Resume Exit_cmdundo_Click
End Sub
DoCmd.Close
stDocName = "MainForm"
Exit_cmdmain_Click:
Exit Sub
Err_cmdmain_Click:
MsgBox Err.Description
Resume Exit_cmdmain_Click
Database Management System
End Sub
DoCmd.Close
Exit_cmdexit_Click:
Exit Sub
Err_cmdexit_Click:
MsgBox Err.Description
Resume Exit_cmdexit_Click
End Sub
Database Management System
Employee Form
DoCmd.GoToRecord , , acNext
Exit_cmdnext_Click:
Exit Sub
Err_cmdnext_Click:
MsgBox Err.Description
Resume Exit_cmdnext_Click
End Sub
DoCmd.GoToRecord , , acPrevious
Exit_cmdprev_Click:
Exit Sub
Err_cmdprev_Click:
Database Management System
MsgBox Err.Description
Resume Exit_cmdprev_Click
End Sub
DoCmd.GoToRecord , , acFirst
Exit_cmdgtf_Click:
Exit Sub
Err_cmdgtf_Click:
MsgBox Err.Description
Resume Exit_cmdgtf_Click
End Sub
DoCmd.GoToRecord , , acLast
Exit_cmdgtl_Click:
Exit Sub
Database Management System
Err_cmdgtl_Click:
MsgBox Err.Description
Resume Exit_cmdgtl_Click
End Sub
Screen.PreviousControl.SetFocus
Exit_cmdfind_Click:
Exit Sub
Err_cmdfind_Click:
MsgBox Err.Description
Resume Exit_cmdfind_Click
End Sub
DoCmd.GoToRecord , , acNewRec
Exit_cmdadd_Click:
Database Management System
Exit Sub
Err_cmdadd_Click:
MsgBox Err.Description
Resume Exit_cmdadd_Click
End Sub
Exit_cmddel_Click:
Exit Sub
Err_cmddel_Click:
MsgBox Err.Description
Resume Exit_cmddel_Click
End Sub
DoCmd.PrintOut acSelection
Exit_cmdprint_Click:
Exit Sub
Err_cmdprint_Click:
MsgBox Err.Description
Resume Exit_cmdprint_Click
End Sub
Exit_cmdsave_Click:
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End Sub
Exit_cmdundo_Click:
Exit Sub
Err_cmdundo_Click:
MsgBox Err.Description
Resume Exit_cmdundo_Click
End Sub
DoCmd.Close
stDocName = "MainForm"
Exit_cmdmain_Click:
Exit Sub
Err_cmdmain_Click:
MsgBox Err.Description
Resume Exit_cmdmain_Click
Database Management System
End Sub
DoCmd.Close
Exit_cmdexit_Click:
Exit Sub
Err_cmdexit_Click:
MsgBox Err.Description
Resume Exit_cmdexit_Click
End Sub
Database Management System
Inventory Form
DoCmd.GoToRecord , , acNext
Exit_cmdnext_Click:
Exit Sub
Err_cmdnext_Click:
MsgBox Err.Description
Resume Exit_cmdnext_Click
End Sub
DoCmd.GoToRecord , , acPrevious
Exit_cmdprev_Click:
Exit Sub
Database Management System
Err_cmdprev_Click:
MsgBox Err.Description
Resume Exit_cmdprev_Click
End Sub
DoCmd.GoToRecord , , acFirst
Exit_cmdgtf_Click:
Exit Sub
Err_cmdgtf_Click:
MsgBox Err.Description
Resume Exit_cmdgtf_Click
End Sub
DoCmd.GoToRecord , , acLast
Exit_cmdgtl_Click:
Exit Sub
Database Management System
Err_cmdgtl_Click:
MsgBox Err.Description
Resume Exit_cmdgtl_Click
End Sub
Screen.PreviousControl.SetFocus
Exit_cmdfind_Click:
Exit Sub
Err_cmdfind_Click:
MsgBox Err.Description
Resume Exit_cmdfind_Click
End Sub
DoCmd.GoToRecord , , acNewRec
Database Management System
Exit_cmdadd_Click:
Exit Sub
Err_cmdadd_Click:
MsgBox Err.Description
Resume Exit_cmdadd_Click
End Sub
Exit_cmddel_Click:
Exit Sub
Err_cmddel_Click:
MsgBox Err.Description
Resume Exit_cmddel_Click
End Sub
DoCmd.PrintOut acSelection
Exit_cmdprint_Click:
Exit Sub
Err_cmdprint_Click:
MsgBox Err.Description
Resume Exit_cmdprint_Click
End Sub
Exit_cmdsave_Click:
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End Sub
Exit_cmdundo_Click:
Exit Sub
Err_cmdundo_Click:
MsgBox Err.Description
Resume Exit_cmdundo_Click
End Sub
DoCmd.Close
stDocName = "MainForm"
Exit_cmdmain_Click:
Exit Sub
Err_cmdmain_Click:
MsgBox Err.Description
Database Management System
Resume Exit_cmdmain_Click
End Sub
DoCmd.Close
Exit_cmdexit_Click:
Exit Sub
Err_cmdexit_Click:
MsgBox Err.Description
Resume Exit_cmdexit_Click
End Sub
Database Management System
Order Form
DoCmd.GoToRecord , , acNext
Exit_cmdnext_Click:
Exit Sub
Err_cmdnext_Click:
MsgBox Err.Description
Resume Exit_cmdnext_Click
End Sub
DoCmd.GoToRecord , , acPrevious
Exit_cmdprev_Click:
Exit Sub
Err_cmdprev_Click:
Database Management System
MsgBox Err.Description
Resume Exit_cmdprev_Click
End Sub
DoCmd.GoToRecord , , acFirst
Exit_cmdgtf_Click:
Exit Sub
Err_cmdgtf_Click:
MsgBox Err.Description
Resume Exit_cmdgtf_Click
End Sub
DoCmd.GoToRecord , , acLast
Exit_cmdgtl_Click:
Exit Sub
Database Management System
Err_cmdgtl_Click:
MsgBox Err.Description
Resume Exit_cmdgtl_Click
End Sub
Screen.PreviousControl.SetFocus
Exit_cmdfind_Click:
Exit Sub
Err_cmdfind_Click:
MsgBox Err.Description
Resume Exit_cmdfind_Click
End Sub
DoCmd.GoToRecord , , acNewRec
Exit_cmdadd_Click:
Database Management System
Exit Sub
Err_cmdadd_Click:
MsgBox Err.Description
Resume Exit_cmdadd_Click
End Sub
Exit_cmddel_Click:
Exit Sub
Err_cmddel_Click:
MsgBox Err.Description
Resume Exit_cmddel_Click
End Sub
DoCmd.PrintOut acSelection
Exit_cmdprint_Click:
Exit Sub
Err_cmdprint_Click:
MsgBox Err.Description
Resume Exit_cmdprint_Click
End Sub
Exit_cmdsave_Click:
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End Sub
Exit_cmdundo_Click:
Exit Sub
Err_cmdundo_Click:
MsgBox Err.Description
Resume Exit_cmdundo_Click
End Sub
stDocName = "MainForm"
Exit_cmdmain_Click:
Exit Sub
Err_cmdmain_Click:
MsgBox Err.Description
Resume Exit_cmdmain_Click
Database Management System
End Sub
DoCmd.Close
Exit_cmdexit_Click:
Exit Sub
Err_cmdexit_Click:
MsgBox Err.Description
Resume Exit_cmdexit_Click
End Sub
stDocName = "MainForm"
Exit_cmdmainb_Click:
Exit Sub
Database Management System
Err_cmdmainb_Click:
MsgBox Err.Description
Resume Exit_cmdmainb_Click
End Sub
DoCmd.Close
Exit_Command28_Click:
Exit Sub
Err_Command28_Click:
MsgBox Err.Description
Resume Exit_Command28_Click
End Sub
Database Management System
Product Form
DoCmd.GoToRecord , , acNext
Exit_cmdnext_Click:
Exit Sub
Err_cmdnext_Click:
MsgBox Err.Description
Resume Exit_cmdnext_Click
End Sub
DoCmd.GoToRecord , , acPrevious
Exit_cmdprev_Click:
Exit Sub
Err_cmdprev_Click:
Database Management System
MsgBox Err.Description
Resume Exit_cmdprev_Click
End Sub
DoCmd.GoToRecord , , acFirst
Exit_cmdgtf_Click:
Exit Sub
Err_cmdgtf_Click:
MsgBox Err.Description
Resume Exit_cmdgtf_Click
End Sub
DoCmd.GoToRecord , , acLast
Exit_cmdgtl_Click:
Exit Sub
Database Management System
Err_cmdgtl_Click:
MsgBox Err.Description
Resume Exit_cmdgtl_Click
End Sub
Screen.PreviousControl.SetFocus
Exit_cmdfind_Click:
Exit Sub
Err_cmdfind_Click:
MsgBox Err.Description
Resume Exit_cmdfind_Click
End Sub
DoCmd.GoToRecord , , acNewRec
Exit_cmdadd_Click:
Database Management System
Exit Sub
Err_cmdadd_Click:
MsgBox Err.Description
Resume Exit_cmdadd_Click
End Sub
Exit_cmddel_Click:
Exit Sub
Err_cmddel_Click:
MsgBox Err.Description
Resume Exit_cmddel_Click
End Sub
DoCmd.PrintOut acSelection
Exit_cmdprint_Click:
Exit Sub
Err_cmdprint_Click:
MsgBox Err.Description
Resume Exit_cmdprint_Click
End Sub
Exit_cmdsave_Click:
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End Sub
Exit_cmdundo_Click:
Exit Sub
Err_cmdundo_Click:
MsgBox Err.Description
Resume Exit_cmdundo_Click
End Sub
stDocName = "MainForm"
Exit_cmdmain_Click:
Exit Sub
Err_cmdmain_Click:
MsgBox Err.Description
Resume Exit_cmdmain_Click
Database Management System
End Sub
DoCmd.Close
Exit_cmdexit_Click:
Exit Sub
Err_cmdexit_Click:
MsgBox Err.Description
Resume Exit_cmdexit_Click
End Sub
stDocName = "MainForm"
Exit_cmdmainb_Click:
Exit Sub
Database Management System
Err_cmdmainb_Click:
MsgBox Err.Description
Resume Exit_cmdmainb_Click
End Sub
DoCmd.Close
Exit_Command28_Click:
Exit Sub
Err_Command28_Click:
MsgBox Err.Description
Resume Exit_Command28_Click
End Sub
Database Management System
Testing
I. Test Plan
Test Case 1
Objective To test if the tables are created properly.
Test Data CREATE TABLE Inventory
(
Inventory_ID Text,
Inventory_Name Text,
Units Number,
Test Case 2
Objective To test if the values are inserted properly
Test Data INSERT INTO Inventory ( Inventory_ID, Inventory_Name, Units )
VALUES ('INV01', 'Clothes', 25);
Test Case 3
Objective To test the relationship of the tables using the foreign key and primary
key
Test Data ALTER TABLE Products
ADD CONSTRAINT Products_Inventory_ID_fk foreign
key(Inventory_ID)
REFERENCES Inventory(Inventory_ID);
Test Case 4
Objective To test if the LOG IN button will work successfully.
Test Data Private Sub cmdlogin_Click()
On Error GoTo Err_cmdlogin_Click
Exit_cmdlogin_Click:
Exit Sub
Err_cmdlogin_Click:
MsgBox Err.Description
Resume Exit_cmdlogin_Click
End Sub
Expected The log in button will work successfully.
Test Result
Actual Test
Result
Database Management System
Test Case 5
Objective To test if the CLOSE button will work.
Test Data Private Sub cmdexit_Click()
On Error GoTo Err_cmdexit_Click
DoCmd.Close
Exit_cmdexit_Click:
Exit Sub
Err_cmdexit_Click:
MsgBox Err.Description
Resume Exit_cmdexit_Click
End Sub
Expected The close button will work successfully.
Test Result
Actual Test
Result
Database Management System
Test Case 6
Objective To test if NEXT button will work properly.
Test Data Private Sub cmdnext_Click()
On Error GoTo Err_cmdnext_Click
DoCmd.GoToRecord , , acNext
Exit_cmdnext_Click:
Exit Sub
Err_cmdnext_Click:
MsgBox Err.Description
Resume Exit_cmdnext_Click
End Sub
Expected The next button will show the next record
Test Result
Actual Test
Result
Database Management System
Test Case 7
Objective To test if the PREVIOUS button will work properly
Test Data Private Sub cmdprev_Click()
On Error GoTo Err_cmdprev_Click
DoCmd.GoToRecord , , acPrevious
Exit_cmdprev_Click:
Exit Sub
Err_cmdprev_Click:
MsgBox Err.Description
Resume Exit_cmdprev_Click
End Sub
Expected The previous button will show the previous record
Test Result
Actual Test
Result
Database Management System
Test Case 8
Objective To test if the GO TO FIRST button will work properly
Test Data Private Sub cmdgtf_Click()
On Error GoTo Err_cmdgtf_Click
DoCmd.GoToRecord , , acFirst
Exit_cmdgtf_Click:
Exit Sub
Err_cmdgtf_Click:
MsgBox Err.Description
Resume Exit_cmdgtf_Click
End Sub
Expected The go to first button will show the first record
Test Result
Actual Test
Result
Database Management System
Test Case 9
Objective To test if the GO TO LAST form will work properly.
Test Data Private Sub cmdgtl_Click()
On Error GoTo Err_cmdgtl_Click
DoCmd.GoToRecord , , acLast
Exit_cmdgtl_Click:
Exit Sub
Err_cmdgtl_Click:
MsgBox Err.Description
Resume Exit_cmdgtl_Click
End Sub
Expected The go to last button will show the last record
Test Result
Actual Test
Result
Database Management System
Test Case 10
Objective To test if the FIND button will find a record on the form.
Test Data Private Sub cmdfind_Click()
On Error GoTo Err_cmdfind_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_cmdfind_Click:
Exit Sub
Err_cmdfind_Click:
MsgBox Err.Description
Resume Exit_cmdfind_Click
End Sub
Expected The find button will find a record
Test Result
Actual Test
Result
Database Management System
Test Case 11
Objective To test if the ADD button will add another record.
Test Data Private Sub cmdadd_Click()
On Error GoTo Err_cmdadd_Click
DoCmd.GoToRecord , , acNewRec
Exit_cmdadd_Click:
Exit Sub
Err_cmdadd_Click:
MsgBox Err.Description
Resume Exit_cmdadd_Click
End Sub
Expected The add button will add a record
Test Result
Actual Test
Result
Database Management System
Test Case 12
Objective To test if the DELETE button will delete a record.
Test Data Private Sub cmddel_Click()
On Error GoTo Err_cmddel_Click
Exit_cmddel_Click:
Exit Sub
Err_cmddel_Click:
MsgBox Err.Description
Resume Exit_cmddel_Click
End Sub
Expected The delete button will delete a record
Test Result
Actual Test
Result
Database Management System
Test Case 13
Objective To test if the SAVE button will save the data.
Test Data Private Sub cmdsave_Click()
On Error GoTo Err_cmdsave_Click
Exit_cmdsave_Click:
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End Sub
Expected The save button will save the record
Test Result
Actual Test
Result
Database Management System
Test Case 14
Objective To test if the UNDO button will undo the last action.
Test Data Private Sub cmdundo_Click()
On Error GoTo Err_cmdundo_Click
Exit_cmdundo_Click:
Exit Sub
Err_cmdundo_Click:
MsgBox Err.Description
Resume Exit_cmdundo_Click
End Sub
Expected The undo button will undo the last action
Test Result
Actual Test
Result
Database Management System
Test Case 15
Objective To test if the MAIN button will go to MAIN FORM.
Test Data Private Sub cmdmain_Click()
On Error GoTo Err_cmdmain_Click
stDocName = "MainForm"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdmain_Click:
Exit Sub
Err_cmdmain_Click:
MsgBox Err.Description
Resume Exit_cmdmain_Click
End Sub
Expected The main button show the main form
Test Result
Actual Test
Result
Database Management System
Implementation
Database Management System
User Manual
Step 2 This is the time that you will create your New Database
a.) Select the destination folder you want to save your file.
Step 6 Since you have tables this time you should create a form.
Creating Forms
1. Click Forms
2. Click Create form in Design View
3. Since you have the form. This is the time that you will design your form.
Database Management System
REFERENCES
Previous Projects