毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VB电表管理信息系统 第5页

更新时间:2010-4-5:  来源:毕业论文
VB电表管理信息系统 第5页
主界面代码设计:
Private Sub alllm_Click()
frmList.qfFlg = False
frmList.Show
End Sub

Private Sub backup_Click()
   frmbeifen.Show
End Sub

Private Sub benrixiaojie_Click()
frmCount.Show
End Sub

Private Sub Command1_Click()
frameFee.Visible = False
End Sub

Private Sub cmdQuery_Click()
 Dim rst As New ADODB.Recordset
   
      rst.Open " select * from panelinfo  where holder='" & Me.txtUser & "' and delflag<>true ", gCnn, adOpenStatic, adLockBatchOptimistic
    
    If rst.RecordCount <> 0 Then
        dcvalue.Text = rst.Fields(2)
        txtUserName(0) = rst.Fields(1)
        txtUserName(1) = rst.Fields!nowecount
        txtUserName(2) = rst.Fields!cendcode
        dtpwdate.Value = rst.Fields(4)
        txtUserName(3) = Format(rst.Fields!lMoney, "###0.00")
        txtUserName(4) = Format(rst.Fields!bmoney, "###0.00")
        txtUserName(6) = Format(rst.Fields!lsFee, "###0.00")
        'txtUserName(5) = txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 100)
        txtUserName(5) = Format(txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + rst.Fields!nowecount * rst.Fields!bmoney * (1 - rst.Fields!lightScale / 100), "###0.00")
       
        txtUserName(8) = rst.Fields(9)
        txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), "####0.00")
        dcNum.Text = rst.Fields(1)
  Else
        MsgBox " 没有查询到数据!  ", vbInformation
  End If
  rst.Close
  Set rst = Nothing
End Sub

Private Sub dcNum_Click(Area As Integer)
  Dim rst As New ADODB.Recordset
   
    rst.Open " select * from panelinfo  where holderid='" & dcNum.Text & "'and delflag<>true ", gCnn, adOpenKeyset, adLockBatchOptimistic
   
    If Not rst.EOF Then
        dcvalue.Text = rst.Fields(2)
        txtUserName(0) = rst.Fields(1)
        txtUserName(1) = rst.Fields!nowecount
        txtUserName(2) = rst.Fields!cendcode
        dtpwdate.Value = rst.Fields(4)
        txtUserName(3) = Format(rst.Fields!lMoney, "###0.00")
        txtUserName(4) = Format(rst.Fields!bmoney, "###0.00")
        txtUserName(6) = Format(rst.Fields(8), "####0.00")
        txtUserName(5) = Format(txtUserName(1) * txtUserName(3) * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 100), "####0.00")
        txtUserName(8) = rst.Fields(9)
        txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), "####0.00")
  End If
  rst.Close
End Sub

Private Sub dcvalue_Click(Area As Integer)
     Dim rst As New ADODB.Recordset
   
      rst.Open " select * from panelinfo  where holderid='" & dcvalue.BoundText & "' and delflag<>true ", gCnn, adOpenStatic, adLockBatchOptimistic 
    If Not rst.EOF Then
        dcvalue.Text = rst.Fields(2)
        txtUserName(0) = rst.Fields(1)
        txtUserName(1) = rst.Fields!nowecount
        txtUserName(2) = rst.Fields!cendcode
        dtpwdate.Value = rst.Fields(4)
        txtUserName(3) = Format(rst.Fields!lMoney, "###0.00")
        txtUserName(4) = Format(rst.Fields!bmoney, "###0.00")
        txtUserName(6) = Format(rst.Fields!lsFee, "###0.00")
        'txtUserName(5) = txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 100)
        txtUserName(5) = Format(txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + rst.Fields!nowecount * rst.Fields!bmoney * (1 - rst.Fields!lightScale / 100), "###0.00")
                txtUserName(8) = rst.Fields(9)
        txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), "####0.00")
        dcNum.Text = rst.Fields(1)
  End If
  rst.Close
  Set rst = Nothing
End Sub
Private Sub dcvalue_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub del_Click()
frmdel.Show
End Sub
Private Sub dhcb_Click()
usrcopyP.Show
End Sub
Private Sub dhcp_Click()
frmCopyP.Show
End Sub
Private Sub duohu_Click()
frmCuifei.muser1 = 2
frmCuifei.Show
End Sub
Private Sub edit_Click()
frmEdit.Show
End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VB电表管理信息系统 第5页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。