form3.frm

ACCESS数据库开发例子

        MSFlexGrid2.Text = rs_c.Fields(i)
    Next
    rs_c.MoveNext
        j = j + 1
   Wend
 End If
End Sub

Private Sub Command1_Click()
j = 1
Dim r(6) As String
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = 7
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "机型"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "故障代码"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "故障描述"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "维修方法"
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = "故障原因"
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = "维修人"
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = "维修日期"
 Call gy_load
If Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(2).Text <> "" And Combo1(3).Text <> "" And Combo1(4).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 = '" & Combo1(1).Text & "' And 故障描述 ='" & Combo1(2).Text & "' And 维修方法 ='" & Combo1(3).Text & "' And 故障原因 ='" & Combo1(4).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
   GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(2).Text <> "" And Combo1(3).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 = '" & Combo1(1).Text & "' And 故障描述 ='" & Combo1(2).Text & "' And 维修方法 ='" & Combo1(3).Text & "' And 故障原因 ='" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
  GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(2).Text <> "" And Combo1(3).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 ='" & Combo1(1).Text & "' And 故障描述 ='" & Combo1(2).Text & "' And 维修方法 ='" & Combo1(3).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(2).Text <> "" And Combo1(4).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 ='" & Combo1(1).Text & "'And 故障描述 ='" & Combo1(2).Text & "' And 故障原因 ='" & Combo1(4).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(3).Text <> "" And Combo1(4).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 ='" & Combo1(1).Text & "' And 维修方法 ='" & Combo1(3).Text & "' And 故障原因 ='" & Combo1(4).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(2).Text <> "" And Combo1(3).Text <> "" And Combo1(4).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障描述 ='" & Combo1(2).Text & "' And 维修方法 ='" & Combo1(3).Text & "' And 故障原因 ='" & Combo1(4).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(2).Text <> "" And Combo1(3).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 ='" & Combo1(1).Text & "' And 故障描述 ='" & Combo1(2).Text & "' And 维修方法 ='" & Combo1(3).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(2).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 ='" & Combo1(1).Text & "' And 故障描述 ='" & Combo1(2).Text & "' And 故障原因 ='" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(3).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 ='" & Combo1(1).Text & "' And 维修方法 ='" & Combo1(3).Text & "' And 故障原因 ='" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(2).Text <> "" And Combo1(3).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障描述 = '" & Combo1(2).Text & "' And 维修方法 = '" & Combo1(3).Text & "'And 故障原因 ='" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(3).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 = '" & Combo1(1).Text & "' And 维修方法 = '" & Combo1(3).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(2).Text <> "" And Combo1(3).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "'an  故障描述 ='" & Combo1(2).Text & "' And 维修方法 = '" & Combo1(3).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(2).Text <> "" And Combo1(4).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障描述 = '" & Combo1(2).Text & "' And 故障原因 = '" & Combo1(4).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(2).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 = '" & Combo1(1).Text & "' And 故障描述 = '" & Combo1(2).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(4).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "'And 故障代码 = '" & Combo1(1).Text & "' And 故障原因 ='" & Combo1(4).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(3).Text <> "" And Combo1(4).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 维修方法 = '" & Combo1(3).Text & "'And 故障原因 ='" & Combo1(4).Text & "'And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(2).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 = '" & Combo1(1).Text & "' And 故障描述 = '" & Combo1(2).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(3).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 = '" & Combo1(1).Text & "' And 维修方法 = '" & Combo1(3).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 = '" & Combo1(1).Text & "' And 故障原因 = '" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 = '" & Combo1(1).Text & "' And 维修人 = '" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(2).Text <> "" And Combo1(3).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障描述 = '" & Combo1(2).Text & "' And 维修方法 = '" & Combo1(3).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(2).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障描述 = '" & Combo1(2).Text & "' And 故障原因 ='" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(2).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障描述 = '" & Combo1(2).Text & "' And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(3).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "'And 维修方法 = '" & Combo1(3).Text & "'And 故障原因 = '" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(3).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 维修方法 = '" & Combo1(3).Text & "' And 维修人 = '" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(1).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障代码 = '" & Combo1(1).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(2).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障描述 = '" & Combo1(2).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(3).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 维修方法 = '" & Combo1(3).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 故障原因 = '" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 机型 ='" & Combo1(0).Text & "' And 维修人 = '" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(1).Text <> "" And Combo1(2).Text <> "" Then
   rs_c.Open "select * from 录入表 where 故障代码 ='" & Combo1(1).Text & "' And 故障描述 ='" & Combo1(2).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(1).Text <> "" And Combo1(3).Text <> "" Then
   rs_c.Open "select * from 录入表 where 故障代码 ='" & Combo1(1).Text & "' And 维修方法 ='" & Combo1(3).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(1).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 故障代码 ='" & Combo1(1).Text & "' And 故障原因 ='" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(1).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 故障代码 ='" & Combo1(1).Text & "'And 维修人 ='" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(2).Text <> "" And Combo1(3).Text <> "" Then
   rs_c.Open "select * from 录入表 where 故障描述 ='" & Combo1(2).Text & "' And 维修方法 ='" & Combo1(3).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(2).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 故障描述 ='" & Combo1(2).Text & "' And 故障原因 ='" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(2).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 故障描述 ='" & Combo1(2).Text & "' And 维修人 = '" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(3).Text <> "" And Combo1(4).Text <> "" Then
   rs_c.Open "select * from 录入表 where 维修方法 ='" & Combo1(3).Text & "' And 故障原因 = '" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(3).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 维修方法 ='" & Combo1(3).Text & "'And 维修人 = '" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(4).Text <> "" And Combo1(5).Text <> "" Then
   rs_c.Open "select * from 录入表 where 故障原因 ='" & Combo1(4).Text & "'And 维修人 = '" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(0).Text <> "" Then
 rs_c.Open "select * from 录入表 where 机型 = '" & Combo1(0).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(1).Text <> "" Then
  rs_c.Open "select * from 录入表 where 故障代码 = '" & Combo1(1).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
ElseIf Combo1(2).Text <> "" Then
  rs_c.Open "select * from 录入表 where 故障描述 ='" & Combo1(2).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(3).Text <> "" Then
  rs_c.Open "select * from 录入表 where 维修方法 ='" & Combo1(3).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(4).Text <> "" Then
  rs_c.Open "select * from 录入表 where 故障原因 ='" & Combo1(4).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
ElseIf Combo1(5).Text <> "" Then
  rs_c.Open "select * from 录入表 where 维修人 = '" & Combo1(5).Text & "'", cn_c, adOpenKeyset, adLockOptimistic
GoTo kk
End If
kk:
 If Not rs_c.EOF Then
    While Not rs_c.EOF
            MSFlexGrid1.AddItem Empty
            MSFlexGrid1.Row = j
    For i = 0 To rs_c.Fields.Count - 1
        If rs_c(i).Value = Null Then
           MSFlexGrid1.Text = Null
        End If
        MSFlexGrid1.Col = i
        MSFlexGrid1.Text = rs_c.Fields(i)
    Next
    rs_c.MoveNext
        j = j + 1
   Wend
Else
   MsgBox "很抱歉！没有找到相关记录！"
End If
  rs_c.Close
For i = 0 To 5
Combo1(i).Text = ""
Next i
End Sub

Private Sub Command10_Click()
 Unload Me
End Sub

Private Sub Command11_Click()
Call gy_load
    rs_c.Open "select * from 用户表 where 用户名='" & Text4.Text & "'", cn_c, adOpenKeyset, adLockOptimistic
If Not rs_c.EOF Then
   ok = MsgBox("确定要删除该用户吗？", vbOKCancel + vbOKOnly)
   If ok = 1 Then
       rs_c.Delete
       rs_c.Update
       rs_c.MoveNext
   Else
     Exit Sub
   End If
Else
   MsgBox "没有该用户！"
End If
  rs_c.Close
mxf
End Sub

Private Sub Command12_Click()
 Unload Me
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Command3_Click()
 rs_d.Recordset.MoveFirst
'Label10.Caption = DataGrid1.
End Sub

Private Sub Command4_Click()
 If rs_d.Recordset.BOF = True Then
    rs_d.Recordset.MoveFirst
 Else
    rs_d.Recordset.MovePrevious
 End If
End Sub

Private Sub Command5_Click()
If rs_d.Recordset.EOF = True Then
   rs_d.Recordset.MoveLast
Else
  rs_d.Recordset.MoveNext
End If
End Sub

Private Sub Command6_Click()
  rs_d.Recordset.MoveLast
End Sub

Private Sub Command7_Click()
ok = MsgBox("确认要删除吗？", vbOKCancel + vbOKOnly)
If ok = 1 Then
rs_d.Recordset.Delete
rs_d.Recordset.Update
Else
Exit Sub
End If
End Sub

Private Sub Command8_Click()
  Unload Me
End Sub

Private Sub Command9_Click()
Call gy_load
    rs_c.Open "select * from 用户表 where 用户名='" & Text1.Text & "'", cn_c, adOpenKeyset, adLockOptimistic
If Not rs_c.EOF = True Then
   MsgBox "已有该用户，请重新输入！"
   Text1.SetFocus
Else
  If Text2.Text <> Text3.Text Then
     MsgBox "两次输入的密码不一致，请重新输入！"
   Else
      If Option1.Value = True Or Option2.Value = True Then
          rs_c.AddNew
          rs_c.Fields(0) = Text1.Text
          rs_c.Fields(1) = Text2.Text
          If Option1.Value = True Then
             rs_c.Fields(2) = Option1.Caption
          Else
             rs_c.Fields(2) = Option2.Caption
          End If
          rs_c.Update
          rs_c.MoveNext
       Else
          MsgBox "请选择用户类型！"
          Option2.Value = True
       End If
  End If
 End If
 rs_c.Close
 mxf
End Sub

Private Sub Form_Load()
mxf
 rs_c.Close
If nam = "admin" Then
   SSTab1.TabVisible(1) = True
   SSTab1.TabVisible(2) = True
 ElseIf nam = "konka" Then
   SSTab1.TabVisible(1) = True
   SSTab1.TabVisible(2) = False
 Else
  SSTab1.TabVisible(1) = False
  SSTab1.TabVisible(2) = False
End If
For i = 0 To 5
j = 0
Call gy_load
    rs_c.Open "select * from 录入表", cn_c, adOpenKeyset, adLockOptimistic
    While Not rs_c.EOF
            Combo1(i).List(j) = rs_c.Fields(i)
            j = j + 1
            rs_c.MoveNext
    Wend
 Next i
    rs_c.Close
 For i = 0 To 5
 For j = Combo1(i).ListCount - 1 To 0 Step -1
   For k = j - 1 To 0 Step -1
       If Combo1(i).List(j) = Combo1(i).List(k) Then
           Combo1(i).RemoveItem j
        If Combo1(i).List(j) = Null Then
          Combo1(i).RemoveItem j
      End If
      End If
      k = k - 1
   Next k
  Next j
  Next i
End Sub

Private Sub SSTab1_DblClick()
j = 1
Dim r(6) As String
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = 7
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "机型"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "故障代码"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "故障描述"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "维修方法"
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = "故障原因"
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = "维修人"
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = "维修日期"
Call gy_load
    rs_c.Open "select * from 录入表", cn_c, adOpenKeyset, adLockOptimistic
    If Not rs_c.EOF Then
    While Not rs_c.EOF
            DataGrid1.AddItem Empty
            DataGrid1.Row = j
    For i = 0 To rs_c.Fields.Count - 1
        If rs_c(i).Value = Null Then
           DataGrid1.Text = Null
        End If
        DataGrid1.Col = i
        DataGrid1.Text = rs_c.Fields(i)
    Next
    rs_c.MoveNext
        j = j + 1
   Wend
   rs_c.Close
End If
End Sub