v_dengji.frm

小型医院管理

      EndProperty
      Height          =   210
      Left            =   4680
      TabIndex        =   18
      Top             =   2040
      Width           =   840
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "主要症状"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   6720
      TabIndex        =   17
      Top             =   5400
      Visible         =   0   'False
      Width           =   840
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "主要病史"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   1200
      TabIndex        =   16
      Top             =   5280
      Visible         =   0   'False
      Width           =   840
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "地址"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   360
      TabIndex        =   15
      Top             =   1200
      Width           =   420
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "联系电话"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   7920
      TabIndex        =   14
      Top             =   360
      Width           =   840
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "年龄"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   6000
      TabIndex        =   13
      Top             =   360
      Width           =   420
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "性别"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   3840
      TabIndex        =   12
      Top             =   360
      Width           =   420
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "患者姓名"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   360
      TabIndex        =   11
      Top             =   360
      Width           =   840
   End
End
Attribute VB_Name = "v_dengji"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()




If v_name.Text = "" Then
b1 = MsgBox("警告，患者姓名不能为空！", vbQuestion, "系统提示！")
v_name.SetFocus
Exit Sub
End If



If v_sex.Text = "" Then
b1 = MsgBox("警告，性别不能为空！", vbQuestion, "系统提示！")
v_sex.SetFocus
Exit Sub
End If




If Not IsNumeric(v_old.Text) Then
b1 = MsgBox("警告，年龄不能为空或非数字！", vbQuestion, "系统提示！")
v_old.SetFocus
Exit Sub
End If




'If v_zz.Text = "" Then
'b1 = MsgBox("警告，症状不能为空！", vbQuestion, "系统提示！")
'v_zz.SetFocus
'Exit Sub
'End If






If Not IsNumeric(v_car.Text) Then
b1 = MsgBox("警告，卡号不能为空或非数字！", vbQuestion, "系统提示！")
v_car.SetFocus
Exit Sub
End If


b1 = MsgBox("您确实继续吗？", vbOKCancel, "系统提示！")
If b1 = 1 Then
 



Dim sql As String
sql = "select * from 患者信息 where 卡号='" & Trim(v_car.Text) & "'"
Dim rs As New ADODB.Recordset
rs.Open sql, db

If Not rs.EOF Then

b1 = MsgBox("卡号已经存在，请更换卡号！", vbCritical, "系统提示！")
Exit Sub
Else

Dim sql1 As String
sql1 = "insert into 患者信息 (姓名,性别,年龄,电话,地址,卡号,时间) values ('" & Trim(v_name.Text) & "','" & Trim(v_sex.Text) & "','" & Trim(v_old.Text) & "','" & Trim(v_tel.Text) & "','" & Trim(v_address.Text) & "','" & Trim(v_car.Text) & "','" & Trim(Now) & "')"
Dim rs1 As New ADODB.Recordset
rs1.Open sql1, db
Set rs1 = Nothing




Dim sql2 As String
sql2 = "insert into 检查结果 (卡号,姓名,日期) values ('" & Trim(v_car.Text) & "','" & Trim(v_name.Text) & "','" & Trim(Now) & "')"
Dim rs2 As New ADODB.Recordset
rs2.Open sql2, db
Set rs2 = Nothing





b1 = MsgBox("提示，患者登记成功！", vbQuestion, "系统提示！")

End If


Set rs = Nothing

End If


End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
v_sj.Value = Date
End Sub

Private Sub v_tiaoma_Change()

Dim sql As String
sql = "select * from 条码 where 条码='" & Trim(v_tiaoma.Text) & "'"
Dim rs As New ADODB.Recordset
rs.Open sql, db
If Not rs.EOF Then
v_zz.Text = v_zz.Text & "  " & rs("名称")

End If


End Sub