Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hos1.mdb;Persist Security Info=False"
cn.Open
Set rs = cn.Execute("select * from login")
End Sub
Private Sub Image1_Click()
Dim a As Integer
Dim msg As String
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Text1.Text = Adodc1.Recordset.Fields(0) And Text2.Text = Adodc1.Recordset.Fields(1) Then
Form1.Hide
Form6.Show
a=1
Exit Do
Else
Adodc1.Recordset.MoveNext
End If
Loop
If a = 0 Then
MsgBox "invalid user"
End If
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Image2_Click()
End
End Sub
Private Sub Form_Load()
ProgressBar1.Value = ProgressBar1.Min
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value >= ProgressBar1.Max Then
Timer1.Enabled = False
End If
If ProgressBar1.Value = 100 Then
Form6.Hide
Form2.Show
End If
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
End Sub
Private Sub Command1_Click()
Form2.Hide
Form3.Show
End Sub
Private Sub Command2_Click()
Form2.Hide
Form4.Show
End Sub
Private Sub Command3_Click()
Form2.Hide
Form5.Show
End Sub
Private Sub Command4_Click()
Form2.Hide
Form7.Show
End Sub
Private Sub Command7_Click()
MsgBox "loading please wait !!.............. ", , "Exit now......."
End
End Sub
Private Sub Command8_Click()
Form2.Hide
Form8.Show
End Sub
Private Sub Command1_Click()
Shell "Notepad.exe", vbNormalFocus
End Sub
Private Sub Command2_Click()
Shell "calc.exe", vbNormalFocus
End Sub
Private Sub Command3_Click()
MsgBox "Sure you want to log off"
Form3.Hide
End Sub
Private Sub Command4_Click()
Form3.Hide
Form2.Show
End Sub
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim a As Integer
Dim b As Long
Private Sub clear()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub
Private Sub Command8_Click()
Form4.Hide
Form2.Show
End Sub
Private Sub Command9_Click()
Adodc1.Refresh
Text2.DataField = "Docter Name"
Set Combo1.DataSource = Adodc1.Recordset
Combo1.DataField = "gender"
Set Text3.DataSource = Adodc1.Recordset
Text3.DataField = "Docter qualication"
Set Text6.DataSource = Adodc1.Recordset
Text6.DataField = "Date of Birth"
Set Text7.DataSource = Adodc1.Recordset
Text7.DataField = "Salary"
Set Text8.DataSource = Adodc1.Recordset
Text8.DataField = "Phone Number"
Set Text9.DataSource = Adodc1.Recordset
Text9.DataField = "Email id"
Set Text1.DataSource = Adodc1.Recordset
Text1.DataField = "Doctor ID"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
Private Sub add()
Adodc1.Recordset.Fields("Docter ID") = Text1.Text
Adodc1.Recordset.Fields("Docter Name") = Text2.Text
Adodc1.Recordset.Fields("Gender") = Combo1.Text
Adodc1.Recordset.Fields("Docter Eduqualication") = Text3.Text
Adodc1.Recordset.Fields("Date of Birth") = Text4.Text
Adodc1.Recordset.Fields("Docter Department") = Text5.Text
Adodc1.Recordset.Fields("Salary") = Text6.Text
Adodc1.Recordset.Fields("Phone Number") = Text7.Text
Adodc1.Recordset.Fields("E-mail id") = Text8.Text
End Sub
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hos1.mdb;Persist Security Info=true"
cn.Open
Set rs = cn.Execute("select * from Docter")
End Sub
Private Sub display()
Text1.Text = Adodc1.Recordset.Fields("Docter ID")
Text2.Text = Adodc1.Recordset.Fields("Docter Name")
Combo1.Text = Adodc1.Recordset.Fields("Gender")
Text3.Text = Adodc1.Recordset.Fields("Docter Eduqualication")
Text4.Text = Adodc1.Recordset.Fields("Date of Birth")
Text5.Text = Adodc1.Recordset.Fields("Docter Department")
Text6.Text = Adodc1.Recordset.Fields("Salary")
Text7.Text = Adodc1.Recordset.Fields("Phone Number")
Text8.Text = Adodc1.Recordset.Fields("E-mail id")
End Sub
Private Sub Image1_Click()
Adodc1.Refresh
Adodc1.Recordset.AddNew
add
Adodc1.Recordset.Update
MsgBox "Record add successfully"
End Sub
Private Sub Image2_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
MsgBox "this is the first record"
End If
display
End Sub
Private Sub Image3_Click()
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
display
End Sub
Private Sub Image4_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
MsgBox "This is the Last Record"
End If
display
End Sub
Private Sub Image5_Click()
Adodc1.Refresh
Adodc1.Recordset.MoveLast
display
End Sub
Private Sub Image6_Click()
a=0
b = InputBox("enter the Docter ID")
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If (b = (Adodc1.Recordset(0))) Then
a=1
MsgBox "Record found"
Exit Do
Else
Adodc1.Recordset.MoveNext
End If
Loop
If a = 0 Then
MsgBox "record not found"
Adodc1.Recordset.MoveFirst
End If
display
End Sub
Private Sub Image7_Click()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub
Private Sub Image8_Click()
Adodc1.Recordset.Delete
MsgBox "record deleted"
clear
End Sub
Private Sub Image9_Click()
End Sub
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim a As Integer
Dim b As Long
Private Sub add()
Adodc1.Recordset.Fields("Employee ID") = Text1.Text
Adodc1.Recordset.Fields("Name") = Text2.Text
Adodc1.Recordset.Fields("Gender") = Combo1.Text
Adodc1.Recordset.Fields("Department") = Text3.Text
Adodc1.Recordset.Fields("Address") = Text4.Text
Adodc1.Recordset.Fields("Phone No") = Text5.Text
Adodc1.Recordset.Fields("E-mail id") = Text6.Text
End Sub
Private Sub cmd10_Click(Index As Integer)
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub cmd2_Click(Index As Integer)
Form5.Hide
Form2.Show
End Sub
Private Sub cmd3_Click(Index As Integer)
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
display
End Sub
Private Sub cmd4_Click(Index As Integer)
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
MsgBox "This is the Last Record"
End If
display
End Sub
Private Sub cmd5_Click(Index As Integer)
Adodc1.Refresh
Adodc1.Recordset.MoveLast
display
End Sub
Private Sub cmd6_Click(Index As Integer)
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
MsgBox "this is the first record"
End If
display
End Sub
Private Sub cmd8_Click(Index As Integer)
a=0
b = InputBox("enter the Employee ID")
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If (b = (Adodc1.Recordset(0))) Then
a=1
MsgBox "Record found"
Exit Do
Else
Adodc1.Recordset.MoveNext
End If
Loop
If a = 0 Then
MsgBox "record not found"
Adodc1.Recordset.MoveFirst
End If
display
End Sub
Private Sub cmd9_Click(Index As Integer)
Adodc1.Refresh
Adodc1.Recordset.AddNew
add
Adodc1.Recordset.Update
MsgBox ("this record is added")
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Command4_Click()
End Sub
Private Sub Command5_Click()
End Sub
Private Sub Command6_Click()
End Sub
Private Sub Command7_Click()
End Sub
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hos1.mdb;Persist Security Info=true"
cn.Open
Set rs = cn.Execute("select * from Employee")
End Sub
Private Sub display()
Text1.Text = Adodc1.Recordset.Fields("Employee ID")
Text2.Text = Adodc1.Recordset.Fields("Name")
Combo1.Text = Adodc1.Recordset.Fields("Gender")
Text3.Text = Adodc1.Recordset.Fields("Department")
Text4.Text = Adodc1.Recordset.Fields("Address")
Text5.Text = Adodc1.Recordset.Fields("Phone No")
Text6.Text = Adodc1.Recordset.Fields("E-mail id")
End Sub
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim a As Integer
Dim b As Long
Private Sub Command3_Click()
Adodc1.Refresh
Text2.DataField = "Patient Name"
Set Combo2.DataSource = Adodc1.Recordset
Combo2.DataField = "Gender"
Set Text3.DataSource = Adodc1.Recordset
Text3.DataField = "Patient Disease"
Set Text9.DataSource = Adodc1.Recordset
Text9.DataField = "Date of Birth"
Set Text6.DataSource = Adodc1.Recordset
Text6.DataField = "Doctor Fee"
Set Text8.DataSource = Adodc1.Recordset
Text8.DataField = "Phone Number"
Set Text6.DataSource = Adodc1.Recordset
text7.DataField = "Fathers Name"
Set Text1.DataSource = Adodc1.Recordset
Text1.DataField = "Patient ID"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
Private Sub cmd10_Click(Index As Integer)
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
text7.Text = ""
Text8.Text = ""
Combo2.Text = ""
End Sub
Private Sub add()
Adodc1.Recordset.Fields("Patient ID") = Text1.Text
Adodc1.Recordset.Fields("Patient Name") = Text2.Text
Adodc1.Recordset.Fields("Gender") = Combo1.Text
Adodc1.Recordset.Fields("Patient Disease") = Text3.Text
Adodc1.Recordset.Fields("Date of Birth") = Text4.Text
Adodc1.Recordset.Fields("Patient Department") = Text5.Text
Adodc1.Recordset.Fields("Doctor Fee") = Text6.Text
Adodc1.Recordset.Fields("Fathers Name") = text7.Text
Adodc1.Recordset.Fields("Phone Number") = Text8.Text
Adodc1.Recordset.Fields("Blood Group") = Combo2.Text
End Sub
Private Sub cmd2_Click(Index As Integer)
Adodc1.Refresh
Adodc1.Recordset.AddNew
add
Adodc1.Recordset.Update
MsgBox "Record add successfully"
End Sub
Private Sub cmd3_Click(Index As Integer)
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
display
End Sub
Private Sub cmd4_Click(Index As Integer)
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
MsgBox "This is the Last Record"
End If
display
End Sub
Private Sub cmd5_Click(Index As Integer)
Adodc1.Refresh
Adodc1.Recordset.MoveLast
display
MsgBox "This is Last record"
End Sub
Private Sub cmd6_Click(Index As Integer)
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
MsgBox "this is the first record..........!!"
End If
display
End Sub
Private Sub cmd8_Click(Index As Integer)
a=0
b = InputBox("enter the Patient ID")
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If (b = (Adodc1.Recordset(0))) Then
a=1
MsgBox "Record found"
Exit Do
Else
Adodc1.Recordset.MoveNext
End If
Loop
If a = 0 Then
MsgBox "record not found"
Adodc1.Recordset.MoveFirst
End If
display
End Sub
Private Sub cmd9_Click(Index As Integer)
MsgBox "loading please wait !!.............. ", , "Loading Message......."
Form7.Hide
Form2.Show
End Sub
Private Sub display()
Text1.Text = Adodc1.Recordset.Fields("Patient ID")
Text2.Text = Adodc1.Recordset.Fields("Patient Name")
Combo1.Text = Adodc1.Recordset.Fields("Gender")
Text3.Text = Adodc1.Recordset.Fields("Patient Disease")
Text4.Text = Adodc1.Recordset.Fields("Date of Birth")
Text5.Text = Adodc1.Recordset.Fields("Patient Department")
Text6.Text = Adodc1.Recordset.Fields("Doctor Fee")
text7.Text = Adodc1.Recordset.Fields("Fathers Name")
Text8.Text = Adodc1.Recordset.Fields("Phone Number")
Combo2.Text = Adodc1.Recordset.Fields("Blood Group")
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hos1.mdb;Persist Security Info=true"
cn.Open
Set rs = cn.Execute("select * from Patient")
End Sub
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim a As Integer
Dim b As Long
Private Sub cmd10_Click(Index As Integer)
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub
Private Sub display()
Text1.Text = Adodc1.Recordset.Fields("Nurse ID")
Text2.Text = Adodc1.Recordset.Fields("Nurse Name")
Combo1.Text = Adodc1.Recordset.Fields("Gender")
Text3.Text = Adodc1.Recordset.Fields("Fathers Name")
Text4.Text = Adodc1.Recordset.Fields("Nurse Department")
Text5.Text = Adodc1.Recordset.Fields("Date of Birth")
Text6.Text = Adodc1.Recordset.Fields("Nurse Department")
Text7.Text = Adodc1.Recordset.Fields("Nurse Salary")
End Sub
Private Sub add()
Adodc1.Recordset.Fields("Nurse ID") = Text1.Text
Adodc1.Recordset.Fields("Nurse Name") = Text2.Text
Adodc1.Recordset.Fields("Gender") = Combo1.Text
Adodc1.Recordset.Fields("Fathers Name") = Text3.Text
Adodc1.Recordset.Fields("Nurse Eduqualification") = Text4.Text
Adodc1.Recordset.Fields("Date of Birth") = Text5.Text
Adodc1.Recordset.Fields("Nurse Department") = Text6.Text
Adodc1.Recordset.Fields("Nurse Salary") = Text7.Text
End Sub
Private Sub Command1_Click()
Adodc1.Refresh
Text2.DataField = "Nurse Name"
Set Combo1.DataSource = Adodc1.Recordset
Combo1.DataField = "Gender"
Set Text3.DataSource = Adodc1.Recordset
Text3.DataField = "Fathers Name"
Set Text5.DataSource = Adodc1.Recordset
Text5.DataField = "Date of Birth"
Set Text6.DataSource = Adodc1.Recordset
Text6.DataField = "Nurse Department"
Set Text7.DataSource = Adodc1.Recordset
Text7.DataField = "Nurse Salary"
Set Text1.DataSource = Adodc1.Recordset
Text1.DataField = "Nurse ID"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
Private Sub cmd2_Click(Index As Integer)
MsgBox "loading please wait !!.............. ", , "Loading Message......."
Form8.Hide
Form2.Show
End Sub
Private Sub cmd3_Click(Index As Integer)
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
display
End Sub
Private Sub cmd4_Click(Index As Integer)
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
MsgBox "This is the Last Record"
End If
display
End Sub
Private Sub cmd5_Click(Index As Integer)
Adodc1.Refresh
Adodc1.Recordset.MoveLast
display
MsgBox "This is Last record"
End Sub
Private Sub cmd6_Click(Index As Integer)
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
MsgBox "this is the first record..........!!"
End If
display
End Sub
Private Sub cmd8_Click(Index As Integer)
a=0
b = InputBox("enter the Nurse ID")
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If (b = (Adodc1.Recordset(0))) Then
a=1
MsgBox "Record found"
Exit Do
Else
Adodc1.Recordset.MoveNext
End If
Loop
If a = 0 Then
MsgBox "record not found"
Adodc1.Recordset.MoveFirst
End If
display
End Sub
Private Sub cmd9_Click(Index As Integer)
Adodc1.Refresh
Adodc1.Recordset.AddNew
add
Adodc1.Recordset.Update
MsgBox "Record add successfully"
End Sub
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hos1.mdb;Persist Security Info=true"
cn.Open
Set rs = cn.Execute("select * from Nurse")
End Sub
