求VB 財(cái)務(wù)軟件源碼或教程

這個(gè)是用友財(cái)務(wù)8.5的vb代碼

成都創(chuàng)新互聯(lián)專注于前進(jìn)網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供前進(jìn)營(yíng)銷型網(wǎng)站建設(shè)，前進(jìn)網(wǎng)站制作、前進(jìn)網(wǎng)頁(yè)設(shè)計(jì)、前進(jìn)網(wǎng)站官網(wǎng)定制、微信小程序開(kāi)發(fā)服務(wù)，打造前進(jìn)網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供前進(jìn)網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。

左邊武漢IDC可以下，我試過(guò)

加載后會(huì)報(bào)N多錯(cuò)，不過(guò)代碼能看

求vb.net的源代碼，最好說(shuō)明其解決問(wèn)題，越多越好，滿意加50分。

下面這段代碼，是我用來(lái)計(jì)算每個(gè)月存500元進(jìn)銀行，連續(xù)30年，最后連本帶利能有多少錢。這里面涉及復(fù)利計(jì)算。界面中右邊的文本框用來(lái)輸出每一次計(jì)算的結(jié)果。

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 '大復(fù)利

? Dim fuli_small As Long '小復(fù)利

? Dim i As Integer '循環(huán)變量

? Dim DATAstring As String '數(shù)據(jù)字符串

? nianxian = Val(年限_TextBox.Text)

? dingcun = Val(定存_TextBox.Text)

? DATAstring = ""

? For i = 1 To nianxian

? ? ? fuli_small = dingcun * (1 + 0.1875)

? ? ? dingcun = fuli_small

? ? ? fuli_big = fuli_big + fuli_small

? ? ? DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

? ? ? 'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

? Next

? 'fuli_big = fuli_small

? TextBox1.Text = DATAstring

? 結(jié)果_TextBox.Text = Str(fuli_big) + "元"

End Sub

VB.NET獲取需要登錄后的源碼

很簡(jiǎn)單的。這個(gè)最基本的了。

就是從數(shù)據(jù)庫(kù)表中 找出一個(gè)記錄，名稱和密碼都和你輸入的一樣的記錄，就表示登陸成功。

簡(jiǎn)單的思路：（密碼也沒(méi)有加密等）

dim dt As New DataTable

dim cmd As New SqlCommand

With cmd

.CommandText = "Select * From Users Where UserName=@UserName and UserPwd=@UserPwd"

.Parameters.Add(New SqlClient.SqlParameter("@UserName", "=你輸入的用戶名TextBox1.Text"))

.Parameters.Add(New SqlClient.SqlParameter("@strColorNo", "=你輸入的密碼TextBox2.Text"))

End With

dt =SqlHelper.GetDatatable(cmd)

if dt.rows.count0 then

msgbox "ok"

else

msgbox "error"

end if