新建 文本文档.txt

运动会成绩统计系统。运动员的添加

Private Sub Command1_Click()
'运行时自动检测错误，检测到则到ErrMsg标号处做相应的处理On Error GoTo ErrMsg
Dim SQL As String '定义一个保存SQL语句的变量
'到Login 表中查询是否有符合条件的记录存在
'使用的是Select Count(*) From ...返回值是一个大于等于0的整数
SQL = "Select Count(*) From password4119 Where Name4119='" & Trim(txtname.Text) & "'"
SQL = SQL & " And Password4119='" & Trim(txtpassword.Text) & "'"
Set adors = adocon.Execute(SQL)
If adors(0) = 0 Then
   MsgBox "您输入的用户名或密码有误，请更正！", vbOKOnly + vbExclamation, "系统提示"
   txtname.SetFocus
   Exit Sub
End If
'通过身份验证后卸载登录窗体
Unload Me
'显示系统界面，可以进入系统操作
MDIForm1.Show

'错误处理
ErrMsg:
  If Err.Number <> 0 Then
    MsgBox Err.Number & Err.Description, vbOKOnly + vbCritical, "出错提示"
    Exit Sub
  End If
End Sub



Private Sub Command2_Click()
If MsgBox("您真的要退出本系统的使用吗？", vbYesNo + vbQuestion, "退出询问") = vbYes Then
   '把记录集从内存中清除
   Set adors = Nothing
   '断开与数据库的连接
   adocon.Close
   '把连接变量从内存中清除
   Set adocon = Nothing
   '从内存中卸载登录窗体，终止程序的执行
   Unload Me
End If

End Sub

Private Sub Form_Load()
On Error GoTo ErrMsg

'清空文本框
txtname.Text = ""
txtpassword.Text = ""

'调用模块中的ConnectDB过程连接数据库，可以把连接模块直接写在这里
Call ConnectDB

'错误处理功能
ErrMsg:
  If Err.Number <> 0 Then
    MsgBox Err.Number & Err.Description, vbOKOnly + vbCritical, "出错提示"
    Exit Sub
  End If
End Sub

Private Sub txtname_Change()
Cls
txtname.SetFocus

End Sub
//////////////////1
Private Sub Command1_Click()
On Error GoTo ErrMsg

Dim sql As String
'Dim a As Integer
'a = 0
If Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Then MsgBox "您没有填好内容!", vbOKOnly + vbCritical, "错误提示"
Set adors = adocon.Execute("Select * From 运动项目及参赛表m4119")
If adors.EOF Then
    MsgBox "运动项目及参赛表m4119表中没有记录，请输入！", vbOKOnly + vbExclamation, "系统提示"
    Exit Sub
End If
'Do While adors.EOF
    'adors ("a_no4119") <> Text1.Text
    'adors.MoveNext
    'a = a + 1
    'Loop
'adocon.Execute ("insert into 运动项目及成绩表m4119(a_no4119,一百米) values(trim(a),trim(b))")
'If a > 0 Then
sql = ""
sql = "Insert Into 运动项目及成绩表m4119(a_no4119," & Combo1.Text & ") Values(" & Text1.Text & "," & Text2.Text & ")"
 'Else: If a Is 0 Then MsgBox "无参赛记录", vbOKOnly + vbCritical, "错误提示"
 'End If
adocon.Execute (sql)
ErrMsg:
  If Err.Number <> 0 Then
      MsgBox Err.Number & Err.Description, vbOKOnly + vbCritical, "出错提示"
     Exit Sub
  End If


End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Combo1.Clear

End Sub

Private Sub Command3_Click()
Form2.Hide
MDIForm1.Show

End Sub

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "一百米"
Combo1.AddItem "游泳"
Combo1.AddItem "举重"
Combo1.AddItem "跳高"
End Sub

//////////////2
Dim strtmp As String

Private Sub Command1_Click()
Dim sql As String
Dim sql1 As String
sql = "Insert Into 运动项目及参赛表m4119(a_no4119," & strtmp & ")" & _
        " Values(" & Text1.Text & ",'1 ')"
        adocon.Execute (sql)
sql1 = "Insert Into 运动员4119  Values(" & Text1.Text & "," & Text2.Text & "," & Text3.Text & "," & Text4.Text & "," & Text5.Text & ")"
adocon.Execute (sql1)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub Command3_Click()
MDIForm1.Show
Form3.Hide
End Sub

Private Sub Form_Load()
List1.AddItem "一百米"
List1.AddItem "游泳"
List1.AddItem "举重"
List1.AddItem "跳高"
End Sub

Private Sub List1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then strtmp = strtmp & List1.List(i)
Next i
End Sub
////////////////////3
Private Sub muna1_Click()
Form2.Show

End Sub

Private Sub munf1_Click()
Form3.Show
End Sub

Private Sub mung_Click()
End
End Sub
///////////////mdi
Public adocon As ADODB.Connection
Public adors As ADODB.Recordset
Public adocmd As ADODB.Command
Public adopara As ADODB.parameter



Public Sub ConnectDB()
'创建新的ADO连接对象
Set adocon = New ADODB.Connection
With adocon
  '指明连接数据库所使用的驱动程序是SQL
.Provider = "SQLOLEDB"
'指定连接字符串
'Server是SQL Server服务器的名字---SQL SERVER的实例名（不一定是机器名）
'Uid是SQL SERVER的登录名
'Pwd是SQL SERVER的登录（如sa）的对应的密码
'Database指定在SQL SERVER数据库中已经建立的数据库名
.ConnectionString = "Server=(local);Uid=sa;Pwd=;Database=运动会管理系统4119"
'打开连接
.Open
 End With
End Sub
//////////////moban