ĐỀ tài QUẢN lý BỆNH xá của một TRƯỜNG đại học

Form ®iÒu trÞ bÖnh nh©n :Cho biÕt toµn bé th«ng tin bÖnh nh©n vµ c¸ch ®iÒu trÞ Private Sub cmdback_Click On Error Resume Next Adodc1.Recordset.MovePrevious End Sub Private Sub cmdhuy_Cli

Trờng đại học bách khoa Hà Nội

Form ®iÒu trÞ bÖnh nh©n :Cho biÕt toµn bé th«ng tin bÖnh nh©n vµ c¸ch ®iÒu trÞ

Private Sub cmdback_Click()

On Error Resume Next

Adodc1.Recordset.MovePrevious

End Sub

Private Sub cmdhuy_Click()

On Error Resume Next

Private Sub cmdnext_Click()

On Error Resume Next

End Sub

Private Sub cmdthoat_Click()Unload Me

End Sub

Private Sub cmdxoa_Click()

On Error Resume NextAdodc1.Recordset.DeleteEnd Sub

Private Sub Form_Load()End Sub

Form Danh muc Bac si

Lu gi÷ th«ng tin vÒ c¸c b¸c sÜ hiÖn cã cña bÖnh x¸

Private Sub cmdback_Click()

On Error Resume Next

Private Sub cmdhuy_Click()

On Error Resume Next

On Error Resume NextAdodc1.Recordset.MoveNextEnd Sub

Private Sub cmdsua_Click()bokhoa

End Sub

Private Sub cmdthem_Click()bokhoa

Adodc1.Recordset.AddNewFrame2.Visible = FalseEnd Sub

Private Sub cmdthoat_Click()Unload Me

End Sub

Private Sub cmdxoa_Click()Adodc1.Recordset.DeleteEnd Sub

Private Sub Form_Load()khoa

End Sub

Private Sub khoa()

txtchucvu.Locked = Truetxtten.Locked = True

txtngaysinh.Locked = Truetxtgioitinh.Locked = Truetxtma.Locked = True

End Sub

Private Sub bokhoa()

txtchucvu.Locked = Falsetxtten.Locked = False

txtngaysinh.Locked = Falsetxtgioitinh.Locked = Falsetxtma.Locked = False

End Sub

Form Danh muc Giang Vien

Lu thông tin giảng viên của trờng để nhận biết giáo viên của trờng đến bệnh xá nhằm tạo các u tiên giành riêng cho giáo viên

Private Sub cmdback_Click()

On Error Resume Next

Private Sub cmdhuy_Click()

On Error Resume Next

Private Sub cmdluu_Click()Adodc1.Recordset.UpdateAdodc1.Recordset.UpdateBatchFrame2.Visible = True

End Sub

Private Sub cmdnext_Click()

On Error Resume Next

Adodc1.Recordset.MoveNextEnd Sub

Private Sub khoa()

txtma.Locked = True

txtten.Locked = True

txtngaysinh.Locked = Truetxtgioitinh.Locked = Truetxtdiachi.Locked = True

txtkhoa.Locked = False

txtbomon.Locked = FalseEnd Sub

Private Sub cmdsua_Click()khoa

End Sub

Private Sub cmdthem_Click()bokhoa

Adodc1.Recordset.AddNewFrame2.Visible = False

End Sub

Private Sub Form_Load()khoa

cmdthem.Enabled = FalseEnd Sub

Danh môc thuècTh«ng tin vÒ thuèc

Private Sub cmdback_Click()

On Error Resume Next

Adodc1.Recordset.MovePrevious

End Sub

Private Sub cmdhuy_Click()

On Error Resume Next

Private Sub cmdnext_Click()

On Error Resume NextAdodc1.Recordset.MoveNextEnd Sub

Private Sub cmdthem_Click()Adodc1.Recordset.AddNewFrame2.Visible = FalseEnd Sub

Private Sub cmdthoat_Click()Unload Me

End Sub

Private Sub cmdxoa_Click()Adodc1.Recordset.DeleteEnd Sub

Private Sub Form_Load()End Sub

Khám bệnh

đây là form dùng thờng xuyên nhất để cập nhật kiểm tra bệnh nhân đến bệnh xá

Private Sub cmdhuy_Click()

On Error Resume Next

Private Sub Command3_Click()

On Error Resume Next

Adodc1.Recordset.MovePrevious

End Sub

Private Sub Command4_Click()

On Error Resume Next

End IfEnd Sub

Tìm kiếmTìm kiếm các bệnh nhân đến đã khám ở bệnh xá nhằm cho các mục đích riêng biệt theo nhu cầu.Tìm kiếm có thể theo mã, theo ngày,theo tên hay theo khoa.

Private Sub TabStrip1_Click()

End Sub

Private Sub cmdin1_Click()

De1.rsKhambenh.Filter = "ma='" & Trim(txtloc1.Text) & "'"

End Sub

Private Sub cmdin2_Click()

De1.rsKhambenh.Filter = "ngaykham=#" & (txtloc2.Text) & "#"

RPT_KhamBenh.Show

End Sub

Private Sub cmdin3_Click()

De1.rsKhambenh.Filter = "ten='" & Trim(txtloc3.Text) & "'"

RPT_KhamBenh.Show

End Sub

Private Sub cmdin4_Click()

De1.rsKhambenh.Filter = "khoa='" & Trim(txtloc4.Text) & "'"

RPT_KhamBenh.Show

End Sub

Private Sub cmdthuchien1_Click()

Adodc1.RecordSource = "Select * from khambenh where ma='" & Trim(txtloc1.Text) &

"'"

Adodc1.Refresh

End Sub

Private Sub cmdthuchien2_Click()

Adodc1.RecordSource = "Select * from khambenh where ngaykham=#" & (txtloc2.Text)

& "#"

Adodc1.Refresh

End Sub

Private Sub cmdthuchien3_Click()

Adodc1.RecordSource = "Select * from khambenh where ten='" & Trim(txtloc3.Text) &

"'"

Adodc1.Refresh

End Sub

Private Sub cmdthuchien4_Click()

Adodc1.RecordSource = "Select * from khambenh where khoa='" & Trim(txtloc4.Text) &

"'"

Adodc1.Refresh

End Sub

Private Sub Command2_Click()

Adodc1.RecordSource = "Select * from khambenh"

Adodc1.Refresh

End Sub

Private Sub Command3_Click()

Adodc1.RecordSource = "Select * from khambenh"

Adodc1.Refresh

End Sub

Private Sub Command6_Click()

Adodc1.RecordSource = "Select * from khambenh"

Adodc1.Refresh

End Sub

Private Sub Command9_Click()

Adodc1.RecordSource = "Select * from khambenh"Adodc1.Refresh

End Sub

Private Sub Form_Load()

End Sub

Danh s¸ch sinh viªn

Lu th«ng tin vÒ sinh viªn trong trêng

Private Sub cmdback_Click()

On Error Resume Next

Private Sub cmdhuy_Click()

On Error Resume Next

On Error Resume NextAdodc1.Recordset.MoveNextEnd Sub

Private Sub cmdsua_Click()bokhoa

End Sub

Private Sub cmdthem_Click()bokhoa

Adodc1.Recordset.AddNewFrame1.Visible = FalseEnd Sub

Private Sub cmdthoat_Click()Unload Me

End Sub

Private Sub cmdxoa_Click()Adodc1.Recordset.DeleteEnd Sub

Private Sub khoa()

txtma.Locked = True

txtten.Locked = True

txtgioitinh.Locked = Truetxtngaysinh.Locked = Truetxtdiachi.Locked = TrueEnd Sub

Private Sub bokhoa()

txtma.Locked = False

txtten.Locked = False

txtgioitinh.Locked = Falsetxtngaysinh.Locked = Falsetxtdiachi.Locked = FalseEnd Sub

Private Sub Form_Load()khoa

cmdthem.Enabled = FalseEnd Sub

Dùng dataEnvironment để tạo truy vấn cho báo cáo

B¸o c¸o vÒ th«ng tin sinh viªn

Báo cáo về thông tin khám bệnh để in