• Join over 1.2 million students every month
  • Accelerate your learning by 29%
  • Unlimited access from just £6.99 per month

Hospital Equipment Loan System.

Extracts from this document...


? Introduction and Specification: Like many businesses, HELS are starting to make use of computers and computer systems to make the day-to-day operation of their company easier on the management and more efficient. As the nature of the business is unique and no existing packages are suitable for handling the business demands and requirements and has been decided that a custom made application should be designed to meet this challenge. Hospital Equipment Loan System specified that such a system should be able to: Have the ability to store details of the equipment. Have a suitable item code to be devised, which identifies each piece of equipment individually, while indicating what type of equipment it is. Find the following information for any individual piece of equipment: 1) Whether it is available, being repaired or out on loan 2) If on loan, to whom and at what address or ward number 3) If on loan, when it is due to be returned or the loan renewed 4) If being repaired, when was it sent for repair The package needs to be suitable for the required purpose, to satisfy the set criteria, and importantly be easy to use and maintain to make life easier for HELS staff - the program should improve the efficiency of the business and not make things more difficult than they already are. Example of the type of equipment that must be loaned and kept track of: Description of Item Number in Stock Cost of Replacement Wheelchair - Junior 2 �275 Wheelchair - Small 2 �295 Wheelchair - Medium 3 �320 Wheelchair - Large 2 �350 Crutch - Junior 4 �75 Crutch - Adult 6 �95 Elbow Crutch ...read more.


'set the global var to false 'to denote a failed login LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() 'check for correct password If txtPassword = "cedric" Then 'place code to here to pass the 'success to the calling sub 'setting a global var is the easiest LoginSucceeded = True Me.Hide frmMaindisplay.Show Else MsgBox "Invalid Password, try again!", , "Login" txtPassword.SetFocus SendKeys "{Home}+{End}" End If End Sub If the user inputs an incorrect password a message will be displayed, saying "Invalid Password, try again!" To increase security I have integrated another package called EasyEncrypto so that the files will be encrypted all the time unless decrypted by the user. In order to keep the data used by the program secure, a password feature will restrict access to the program to trusted individuals. This means that any user with access to the computer, but does not know the password cannot create or modify (or even start) any part of the program without the password. Because the data files used by the system are reads from and written to using random access, they are not in a human-readable format, so it is virtually impossible of successfully modify there contents without access to the program. ? Data Flow Diagram: ? Design - Record Structure & File Organisation: The files that store the equipment and customer details will be created using the "Random Access Files" feature of visual basic. This provides direct access to store records of a fixed size to a file. Two files are used, one for the equipment and the other for customer details. ...read more.


Code "; Tab(30); lblItemCode.Caption Printer.Print Printer.Print " " & " " & "Cost Of Replacement "; Tab(30); lblReplaceCost.Caption Printer.Print Printer.Print " " & "------------------------------------------------------------" Printer.Print Printer.Print " " & " " & "Sent: Date "; Tab(30); lblDate.Caption Printer.Print " " & " " & "Return: Date "; Tab(30); lblLoanDate.Caption Printer.Print Printer.Print " " & "------------------------------------------------------------" Printer.Print " " & "____________________________________________________________" End If Exit Sub Handler: MsgBox "Select the printing style", vbCritical End Sub ? Did my program meet the specification? The first aspect of the specification is that I must be able to produce a hard copy of the information, of any piece of equipment. This has been proved on pages 10 and 11. The next aspect concerns the loan period. The equipment is lent out for a 6-week period in the first place, but this loan can be renewed for periods of 6 weeks. The check boxes allow the user to choose from a length of one week to six weeks as requested in the specification. The text box next to "Return on the:" displays the date of the week that it should be returned and if the user is not sure of the current date they can select "Today's date" and the date of that day will appear. The specification also asked to allow the user to input name and address. Also there must be a range for the ward numbers. The wards must range from W1 to W10. So there must be 10 different options. I have chosen the ward ranges to appear in a combo box form as shown below. Cedric John Computer Science - Major Project 01/04/02 Candidate # : Centre # : Page 1 ...read more.

The above preview is unformatted text

This student written piece of work is one of many that can be found in our AS and A Level Computer Science section.

Found what you're looking for?

  • Start learning 29% faster today
  • 150,000+ documents available
  • Just £6.99 a month

Not the one? Search for your essay title...
  • Join over 1.2 million students every month
  • Accelerate your learning by 29%
  • Unlimited access from just £6.99 per month

See related essaysSee related essays

Related AS and A Level Computer Science essays

  1. Marked by a teacher

    The systems development life cycle (SDLC) is a conceptual model used in project management ...

    3 star(s)

    Usage of RAD The Rapid Application Development methodology was developed to respond to the need to deliver systems very fast. The RAD approach is not appropriate to all projects - an air traffic control system based on RAD would not instill much confidence.

  2. Visual basic

    'When you click on the image2 box image appears and it show you "O or X" If sp1 = True And O8.Visible = False Then X8.Visible = True sp2 = True sp1 = False Exit Sub End If If sp2 = True And X8.Visible = False Then O8.Visible = True

  1. Computing Project

    procedure BtnExtClick(Sender: TObject); procedure BtnRegAMemClick(Sender: TObject); procedure BtnRntDVDClick(Sender: TObject); procedure BtnAddDVDClick(Sender: TObject); procedure BtnCreateReportClick(Sender: TObject); procedure BtnReturnDvdClick(Sender: TObject); procedure BtnLoansOverdueClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var FmMenu: TFmMenu; implementation uses URegisterMember, UAddNewDVD, UCreateAReport, URentOutaDVD, UReturnedDVDs, ULoansOverdue, Ulogin, USetupUserAndPass; {$R *.dfm} procedure TFmMenu.BtnExtClick(Sender: TObject);

  2. Business blue print document for the implementation of SAP R/3 (4.6B) payroll at Mastek ...

    The Reviewed salary is paid as Base salary and the relevant amounts are paid under the other heads. Thus the salaries are finalized for each and every employee in USA. It is to be noted that the salary survey report is Grade based in USA.

  1. GCSE I.T Security Case Study - Riverside Leisure Centre

    When surveying the site I noticed that there was only one entrance to the complex. This narrows down the ways that intruders can enter the building and also is more cost effective as they don't have to have security equipment anywhere else, as there are no other entrances.

  2. System I designed in order to produce a promotion package for her newly formed ...

    �7.00 8 Bon Jovi Crush 2000 �5.00 5 Bon Jovi Its my life 2000 �5.00 16 Britney Spears Oops I did it again! 2000 �8.00 2 Craig David 7 Days 2000 �10.00 7 Craig David Fill me in 2000 �5.00 9 Eminem The Marshall Mathers 2000 �5.00 10 Eminem The

  1. The Global Positioning System

    This means that, even using GPS, the user will still need a map and compass to find his way. It is possible to buy localised maps that can be downloaded into the GPS receiver, and a receiver could then tell you what road you are in, and even what number house.

  2. Program Code Program DVD_Program; Uses Menuunit, CRT, dos; ...

    Begin l:= length (number2); valid:= 0; FOR j:= 1 to 1 DO Begin If not (number2[j] in['1','2','3','4','5','6','7','8','9','0']) then valid:= j; Else stock:= 1 End; validatestock_number:= valid; if ( valid<> 0) then Begin textcolor(red); gotoxy(12,19); Write( 'SORRY INVALID NUMBER '); delay(800); gotoxy(12,19); Write (' '); textcolor(blue); gotoxy(37,15); For j:= 1 to

  • Over 160,000 pieces
    of student written work
  • Annotated by
    experienced teachers
  • Ideas and feedback to
    improve your own work