📄 main.frm

📁 这是一个医院管理系统中的院长查询模块
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      End
   End
   Begin VB.Menu MENUF 
      Caption         =   "退出（&Q）"
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub ckhzb_Click()
report_id = "2"
stuff_form_total.Show

End Sub

Private Sub cklsz_Click()
stuff_query_out.Show
End Sub

Private Sub clpdb_Click()
stuff_form_list.Show
End Sub

Private Sub kccx_Click()
stuff_query_stock.Show
End Sub

Private Sub rklsz_Click()
stuff_query_in.Show
End Sub

Private Sub 出院患者查询_Click()
    Form3.Enabled = False
    frmLeaveHospitalQuery.Show
End Sub

Private Sub 科室收入明细查询入_Click()
    frmDepartmentMx.Show
End Sub

Private Sub 全院患者查询_Click()
    Form3.Enabled = False
    frmPatientIdQuery.Show
End Sub

Private Sub 在院患者查询_Click()
    Form3.Enabled = False
    frmPatientQuery.Show
End Sub

Private Sub 住院收入年查询_Click()
    frmHospitalCharge.Tag = "3"
    frmHospitalCharge.Show
End Sub

Private Sub 住院收入日查询_Click()
    frmHospitalCharge.Tag = "1"
    frmHospitalCharge.Show
End Sub

Private Sub 住院收入项目对比查询_Click()
    DS = 4
    frmClinicDayQuery.Show
End Sub

Private Sub 住院收入月查询_Click()
    frmHospitalCharge.Tag = "2"
    frmHospitalCharge.Show
End Sub

Private Sub 住院信息查询_Click()
   frmPatientIdQuery.Show
End Sub

Private Sub 住院药品使用查询_Click()
   frmMedicineQuery.Show
End Sub

Private Sub 住院月收入对比查询_Click()
   DS1 = "1"
   frmChargeCompare.Show
End Sub

'****************
Private Sub 门诊项目收入对比查询_Click()
   DS = 1
   frmClinicDayQuery.Show
End Sub

Private Sub 门诊收入年报表_Click()
  Form3.Enabled = False
  frmClinicCharge.Show
  frmClinicCharge.Tag = "3"
End Sub

Private Sub 门诊收入日报表_Click()
  Form3.Enabled = False
  frmClinicCharge.Tag = "1"
  frmClinicCharge.Show
End Sub

Private Sub 门诊收入日对比查询_Click()
  DS = 5
  frmClinicDayQuery.Show
End Sub

Private Sub 门诊收入月报表_Click()
  Form3.Enabled = False
  frmClinicCharge.Tag = 2
  frmClinicCharge.Show

End Sub

Private Sub 门诊月收入对比查询_Click()
   DS1 = "2"
   frmChargeCompare.Show
End Sub

Private Sub 全院月收入对比查询_Click()
   DS1 = "3"
   frmChargeCompare.Show
End Sub

'*****************
Private Sub ghslsz_Click()
yk_query_yielder.Show
End Sub

Private Sub hchsb_Click()
    yk_form_stock.Show

End Sub

Private Sub mxyj1pdb_Click()
report_id = "0"
yj1_form_list.Show
End Sub

Private Sub mxyj2pdb_Click()
report_id = "0"
yj2_form_list.Show

End Sub

Private Sub mxyj3pdb_Click()
report_id = "0"
yj3_form_list.Show

End Sub

Private Sub yj1_xstj_Click()
report_id = "2"
yj1_form_list.Show
End Sub

Private Sub yj2_xstj_Click()
report_id = "2"
yj2_form_list.Show

End Sub

Private Sub yk_ckhsb_Click()
    report_id = "2"
    yk_form_list.Show

End Sub

Private Sub yk_ckhzb_Click()
    report_id = "2"
    yk_form_total.Show

End Sub

Private Sub yk_pdb_Click()
    report_id = "0"
    yk_form_list.Show

End Sub

Private Sub yk_rkhs_Click()
report_id = "1"
yk_form_list.Show

End Sub

Private Sub yk_rkhzb_Click()
    report_id = "1"
    yk_form_total.Show
End Sub
'*****************
Private Sub BAXXTJCX_Click()
Form10.Show 1
End Sub

Private Sub BCLY_Click()
BA_ZB.Tag = "2"
BA_ZB.printhead1 = "病床利用情况统计"
BA_ZB.Show 1
End Sub

Private Sub BFNYB_Click()
BA_ZB.Tag = "1"
BA_ZB.Show 1
End Sub

Private Sub BFRB_Click()
DATE1 = Date - 1
BA_RB.Tag = "1"
BA_RB.PRINTHEAD = "[" + CStr(DATE1) + "]病房工作日报表"
BA_RB.Show 1
End Sub

Private Sub BJBLCX_Click()
Load Form8
Form8.Tag = "A"
Form8.Label1(1) = "出院日期"
Form8.Caption = "丙级病例统计查询"
Form8.Show 1
End Sub

Private Sub BLSYS_Click()
Load BLSY
BLSY.Tag = "1"
BLSY.Caption = "病理诊断索引"
BLSY.Show 1
End Sub


Private Sub Form_Load()
'Image1.Picture = LoadPicture("c:\pp\BMP.JPG")
'Call hidewindows
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height - 5
End Sub

Private Sub Form_Resize()
On Error GoTo dde
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
dde:
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Call showwindows
db.Close
Unload mmm
End
End Sub

Private Sub FSSBFZ_Click()
Load Form8
Form8.Tag = "6"
Form8.Label1(1) = "出院日期"
Form8.Caption = "非手术并发症患者情况查询"
Form8.Show 1
End Sub


Private Sub GLTJ2_Click()
Load Form9
Form9.Tag = "A"
Form9.Caption = GLTJ2.Caption
Form9.Show 1
End Sub

Private Sub GLZLTJB_Click()
YYZB.Tag = "3"
YYZB.Show 1
End Sub

Private Sub GZTJ1_Click()
Load Form9
Form9.Tag = "B"
Form9.Caption = GZTJ1.Caption
Form9.Show 1
End Sub

Private Sub HLTJ_Click()
Load BLTJ
BLTJ.Tag = "2"
BLTJ.Caption = "疾病统计：抢救、院内感染、护理工作量统计表"
BLTJ.Show 1
End Sub

Private Sub HLZLTJB_Click()
Load Form9
Form9.Tag = "4"
Form9.Caption = HLZLTJB.Caption
Form9.DBGrid1.AllowUpdate = True
Form9.Show 1
End Sub

Private Sub JBZDSY_Click()
Load BLSY
BLSY.Tag = "0"
BLSY.Caption = "疾病分类索引"
BLSY.Show 1
End Sub

Private Sub JDT_Click()
NDBB.Tag = "2"
NDBB.Show 1
End Sub

Private Sub KSSQKTJB_Click()
Load Form9
Form9.Tag = "5"
Form9.Caption = KSSQKTJB.Caption
Form9.Show 1
End Sub


Private Sub KSZDCY_Click()
Load Form9
Form9.Tag = "2"
Form9.Caption = KSZDCY.Caption
Form9.Show 1
End Sub

Private Sub LBCX_Click()
Load Form8
Form8.Tag = "3"
Form8.Label1(1) = "出院日期"
Form8.Caption = "临床诊断与病理诊断不符情况查询"
Form8.Show 1
End Sub

Private Sub M23_Click()
Form13.Show
Me.Enabled = False
End Sub

Private Sub MCCX_Click()
Load Form8
Form8.Tag = "1"
Form8.Label1(1) = "出院日期"
Form8.Caption = "门诊诊断与出院诊断不符情况查询"
Form8.Show 1
End Sub

Private Sub MENUF_Click()
Unload Me
End Sub


Private Sub MZZHQK2_Click()
YYZB.Caption = "门诊部工作情况统计表"
YYZB.Tag = "1"
YYZB.Show 1
End Sub

Private Sub NDZBTJB_Click()
NDBB.Tag = "1"
NDBB.Show 1
End Sub


Private Sub QYRTJ_Click()
Form2.Show 1
End Sub

Private Sub RCCX_Click()
Load Form8
Form8.Tag = "2"
Form8.Label1(1) = "出院日期"
Form8.Caption = "入院诊断与出院诊断不符情况查询"
Form8.Show 1
End Sub


Private Sub SSBFZCX_Click()
Load Form8
Form8.Tag = "7"
Form8.Label1(1) = "出院日期"
Form8.Caption = "手术并发症患者情况查询"
Form8.Show 1
End Sub

Private Sub SSCX_Click()
Load Form8
Form8.Tag = "4"
Form8.Label1(1) = "出院日期"
Form8.Caption = "术前诊断与术后诊断不符情况查询"
Form8.Show 1
End Sub

Private Sub SSQK_Click()
Load BLTJ
BLTJ.Tag = "1"
BLTJ.Caption = "手术情况统计查询"
BLTJ.Show 1
End Sub

Private Sub SSZDSY_Click()
Load BLSY
BLSY.Tag = "2"
BLSY.Caption = "手术诊断索引"
BLSY.Show 1
End Sub

Private Sub SWHZTJCX_Click()
Load Form8
Form8.Tag = "8"
Form8.Label1(1) = "出院日期"
Form8.Caption = "死亡患者情况查询"
Form8.Show 1
End Sub



Private Sub WLBLLL_Click()
Load Form8
Form8.Tag = "B"
Form8.Label1(1) = "出院日期"
Form8.DBGrid1.DefColWidth = 1400
Form8.Show 1
End Sub


Private Sub WSBNBB_Click()
Load BLTJ
BLTJ.Tag = "5"
BLTJ.Caption = "卫生部门医院住院病人疾病分类年报表"
BLTJ.DATE1 = CStr(Year(Date) - 1) + "-01-01"
BLTJ.DATE2 = CStr(Year(Date) - 1) + "-12-31"
BLTJ.Text1 = ""
BLTJ.Text1.Enabled = False
BLTJ.Show 1
End Sub


Private Sub YNGRCX_Click()
Load Form8
Form8.Tag = "5"
Form8.Label1(1) = "出院日期"
Form8.Caption = "院内感染患者查询"
Form8.Show 1
End Sub


Private Sub YYZD1_Click()
Load Form9
Form9.Tag = "6"
Form9.Caption = YYZD1.Caption
Form9.Show 1
End Sub

Private Sub ZDTJ_Click()
Load BLTJ
BLTJ.Tag = "3"
BLTJ.Caption = "诊断质量统计查询（出院）"
BLTJ.Show 1
End Sub

Private Sub ZDZLRY_Click()
Load Form9
Form9.Tag = "1"
Form9.Caption = ZDZLRY.Caption
Form9.Show 1
End Sub

Private Sub ZHTJ_Click()
YYZB.Caption = "医院综合护理指标统计..."
YYZB.Tag = "2"
YYZB.Show 1
End Sub

Private Sub ZLZLFWLB_Click()
Load Form9
Form9.Tag = "3"
Form9.Caption = ZLZLFWLB.Caption
Form9.Show 1
End Sub

Private Sub ZLZLTJ_Click()
Load BLTJ
BLTJ.Tag = "4"
BLTJ.Caption = "治疗质量统计查询"
BLTJ.Show 1
End Sub

Private Sub ZWQJHZCX_Click()
Load Form8
Form8.Tag = "9"
Form8.Label1(1) = "出院日期"
Form8.Caption = "重危抢救患者情况查询"
Form8.Show 1
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -