电表管理系统VB(四)

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

es, "####0.00")
        txtUserName(8) = rst.Fields(9)
        txtUserName(7) = Format(Val(txtUserName(5)) + Val(txtUserName(6)), "####0.00")
        rst.Fields!cFeeMoney = txtUserName(7)
        rst.UpdateBatch adAffectCurrent
    End If
    rst.Close
    cnn.Close
   
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
gCnn.Close
Set gcon = Nothing
End Sub

Private Sub mgcf_Click()
frmFeefind.Show
E

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/8/8