c = 0
Unload Me Form1.Show Else
If Trim(txtUserName.Text) = \
MsgBox \没有这个用户\txtUserName.SetFocus Else
CN.Open \Security=SSPI;Persist Info=False;Initial Catalog=DemoDB;Data Source=(local)\
sql = \系统管理 where 用户名='\rs_login.Opensql, CN, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then
MsgBox \没有这个用户\txtUserName.SetFocus Else
If Trim(rs_login.Fields(1)) = Trim(txtPassword.Text) Then Form2.Show rs_login.Close Unload Me 5、 病人信息添加
Private Sub Command1_Click() '确定
Dim rs1 As New ADODB.Recordset Dim CN As New ADODB.Connection Dim sql As String
Set rs1 = New ADODB.Recordset Set CN = New ADODB.Connection
CN.Open \Security=SSPI;Persist Info=False;Initial Catalog=DemoDB;Data Source=(local)\
sql = \病人信息\rs1.Opensql, CN, 3, 2 rs1.AddNew
rs1!姓名 = Trim(Text1.Text) rs1!性别 = Trim(Text2.Text)
Security Security rs1!民族 = Trim(Text3.Text) rs1!年龄 = Trim(Text4.Text) rs1!备注 = Trim(Text5.Text)
rs1.Update
MsgBox \成功添加一条记录\提示\
End Sub
