module1.bas

来自「专业的医院门诊管理系统」· BAS 代码 · 共 42 行

Attribute VB_Name = "Module1"
Public czy As String
Public gh As String
Public ckh As String
Public sjh As String
Public Function cnn() As String    '定义函数
  '返回一个数据库连接
  cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MZJJSFXT.mdb;Persist Security Info=False"
End Function
Sub EnaT(frm As Form)
  frm.Enabled = True
End Sub
Sub EnaF(frm As Form)
  frm.Enabled = True
End Sub
Sub GotFocusBC(txt As TextBox)
  txt.BackColor = &HFFFF00
End Sub
Sub LostFocusBC(txt As TextBox)
  txt.BackColor = &HFFFFFF
End Sub
Sub GotFocusCbo(cbo As ComboBox)
  cbo.BackColor = &HFFFF00
End Sub
Sub LostFocusCbo(cbo As ComboBox)
  cbo.BackColor = &HFFFFFF
End Sub
Sub CbolbList(Cbolb As ComboBox)
  Cbolb.AddItem ("西药费")
  Cbolb.AddItem ("中药费")
  Cbolb.AddItem ("检查治疗")
  Cbolb.AddItem ("化验费")
  Cbolb.AddItem ("X光费")
  Cbolb.AddItem ("手术费")
  Cbolb.AddItem ("观察费")
  Cbolb.AddItem ("输血费")
  Cbolb.AddItem ("核磁费")
  Cbolb.AddItem ("CT费")
  Cbolb.AddItem ("其他")
End Sub