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]
VB电表管理信息系统 第20页下载如图片无法显示或论文不完整，请联系qq752018766
