左边武汉IDC可以下,我试过
加载后会报N多错,不过代码能看
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
? ? Dim nianxian As Integer '年限变量
? ? Dim dingcun As Integer '定存变量
? ? Dim fuli_big As Long '大复利
? ? Dim fuli_small As Long '小复利
? ? Dim i As Integer '循环变量
? ? Dim DATAstring As String '数据字符串
? ? nianxian = Val(年限_TextBox.Text)
? ? dingcun = Val(定存_TextBox.Text)
? ? DATAstring = ""
? ? For i = 1 To nianxian
? ? ? ? dingcun = fuli_small
? ? ? ? fuli_big = fuli_big + fuli_small
? ? Next
? ? 'fuli_big = fuli_small
? ? TextBox1.Text = DATAstring
? ? 结果_TextBox.Text = Str(fuli_big) + "元"
End Sub
很简单的.这个最基本的了.
就是从数据库表中 找出一个记录,名称和密码都和你输入的一样的记录,就表示登陆成功.
简单的思路:(密码也没有加密等)
dim dt As New DataTable
dim cmd As New SqlCommand
With cmd
.Parameters.Add(New SqlClient.SqlParameter("@UserName", "=你输入的用户名TextBox1.Text"))
End With
dt =SqlHelper.GetDatatable(cmd)
if dt.rows.count0 then
msgbox "ok"
else
msgbox "error"
end if
以上就是土嘎嘎小编为大家整理的vb.net财务源码相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!