Home

A Sample Final Report 3 - King Fahd University of Petroleum and

1. Attribute Type Description Spare WorkOrderNo Integer A unique work order number Parts WorkPerformed String Work performed on vehicle Date Date Date of work performed Class TechName String Name of technician or mechanic who performed the work LaborCharge Integer Labor charge of work performed Attribute Type Description PartNo Integer Spare part number WorkOrderNo Integer Work Order no Description String Spare part description Quantity Integer Quantity of spare part ordered Price Integer Price of spare part Purchase Order Class Attribute Type Description SerialNo Integer A unique purchase order serial number assigned by WMS PONO Integer Purchase order number assigned by Purchasing Department Date Date Purchase order date DateMaterialNeeded Date Date spare part s is are needed SuggestedSupplier1 String Suggested supplier 1 SuggestedSupplier2 String Suggested supplier 2 SuggestedSupplier3 String Suggested supplier 3 Status String Purchase order status open closed or pending XIII Relational Database Schema WOStatus TotalCost LaborCharge XI V Algorithm Design Algorithm design will be based on system components 1 Vehicle Component 1 1 Add New Vehicle Record INPUT KFUPMNO WHILE EXIST IN VehicleDB OR NOT QUIT DISPLAY ERROR MESSAGE Duplicate Record
2. 5 Maintain vehicle History Record Requirement No 4 4 Requirement No Function Description Inputs Source User Level Outputs Destination Requires 5 1 Generate amp display vehicle history Generate vehicle history report by referencing vehicles database and WO database about a given vehicle KFUPM number or reg number User Admin or Operator Vehicle history Screen or printer User input 6 Generate Workshop Statistical Data Function Delete purchase order Description Delete an existing PO record by retrieving PO record from PO database using assigned WMS number and allowing the user to delete record Inputs WMS assigned PO number Source User User Level Admin or Operator Outputs Displayed PO record Destination Screen Requires User input Requirement No 5 2 Function Description Calculate vehicle total maintenance cost Calculate total maintenance cost by referencing vehicle and work order databases Inputs KFUPM number or reg number Source User User Level Admin or Operator Outputs Total cost Destination Screen or printer Requires User input Requirement No 6 2 Function Description List work orders complete in a given date range Generate a list of work orders by a given date range Requirement No 6 1 Function List cars serviced per department Description Generate a list of all vehicles servi
3. False End If End If End Sub Private Sub posN dropdown POSn Clear If POAction 0 Then POSn Enabled True vehado RecordSource select from purchaseorder order by serialno vehado Refresh While vehado Recordset EOF lt gt True POSn Addltem vehado Recordset Fields serialno vehado Recordset MoveNext Wend End If End Sub Private Sub poButton Click Index As Integer Dim sql As String Dim i As Integer Dim empt As Boolean Dim duplicate As Boolean New If Index 2 0 Then Call ClearpoDatafeilds Call ClearpoTextBoxes POTextBox 7 Text Open POAction 0 POAdo Visible False POno Visible False PODisplay Enabled False POButton 2 Enabled True POButton 3 Enabled False POTextBox 0 Visible True POTextBox 0 Enabled True POTextBox 1 Visible True POTextBox 1 Enabled True POSn Visible False POAdo RecordSource select from purchaseorder POAdo Refresh i 0 Do While i lt gt 8 POTextBox i Locked False POTextBox i BackColor amp H80000009 i i 1 Loop POModify Enabled False Search Elself Index 1 Then Call ClearpoDatafeilds POAction 1 POAdo Visible False POno Visible True POSn Visible True PODisplay Enabled True POButton 2 Enabled False POButton 3 Enabled False Call ClearpoTextBoxes POAdo RecordSource select from purchaseorder POAdo Refresh i 0 Do While i lt gt 8 POTextBox i Locked True POTextBox i BackColor amp H80
4. VehFrameLabel 3 Elself VehFrameTextBox 8 Text lt gt And IsDate VehFrameTextBox 8 Text False Then MsgBox Enter Date like dd mm yy in VehFrameLabel 8 Else vehado Recordset Update MsgBox Data Has been updated End If End If Delete Elself Index 3 Then VehDisplay Enabled False If VehNo Text lt gt Then vehado Refresh While vehado Recordset EOF lt gt True And vehado Recordset Fields kfupmno lt gt VehNo Text vehado Recordset MoveNext Wend If vehado Recordset EOF lt gt True And vehado Recordset Fields kfupmno VehNo Text Then ans MsgBox Are you sure you want to delete Vehicle No VehNo Text 524324 If ans 2 6 Then VehCon Execute delete from vehicle where kfupmno like amp CStr VehNo Text amp SRCon Execute delete from servicerequest where vehicleno like amp CStr VehNo Text amp VehCon Execute delete from workorder where vehno like amp CStr VehNo Text amp i 0 Do While i lt gt 19 VehFrameTextBox i Locked True VehFrameTextBox i BackColor 2 amp H8000000B i i 1 Loop VehNo Locked False VehReg Locked False VehTopButton 2 Enabled False VehModify Enabled False VehDisplay Enabled True VehNo Visible True VehReg Visible True VehTopButton 3 Enabled False Call ClearAllVehicleFrameTextBoxes End If End If End If Exit Elself Index 2 4 Then UserCon Execute delete from currentuser End End If End Sub Private Sub Clea
5. amp and podate gt amp CStr NumOfPOText2 Text amp and podate lt amp CStr NumOfPOText3 Text amp NumOfPOAdo Refresh If NumOfPOAdo Recordset RecordCount gt 0 Then NumOfPOText4 Visible True NumOfPOText4 Text NumOfPOAdo Recordset RecordCount Label7 Visible True NumOfPOGrid Visible True Else MsgBox No Records Found End If End If End Sub Private Sub VehHistoryGo Click VehHistoryGrid Visible False VehHistoryPrint Enabled False If IsNumeric VehHistoryBox1 Text False Then MsgBox Please enter a valid vehicle number Else VehHistoryAdo RecordSource select workorderno Work Order No workperformed Work Performed wpdate Date techname Tech Name from vehhistory where kfupmno like amp CStr VehHistoryBox1 Text amp order by workorderno VehHistoryAdo Refresh If VehHistoryAdo Recordset RecordCount gt 0 Then VehHistoryGrid Visible True VehHistoryPrint Enabled True Else MsgBox No records found End If End If End Sub Private Sub VehHistoryPrint Click Print the title m King Fahd University of Petroleum amp Minerals Printer CurrentX Printer ScaleWidth 2 2 3 TextWidth m 2 Printer CurrentY 500 Printer FontSize 18 Printer Print m m Vehicles amp Heavy Duty Workshop Printer CurrentX Printer ScaleWidth 2 1 7 TextWidth m 2 Printer CurrentY 1000 Printer FontSize 14 Printer Print m m Vehicle History Report Pr
6. Component Design The proposed system will be composed of 4 components or modules A mmu Vehicle Component Service Request Component Work Order Component Purchase Order Component The services provided by each component are as follows 1 The Vehicle Component will provide the following services 0 o 0 5 9 Addition of new vehicles Modification of existing vehicles records Displaying existing vehicles records Delete vehicles records Deleting retired vehicles records Listing vehicles serviced per department 2 The Service Request Component will provide the following services a b Addition of new service requests Displaying existing service requests 3 The Work Order Component will provide the following services opa 0 en 9 j Generating new work orders based on new service requests Updating work orders Closing an open work order Display work order status Generate work complete report Generating and displaying a given vehicle s history Calculating a given vehicle total cost of maintenance Listing work orders completed in a given range Calculating the workshop s income based on complete work orders in a given date range Calculating total spare parts cost in a given date range 4 The Purchase Order Component will provide the following services onco Addition of new purchase order data Modifying purchase order data Displaying purchase orders Closing an open purchase o
7. IF WorkOrderNo SparePart WONum SPCOST SPCOST SparePart Price OUTPUT INCOME EXIT 4 Track All Purchase Orders 4 1 Add A New Purchase Order Record ADD New PurchaseOrderRecord IN PurchaseOrderDB ASSIGN New SerialNo INPUT PurchaseOrderData ASSIGN OPEn TO POStatus SAVE EXIT 4 3 Display Purchase Order Record INPUT PurchaseOrderNo OR SerialNo WHILE NOT EXIST IN PurchaseOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT PurchaseOrderNo OR SerialNo GET PurchaseOrderRecord IN PurchaseOderDB DISPLAY PurchaseOrderRecord EXIT 4 2 Modify Purchase Order Record INPUT SerialNo WHILE NOT EXIST IN PurchaseOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT SerialNo GET PurchaseOrderRecord IN PurchaseOderDB DISPLAY PurchaseOrderRecord MODIFY SelectedField s IN PurchaseOrderRecord SAVE EXIT 4 4 Delete Purchase Order Record INPUT PurchaseOrderNo OR SerialNo WHILE NOT EXIST IN PurchaseOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT PurchaseOrderNo OR SerialNo GET PurchaseOrderRecord IN PurchaseOderDB CONFI RM Delete PurchaseOrderRecord IF YES THEN DELETE ELSE EXIT SAVE EXIT XV User Interface Design A Jl Display ey Medi 025 J2 Pigs Add New Vehicle Panel Add New Service Request Panel EITGITTTEG eese c Add New Work Order Panel KFUPM Workshoop Management System WMS 992 Di
8. INPUT KFUPMNo INPUT RegNo IF EXIST IN VehicleDB WARNING Duplicate RegNo INPUT Allow Duplicate RegNo IF NO EXIT INPUT Remaining Vehicle Data SAVE EXIT 1 3 Display Vehicle Record INPUT KFUPMNo WHILE NOT EXIST IN VehicleDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT KFUPMNo GET VehicleRecord IN VehicleDB DISPLAY VehicleRecord EXIT 1 5 Archive Retired Vehicle Record s GET CurrentDate FOR ALL RECORDS IN VehicleDB READ VehicelRecord GET VehStatus IF RETIRED IF CurrentDate RetireDate gt 1 Year Delete NEXT EXIT 2 Track All Service Requests 2 1 Add New Service Request Record INPUT ServiceRequestNo WHILE EXIST IN ServiceRequestDB OR NOT QUIT DISPLAY ERROR MESSAGE Duplicate INPUT ServiceRequestNo INPUT KFUPMNo WHILE NOT EXIST IN VehicleDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT KFUPMNo GET VehicleRecord IN VehicleDB INPUT Remaining ServiceRequest Data INPUT Work Requested OPEN New WorkOrder SAVE 1 2 Modify Vehicle Record INPUT KFUPMNo WHILE NOT EXIST IN VehicleDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT KFUPMNo GET VehicleRecord IN VehicleDB DISPLAY VehicleRecord MODIFY SelectedField s IN VehicleRecord SAVE VehicleRecord EXIT 1 4 Delete Vehicle Record INPUT KFUPMNo WHILE NOT EXIST IN VehicleDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT KFUPMNo GET VehicleRecord IN Vehic
9. Record mi Vehicle Data Vehicle Data Dur ee gt Een Vehicle Vehicle Data Data gt q Vehicle Data Service Request Record Service Request Recall Requester Info Service Request Data M c gt Bit Service a SR Requester Info gt T A WO Status Request Completed Work Data n Work Wehide Lus A W WO Status peice Request a UN Work Complete Report n AU Purchase Order WO Data PO Status request Process erv j lt Order PO Data 2 ae i E don Work Order Record Record Purchase Order Status gt History Record Request a gt Get Vind gt Vehicle History Record History K an VII Requirements Specification 1 Maintain Detailed Vehicle Information Requirement No 1 2 Function Description Requirement No 1 1 Function Add vehicle record Description Add new vehicle record to vehicles database A new KFUPM vehicle is added as a new record and saved The system should not allow duplicate records i e KFUPM No Inputs New vehicle data Source User User Level Admin or Operator Outputs Saved vehicle record Destination Vehicle database Requires User input Requirement No 1 3 Display vehicle record Display an existing vehicle record by retrieving vehicle data from vehicles database using KFUPM No or Reg No Function Modif
10. i 1 Loop SRNo Locked True SRVehNo Locked True SRModify Enabled True SRDisplay Enabled False SRNo Visible False SRVehNo Visible False SRTextBox 0 Visible 2 True SRTextBox 1 Visible 2 True If UserLevel 2 Then SRModify Enabled False End If End If End Sub Private Sub SRNo DropDown SRNo Clear SRAdo RecordSource select from servicerequest order by servicerequestno SRAdo Refresh While SRAdo Recordset EOF lt gt True SRNo Addltem SRAdo Recordset Fields servicerequestno SRAdo Recordset MoveNext Wend SRDisplay Enabled True End Sub Private Sub SRVehNo Click Dim break As Boolean Dim sql As String break False Call ClearSRDatafeilds If SRVehNo Text lt gt And SrAction 1 Then sql select from servicerequest where vehicleno like amp CStr SRVehNo Text amp order by vehicleno SRAdo RecordSource sql SRAdo Refresh If SRAdo Recordset RecordCount gt 0 Then Call SetSRDataFeilds Call GetWR End If If SRAdo Recordset RecordCount gt 1 Then SRAdo Visible True End If i 0 Do While i lt gt 13 SRTextBox i Locked True SRTextBox i BackColor amp H80000009 i i 1 Loop SRNo Locked True SRVehNo Locked True SRModify Enabled True SRDisplay Enabled False SRNo Visible False SRVehNo Visible False SRTextBox 0 Visible 2 True SRTextBox 1 Visible 2 True If UserLevel 2 Then SRModify Enabled False End If End If End Sub Private Sub
11. labortotal 0 While VehTotalCostAdo Recordset EOF lt gt True labortotal labortotal VehTotalCostAdo Recordset Fields total labor charge VehTotalCostAdo Recordset MoveNext Wend VehTotalCostBox5 Text labortotal VehTotalCostBox6 Text sptotal labortotal Else MsgBox No records found End If End If End Sub Private Sub TotalCost Click Index As Integer VehTotalCostFrame Visible True NumOfPOFrame Visible False VehHistoryFrame Visible False End Sub Private Sub VehTotalCostPrint_ Click Print the title m King Fahd University of Petroleum amp Minerals Printer CurrentX Printer ScaleWidth 2 2 3 TextWidth m 2 Printer CurrentY 500 Printer FontSize 18 Printer Print m m Vehicles amp Heavy Duty Workshop Printer CurrentX Printer ScaleWidth 2 1 7 TextWidth m 2 Printer CurrentY 1000 Printer FontSize 14 Printer Print m m Vehicle Total Cost Report Printer CurrentX Printer ScaleWidth 2 1 5 TextWidth m 2 Printer CurrentY 1500 Printer FontSize 12 Printer FontUnderline True Printer Print m Print Veh number Printer CurrentX 2000 Printer CurrentY 3000 Printer FontSize 10 Printer FontUnderline False m Vehicle Number amp VehTotalCostBox1 Text Printer Print m Printer CurrentX 2000 Printer CurrentY 3500 Printer Print From amp VehTotalCostBox2 Text amp To amp VehTotalCostBox3 Text Print the headings Printer Cur
12. Form Unload Cancel As Integer VehCon Close SRCon Close WRCon Close WOCon Close WPCon Close SPCon Close POCon Close UserCon Close End Sub Private Sub SSTab1 Click PreviousTab As Integer If SSTab1 Tab 1 And WOStart 0 Then SRNo Visible True SRVehNo Visible True SRTextBox 0 Visible False SRTextBox 1 Visible False Call ClearSRTextBoxes i 0 Do While i lt gt 13 SRTextBox i Locked True SRTextBox i BackColor amp H8000000B i i 1 Loop If UserLevel gt 1 Then SRButton 0 Enabled False End If SRButton 2 Enabled False SRButton 3 Enabled False SRDisplay Enabled True SrAction 1 SrStart 2 1 Elself SSTab1 Tab 3 And POStart 0 Then POSn Visible True POno Visible True POTextBox 0 Visible False POTextBox 1 Visible False Call ClearpoTextBoxes i 0 Do While i lt gt 8 POTextBox i Locked True POTextBox i BackColor amp H8000000B i i 1 Loop If UserLevel gt 1 Then POButton 0 Enabled False End If POButton 2 Enabled False POButton 3 Enabled False PODisplay Enabled True POAction 1 POStart 1 Elself SSTab1 Tab 2 Then WOno Visible True WOVno Visible True WOSrno Visible True WOTextBox 0 Visible False WOTextBox 1 Visible False WOTextBox 2 Visible False Call ClearWOTextBoxes i 0 Do While i lt gt 7 WOTextBox i Locked True WOTextBox i BackColor 2 amp H8000000B i i 1 Loop If UserLevel gt 1 Then WOButt
13. SRVehNo dropdown SRVehNo Clear If SrAction 2 0 Then SRVehNo Enabled True vehado RecordSource select from vehicle order by kfupmno vehado Refresh While vehado Recordset EOF lt gt True SRVehNo Addltem vehado Recordset Fields kfupmno vehado Recordset MoveNext Wend Elself SrAction 1 Then SRAdo RecordSource select distinct vehicleno from servicerequest order by vehicleno SRAdo Refresh If SRAdo Recordset RecordCount gt 0 Then While SRAdo Recordset EOF lt gt True SRVehNo Addltem SRAdo Recordset Fields vehicleno SRAdo Recordset MoveNext Wend End If End If End Sub Private Sub SRButton Click Index As Integer Dim sql As String Dim i As Integer Dim empt As Boolean Dim duplicate As Boolean New If Index 2 0 Then Call ClearSRDatafeilds Call ClearSRTextBoxes SrAction 0 SRAdo Visible False SRNo Visible False SRDisplay Enabled False SRButton 2 Enabled True SRButton 3 Enabled False SRTextBox 0 Visible True SRTextBox 0 Enabled True SRTextBox 1 Visible False SRVehNo Visible True SRVehNo Locked False SRAdo RecordSource select from servicerequest SRAdo Refresh i 0 Do While i lt gt 13 SRTextBox i Locked False SRTextBox i BackColor amp H80000009 i i 1 Loop SRModify Enabled False vehado RecordSource select from vehicle vehado Refresh While vehado Recordset EOF lt gt True SRVehNo Addltem vehado Recordset Fields kfupmn
14. WOTextBox 4 Text End If Fields wostatus 2 WOTextBox 5 Text If WOTextBox 6 Text Then Fields poserial 2 WOTextBox 6 Text End If Update End With WOWP Enabled True WOSP Enabled True End If End If If WOAction 1 Then vehado RecordSource select from vehicle vehado Refresh vehfound False While vehado Recordset EOF lt gt True And vehfound lt gt True If vehado Recordset Fields kfupmno WOVno Text Then vehfound True Else vehado Recordset MoveNext End If Wend SRAdo RecordSource select from servicerequest SRAdo Refresh srfound False While SRAdo Recordset EOF lt gt True And srfound lt gt True If SRAdo Recordset Fields servicerequestno WOSrno Text Then srfound True Else SRAdo Recordset MoveNext End If Wend If WOTextBox 0 Text 2 Or WOTextBox 0 Text Then MsgBox Enter WOLabel 0 Caption Elself IsNumeric WOTextBox 0 Text False Then MsgBox Invaild Service Request Number Elself WOVno Text Or WOVno Text Then MsgBox Enter WOLabel 1 Caption Elself WOSrno Text Or WOSrno Text Then MsgBox Enter WOLabel 2 Caption Elself WOTextBox 3 Text lt gt And IsDate WOTextBox 3 Text False Then MsgBox Enter Date like dd mm yy in WOLabel 3 Elself WOTextBox 4 Text lt gt And IsNumeric WOTextBox 4 Text False Then MsgBox Please enter a valid WOLabel 4 Elself WOTextBox 6 Text lt gt And IsNu
15. Work Complete Report A Workshop standard report using which the workshop notifies the customer of work completion and total cost Appendix A Forms Currently Used By The Workshop 1 From 1 Service Request This form is filled by the department requesting vehicle service and must be submitted to workshop reception at vehicle admission Form 2 Work Order This form is issued against each Service Request This form is used to keep track of services done and parts consumed by vehicle while in workshop Form 3 Purchase Order This form is filled out by the workshop in an event that a given spare part is not available in the workshop s spare parts logistics The form is then sent to the Administrative Affairs for purchasing The PO is issued a control number by Administrative Affairs for tracking Form 4 Work Complete Notification Letter This letter is issued after work completion and is sent to the customer department The form lists the service s done the spare parts used and the total cost Form 5 Vehicle Data Record Form Each KFUPM Owned vehicle has a record file in the workshop s filing system The form listed specific data about vehicle and is organized by KFUPM number
16. i Locked True VehFrameTextBox i BackColor amp H8000000B i i 1 Loop VehNo Visible True VehReg Visible True VehNo Locked False VehReg Locked False VehModify Enabled False VehTopButton 2 Enabled False VehDisplay Enabled True Save Elself Index 2 Then VehDisplay Enabled False If Action 0 Then vehado Refresh i20 empt False Do While i lt gt 3 And empt False If VehFrameTextBox i Text Or VehFrameTextBox i Text Then MsgBox Enter VehFrameLabel i Caption empt True End If If IsNumeric VehFrameTextBox 0 Text False And empt False Then MsgBox Invalid Vehicle number empt True End If i i 1 Loop duplicate False While vehado Recordset EOF lt gt True And duplicate lt gt True If vehado Recordset Fields kfupmno VehFrameTextBox 0 Text Then duplicate True Else vehado Recordset MoveNext End If Wend If empt False And duplicate True Then MsgBox Duplicate vehicle no Elself VehFrameTextBox 3 Text lt gt And IsDate VehFrameTextBox 3 Text False Then MsgBox Enter Date like dd mm yy in VehFrameLabel 3 Elself VehFrameTextBox 8 Text lt gt And IsDate VehFrameTextBox 8 Text False Then MsgBox Enter Date like dd mm yy in VehFrameLabel 8 Elself empt False Then With vehado Recordset AddNew Fields kfupmno 2 VehFrameTextBox 0 Text Fields RegNO 2 VehFrameTextBox 1 Text If VehFrameTextBox 3 Text lt gt And IsD
17. the SR data will be saved in an SR Database and a Work Order WO will be initiated given a unique WO number and saved in a WO Database Next the WO is dispatched by the workshop s supervisor to the appropriate technician or mechanic for action In the event spare parts are needed the workshop may purchase spar parts with a maximum value of 300 Riyals However if the cost of spare parts was above that limit a Purchase Order PO is initiated given a WMS PO Serial number and sent to KFUPM administrative Affairs who on their side send the PO to KFUPM Purchasing Department Activities per WO are tracked or logged by the system and after spare parts are received or while pending spare parts delivery other tasks requested are taken care of and the WO is closed after all tasks are complete When all work requested is done the system will generate a work complete report showing work done cost of spare parts and labor charges The report is then sent to the customer as an invoice In addition to the above the system will provide statistical data about various workshop activities and income IX Object Model Vehicle KFUPM No int Department char Date of Purchase Date Registration No char Vin or Chasis M int Service Request Engine No int Service Order No int Transmission Type String Date Date Spark Plug No int M M Mileage int Electric System Type of Job char Oil Fi
18. 00000B i i 1 Loop POno Visible True POSn Visible True POno Locked False POSn Locked False POModify Enabled False POButton 3 Enabled False Call ClearpoTextBoxes Save Elself Index 2 Then If POAction 0 Then POAdo RecordSource select from purchaseorder POAdo Refresh Dim found As Boolean duplicate False While POAdo Recordset EOF lt gt True And duplicate False If POAdo Recordset Fields serialno POTextBox 0 Text Then duplicate True Else POAdo Recordset MoveNext End If Wend If POTextBox 0 Text 2 Or POTextBox 0 Text Then MsgBox Enter 4 POLabel 0 Caption Elself IsNumeric POTextBox 0 Text False Then MsgBox Invaild Purchase Order Serial Number Elself IsNumeric POTextBox 1 Text False And POTextBox 1 Text lt gt Then MsgBox Invaild Purchase Order Number Elself duplicate True Then MsgBox Duplicate Purchase Order Serial Number Elself POTextBox 2 Text lt gt And IsDate POTextBox 2 Text False Then MsgBox Enter Date like dd mm yy in POLabel 2 Elself POTextBox 3 Text lt gt And IsDate POTextBox 3 Text False Then MsgBox Enter Date like dd mm yy in POLabel 3 Else With POAdo Recordset AddNew Fields serialno 2 POTextBox 0 Text If POTextBox 1 lt gt Then Fields PurchaseOrderno POTextBox 1 Text End If If POTextBox 2 Text lt gt Then Fields podate POTextBox 2 Text End If If POTextBox
19. 2 SPTextBox 3 Text WOAdo Recordset Fields SPTotalCost 2 WOAdo Recordset Fields SPTotalCost SPTextBox 2 Text SPTextBox 3 Text S SPTextBox 0 Text False Then WOAdo Recordset Update End If Update End With i20 Do While i lt gt 4 SPTextBox i Text i i 1 Loop End If Else MsgBox No Spare Part has been entered End If WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labortotalcost SPTextBox 2 Text 1 SPTextBox 3 Text 0 End Sub Private Sub WOWP Click WOAdo RecordSource select from workorder where workorderno like amp CStr WOTextBox 0 Text amp WOAdo Refresh If WOAction 0 Then SPFrame Visible False WPFrame Visible True Elself WOAction 1 Then WPAdo RecordSource select from workperformed where wono like amp CStr WOTextBox 0 Text amp WPAdo Refresh If WPAdo Recordset RecordCount gt 0 Then SPListframe Visible False WPListFrame Visible True WPFrame Visible False SPFrame Visible False WPList Enabled False If UserLevel gt 1 Then WPAdd Enabled False End If Else ans MsgBox No Work Performed for this Work Order Do you want to add one 524324 If ans 2 6 Then If UserLevel 2 Then WPListFrame Visible False WPFrame Visible True SPFrame Visible False SPListframe Visible False Else MsgBox You are not allowed to do this operation End If End If End If End If End Sub
20. 3 Text lt gt Then Fields datematerialneeded POTextBox 3 Text End If Fields supplier1 POTextBox 4 Text Fields supplier2 2 POTextBox 5 Text Fields supplier3 2 POTextBox 6 Text Fields postatus 2 POTextBox 7 Text Update End With Call ClearpoTextBoxes End If End If If POAction 1 Then If IsDate POTextBox 2 False And POTextBox 2 lt gt Then MsgBox Enter Date DD MM YY in POLabel 2 Caption Elself IsDate POTextBox 3 False And POTextBox 3 lt gt Then MsgBox Enter Date DD MM YY in POLabel 3 Caption Elself IsNumeric POTextBox 1 False And POTextBox 1 lt gt Then MsgBox Invalid 4 POLabel 1 Caption Else POAdo Recordset Update POAdo Refresh MsgBox Purchase Order Updated End If End If Delete Elself Index 3 Then PODisplay Enabled False ans MsgBox Are you sure you want to delelte Purchase Order amp POAdo Recordset Fields serialno 524324 If ans 2 6 Then POCon Execute delete from purchaseorder where serialno like amp CStr POTextBox 0 Text amp i20 Do While i lt gt 8 POTextBox i Locked True POTextBox i BackColor amp H8000000B i i 1 Loop POno Locked False POSn Locked False POButton 2 Enabled False POModify Enabled False PODisplay Enabled True POno Visible True POSn Visible True POButton 3 Enabled False POAdo Visible False Call ClearpoTextBoxes End If Exit Elself Index 4 Then User
21. Con Execute delete from currentuser End End If End Sub Private Sub ClearpoTextBoxes POno Text POSn Text Dim i As Integer i 0 Do While i lt gt 8 POTextBox i Text i i 1 Loop End Sub Private Sub ClearpoDatafeilds POno DataField POSn DataField i 0 Do While i lt gt 8 POTextBox i DataField i i 1 Loop End Sub Private Sub SetpoDataFeilds POno DataField PurchaseOrderNo POSn DataField serialno POTextBox 0 DataField serialno POTextBox 1 DataField purchaseorderno 1 POTextBox 2 DataField podate POTextBox 3 DataField datematerialneeded POTextBox 4 DataField supplier1 POTextBox 5 DataField supplier2 POTextBox 6 DataField supplier3 POTextBox 7 DataField postatus End Sub Ik ok ok ok ok ok ok ok ok ok K K ok K K K ok ok K K K ok ok K K K ok K K K ok ok K K K ok ok K K ok ok K K K ok K K K ok ok K K K ok K kok ok ok kK Purchase Order End Kok ok ok ok ok ok K ok ok K ok K ok ok K K K ok K K K ok ok K K ok ok K K K K Ik ok ok ok ok ok ok ok ok ok FK ok ok K ok K ok ok K K K ok K K K K ok K K K ok ok K K K ok K K K ok ok K K K K K K ok ok ok K K K ok K kok ok OK kK Service Request Start Private Sub SRAdo_ MoveComplete ByVal adReason As ADODB EventReasonEnum ByVal pError As ADODB Error
22. King Fahd University of Petroleum and Minerals College of Computer Sciences and Engineering Department of Information and Computer Sciences ICS 411 Senior Project 992 KFUPM Workshop Management System Management Fahad S Al Qadaa 968197 Muhammad A Bukhari 965289 Date May 20 2000 KFUPM Car Workshop Management System Introduction KFUPM owns various types of vehicles such as sedans pickups heavy duty vehicles and buses University colleges service departments and KFUPM officials use these vehicles With such variety of uses and number of vehicles it was more efficient for KFUPM to maintain its own vehicles KFUPM was established along time ago The workshop is managed in a classical way Today lots of major workshops use computer based workshop management systems to manage their overall activities Since KFUPM workshop serves university vehicles only i e non profit workshop with limited set of activities or operations it was recommended that an in house workshop management system be developed The purpose of this project is to build from scratch a workshop management system to be used at KFUPM workshop I Requirements A Software requirements Microsoft Windows 9x NT or 2000 Microsoft SQL 7 x B Hardware Requirements An IBM or 100 compatible PC 32MB RAM Minimum 30MB free hard disk space C Functional Requirements 1 Maintain Vehicle Data The system shall provide mea
23. Not Found INPUT WorkOrderNo GET WorkOrderRecord IN WorkOderDB DISPLAY WorkOrderRecord OUTPUT Selected Fields IN WorkOrderRecord EXIT 2 4 Delete Service Request Record INPUT ServiceRequestNo WHILE NOT EXIST IN ServiceReqDB OR NOT Quit DISPLAY ERROR MESSAGE Not Found INPUT ServiceRequestNo GET ServiceRequestRecord IN ServiceRequestDB CONFIRM Delete ServiceRequestRecord IF YES THEN DELETE ELSE EXIT SAVE EXIT 3 2 Modify Work Order Record INPUT WorkOrderNo WHILE NOT EXIST IN WorkOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT WorkOrderNo GET WorkOrderRecord IN WorkOderDB INPUT WorkPerformedData WHILE INPUT WorkPerformed TRUE OR NOT QUIT INPUT WorkPerformed TotalCost TotalCost LaborCharge INPUT SpareParts WHILE INPUT SpareParts TRUE OR NOT QUIT INPUT SpareParts TotalCost TotalCost Price SAVE EXIT 3 4 Delete Work Order Record INPUT WorkOrderNo WHILE NOT EXIST IN WorkOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT WorkOrderNo GET WorkOrderRecord IN WorkOderDB CONFIRM Delete WorkOrderRecord IF YES THEN DELETE ELSE EXIT SAVE EXIT 3 6 Generate amp Display Vehicle History INPUT KFUPMNo OR RegNo WHILE NOT EXIST IN VehicleDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT KFUPMNo OR RegNo GET VehicleRecord IN VehicleDB DISPLAY VehicleRecord FOR ALL WorkOrders IF WorkOrder VehNo KFUPMNo GET WorkOrderData DISPLAY
24. Private Sub WPAdd Click WPListFrame Visible False WPFrame Visible True SPFrame Visible False SPListframe Visible False End Sub Private Sub WPList Change WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labortotalcost End Sub Private Sub WOSP Click WOAdo RecordSource select from workorder where workorderno like amp CStr WOTextBox 0 Text amp WOAdo Refresh If WOAction 0 Then WPFrame Visible False SPFrame Visible True Elself WOAction 1 Then SPado RecordSource select from sparepart where WONumillike amp CStr WOTextBox 0 Text amp SPado Refresh If SPado Recordset RecordCount gt 0 Then WPListFrame Visible False SPListframe Visible True SPFrame Visible False SPList Enabled False If UserLevel gt 1 Then SPAdd Enabled False End If Else ans MsgBox No Spare Pparts for this Work Order Do you want to add one 524324 If ans 2 6 Then If UserLevel 2 Then SPListframe Visible False SPFrame Visible True WPFrame Visible False WPListFrame Visible False Else MsgBox You are not allowed to do this operation End If End If End If End If End Sub Private Sub SPAdd Click SPListframe Visible False SPFrame Visible True WPFrame Visible False WPListFrame Visible False End Sub Private Sub SPList_Change WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labo
25. Refresh If POAdo Recordset RecordCount gt 0 Then Call SetpoDataFeilds End If i 0 Do While i lt gt 8 POTextBox i Locked True POTextBox i BackColor amp H80000009 i i 1 Loop POSn Locked True POno Locked True POModify Enabled True PODisplay Enabled False POSn Visible False POno Visible False POTextBox 0 Visible 2 True POTextBox 1 Visible 2 True If UserLevel 2 Then POModify Enabled False End If End If End Sub Private Sub poNo DropDown POno Clear POAdo RecordSource select from purchaseorder order by purchaseorderno POAdo Refresh While POAdo Recordset EOF lt gt True POno Addltem POAdo Recordset Fields PurchaseOrderNo POAdo Recordset MoveNext Wend PODisplay Enabled True End Sub Private Sub posN Click Dim break As Boolean Dim sql As String break False Call ClearpoDatafeilds If POSn Text lt gt And POAction 1 Then sql select from purchaseorder where serialno like amp CStr POSn Text amp order by serialno POAdo RecordSource sql POAdo Refresh If POAdo Recordset RecordCount gt 0 Then Call SetpoDataFeilds End If i 0 Do While i lt gt 8 POTextBox i Locked True POTextBox i BackColor amp H80000009 i i 1 Loop POSn Locked True POno Locked True POModify Enabled True PODisplay Enabled False POSn Visible False POno Visible False POTextBox 0 Visible 2 True POTextBox 1 Visible 2 True If UserLevel 2 Then POModify Enabled
26. Sub Private Sub WOSRNo Click Dim break As Boolean Dim sql As String break False Call ClearWODatafeilds If WOSrno Text lt gt And WOAction 1 Then sql select from workorder where srnum like amp CStr WOSrno Text amp WOAdo RecordSource sql WOAdo Refresh If WOAdo Recordset RecordCount gt 0 Then Call SetWODataFeilds WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labortotalcost End If If WOAdo Recordset RecordCount gt 1 Then WOAdo Visible True End If i20 Do While i lt gt 7 WOTextBox i Locked True WOTextBox i BackColor amp H80000009 i i 1 Loop WOno Locked True WOVno Locked True WOSrno Locked True WOModify Enabled True WODisplay Enabled False WOno Visible False WOVno Visible False WOSrno Visible False WOTextBox 0 Visible True WOTextBox 1 Visible True WOTextBox 2 Visible True WOWP Enabled True WOSP Enabled True If UserLevel 2 Then WOModify Enabled False End If End If End Sub Private Sub WOSRNo dropdown Call ClearWODatafeilds WOSrno Clear If WOAction 0 Then WOSrno Enabled True SRAdo RecordSource select from servicerequest order by servicerequestno SRAdo Refresh While SRAdo Recordset EOF lt gt True WOSrno Addl tem SRAdo Recordset Fields servicerequestno SRAdo Recordset MoveNext Wend Elself WOAction 1 Then WOAdo RecordSource select distinct srnum from workorder order by srnum WOA
27. Visible False End If If UserLevel 2 Then VehTopButton 0 Enabled False VehTopButton 0 Enabled False End If Action 1 VehNo Visible True VehReg Visible True VehDisplay Enabled True VehFrameTextBox 0 Enabled True VehTopButton 3 Enabled False Call ClearAllVehicleFrameTextBoxes sql select from vehicle vehado RecordSource sql vehado Refresh i20 Do While i lt gt 19 VehFrameTextBox i Locked True VehFrameTextBox i BackColor amp H8000000B i i l Loop VehNo Visible True VehReg Visible True VehNo Locked False VehReg Locked False VehModify Enabled False VehTopButton 2 Enabled False VehDisplay Enabled True Starting 1 End If End Sub Private Sub Form Load Starting 0 frmMain Visible False frmUM Visible True SSTab1 Tab 0 VehTopButton 3 Enabled False vehado Visible False VehNo Visible False VehReg Visible False VehDisplay Enabled False VehFrame Visible False Dim CS As String CS Provider MSDASQL 1 User ID sa Data Source WMS Set VehCon New ADODB Connection Set SRCon New ADODB Connection Set WRCon New ADODB Connection Set WOCon New ADODB Connection Set WPCon New ADODB Connection Set SPCon New ADODB Connection Set POCon New ADODB Connection Set UserCon New ADODB Connection VehCon Open CS SRCon Open CS WRCon Open CS WOCon Open CS WPCon Open CS SPCon Open CS POCon Open CS UserCon Open CS End Sub Private Sub
28. WorkOrderData EXIT 3 7 Calculate Vehicle Total Maintenance Cost INPUT KFUPMNo OR RegNo WHILE NOT EXIST IN VehicleDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT KFUPMNo OR RegNo GET VehicleRecord IN VehicleDB DISPLAY VehicleRecord COST 0 FOR ALL WorkOrders IF WorkOrder VehNo KFUPMNo COST COST WorkOrder TotalCost DISPLAY COST EXIT 3 9 Calculate Workshop Total Income 3 8 List Work Orders Complete By Date Range INPUT DateRange VERIFY DateRange WHILE DateRange IN WorkOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE INPUT DateRange VERIFY DateRange FOR ALL WorkOrders in WorkOrderDB IF WODate lt UpperLimitDateRange AND WODate gt LoweLimitDateRange AND WOSatus COMPLETE OUTPUT WorkOrderRecord EXIT 3 10 Calculate Spare Parts Cost By Date INPUT DateRange Range VERIFY DateRange INPUT DateRange WHILE DateRange IN WorkOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE INPUT DateRange VERIFY DateRange INCOME 0 Zero FOR ALL WorkOrders in WorkOrderDB IF WODate lt UpperLimitDateRange AND WODate gt LoweLimitDateRange AND WOSatus COMPLETE INCOME ICOME TotalCost OUTPUT INCOME EXIT WHILE VE IF VERIFY DateRange DateRange IN WorkOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE INPUT DateRange RIFY DateRange SPCOST 0 Zero FOR ALL WorkOrders in WorkOrderDB WODate lt UpperLimitDateRange AND WODate gt LoweLimitDateRange AND WOSatus COMPLETE FOR ALL SpareParts
29. Y y Printer CurrentX 7200 Printer Print VehTotalCostBox5 Text Printer CurrentY y Printer CurrentX 9400 Printer Print VehTotalCostBox6 Text Printer EndDoc End Sub Ik ok ok ok ok ok ok ok ok ok FK ok ok K K K ok ok K K K ok ok K K K ok K K K ok ok K K K ok K K K ok ok K K K ok K K K ok ok K K K ok K TKK ok ok ok ok K ok ok ok FK K ok K K K ok ok K K K ok K K K K K K K K ok K K K K K CE K K ok ok K K K ok K K K K ok K K K K K Private Sub WPSave Click If WPTextBox 0 Text lt gt Or WPTextBox 1 Text lt gt Or WPTextBox 2 Text lt gt Or WPTextBox 3 Text lt gt Then If WOTextBox 0 Text lt gt And IsNumeric WOTextBox 0 Text False Then MsgBox Please enter a valid WOLabel 0 Elself WPTextBox 0 Text lt gt And IsDate WPTextBox 0 Text False Then MsgBox Enter Date like dd mm yy in WPLabel 0 Elself WPTextBox 3 Text lt gt And IsNumeric WPTextBox 3 Text False Then MsgBox Please enter a valid WPLabel 3 Else WPAdo RecordSource select from workperformed WPAdo Refresh With WPAdo Recordset AddNew If WOTextBox 0 Text lt gt Then Fields wono 2 WOTextBox 0 Text End If If WPTextBox 0 Text lt gt Then Fields wpdate 2 WPTextBox 0 Text End If Fields workperformed 2 WPTextBox 1 Text Fields techname WPTextBox 2 Text If WPTextBox 3 Text lt gt Then Fields laborcharge WPTextBox 3 Text WOAdo Recordset Fields laborTotalCos
30. adStatus As ADODB EventStatusEnum ByVal pRecordset As ADODB Recordset If SRAdo Recordset RecordCount gt 0 And SRAdo Recordset EOF lt gt True And SRAdo Recordset BOF lt gt True And SrAction 1 And SRAdo Visible True Then Call GetWR End If If SRAdo Recordset RecordCount gt 1 And SRAdo Recordset EOF lt gt True And SRAdo Recordset BOF lt gt True Then SRAdo Caption Record amp SRAdo Recordset AbsolutePosition amp of amp SRAdo Recordset RecordCount End If End Sub Private Sub SRDisplay Click Dim sql As String Call ClearSRDatafeilds If SRNo Text Then sql select from servicerequest where servicerequestno like amp CStr SRNo Text amp order by servicerequestno SRAdo RecordSource sql SRAdo Refresh If SRAdo Recordset RecordCount gt 0 Then Call SetSRDataFeilds Call GetWR Else MsgBox Service Request number not found End If Elself SRVehNo Text lt gt Then sql select from servicerequest where vehicleno like amp CStr SRVehNo Text amp order by vehicleno SRAdo RecordSource sql SRAdo Refresh If SRAdo Recordset RecordCount gt 0 Then Call SetSRDataFeilds Call GetWR If SRAdo Recordset RecordCount gt 1 Then SRAdo Visible True End If Else MsgBox Vehicle number not found End If End If If SRNo Text lt gt Or SRVehNo Text lt gt And SRAdo Recordset RecordCount gt 0 Then i20 Do While i lt gt 13 SRTextBox i Locked True SRTextBox i BackC
31. arch Els elf Index 2 1 Then Call ClearWODatafeilds WOAction 1 WOAdo Visible False WOno Visible True WOVno Visible True WOSrno Visible True WODisplay Enabled True WOButton 2 Enabled False WOButton 3 Enabled False WOWP Enabled False WOSP Enabled False WPListFrame Visible False WPFrame Visible False SPListframe Visible False SPFrame Visible False Call ClearWOTextBoxes WOAdo RecordSource select from workorder WOAdo Refresh i 0 Do While i lt gt 7 WOTextBox i Locked True WOTextBox i BackColor amp H8000000B i i 1 Loop WOno Visible True WOVno Visible True WOSrno Visible True WOno Locked False WOVno Locked False WOSrno Locked False WOModify Enabled False WOButton 3 Enabled False Call ClearWOTextBoxes Save Elself Index 2 Then If WOAction 0 Then WOAdo Refresh vehado RecordSource select from vehicle vehado Refresh Dim vehfound As Boolean vehfound False While vehado Recordset EOF lt gt True And vehfound True If vehado Recordset Fields kfupmno WOVno Text Then vehfound True Else vehado Recordset MoveNext End If Wend SRAdo RecordSource select from servicerequest SRAdo Refresh Dim srfound As Boolean srfound False While SRAdo Recordset EOF lt gt True And srfound True If SRAdo Recordset Fields servicerequestno WOSrno Text Then srfound True Else SRAdo Recordset MoveNext End If Wend duplicate Fals
32. are not very specific Extracting information and inter relating user provided forms may not result in accurate representation Users may not fully understand the requirements specified by the development team B Design e Identifying various system modules and components inappropriately may result in ambiguous system design and add complexity in the implementation phase C Implementation e Learning new tools required for system implementation is an overhead for the development team D General e Producing a clear simple amp comprehensive user manual e Training target system users V Scenario Fill Service Service Request Request Fill Work Order pes Dispatach WO Work Order Spare Part s Needed Nes Spare Part s Purchase Spare Part s Locally Fill Purchase Order Yes Spare Part s Arrived Job Complete Update WO Work Order Work Complete Yes Y Work Order Close WO Purchase Order No v Issue Report Job id Report Ba VI Data Flow Diagram A Level 0 DFD New Vehicle Data Purchase Order Status Request Vehicles Workshop Service Request Operator Management lt Customer lt d Vehicle history report Work Complete Report Work Order Order Status B Level 1 DFD Vehicle
33. ate VehFrameTextBox 3 Text True Then Fields purchasedate 2 VehFrameTextBox 3 Text End If Fields dept VehFrameTextBox 2 Text Fields chassis 2 VehFrameTextBox 9 Text Fields make 2 VehFrameTextBox 6 Text If VehFrameTextBox 4 Text lt gt Then Fields yearmodel 2 VehFrameTextBox 4 Text End If Fields engineno 2 VehFrameTextBox 10 Text Fields transtype 2 VehFrameTextBox 11 Text Fields sparkplugno VehFrameTextBox 12 Text Fields electricsys 2 VehFrameTextBox 13 Text Fields airfilter VehFrameTextBox 15 Text Fields oilfilter 2 VehFrameTextBox 14 Text Fields drivebelt 2 VehFrameTextBox 16 Text Fields tire VehFrameTextBox 17 Text If VehFrameTextBox 5 Text lt gt Then Fields warrantyyear VehFrameTextBox 5 Text End If Fields vehstatus VehFrameTextBox 7 Text If VehFrameTextBox 8 Text lt gt And IsDate VehFrameTextBox 8 Text True Then Fields retiredate 2 VehFrameTextBox 8 Text End If Fields note 2 VehFrameTextBox 18 Text Update End With Call ClearAllVehicleFrameTextBoxes End If End If If Action 2 1 Then empt False Do While i lt gt 2 And empt False If VehFrameTextBox i Text Or VehFrameTextBox i Text Then MsgBox Enter VehFrameLabel i Caption empt True End If i i 1 Loop If VehFrameTextBox 3 Text lt gt And IsDate VehFrameTextBox 3 Text False Then MsgBox Enter Date like dd mm yy in
34. ced that belong to a given department Inputs Dept code name Source User User Level Admin or Operator Outputs List Destination Screen or printer Requires User input Requirement No 6 3 Function Calculate workshop income in a given date range Description Inputs Date range Source User User Level Admin or Operator Outputs List Destination Screen or printer Requires User input Inputs Date range Source User User Level Admin or Operator Outputs List Destination Screen or printer Requires User input Requirement No 6 4 Function Calculate cost of spare parts used in a given date range Description Inputs Date range Source User User Level Admin or Operator Outputs List Destination Screen or printer Requires User input VIII Abstract Specification The proposed system i e the KFUPM Workshop Management System WMS shall provide computerized alternative to the current classic workshop management system WMS will be composed of several databases The Vehicle DB will contain data about every KFUPM vehicle This database will be the major source for Vehicles data in WMS Nearly each component of WMS will utilize this DB The Service Request and the Work Order databases will contain and track data about Service Requests and Work Orders respectively In addition a Purchase Order DB will track all purchased orders issued by the workshop Based on the initial customer filled Service Request SR
35. d Sub Private Sub VehReg_DropDown Call ClearDataFeilds vehado Visible False VehReg Clear vehado RecordSource select from vehicle order by regno vehado Refresh While vehado Recordset EOF lt gt True VehReg Addltem vehado Recordset Fields regno vehado Recordset MoveNext Wend End Sub Private Sub VehTopButton Click I ndex As Integer Dim sql As String Dim i As Integer Dim empt As Boolean Dim duplicate As Boolean Call ClearDataFeilds New If Index 0 Then Action 0 vehado Visible False VehNo Visible False VehReg Visible False VehDisplay Enabled False VehTopButton 2 Enabled True VehTopButton 3 Enabled False VehDisplay Enabled False VehFrameTextBox 0 Enabled True Call ClearAllVehicleFrameTextBoxes sql select from vehicle vehado RecordSource sql vehado Refresh i 0 Do While i lt gt 19 VehFrameTextBox i Locked False VehFrameTextBox i BackColor amp H80000009 i i 1 Loop VehNo Locked True VehReg Locked True VehTopButton 2 Enabled True VehModify Enabled False VehDisplay Enabled False VehNo Visible False VehReg Visible False Search Elself Index 1 Then Action 1 VehNo Visible True VehReg Visible True VehDisplay Enabled True VehFrameTextBox 0 Enabled True VehTopButton 3 Enabled False Call ClearAllVehicleFrameTextBoxes sql select from vehicle vehado RecordSource sql vehado Refresh i 0 Do While i lt gt 19 VehFrameTextBox
36. do RecordSource sql vehado Refresh If vehado Recordset RecordCount gt 0 Then Call SetDataFeilds Else MsgBox Vehicle number not found End If Elself VehReg Text lt gt Then sql select from vehicle where regno like amp CStr VehReg Text amp order by regno vehado RecordSource sql vehado Refresh If vehado Recordset RecordCount gt 0 Then Call SetDataFeilds Else MsgBox Vehicle Reginstratio number not found End If End If If vehado Recordset RecordCount gt 0 And VehNo Text lt gt And VehReg Text lt gt Then i 0 Do While i lt gt 19 VehFrameTextBox i Locked True VehFrameTextBox i BackColor amp H80000009 i i 1 Loop VehNo Locked True VehReg Locked True VehModify Enabled True VehDisplay Enabled False VehNo Visible False VehReg Visible False If UserLevel 2 Then VehModify Enabled False End If End If End Sub Private Sub VehModify Click i20 Do While i lt gt 19 VehFrameTextBox i Locked False VehFrameTextBox i BackColor amp H80000009 i i 1 Loop VehNo Locked False VehReg Locked False VehTopButton 2 Enabled True VehFrameTextBox 0 Enabled False VehTopButton 3 Enabled True End Sub Private Sub VehNo Click Dim break As Boolean Dim sql As String break False Call ClearDataFeilds If VehNo Text lt gt Then sql select from vehicle where kfupmno like amp CStr VehNo Text amp order by kfupmno vehado RecordSo
37. do Refresh If WOAdo Recordset RecordCount gt 0 Then While WOAdo Recordset EOF lt gt True WOSrno Addltem WOAdo Recordset Fields srnum WOAdo Recordset MoveNext Wend End If End If End Sub Private Sub WOButton Click Index As Integer Dim sql As String Dim i As Integer Dim empt As Boolean Dim duplicate As Boolean New If ndex 0 Then Call ClearWODatafeilds Call ClearWOTextBoxes WOAction 0 WOAdo Visible False WOno Visible False WODisplay Enabled False WOButton 2 Enabled True WOButton 3 Enabled False WOTextBox 0 Visible True WOTextBox 0 Enabled True WOTextBox 1 Visible False WOVno Visible True WOSrno Visible True WOVno Locked False WOSrno Locked False WOModify Enabled False WOWP Enabled False WOSP Enabled False WPListFrame Visible False WPFrame Visible False SPListframe Visible False SPFrame Visible False WOAdo RecordSource select from workorder WOAdo Refresh i20 Do While i lt gt 7 WOTextBox i Locked False WOTextBox i BackColor amp H80000009 i i 1 Loop vehado RecordSource select from vehicle vehado Refresh While vehado Recordset EOF lt gt True WOVno Addltem vehado Recordset Fields kfupmno vehado Recordset MoveNext Wend SRAdo RecordSource select from servicerequest SRAdo Refresh While SRAdo Recordset EOF lt gt True WOSrno Addltem SRAdo Recordset Fields servicerequestno SRAdo Recordset MoveNext Wend Se
38. dset Fields labortotalcost If WOAdo Recordset RecordCount gt 1 Then WOAdo Visible True End If Else MsgBox Vehicle number not found End If Elself WOSrno Text lt gt Then sql select from workorder where srnum like amp CStr WOSrno Text amp WOAdo RecordSource sql WOAdo Refresh If WOAdo Recordset RecordCount gt 0 Then Call SetWODataFeilds WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labortotalcost If WOAdo Recordset RecordCount gt 1 Then WOAdo Visible True End If Else MsgBox Service Request number not found End If End If If WOno Text lt gt Or WOVno Text lt gt Or WOSrno Text lt gt And WOAdo Recordset RecordCount gt 0 Then i20 Do While i lt gt 7 WOTextBox i Locked True WOTextBox i BackColor amp H80000009 WOTextBox i Visible 2 True i i 1 Loop WOno Locked True WOVno Locked True WOSrno Locked True WOModify Enabled True WODisplay Enabled False WOno Visible False WOVno Visible False WOSrno Visible False WOWP Enabled True WOSP Enabled True If UserLevel 2 Then WOModify Enabled False End If End If End Sub Private Sub WOModify Click i 0 Do While i lt gt 7 WOTextBox i Locked False WOTextBox i BackColor amp H80000009 i i 1 Loop WOno Locked False WOVno Locked False WOSrno Locked False WOButton 2 Enabled True WOTextBox 0 Enabled False WOButton 3 Enabled Tru
39. e VehFrameTextBox 12 DataField sparkplugno VehFrameTextBox 13 DataField electricsys VehFrameTextBox 15 DataField airfilter VehFrameTextBox 14 DataField oilfilter VehFrameTextBox 16 DataField drivebelt VehFrameTextBox 17 DataField tire VehFrameTextBox 5 DataField warrantyyear VehFrameTextBox 7 DataField vehstatus VehFrameTextBox 8 DataField retiredate VehFrameTextBox 18 DataField note End Sub Ik ok ok ok ok ok K ok ok ok K ok ok K K Vehicle End FK KK ok ok ok K ok ok ok K K ok OK K Glossary 1 Service Request A KFUPM Workshop standard form distributed to various University colleges and departments by administrative affairs The form has no serial number A vehicle to be maintained by the workshop must have a valid and properly signed service request 2 Work Order A KFUPM Workshop standard form issued against a every service request The work order is used by the workshop to record problems activities and spare parts used per vehicle Each work order has its own unique number 3 Purchase Order A KFUPM Workshop standard form using which the workshop requests spare parts that are not currently in stock or has an estimated value of more than SAR295 The form is filled by the workshop and submitted to administrative affairs for purchase who issue a control number for each purchase order for tracking 4
40. e WPList Enabled True SPList Enabled True End Sub Private Sub WONo Click Dim break As Boolean Dim sql As String break False Call ClearWODatafeilds If WOno Text lt gt Then sql select from workorder where workorderno like amp CStr WOno Text amp WOAdo RecordSource sql WOAdo Refresh If WOAdo Recordset RecordCount gt 0 Then Call SetWODataFeilds WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labortotalcost End If i 0 Do While i lt gt 7 WOTextBox i Locked True WOTextBox i BackColor amp H80000009 i i 1 Loop WOno Locked True WOVno Locked True WOSrno Locked True WOModify Enabled True WODisplay Enabled False WOno Visible False WOVno Visible False WOSrno Visible False WOTextBox 0 Visible True WOTextBox 1 Visible True WOTextBox 2 Visible True WOWP Enabled True WOSP Enabled True If UserLevel 2 Then WOModify Enabled False End If End If End Sub Private Sub WONo DropDown Call ClearWODatafeilds WOno Clear WOAdo RecordSource select from workorder order by workorderno WOAdo Refresh While WOAdo Recordset EOF lt gt True WOno Addltem WOAdo Recordset Fields workorderno WOAdo Recordset MoveNext Wend WODisplay Enabled True End Sub Private Sub WOVNo Click Dim break As Boolean Dim sql As String break False Call ClearWODatafeilds If WOVno Text lt gt And WOAction 1 Then sql selec
41. e While WOAdo Recordset EOF lt gt True And duplicate False If WOAdo Recordset Fields workorderno 2 WOTextBox 0 Text Then duplicate True Else WOAdo Recordset MoveNext End If Wend If WOTextBox 0 Text Or WOTextBox 0 Text Then MsgBox Enter 4 WOLabel 0 Caption Elself IsNumeric WOTextBox 0 Text False Then MsgBox Invaild Service Request Number Elself WOVno Text Or WOVno Text Then MsgBox Enter WOLabel 1 Caption Elself WOSrno Text Or WOSrno Text Then MsgBox Enter WOLabel 2 Caption Elself empt False And duplicate True Then MsgBox Duplicate Work Order Number Elself WOTextBox 3 Text lt gt And IsDate WOTextBox 3 Text False Then MsgBox Enter Date like dd mm yy in WOLabel 3 Elself WOTextBox 4 Text lt gt And IsNumeric WOTextBox 4 Text False Then MsgBox Please enter a valid WOLabel 4 Elself WOTextBox 6 Text lt gt And IsNumeric WOTextBox 6 Text False Then MsgBox Please enter a valid WOLabel 6 Elself vehado Recordset EOF True Then MsgBox Invalid Vehicle Number Elself SRAdo Recordset EOF True Then MsgBox Invalid Service Request Number Else With WOAdo Recordset AddNew Fields workorderno 2 WOTextBox 0 Text Fields vehno 2 WOVno Text Fields srnum WOSrno Text If WOTextBox 3 Text Then Fields wodate 2 WOTextBox 3 Text End If If WOTextBox 4 Text Then Fields totalcost 2
42. em String Vehicle s electric system type OilFilter String Vehicle s oil filter number AirFilter String Vehicle s air filter number DriveBelt String Vehicle s drive belt number Tire String Vehicle s tire number Warranty Integer Vehicle s warranty period time or mileage Note String Note about the vehicle Status String Vehicle s current status active or retired DateOfRetirement Date Vehicle s date of the retirement if retired Service Request Class Attribute Type Description ServiceRequestNo Integer A unique number assigned to every service request Date Date Service request date Mileage Integer Vehicle s mileage reading TypeOfJ ob String Type of service requested Location String The location of the vehicle RequestedBy String The name of the requester PhoneNo Integer Vehicle s contact phone number Vehicle Vehicle Vehicle s data Work Requested Class Attribute Type Description ServiceRequestNo Integer A unique service request number WorkRequested String Work or service s requested Work Order Class Attribute Type Description WorkOrderNo Integer A unique work order number Date Date Work order s date Status String Work order s status TotalCost Integer Total cost Vehicle Vehicle Vehicle s data ServiceRequest Service Request Service Request s data PurchaseOrder Purchase Order Purchase Order s data Work Performed Class
43. ement No 2 4 Function Delete service request Description Delete a service request record from service request database in addition to all related records in system databases Inputs Service request number Source User User level Admin or Operator Outputs Destination Requires User input Requirement No 3 2 Function Modify Work Order data Description Modify an existing work order record by retrieving WO data from WO database using key fields and allowing user to change non key data and save Inputs WO number KFUPM number or registration number and modification data Source User User Level Admin or Operator Outputs Modified WO record Destination WO database Requires User input Requirement No 3 3 Requirement No 3 4 Function Display work order Description Display WO status by retrieving WO data from WO database using key fields Inputs WO number KFUPM number or registration number Source User User Level Admin Operator or Guest Outputs Displayed WO data Destination Screen Requires User input Requirement No 3 5 Function Generate Work Complete Report Description Generate a printed report reflecting total cost of maintaining a given vehicle based on work order The report is then sent to the user as an invoice Inputs WO number Source User Outputs Work complete report Destination Screen and printer Requires User input 4 Track Al
44. ew Service Request 2 Add New Service Vehicle Data Service Request Data Serviece Request y Request Rcord Service Request Data Recall Requester Info N h Requester Info gt Display Service Request e Serviece Request Rcord Vi N Service Request Data 3 1 Work Order Data Generate Work Order N N E a WO Data Work Oder T gt Record Es je N Modified Work Order Data 3 2 gt Update Work Order Data X J WO Data 2s ram Work Complete Data 33 Closed WO Data 39 Work Complete Report Close Work Order BRE gt Ne c ou NS uu B WO Status M nA N WONo OR VehRegNo 3 4 3 Track Work Order Work Order Status gt Y Status N 2 B Pe ZE X Pd N New Purchase Order 4 Purchase Order Data gt Add Purcahse Order N y Y N E Purchase Order AS Record N Modifided Purcahse Order 4 2 gt Modify ii Purchase Order N CNN gare COS PO Status Request 43 Purchase Order Status gt Track Purchase gt Order ltem Received 4 4 N Close lt PurcahseOrder X N PA WO Data NS d Vehicle Record ehi le Recora Vehicle No U Vehicle Data iden N Vehicle History Record gt Get Vehicle Total Maintenance History Cost L gt Vehicle Data XI
45. i i 1 Loop Call ClearSRTextBoxes End If End If If SrAction 2 1 Then empt False i20 Do While i lt gt 2 If SRTextBox i Text Or SRTextBox i Text Then MsgBox Enter SRLabel i Caption empt True End If i i 1 Loop If IsDate SRTextBox 5 False And SRTextBox 5 lt gt Then MsgBox Enter Date DD MM YY in SRLabel 5 Caption Elself IsNumeric SRTextBox 3 False And SRTextBox 3 lt gt Then MsgBox Invalid 4 SRLabel 3 Caption Else SRAdo Recordset Update SRAdo Refresh MsgBox Service Request Updated End If End If Delete Elself Index 3 Then SRDisplay Enabled False ans MsgBox Are you sure you want to delelte Service Request amp SRAdo Recordset Fields servicerequestno 524324 If ans 2 6 Then SRCon Execute delete from servicerequest where servicerequestno like amp CStr SRTextBox 0 Text amp WRCon Execute delete from workrequested where srno like amp CStr SRTextBox 0 Text amp SRCon Execute delete from workorder where srnum like amp CStr SRTextBox 0 Text amp i 0 Do While i lt gt 13 SRTextBox i Locked True SRTextBox i BackColor amp H8000000B i i 1 Loop SRNo Locked False SRVehNo Locked False SRButton 2 Enabled False SRModify Enabled False SRDisplay Enabled True SRNo Visible True SRVehNo Visible True SRButton 3 Enabled False Exit SRAdo Visible False Call ClearSRTextBoxes End If Elself I
46. inter CurrentX Printer ScaleWidth 2 1 5 TextWidth m 2 Printer CurrentY 1500 Printer FontSize 12 Printer FontUnderline True Printer Print m Print Veh number Printer CurrentX 2000 Printer CurrentY 3000 Printer FontSize 10 Printer FontUnderline False m Vehicle Number amp VehHistoryBox1 Text Printer Print m Print the headings Printer CurrentY 4000 Printer CurrentX 2000 Printer Print Work Order No Printer CurrentY 4000 Printer CurrentX 4000 Printer Print Work Performed Printer CurrentY 4000 Printer CurrentX 7000 Printer Print Date Printer CurrentY 4000 Printer CurrentX 9000 Printer Print Tech Name Printer Line 2000 4300 10500 4300 Print the data Printer CurrentY 4400 VehHistoryAdo Recordset MoveFirst While VehHistoryAdo Recordset EOF lt gt True y Printer CurrentY Printer CurrentX 2000 Printer Print VehHistoryAdo Recordset Fields work order no Printer CurrentY y Printer CurrentX 4000 Printer Print VehHistoryAdo Recordset Fields work performed Printer CurrentY y Printer CurrentX 7000 Printer Print VehHistoryAdo Recordset Fields date Printer CurrentY y Printer CurrentX 9000 Printer Print VehHistoryAdo Recordset Fields tech name Printer Line 2000 Printer CurrentY 50 10500 Printer CurrentY 50 Printer CurrentY Printer CurrentY 100 VehHistoryAdo Recordset MoveNext Wend Printer EndDoc End Sub Private Sub vehtota
47. l Purchase Orders Requirement No Function Description Inputs Source User Level Outputs Destination Requires 4 1 Add purchase order record Add a new purchase order record PO to PO database The user opens a new PO record adds the new PO data and assigns a unique WMS number The system should not allow duplicate WMS records Purchase order data User Admin or Operator Saved PO record PO database User input Function Delete work order Description Delete work order record from work order database and all related records in various system databases Inputs WO number KFUPM number or registration number Source User User Level Admin or Operator Outputs Destination Requires User input Requirement No 4 2 Function Description Modify purchase order record Modify an existing PO record by retrieving PO data from PO database using WMS key field and allow the user to change non key data and save Inputs WMS assigned PO number Source User User Level Admin or Operator Outputs Modified PO record Destination PO database Requires User input Requirement No 4 3 Function Display purchase request Description Display an existing PO record by retrieving PO data from PO database using WMS assigned number Inputs WMS assigned PO number Source User User Level Admin Operator or Guest Outputs PO record Destination Screen Requires User input
48. lcostGo Click VehTotalCostGrid Visible False VehTotalCostBox4 Visible False VehTotalCostBox5 Visible False VehTotalCostBox6 Visible False VehTotalCostPrint Enabled False Label4 Visible False Label5 Visible False Label6 Visible False If IsNumeric VehTotalCostBox1 Text False Then MsgBox Please Enter a valid vehicle number Elself IsDate VehTotalCostBox2 Text False Or IsDate VehTotalCostBox3 Text False Then MsgBox Please Enter a valid date raange Else VehTotalCostAdo RecordSource select workorderno Work Order No wodate Date sptotalcost Spare Parts Total Cost labortotalcost Total Labor Charge totalcost Total Cost from vehtotalcost where kfupmno like amp CStr VehTotalCostBox1 Text amp and wodate gt amp CStr VehTotalCostBox2 Text amp and wodate lt amp CStr VehTotalCostBox3 Text amp VehTotalCostAdo Refresh If VehTotalCostAdo Recordset RecordCount gt 0 Then VehTotalCostGrid Visible True VehTotalCostBox4 Visible True VehTotalCostBox5 Visible True VehTotalCostBox6 Visible True Label4 Visible True Label5 Visible True Label6 Visible True VehTotalCostPrint Enabled True VehTotalCostAdo Recordset MoveFirst sptotal 0 While VehTotalCostAdo Recordset EOF lt gt True sptotal sptotal VehTotalCostAdo Recordset Fields Spare Parts total Cost VehTotalCostAdo Recordset MoveNext Wend VehTotalCostBox4 Text sptotal VehTotalCostAdo Recordset MoveFirst
49. leDB DISPLAY VehicleRecord CONFIRM Delete VehicleRecord IF YES THEN DELETE ELSE EXIT SAVE EXIT 1 6 List Cars Serviced By Department INPUT DepartmentName WHILE NOT EXIST IN VehicleDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT DepartmentName FOR ALL WorkOrders in WorkOrderDB IF Vehicle Dept DepartmentName OUTPUT VehicleRecord EXIT 2 2 Display Service Request Record INPUT ServiceRequestNo WHILE NOT EXIST IN ServiceReqDB OR NOT Quit DISPLAY ERROR MESSAGE Not Found INPUT ServiceRequestNo GET ServiceRequestRecord IN ServiceRequestDB DISPLAY ServiceRequestRecord EXIT 2 3 Display Service Request Record INPUT ServiceRequestNo WHILE NOT EXIST IN ServiceRequestDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT ServiceRequestNo GET ServiceRequestRecord IN ServiceRequestDB DISPLAY ServiceRequestRecord EXIT 3 Track All Work Orders 3 1 Add A New Work Order Record ADD New WorkOrderRecord IN WordOrderDB ASSIGN New WorkOrderNo ASSIGN CurrentDate TO WODate ASSIGN OPEN TO WOStatus ASSIGN 0 Zero TO TotalCost SAVE EXIT 3 3 Display Work Order Record INPUT WorkOrderNo WHILE NOT EXIST IN WorkOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE Not Found INPUT WorkOrderNo GET WorkOrderRecord IN WorkOderDB DISPLAY WorkOrderRecord EXIT 3 5 Generate Work Complete Report INPUT WorkOrderNo WHILE NOT EXIST IN WorkOrderDB OR NOT QUIT DISPLAY ERROR MESSAGE
50. ls b The system should provide adequate response time 2 Organizational Requirements a The system shall comply with all standard form currently approved by KFUPM administrative affairs workshop forms b The system shall be adaptable by other KFUPM service departments c The system shall have a user manual and a graphical user interface 3 External Requirements a None II System Evolution Currently the workshop has a single computer With plans to purchase more and have an internal LAN the system could be further extended to utilize the network The planned workshop LAN will also be tapped into KFUPM intranet This means the workshop may have its won intranet site One advantage of doing so is to have the system on the intranet with the facility to allow workshop customers to track the status of their vehicles via the intranet III Test Cases Vehicles No Action Input Source Expected Reaction Description 1 Add Vehicle KFUPM User Manual Saved Record Add a new vehicle to vehicles database No 2 Add Vehicle KFUPM User Manual Error Message Adding a new vehicle with an existing duplicate No KFUPM No will result in an error message 3 Search Vehicle KFUPM User Manual Complete Vehicle Data List vehicle data using its KFUPM No No 4 Search Vehicle KFUPM User Complete Vehicle Data List vehicle data using its KFUPM No No Dropdown List 5 Search no Vehicle KFUPM U
51. lter Location char Air Filter Requested by char Drive Belt Phone No int Tire 4 Add Servie Request Warranty M Get SR Note Status String Date of Retirement Add New Vehicle Modifty Vehicle M Delete Retired Vehicle Get Vehicle Work Requested Work Regested Add Work Requested M Work Order Work Order No int bate Date M Status Total Cost Generate WO Close WO Get WO Generate Work Complete Report 1 M Purchase Order Serial No int Work Performed PO No int Work performed Date Date Date Date Date Material Needed Date Tec Name Suggested Supplier Labor Charge Status 1 M Add Work Performed Add PO Add Spare Part Modify PO Modifty Spare Part Get PO Close PO X Lower Level Data Flow Diagrams New Vehicle Data P 1 1 Add Vehicle Valid Data gt Record DAL Modified Vehicle Data N Vehicle Record A Vehicle Data gt Modify Vehicle Record lt a s wo Vehicle Data Vehicle No gt Display Vehicle Record lt T SA 1 4 Vehicle No Delete Vehicle Record Pis Rf Vehicle No Vehicle Data Delete Retired Vehicle Record Gy N
52. meric WOTextBox 6 Text False Then MsgBox Please enter a valid WOLabel 6 Elself vehado Recordset EOF True Then MsgBox Invalid Vehicle Number Elself SRAdo Recordset EOF True Then MsgBox Invalid Service Request Number Else WOAdo Recordset Update WOAdo Refresh MsgBox Work Order Updated End If End If Delete Elself Index 3 Then WODisplay Enabled False ans MsgBox Are you sure you want to delelte Service Request amp WOAdo Recordset Fields workorderno 524324 If ans 2 6 Then WOCon Execute delete from workorder where workorderno like amp CStr WOTextBox 0 Text amp WOCon Execute delete from workperformed where wono like amp CStr WOTextBox 0 Text amp WOCon Execute delete from sparepart where wonum like amp CStr WOTextBox 0 Text amp i20 Do While i lt gt 7 WOTextBox i Locked True WOTextBox i BackColor amp H8000000B i i 1 Loop WOno Locked False WOVno Locked False WOSrno Locked False WOButton 2 Enabled False WOModify Enabled False WODisplay Enabled True WOno Visible True WOVno Visible True WOSrno Visible True WOButton 3 Enabled False WOWP Enabled True WOSP Enabled True WOAdo Visible False Call ClearWOTextBoxes SPListframe Visible False WPListFrame Visible False End If Exit Elself Index 2 4 Then UserCon Execute delete from currentuser End End If End Sub Private Sub ClearWOTextBoxes WOno Text WOVn
53. ndex 2 4 Then UserCon Execute delete from currentuser End End If End Sub Private Sub ClearSRTextBoxes SRNo Text SRVehNo Text Dim i As Integer i20 Do While i lt gt 13 SRTextBox i Text i i 1 Loop End Sub Private Sub ClearSRDatafeilds SRNo DataField SRVehNo DataField i 0 Do While i lt gt 8 SRTextBox i DataField i i 1 Loop End Sub Private Sub SetSRDataFeilds SRNo DataField servicerequestno SRVehNo DataField vehicleno SRTextBox 0 DataField servicerequestno SRTextBox 1 DataField vehicleno SRTextBox 2 DataField jobtype SRTextBox 3 DataField vehiclemileage SRTextBox 4 DataField location SRTextBox 5 DataField srdate SRTextBox 6 DataField requestedby SRTextBox 7 DataField phoneno End Sub ok ok ok ok ok ok K ok ok ok K ok ok K K K ok ok K K K ok K K K K ok K K K ok K K K K ok K K ok ok K K KK ok ok ok OK Service Request End Kok ok ok ok ok gt k ok ok ok ok Ok ok K ok OK K K K ok ok ok ok ok ok K ok ok ok K K ok K K Vehicle Start Kok ok ok ok ok K ok ok Sk Ok OK ok K K K Private Sub VehDisplay Click Dim sql As String Call ClearDataFeilds If VehNo Text lt gt Then sql select from vehicle where kfupmno like amp CStr VehNo Text amp order by kfupmno veha
54. ns for tracking data about each KFUPM vehicle using a central vehicles database The system shall also allow users to update vehicle data using operations such as adding new vehicle records modifying existing vehicles records etc Issue and Track Service Request SR The system shall provide means for issuing and tracking service requests submitted by workshop customers by saving SR data in an SR database Issue and Track Work Orders WO The system shall provide means for issuing WO against every SR and facilitate WO tracking by saving all WO data in a WO database Track Workshop Issued Purchase Orders PO The system shall provide means for tracking workshop issued PO s by assigning a unique number for each issued PO and saving PO data in a PO database Maintain Vehicle History The system shall provide means for tracking each vehicle maintenance history by collecting vehicle data and vehicle WO data Produce Statistical Data About The Workshop The system shall provide means for producing workshop statistical data e g Number of times a certain vehicle has been serviced in a given range 7 Generate Work Complete Report After closing a work order the system shall provide means for generating work complete reports The report should list spare part s used cost of spare part s and labor charges D Non functional Requirements 1 Product Requirements a The system should have different levels of access i e security leve
55. o vehado Recordset MoveNext Wend Search Elself Index 2 1 Then Call ClearSRDatafeilds SrAction 1 SRAdo Visible False SRNo Visible True SRVehNo Visible True SRDisplay Enabled True SRButton 2 Enabled False SRButton 3 Enabled False Call ClearSRTextBoxes SRAdo RecordSource select from servicerequest SRAdo Refresh i 0 Do While i lt gt 13 SRTextBox i Locked True SRTextBox i BackColor amp H8000000B i i 1 Loop SRNo Visible True SRVehNo Visible True SRNo Locked False SRVehNo Locked False SRModify Enabled False SRButton 3 Enabled False Call ClearSRTextBoxes Save Elself Index 2 Then If SrAction 2 0 Then SRAdo Refresh i 8 vehado RecordSource select from vehicle vehado Refresh Dim found As Boolean found False While vehado Recordset EOF lt gt True And found lt gt True If vehado Recordset Fields kfupmno SRVehNo Text Then found True Else vehado Recordset MoveNext End If Wend duplicate False While SRAdo Recordset EOF lt gt True And duplicate False If SRAdo Recordset Fields servicerequestno SRTextBox 0 Text Then duplicate True Else SRAdo Recordset MoveNext End If Wend If SRTextBox 0 Text Or SRTextBox 0 Text Then MsgBox Enter SRLabel 0 Caption Elself IsNumeric SRTextBox 0 Text False Then MsgBox Invaild Service Request Number Elself SRVehNo Text Or SRVehNo Text Then MsgBox Enter 4 SRLabel 1 Cap
56. o Text 2 WOSrno Text Dim i As Integer i20 Do While i lt gt 8 WOTextBox i Text i i 1 Loop End Sub Private Sub ClearWODatafeilds WOno DataField WOVno DataField WOSrno DataField i 0 Do While i lt gt 7 WOTextBox i DataField i i 1 Loop End Sub Private Sub SetWODataFeilds WOno DataField workorderno WOVno DataField vehno WOSrno DataField srnum WOTextBox 0 DataField workorderno WOTextBox 1 DataField vehno 1 WOTextBox 2 DataField srnum WOTextBox 3 DataField wodate WOTextBox 4 DataField totalcost WOTextBox 5 DataField wostatus WOTextBox 6 DataField poserial End Sub 13K ok ok ok ok ok ok ok ok ok FK K ok K ok K ok ok K K K ok K K K K ok K K K ok ok K K K ok K K K ok ok K K K ok K K K ok ok K K ok ok K K K TKK ok ok ok ok K ok ok ok FK K ok K K K ok ok K K K ok K K K ok ok K K K ok K K K K ok K K K ok K K K K K K K K K ok K K K K K K K OK ok ok ok OK Purchase Order Start FK KK K K K FK K K FK K K K K K K K K K K K K K K K K K K K K K K K ok K ok ok ok ok ok ok ok ok FK K ok K K K ok ok K K K ok K K K K ok K K K ok K K K K ok K K K ok K K K K K K K K ok ok K K ok ok K K K Private Sub poDisplay_Click Dim sql As String Call ClearpoDatafeilds If POSn Text lt gt Then sql select from purchaseorder where serialno like amp CStr POSn Text amp POAdo RecordSo
57. olor amp H80000009 SRTextBox i Visible True i i 1 Loop SRNo Locked True SRVehNo Locked True SRModify Enabled True SRDisplay Enabled False SRNo Visible False SRVehNo Visible False If UserLevel 2 Then SRModify Enabled False End If End If End Sub Private Sub GetWR i 8 Do While i lt gt 13 SRTextBox i Text i i 1 Loop WRAdo RecordSource select from WorkRequested WRAdo Refresh i 8 While WRAdo Recordset EOF lt gt True And i lt gt 13 If WRAdo Recordset Fields srno SRAdo Recordset Fields servicerequestno Then SRTextBox i Text WRAdo Recordset Fields workrequested i i 1 End If WRAdo Recordset MoveNext Wend End Sub Private Sub SRModify Click i20 Do While i lt gt 8 SRTextBox i Locked False SRTextBox i BackColor amp H80000009 i i 1 Loop SRNo Locked False SRVehNo Locked False SRButton 2 Enabled True SRTextBox 0 Enabled False SRButton 3 Enabled True End Sub Private Sub SRNo Click Dim break As Boolean Dim sql As String break False Call ClearSRDatafeilds If SRNo Text lt gt Then sql select from servicerequest where servicerequestno like amp CStr SRNo Text amp order by servicerequestno SRAdo RecordSource sql SRAdo Refresh If SRAdo Recordset RecordCount gt 0 Then Call SetSRDataFeilds Call GetWR End If i 0 Do While i lt gt 13 SRTextBox i Locked True SRTextBox i BackColor amp H80000009 i
58. on 0 Enabled False End If WOButton 2 Enabled False WOButton 3 Enabled False WODisplay Enabled True WOWP Enabled False WOSP Enabled False WOAction 1 WOStart 1 SPListframe Visible False WPListFrame Visible False SPFrame Visible False WPFrame Visible False End If End Sub From Load End ok ok ok ok ok ok ok K K ok ok ok K ok ok ok K K ok ok ok ok K ok K K K ok ok ok K K ok K Private Sub statEnd_ Click End End Sub Private Sub VehHistory Click Index As Integer NumOfPOFrame Visible False VehTotalCostFrame Visible False VehHistoryFrame Visible True End Sub Private Sub NumOfPO Click Index As Integer NumOfPOFrame Visible True VehTotalCostFrame Visible False VehHistoryFrame Visible False End Sub Private Sub NumOfPOGo Click NumOfPOText4 Visible False NumOfPOGrid Visible False If IsNumeric NumOfPOText1 Text False Then MsgBox Please Enter a valid vehicle number Elself IsDate NumOfPOText2 Text False Or IsDate NumOfPOText3 Text False Then MsgBox Please Enter a valid Date Else If IsNumeric NumOfPOText1 Text True And IsDate NumOfPOText2 Text True And IsDate NumOfPOText3 Text True Then NumOfPOAdo RecordSource select Serialno PO Serial No PurchaseOrderNO PO No PODate PO Date from numofpo where kfupmno like amp CStr NumOfPOText1 Text
59. rAllVehicleFrameTextBoxes VehNo Text VehReg Text Dim i As Integer i20 Do While i lt gt 19 VehFrameTextBox i Text i i 1 Loop End Sub Private Sub ClearDataFeilds VehNo DataField VehReg DataField VehFrameTextBox 0 DataField VehFrameTextBox 1 DataField VehFrameTextBox 2 DataField VehFrameTextBox 3 DataField VehFrameTextBox 9 DataField VehFrameTextBox 6 DataField VehFrameTextBox 4 DataField VehFrameTextBox DataField VehFrameTextBox DataField VehFrameTextBox DataField VehFrameTextBox DataField VehFrameTextBox DataField VehFrameTextBox DataField VehFrameTextBox DataField VehFrameTextBox DataField VehFrameTextBox 5 DataField VehFrameTextBox 7 DataField VehFrameTextBox 8 DataField VehFrameTextBox 18 DataField End Sub 1 2 3 9 6 4 10 11 12 13 15 14 16 17 5 7 8 1 Private Sub SetDataFeilds VehNo DataField kfupmno VehReg DataField regno VehFrameTextBox 0 DataField kfupmno VehFrameTextBox 1 DataField regno VehFrameTextBox 2 DataField dept VehFrameTextBox 3 DataField purchasedate VehFrameTextBox 9 DataField chassis VehFrameTextBox 6 DataField make VehFrameTextBox 4 DataField yearmodel VehFrameTextBox 10 DataField engineno VehFrameTextBox 11 DataField transtyp
60. rce User User Level Admin or Operator Outputs Service request record Destination Service request database Requires User input Requirement No 2 1 Function Add a new service request Description Add a new service request record to service request database SR The user opens a new service request record and adds new service request data The system should not allow duplicate SR records Inputs Service request data Source User User Level Admin or Operator Outputs Saved service request Destination Service request database Requires User input Requirement No 2 3 Function Display service request Description Retrieve and display service request information by retrieving service request record from service request database using service request number Inputs Service request number Source User User Level Admin Operator or Guest Outputs Service request record Destination Service request database Requires User input 3 Track All Work Orders Requirement No Function Description Inputs Source User Level Outputs Destination Requires 3 1 Add a new work order Add new work order record to work order database WO The user opens a new WO record and then adds WO s data The system should not allow duplicate WO records WO number KFUPM number or registration number and service request no User Admin or Operator Saved WO record WO database User input Requir
61. rder A Component I nterface Each component will interface with other components according to the following relations Component Vehicle Service Request Work Order Purchase order Vehicle Method GetVehicle Method GetVehicle Method GetVehicle None I n Vehicle In Vehicle In Vehicle Service Method Method GetSR Request GetVehicle In SR In Vehicle None Method GenerateWOQ None In Work Order Work Order Method Method GetSR Method GetPO GetVehicle In Service Request In Purchase Order Pie ence Method None Method GetWO GenerateWO In Work Order In Work Order Purchase Method Method GetPO Order GetVehicle In Purchase Order In Vehicle None Method GetWOQ None In Work Order XII Data Structure Design Vehicle Class Attribute Type Description KFUPMNo Integer A unique KFUPM number assigned to every vehicle the belongs to KFUPM Department String KFUPM department which the vehicle belongs to DateOfPurchase Date Vehicle s date of purchase RegistrationNo String Vehicle s license plate number VinOrChassis String Vehicle s chassis number Make String Vehicle s type ModelYear Integer Vehicle s model year EngineNo String Vehicle s engine number TransmissionType String Vehicle s transmission type SparkPlugNo String Vehicle s spark plug number ElectricSyst
62. rentY 4500 Printer CurrentX 2000 Printer Print Work Order No Printer CurrentY 4500 Printer CurrentX 4000 Printer Print Date Printer CurrentY 4500 Printer CurrentX 5000 Printer Print Spare Parts Total Cost Printer CurrentY 4500 Printer CurrentX 7200 Printer Print Total Labor Charge Printer CurrentY 4500 Printer CurrentX 9400 Printer Print Total Cost Printer Line 2000 4800 10500 4800 Print the data Printer CurrentY 4900 VehTotalCostAdo Refresh VehTotalCostAdo Recordset MoveFirst While VehTotalCostAdo Recordset EOF lt gt True y Printer CurrentY Printer CurrentX 2000 Printer Print VehTotalCostAdo Recordset Fields work order no Printer CurrentY y Printer CurrentX 4000 Printer Print VehTotalCostAdo Recordset Fields date Printer CurrentY y Printer CurrentX 5000 Printer Print VehTotalCostAdo Recordset Fields Spare parts total cost Printer CurrentY y Printer CurrentX 7200 Printer Print VehTotalCostAdo Recordset Fields total labor charge Printer CurrentY y Printer CurrentX 9400 Printer Print VehTotalCostAdo Recordset Fields Total Cost Printer Line 2000 Printer CurrentY 50 10500 Printer CurrentY 50 Printer CurrentY Printer CurrentY 100 VehTotalCostAdo Recordset MoveNext Wend y Printer CurrentY Printer CurrentX 2000 Printer Print Total Printer CurrentX 5000 Printer CurrentY y Printer Print VehTotalCostBox4 Text Printer Current
63. rtotalcost End Sub Private Sub WOAdo_MoveComplete ByVal adReason As ADODB EventReasonEnum ByVal pError As ADODB Error adStatus As ADODB EventStatusEnum ByVal pRecordset As ADODB Recordset If WOAdo Recordset RecordCount gt 0 And WOAdo Recordset EOF lt gt True And WOAdo Recordset BOF lt gt True And WOAction 1 And WOAdo Visible True Then WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labortotalcost End If If WOAdo Recordset RecordCount gt 1 And WOAdo Recordset EOF lt gt True And WOAdo Recordset BOF lt gt True Then WOAdo Caption Record amp WOAdo Recordset AbsolutePosition amp of amp WOAdo Recordset RecordCount End If End Sub Private Sub WODisplay_ Click Dim sql As String Call ClearWODatafeilds If WOno Text lt gt Then sql select from workorder where workorderno like amp CStr WOno Text amp WOAdo RecordSource sql WOAdo Refresh If WOAdo Recordset RecordCount gt 0 Then Call SetWODataFeilds WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labortotalcost Else MsgBox Work Order number not found End If Elself WOVno Text lt gt Then sql select from workorder where vehno like amp CStr WOVno Text amp WOAdo RecordSource sql WOAdo Refresh If WOAdo Recordset RecordCount gt 0 Then Call SetWODataFeilds WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recor
64. ser Manual Error Message Trying to list a non existing vehicle data No record No will result in an error 6 Modify Vehicle KFUPM User Manual Saved Record Modify vehicle data amp save changes No 7 Delete Vehicle KFUPM User Manual Delete Record Deleting a vehicle will delete all related records from various WMS databases Service Requests No Action I nput Source Expected Reaction Description 1 Add Service User Manual Saved Record Add a new service request SR to SR Request No database 2 Add Service User Manual Error Message Add a new service request to SR duplicate Request No database with an existing SR No 3 Search Service User Manual Complete SR Data List SR data using SR No Request No 4 Search Vehicle KFUPM User Manual Complete SR Data List All service requests data for a given No vehicle using its KFUPM No 5 Modify Service User Manual Saved Record Modify service request data amp save Request No changes 6 Delete Service User Manual Delete Record Delete service request data amp save Request No changes Similar test cases can be applied against Work Orders and Purchase Orders IV Risk Analysis In this section the risks involved during the development process are identified and assessed A Requirement Collection e System users are not very familiar with computers hence users requirement
65. splay pepe edi J9 Add New Purchase Order Panel KFUPM Workshoop Management System WMS 992 User Management Panel XVI Technical Documentation Tools Used 1 User Interface Visual Basic Professional Edition Ver 6 2 Database Engine Microsoft SQL 7 0 running on Microsoft Windows 98 3 On Line User Help Microsoft HTML Help Workshop amp Capture Pro Ver 3 Source Code Open Database Connections Dim VehCon As ADODB Connection Dim SRCon As ADODB Connection Dim WRCon As ADODB Connection Dim WOCon As ADODB Connection Dim WPCon As ADODB Connection Dim SPCon As ADODB Connection Dim POCon As ADODB Connection Dim UserCon As ADODB Connection Global Variavbles Dim UserLevel As I nteger Dim UserName As String Dim Action As Integer Dim SrAction As I nteger Dim SrStart As Integer Dim POStart As Integer Dim POAction As Integer Dim WOStart As Integer Dim WOAction As I nteger Dim Starting As Integer From Load Start Private Sub Form Activate If Starting 0 Then Login RecordSource select from currentuser Login Refresh UserLevel Login Recordset Fields level UserName Login Recordset Fields name UserLabel Caption You are logged in as amp UserName amp VehFrame Visible True If UserLevel gt 0 Then DataGrid1
66. t WOAdo Recordset Fields laborTotalCost CI nt WPTextBox 3 Text WOAdo Recordset Update End If Update End With i20 Do While i lt gt 4 WPTextBox i Text i i 1 Loop End If Else MsgBox No Work Performed has been entered End If WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labortotalcost WPTextBox 3 Text 0 End Sub Private Sub spSave Click If SPTextBox 0 Text lt gt Or SPTextBox 1 Text lt gt Or SPTextBox 2 Text lt gt Or SPTextBox 3 Text lt gt Then If WOTextBox 0 Text And IsNumeric WOTextBox 0 Text False Then MsgBox Please enter a valid WOLabel 0 Elself SPTextBox 0 Text lt gt And IsNumeric SPTextBox 0 Text False Then MsgBox Please enter a valid SPLabel 0 Elself SPTextBox 0 Text lt gt And IsNumeric SPTextBox 0 Text False Then MsgBox Please enter a valid SPLabel 0 Elself SPTextBox 0 Text lt gt And IsNumeric MsgBox Please enter a valid SPLabel 0 Else SPado RecordSource select from sparepart SPado Refresh With SPado Recordset AddNew If WOTextBox 0 Text Then Fields wonum WOTextBox 0 Text End If If SPTextBox 0 Text Then Fields partno 2 SPTextBox 0 Text End If Fields description 2 SPTextBox 1 Text If SPTextBox 2 Text Then Fields quantity SPTextBox 2 Text End If If SPTextBox 3 Text Then Fields price
67. t from workorder where vehno like amp CStr WOVno Text amp WOAdo RecordSource sql WOAdo Refresh If WOAdo Recordset RecordCount gt 0 Then Call SetWODataFeilds WOTextBox 7 Text CStr WOAdo Recordset Fields sptotalcost WOAdo Recordset Fields labortotalcost End If If WOAdo Recordset RecordCount gt 1 Then WOAdo Visible True End If i 0 Do While i lt gt 7 WOTextBox i Locked True WOTextBox i BackColor amp H80000009 i i 1 Loop WOno Locked True WOVno Locked True WOSrno Locked True WOModify Enabled True WODisplay Enabled False WOno Visible False WOVno Visible False WOSrno Visible False WOTextBox 0 Visible True WOTextBox 1 Visible True WOTextBox 2 Visible True WOWP Enabled True WOSP Enabled True If UserLevel 2 Then WOModify Enabled False End If End If End Sub Private Sub WOVNo dropdown Call ClearWODatafeilds WOVno Clear If WOAction 0 Then WOVno Enabled True vehado RecordSource select from vehicle order by kfupmno vehado Refresh While vehado Recordset EOF lt gt True WOVno Addltem vehado Recordset Fields kfupmno vehado Recordset MoveNext Wend Elself WOAction 1 Then WOAdo RecordSource select distinct vehno from workorder order by vehno WOAdo Refresh If WOAdo Recordset RecordCount gt 0 Then While WOAdo Recordset EOF lt gt True WOVno Addltem WOAdo Recordset Fields vehno WOAdo Recordset MoveNext Wend End If End If End
68. tion Elself empt False And duplicate True Then MsgBox Duplicate Service Request Number Elself SRTextBox 5 Text lt gt And IsDate SRTextBox 5 Text False Then MsgBox Enter Date like dd mm yy in SRLabel 5 Elself vehado Recordset EOF True Then MsgBox Invalid Vehicle Number Elself SRTextBox 8 Text Or SRTextBox 8 Text Then MsgBox Please enter at least one requested work Elself empt False Then With SRAdo Recordset AddNew Fields servicerequestno SRTextBox 0 Text Fields VehicleNo 2 SRVehNo Text Fields jobtype 2 SRTextBox 2 Text If SRTextBox 3 Text lt gt Then Fields Vehiclemileage SRTextBox 3 Text End If Fields location SRTextBox 4 Text If SRTextBox 5 Text lt gt Then Fields srdate 2 SRTextBox 5 Text End If Fields requestedby 2 SRTextBox 6 Text If SRTextBox 3 Text lt gt Then Fields phoneno 2 SRTextBox 7 Text End If Update End With WRAdo RecordSource select from WorkRequested WRAdo Refresh WRAdo Recordset AddNew WRAdo Recordset Fields srno 2 SRTextBox 0 Text WRAdo Recordset Fields workrequested SRTextBox 8 Text WRAdo Recordset Update i29 Do While i lt gt 13 If SRTextBox i Text lt gt And SRTextBox i Text lt gt Then WRAdo Refresh WRAdo Recordset AddNew WRAdo Recordset Fields srno SRTextBox 0 Text WRAdo Recordset Fields workrequested SRTextBox i Text WRAdo Recordset Update End If
69. urce sql POAdo Refresh If POAdo Recordset RecordCount gt 0 Then Call SetpoDataFeilds Else MsgBox Purchase Order Serial number not found End If Elself POno Text lt gt Then sql select from purchaseorder where purchaseorderno like amp CStr POno Text amp POAdo RecordSource sql POAdo Refresh If POAdo Recordset RecordCount gt 0 Then Call SetpoDataFeilds Else MsgBox Purchase Order number not found End If End If If POSn Text lt gt Or POno Text lt gt And POAdo Recordset RecordCount gt 0 Then i 0 Do While i lt gt 8 POTextBox i Locked True i POTextBox i BackColor amp H80000009 POTextBox i Visible True i i 1 Loop POSn Locked True POno Locked True POModify Enabled True PODisplay Enabled False POSn Visible False POno Visible False If UserLevel 2 Then POModify Enabled False End If End If End Sub Private Sub poModify Click i 0 Do While i lt gt 8 POTextBox i Locked False POTextBox i BackColor amp H80000009 i i 1 Loop POSn Locked False POno Locked False POButton 2 Enabled True POTextBox 0 Enabled False POButton 3 Enabled True End Sub Private Sub poNo Click Dim break As Boolean Dim sql As String break False Call ClearpoDatafeilds If POno Text lt gt Then sql select from purchaseorder where purchaseorderno like amp CStr POno Text amp order by purchaseorderno POAdo RecordSource sql POAdo
70. urce sql vehado Refresh If vehado Recordset RecordCount gt 0 Then Call SetDataFeilds End If i20 Do While i lt gt 19 VehFrameTextBox i Locked True VehFrameTextBox i BackColor amp H80000009 i i 1 Loop VehNo Locked True VehReg Locked True VehModify Enabled True VehDisplay Enabled False VehNo Visible False VehReg Visible False If UserLevel 2 Then VehModify Enabled False End If End If End Sub Private Sub VehNo DropDown Call ClearDataFeilds vehado Visible False VehNo Clear vehado RecordSource select from vehicle order by kfupmno vehado Refresh While vehado Recordset EOF True VehNo Addltem vehado Recordset Fields kfupmno vehado Recordset MoveNext Wend End Sub Private Sub VehReg Click Dim break As Boolean Dim sql As String break False Call ClearDataFeilds If VehReg Text lt gt Then sql select from vehicle where regno like amp CStr VehReg Text amp order by regno vehado RecordSource sql vehado Refresh If vehado Recordset RecordCount gt 0 Then Call SetDataFeilds End If i 0 Do While i lt gt 19 VehFrameTextBox i Locked True VehFrameTextBox i BackColor amp H80000009 i i 1 Loop VehNo Locked True VehReg Locked True VehTopButton 2 Enabled False VehModify Enabled True VehDisplay Enabled False VehNo Visible False VehReg Visible False If UserLevel 2 Then VehModify Enabled False End If End If En
71. y vehicle record Description Modify an existing vehicle record by retrieving vehicle data from vehicles database using key fields and allow the user to change certain fields only and save Inputs KFUPM number or registration number and modified data Source User User Level Admin or Operator Outputs Modified vehicle record Destination Vehicle database Requires User input Requirement No 1 4 Function Delete vehicle record Description Delete a vehicle record from vehicles database in addition to all related records in system databases Inputs Vehicle KFUPM No or Reg No Source User User level Admin or Operator Outputs Destination Screen or printer Requires User input Description Inputs Source Outputs Destination Requires Inputs KFUPM number or registration number Source User User Level Admin Operator or Guest Outputs Displayed vehicle data Destination Screen Requires User input Requirement No 1 5 Function Archive a retired vehicle record Archived a vehicle record that is in retired status User confirmation System Generate archived vehicle list Screen or printer None 2 Track All Service Request Requirement No Function Description 2 2 Modify an existing service request data Modify service request data by retrieving SR record and allowing user to modify certain fields in the SR only Inputs Service request number Sou

A Sample Final Report 3 - King Fahd University of Petroleum and

Contents

Download Pdf Manuals

Related Search

Related Contents