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