医院信息管理系统

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