Due to some technical error All Project source code & Project report are now available on www.ignousupport.blogspot.com Download all project for free

HOSPITAL MANAGEMENT SYSTEM PROJECT FINAL REPORT IN JAVA PHP ASP.NET WITH SOURCE CODE

Next Chapter 30 Certificate

Dim rst As New ADODB.Recordset

Private Sub chameleonButton2_Click()

Unload Me

registration.Enabled = True

End Sub

Private Sub chameleonButton6_Click()

On Error GoTo ErHand

If Option1.Value = True Then

CertificateReport.Sections(1).Controls.Item("Label1").Caption = "BIRTH CERTIFICATE"

CertificateReport.Sections(1).Controls.Item("Label2").Caption = Label11.Caption

CertificateReport.Sections(1).Controls.Item("Label3").Caption = Text13.Text

CertificateReport.Sections(1).Controls.Item("Label4").Caption = Label12.Caption

CertificateReport.Sections(1).Controls.Item("Label5").Caption = Text14.Text

'CertificateReport.Sections(1).Controls.Item("Label6").Caption = Label13.Caption

CertificateReport.Sections(1).Controls.Item("Label7").Caption = Text15.Text

CertificateReport.Sections(1).Controls.Item("Label8").Caption = Label14.Caption

CertificateReport.Sections(1).Controls.Item("Label9").Caption = Text16.Text

CertificateReport.Sections(1).Controls.Item("Label10").Caption = Label15.Caption

CertificateReport.Sections(1).Controls.Item("Label11").Caption = Text17.Text

CertificateReport.Sections(1).Controls.Item("Label12").Caption = Label16.Caption

CertificateReport.Sections(1).Controls.Item("Label13").Caption = Text18.Text

CertificateReport.Sections(1).Controls.Item("Label14").Caption = Label17.Caption

CertificateReport.Sections(1).Controls.Item("Label15").Caption = Text19.Text

CertificateReport.Sections(1).Controls.Item("Label16").Caption = Label19.Caption

CertificateReport.Sections(1).Controls.Item("Label17").Caption = Text21.Text

CertificateReport.Sections(1).Controls.Item("Label18").Caption = Label20.Caption

CertificateReport.Sections(1).Controls.Item("Label19").Caption = Text20.Text

CertificateReport.Sections(1).Controls.Item("label57").Caption = hos_name

CertificateReport.Sections(1).Controls.Item("label58").Caption = hos_add

CertificateReport.Show

End If

If Option3.Value = True Then

MedicalCertificate.Sections(1).Controls.Item("Label3").Caption = "MEDICAL CERTIFICATE"

MedicalCertificate.Sections(1).Controls.Item("Label4").Caption = Label2.Caption

MedicalCertificate.Sections(1).Controls.Item("Label5").Caption = Text3.Text

'MedicalCertificate.Sections(1).Controls.Item("Label6").Caption = Label3.Caption

MedicalCertificate.Sections(1).Controls.Item("Label7").Caption = Text6.Text

MedicalCertificate.Sections(1).Controls.Item("Label8").Caption = Label4.Caption

MedicalCertificate.Sections(1).Controls.Item("Label9").Caption = Text7.Text

MedicalCertificate.Sections(1).Controls.Item("Label10").Caption = Label5.Caption

MedicalCertificate.Sections(1).Controls.Item("Label11").Caption = Text8.Text

MedicalCertificate.Sections(1).Controls.Item("Label12").Caption = Label6.Caption

MedicalCertificate.Sections(1).Controls.Item("Label13").Caption = Text9.Text

MedicalCertificate.Sections(1).Controls.Item("Label14").Caption = Label7.Caption

MedicalCertificate.Sections(1).Controls.Item("Label15").Caption = Text10.Text

MedicalCertificate.Sections(1).Controls.Item("Label16").Caption = Label8.Caption

MedicalCertificate.Sections(1).Controls.Item("Label17").Caption = Label9.Caption

MedicalCertificate.Sections(1).Controls.Item("Label18").Caption = Text11.Text

MedicalCertificate.Sections(1).Controls.Item("Label19").Caption = Label10.Caption

MedicalCertificate.Sections(1).Controls.Item("Label20").Caption = Text12.Text

MedicalCertificate.Sections(1).Controls.Item("Label1").Caption = hos_name

MedicalCertificate.Sections(1).Controls.Item("Label2").Caption = hos_add

MedicalCertificate.Show

End If

If Option4.Value = True Then

FitNessCertificate.Sections(1).Controls.Item("Label15").Caption = "FITNESS CERTIFICATE"

FitNessCertificate.Sections(1).Controls.Item("Label3").Caption = label18.Caption

FitNessCertificate.Sections(1).Controls.Item("Label4").Caption = Text22.Text

'FitNessCertificate.Sections(1).Controls.Item("Label5").Caption = Label21.Caption

FitNessCertificate.Sections(1).Controls.Item("Label6").Caption = Text23.Text

FitNessCertificate.Sections(1).Controls.Item("Label7").Caption = Label23.Caption

FitNessCertificate.Sections(1).Controls.Item("Label8").Caption = Text24.Text

FitNessCertificate.Sections(1).Controls.Item("Label9").Caption = Label24.Caption

FitNessCertificate.Sections(1).Controls.Item("Label10").Caption = Text25.Text

FitNessCertificate.Sections(1).Controls.Item("Label1").Caption = hos_name

FitNessCertificate.Sections(1).Controls.Item("Label2").Caption = hos_add

FitNessCertificate.Show

End If

If Option2.Value = True Then

DeathCertificate.Sections(1).Controls.Item("Label5").Caption = Text27.Text

DeathCertificate.Sections(1).Controls.Item("Label7").Caption = Text28.Text

DeathCertificate.Sections(1).Controls.Item("Label9").Caption = Text29.Text

DeathCertificate.Sections(1).Controls.Item("Label11").Caption = Text30.Text

DeathCertificate.Sections(1).Controls.Item("Label14").Caption = Text31.Text

DeathCertificate.Sections(1).Controls.Item("Label17").Caption = Text32.Text

DeathCertificate.Sections(1).Controls.Item("Label18").Caption = Text33.Text

DeathCertificate.Sections(1).Controls.Item("Label1").Caption = hos_name

DeathCertificate.Sections(1).Controls.Item("Label1").Caption = hos_add

DeathCertificate.Show

End If

ErHand:

ErrHandler "Bills.ChameleonButton6_Click() [Print]"

End Sub

Private Sub Form_Load()

Me.Top = (MDIForm1.ScaleHeight - Me.Height) / 2

Me.Left = 2900

Text2 = registration.txtRegNo

Call Text2_LostFocus

End Sub

Private Sub Form_Unload(Cancel As Integer)

registration.Enabled = True

End Sub

Private Sub Option1_Click()

Frame6.Visible = False

Frame2.Visible = False

Frame7.Visible = False

Frame5.Visible = True

End Sub

Private Sub Option2_Click()

Frame5.Visible = False

Frame6.Visible = False

Frame2.Visible = False

Frame7.Visible = True

End Sub

Private Sub Option3_Click()

Frame6.Visible = False

Frame7.Visible = False

Frame5.Visible = False

Frame2.Visible = True

End Sub

Private Sub Option4_Click()

Frame2.Visible = False

Frame5.Visible = False

Frame7.Visible = False

Frame6.Visible = True

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Or (KeyAscii = 46) Then

Exit Sub

Else

KeyAscii = 0

Beep

End If

End Sub

Private Sub Text2_LostFocus()

On Error GoTo ErHand

If Text2 = "" Then Exit Sub

Set rst = New ADODB.Recordset

rst.Open "select * from Hospital where registration = " & Val(Text2) & "", Conn, adOpenDynamic, adLockOptimistic

If rst.EOF = True Then

MsgBox "No Record Matched with Registartion No.", vbInformation

rst.Close

Exit Sub

Else

Text13 = rst!Title & " " & rst!first_name & " " & rst!middle_name & " " & rst!last_name & ""

Text27 = rst!Title & " " & rst!first_name & " " & rst!middle_name & " " & rst!last_name & ""

Text22 = rst!Title & " " & rst!first_name & " " & rst!middle_name & " " & rst!last_name & ""

Text3 = rst!Title & " " & rst!first_name & " " & rst!middle_name & " " & rst!last_name & ""

Text14 = rst!religion

Text15 = rst!FATHER_NAME

Text28 = rst!FATHER_NAME

Text23 = rst!FATHER_NAME

Text6 = rst!FATHER_NAME

Text16 = rst!street & " " & rst!City & " "

End If

rst.Close

'admission

Set rst = New ADODB.Recordset

rst.Open "select * from addmission where refno = " & Val(Text2) & "", Conn, adOpenDynamic, adLockOptimistic

If rst.EOF = False Then

Text7 = rst!doa

Text8.Text = rst!aot

Text9 = rst!dod & ""

Text10 = rst!dot & ""

Text29 = rst!doa

Text30 = rst!aot & ""

Text24 = rst!doa

End If

rst.Close

ErHand:

ErrHandler "Bills.Text2_LostFocus()"

End Sub

Sponsored Links

Next Chapter 31 Company Form

Page updated

Google Sites

Report abuse