Pro-care-nursing-home-11-12 part1

Care Nursing Home

(INDEX)
Sr. No.
Project Data
Date
Signature
1.
ORACLE TABLE

1.    PATIENT



2.    BILL


2.
VB Forms



1. FRMSTART   (Startup form)



2. FRMPATIENT



3. FRMBILL


ORACLE RELATIONAL DATABASE TABLES
Start SQL Plus 8.0 and enter
User name: scott
Password: tiger
Then write:
CREATE TABLE PATIENT
( BEDNO NUMBER(10) PRIMARY KEY,
NAME VARCHAR2(20),
DOB DATE,
FATHERNAME VARCHAR2(20),
ADDRESS VARCHAR2(50),
SEX VARCHAR2(6) DEFAULT ‘MALE’,
DISEASE VARCHAR2(20)
);

INSERT INTO PATIENT
VALUES(1254,'RAHUL','9-MAY-60','SAMEER','JNR','MALE','HEART ATTACK');

CREATE TABLE BILL

( BILLNO NUMBER(10) PRIMARY KEY,
BEDNO NUMBER(10) REFERENCES PATIENT (BEDNO),
AMOUNT NUMBER(20)
);

INSERT INTO BILL
VALUES(1054,1254,10000);

Visual Basic INTERFACE

1. Start Visual Basic by clicking on the Start Button => All programs => Microsoft visual
studio 6.0 => Microsoft Visual Basic 6.0, then we can see a New project Dialogbox select
standard Exe project, then click open button.
2. Now we have a Form Control. Change Form Name property to “frmStart", BorderStyle
property to “None” and Icon to "Any Icon".

3. Add following controls to the Form control With following properties
settings:
Sr. No
Control
Properties
Settings
1
Label
Caption
Care Nursing Home


Font
Times New Roman, 20 pts, Bold
2
CommandButton
Name
cmdPatient
Caption
&Patient
3
CommandButton
Name
cmdBill


Caption
&Bill
4
Label
Name
lblExit


Caption
Click here to exit
4. Double Click on the cmdPatient button and write codes in between cmdPatient_Click ( ) event procedure.
Private Sub cmdPatient_Click( )
frmPatient.Show
End Sub