VB电表管理信息系统 第20页
Private Sub nextuser_Click()
 Dim rst As New ADODB.Recordset
Dim sqlEdit As String
sqlEdit = "select * from panelinfo   "
    sqlEdit = sqlEdit & " where holderid<>'" & Trim(txtUserName(0)) & "'and delflag<>true "
     rst.Open sqlEdit, gCnn, adOpenStatic, adLockBatchOptimistic
 If buttontime = False Then  
    If Not rst.EOF Then   
        txtUserName(0) = rst.Fields(1)
        txtUserName(1) = rst.Fields(2)
        txtUserName(2) = rst.Fields!cendcode
        dtpwdate(0).Value = rst.Fields(4)
        buttontime = True
   End If
Else
    rst.MoveNext
    If Not rst.EOF Then
        txtUserName(0) = rst.Fields(1)
        txtUserName(1) = rst.Fields(2)
        txtUserName(2) = rst.Fields!cendcode
        dtpwdate(0).Value = rst.Fields(4)
        buttontime = True
   End If
End If
End Sub
Private Sub txtUserName_KeyPress(Index As Integer, KeyAscii As Integer)
If Index = 9 Then
    If KeyAscii <> 8 And KeyAscii <> 46 And KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End If
End Sub
6. 数据导入界面设计:

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]