医生.frm

该课题采用VB+SQLSERVER实现一个管理系统

            Caption         =   "联系人姓名"
            Height          =   255
            Left            =   240
            TabIndex        =   20
            Top             =   3480
            Width           =   975
         End
         Begin VB.Label Label21 
            Caption         =   "联系方式"
            Height          =   255
            Left            =   4800
            TabIndex        =   19
            Top             =   2280
            Width           =   855
         End
         Begin VB.Label Label22 
            Caption         =   "与患者关系"
            Height          =   255
            Left            =   3600
            TabIndex        =   18
            Top             =   3480
            Width           =   1095
         End
      End
   End
End
Attribute VB_Name = "Form9"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Dim Rs1 As New ADODB.Recordset
Dim tianjia As String
Set Rs1 = New Recordset
tianjia = " select * from 诊疗信息 "
Rs1.Open tianjia, Str, adOpenKeyset, adLockOptimistic, adCmdText
On Error GoTo li2

Rs1.AddNew
With Rs1
.Fields("编号") = Text5(1).Text
.Fields("姓名") = Text2(2).Text
.Fields("日期") = DateSerial(Combo2(4).Text, Combo3(4).Text, Combo4(4).Text)
.Fields("医生") = Text2(1).Text
.Fields("处方") = Text3(1).Text
.Fields("诊断结果") = Text4(1).Text
.Fields("注意事项") = Text1(1).Text
.Fields("下次就诊时间") = DateSerial(Combo2(5).Text, Combo3(5).Text, Combo4(5).Text)
Rs1.Update

 If MsgBox("成功添加还要继续么", vbOKCancel + vbQuestion, "退出") = vbOK Then
        Unload Me
        Form9.Show
        
    Else
        Exit Sub
    End If
End With
Rs1.Update
GoTo li1
li2: MsgBox "添加错误"
li1:
End Sub

Private Sub Command10_Click()
Dim Rs1 As New ADODB.Recordset
Dim chaxun As String
Set Rs1 = New Recordset
chaxun = " select * from 诊疗信息 where 编号 = '" & Text5(1).Text & "'"
Rs1.Open chaxun, Str, adOpenKeyset, adLockOptimistic, adCmdText
On Error GoTo li2
If Rs1.EOF = False Then
Rs1.MoveFirst
End If
Do While Rs1.EOF = False
Text2(2).Text = Rs1(1)
Dim s() As String
Dim a As String
a = Rs1(2)
s = Split(a, "-")
Combo2(4).Text = s(0)
Combo3(4).Text = s(1)
Combo4(4).Text = s(2)

Text2(1).Text = Rs1(3)

Text3(1).Text = Rs1(4)

Text4(1).Text = Rs1(5)

Dim s1() As String
Dim a1 As String
a1 = Rs1(6)
s1 = Split(a1, "-")
Combo2(5).Text = s1(0)
Combo3(5).Text = s1(1)
Combo4(5).Text = s1(2)
Text1(1).Text = Rs1(7)

  Rs1.MoveNext
 If MsgBox("退出查询", vbOKCancel + vbQuestion, "记录查询") = vbOK Then Exit Sub
 
Loop

GoTo li1
li2: MsgBox "没有要查资料"
li1:
End Sub

Private Sub Command2_Click()
Dim Rs1 As New ADODB.Recordset
Dim chaxun As String
Set Rs1 = New Recordset
chaxun = " select * from 诊疗信息 where 编号 = '" & Text5(1).Text & "'"
Rs1.Open chaxun, Str, adOpenKeyset, adLockOptimistic, adCmdText
On Error GoTo li2
If Rs1.EOF = False Then
Rs1.MoveFirst
End If
Do While Rs1.EOF = False
Text2(2).Text = Rs1(1)
Dim s() As String
Dim a As String
a = Rs1(2)
s = Split(a, "-")
Combo2(4).Text = s(0)
Combo3(4).Text = s(1)
Combo4(4).Text = s(2)

Text2(1).Text = Rs1(3)

Text3(1).Text = Rs1(4)

Text4(1).Text = Rs1(5)

Dim s1() As String
Dim a1 As String
a1 = Rs1(6)
s1 = Split(a1, "-")
Combo2(5).Text = s1(0)
Combo3(5).Text = s1(1)
Combo4(5).Text = s1(2)
Text1(1).Text = Rs1(7)

  Rs1.MoveNext
   If MsgBox("退出查询", vbOKCancel + vbQuestion, "记录查询") = vbOK Then Exit Sub
Loop

GoTo li1
li2: MsgBox "没有要查资料"
li1:
End Sub

Private Sub Command3_Click()
 Text5(1).Enabled = True
 Text2(2).Enabled = True
 Combo2(4).Enabled = True
 Combo3(4).Enabled = True
 Combo4(4).Enabled = True
 Text2(1).Enabled = True
 Text3(1).Enabled = True
 Text4(1).Enabled = True
 Text1(1).Enabled = True
 Combo2(5).Enabled = True
 Combo3(5).Enabled = True
 Combo4(5).Enabled = True
 Command1.Enabled = True
 Command2.Enabled = False
 Form9.Show
End Sub

Private Sub Command4_Click()
Dim Rs1 As New ADODB.Recordset
Dim chaxun As String
Set Rs1 = New Recordset
chaxun = " select * from 诊疗信息 where 编号 = '" & Text5(1).Text & "'"
Rs1.Open chaxun, Str, adOpenKeyset, adLockOptimistic, adCmdText
On Error GoTo li2
If Rs1.BOF = False Then
Rs1.MoveLast
End If
Do While Rs1.BOF = False
Text2(2).Text = Rs1(1)
Dim s() As String
Dim a As String
a = Rs1(2)
s = Split(a, "-")
Combo2(4).Text = s(0)
Combo3(4).Text = s(1)
Combo4(4).Text = s(2)

Text2(1).Text = Rs1(3)

Text3(1).Text = Rs1(4)

Text4(1).Text = Rs1(5)

Dim s1() As String
Dim a1 As String
a1 = Rs1(6)
s1 = Split(a1, "-")
Combo2(5).Text = s1(0)
Combo3(5).Text = s1(1)
Combo4(5).Text = s1(2)
Text1(1).Text = Rs1(7)

  Rs1.MovePrevious
   If MsgBox("退出查询", vbOKCancel + vbQuestion, "记录查询") = vbOK Then Exit Sub
 Loop

GoTo li1
li2: MsgBox "没有要查资料"
li1:
End Sub

Private Sub Command5_Click(Index As Integer)
Dim Rs1 As New ADODB.Recordset
Dim tianjia As String
Set Rs1 = New Recordset
tianjia = " select * from 患者信息 "
Rs1.Open tianjia, Str, adOpenKeyset, adLockOptimistic, adCmdText
On Error GoTo li2
Rs1.AddNew
With Rs1
.Fields("编号") = Text1(0).Text
.Fields("姓名") = Text2(0).Text
.Fields("年龄") = Text3(0).Text
.Fields("出生日期") = DateSerial(Combo2(0).Text, Combo3(0).Text, Combo4(0).Text)

.Fields("婚姻") = Combo1.Text

.Fields("职业") = Combo5.Text

.Fields("工作单位") = Text4(0).Text

.Fields("家庭地址") = Text11.Text

.Fields("联系方式") = Text13.Text

.Fields("联系人姓名") = Text12.Text

.Fields("与患者关系") = Text14.Text

.Fields("就诊科室") = Text7.Text

.Fields("主诉") = Text8.Text

.Fields("现病史") = Text9.Text

.Fields("既往史") = Text15.Text

.Fields("个人史") = Text16.Text

.Fields("婚姻史") = Text17.Text
.Fields("家族史") = Text18.Text

.Fields("体格检查") = Text19.Text

.Fields("一般情况") = Text20.Text

.Fields("专科情况") = Text5(0).Text

.Fields("辅助检查情况") = Text6.Text

.Fields("初步诊断") = Text10.Text

.Fields("首诊医师") = Text21.Text

.Fields("诊费") = Text24.Text

.Fields("恢复情况") = Text22.Text

.Fields("注意事项") = Text23.Text

.Fields("就诊日期") = DateSerial(Combo2(1).Text, Combo3(1).Text, Combo4(1).Text)
.Fields("复诊日期") = DateSerial(Combo2(2).Text, Combo3(2).Text, Combo4(2).Text)
.Fields("下次就诊时间") = DateSerial(Combo2(3).Text, Combo3(3).Text, Combo4(3).Text)
If Option1.Value = True Then
  .Fields("性别") = "男"
  Else
    .Fields("性别") = "女"
 End If
End With
Rs1.Update

 If MsgBox("成功添加还要继续么", vbOKCancel + vbQuestion, "退出") = vbOK Then
        Unload Me
        Form9.Show
        
    Else
        Exit Sub
    End If
    
GoTo li1
li2: MsgBox "添加错误"
li1:

End Sub

Private Sub Command6_Click(Index As Integer)
Unload Me
Form1.Show
End Sub



Private Sub Command7_Click(Index As Integer)
If MsgBox("确实要退出吗?", vbOKCancel + vbQuestion, "系统退出") = vbOK Then
        Unload Me
    Else
        Exit Sub
    End If
End Sub


Private Sub Command8_Click(Index As Integer)
Dim Rs1 As New ADODB.Recordset
Dim chaxun As String
Set Rs1 = New Recordset
chaxun = " select * from 患者信息 where 编号 = '" & Text1(0).Text & "'"
Rs1.Open chaxun, Str, adOpenKeyset, adLockOptimistic, adCmdText
On Error GoTo li2

Text2(0).Text = Rs1(1)

If Rs1(2) = "男" Then
  Option1.Value = True
  Else
   Option2.Value = True
End If

Text3(0).Text = Rs1(3)

Dim s() As String
Dim a As String
a = Rs1(4)
s = Split(a, "-")
Combo2(0).Text = s(0)
Combo3(0).Text = s(1)
Combo4(0).Text = s(2)

Combo1.Text = Rs1(5)
Combo5.Text = Rs1(6)
Text4(0).Text = Rs1(7)
Text11.Text = Rs1(8)

Text13.Text = Rs1(9)

Text12.Text = Rs1(10)

Text14.Text = Rs1(11)

Text7.Text = Rs1(12)

Dim s1() As String
Dim a1 As String
a1 = Rs1(13)
s1 = Split(a1, "-")
Combo2(1).Text = s1(0)
Combo3(1).Text = s1(1)
Combo4(1).Text = s1(2)

Text8.Text = Rs1(14)

Text9.Text = Rs1(15)

Text15.Text = Rs1(16)

Text16.Text = Rs1(17)

Text17.Text = Rs1(18)

Text18.Text = Rs1(19)

Text19.Text = Rs1(20)

Text20.Text = Rs1(21)

Text5(0).Text = Rs1(22)

Text6.Text = Rs1(23)

Text10.Text = Rs1(24)

Text21.Text = Rs1(25)

Text24.Text = Rs1(26)

Dim s2() As String
Dim a2 As String
a2 = Rs1(27)
s2 = Split(a2, "-")
Combo2(2).Text = s2(0)
Combo3(2).Text = s2(1)
Combo4(2).Text = s2(2)

Text22.Text = Rs1(28)

Dim s3() As String
Dim a3 As String
a3 = Rs1(29)
s3 = Split(a3, "-")
Combo2(3).Text = s(0)
Combo3(3).Text = s(1)
Combo4(3).Text = s(2)

Text23.Text = Rs1(30)
GoTo li1
li2: MsgBox "没有要查找的资料"
li1:
End Sub

Private Sub Command9_Click(Index As Integer)
Text1(0).Enabled = True
Text2(0).Enabled = True
Option1.Enabled = True
Option2.Enabled = True
Text3(0).Enabled = True
Combo2(0).Enabled = True
Combo3(0).Enabled = True
Combo4(0).Enabled = True
Combo1.Enabled = True
Combo5.Enabled = True
Text4(0).Enabled = True
Text11.Enabled = True
Text13.Enabled = True
Text12.Enabled = True
Text14.Enabled = True
Text7.Enabled = True
Combo2(1).Enabled = True
Combo3(1).Enabled = True
Combo4(1).Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text15.Enabled = True
Text16.Enabled = True
Text17.Enabled = True
Text18.Enabled = True
Text19.Enabled = True
Text20.Enabled = True
Text5(0).Enabled = True
Text6.Enabled = True
Text10.Enabled = True
Text21.Enabled = True
Text24.Enabled = True
Combo2(2).Enabled = True
Combo3(2).Enabled = True
Combo4(2).Enabled = True
Text22.Enabled = True
Combo2(3).Enabled = True
Combo3(3).Enabled = True
Combo4(3).Enabled = True
Text23.Enabled = True
Command3.Enabled = True
Form9.Show
End Sub