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);
( 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