VB 源码解释（50分到80分）

来源：百度知道 编辑：UC知道 时间：2024/05/31 07:16:10
源码太长，请到我的空间去查看一下，谢谢。http://hi.baidu.com/w%BA%AE%B7%E3w/blog/item/92a138b3fcacf9aed8335ae6.html
请高手逐行解释一下源码，谢谢~
主要是有一些语气我看着不懂，希望高手赐教一下，不胜感激……
诸位高人，如果可以请加一下我的Q53884234，这样子方便交流些，谢谢……

这个问题不大，我做过类似的，我和你一起做做……

大致看了下 不难只是数据库的操作而已 有空我帮你

很正规的数据库操作，不难的，慢慢看！要么你HI我吧！

是不是挣流量的呀。

Private Function GetAreaString(m As Long) As String
GetAreaString = CStr(m) & "平方米（" & CStr(Round(m / 666.6667, 4)) & "亩）"
End Function

Private Sub OutputTXTFile(ByVal lpIndex As Integer)
On Error GoTo ErrorOut
Dim strTitle As String
Dim strTotal As String
Dim mStr As String
Dim mRst As ADODB.Recordset, sumTotal As Long
Dim mRst2 As ADODB.Recordset

strTitle = InputBox("请输入标题：", "标题", "平政镇平政村")

Open (App.Path & "\用地明细记录.txt") For Output As #1

strTotal = ""
mStr = "select 用地类型,sum(使用面积) As Sm from 用地登记 Group By 用地类型 Order By 用地类型"
Set mRst = New ADODB.Recordset
Set mRst2 = New ADODB.Recordset
mRst.Open mStr, mConn, adOpenKeys