📄 frm_accountbook.frm
字号:
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc4"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc2
Height = 345
Left = 30
Top = 435
Visible = 0 'False
Width = 1890
_ExtentX = 3334
_ExtentY = 609
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc1
Height = 345
Left = 30
Top = 120
Visible = 0 'False
Width = 1890
_ExtentX = 3334
_ExtentY = 609
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc adoAccount
Height = 345
Left = 30
Top = 1395
Visible = 0 'False
Width = 2175
_ExtentX = 3836
_ExtentY = 609
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "adoAccount"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc5
Height = 345
Left = 30
Top = 1740
Visible = 0 'False
Width = 2175
_ExtentX = 3836
_ExtentY = 609
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc5"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Begin MSFlexGridLib.MSFlexGrid MS1
Height = 4305
Left = 60
TabIndex = 0
Top = 870
Width = 10890
_ExtentX = 19209
_ExtentY = 7594
_Version = 393216
TextStyleFixed = 1
AllowUserResizing= 3
End
End
Attribute VB_Name = "frm_accountBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim billcode, BCsource As String
Dim sellcode, SCsource As String
Dim BC As String
Dim SC As String
Dim ms As Integer '计算MS1控件开始到那一行了
Private Sub Form_Load()
Call conAdo
Me.Caption = Me.Caption + " " + CStr(frm_addDate.DTPicker1.Value) + "至" + CStr(frm_addDate.DTPicker2.Value)
BCsource = "JH" '进货字符串标识
SCsource = "XS" '销售字符串标识
On Error Resume Next '没有记录时错误处理
Label4.Caption = frm_unitsList.adoCount.Recordset.Fields(0).Value
Call MSF1 '使用Call语句调用自定义过程MSF1（）-----初始化MSFleshGrid控件
'ADO控件的RecordSource执行SQL语句
adoAccount.RecordSource = "SELECT * FROM tbS_currentaccount WHERE units='" + frm_unitsList.adoCount.Recordset.Fields(0).Value + "' AND billdate BETWEEN '" & frm_addDate.DTPicker1.Value & "'AND '" & frm_addDate.DTPicker2.Value & "'"
adoAccount.Refresh
If adoAccount.Recordset.RecordCount > 0 Then
For i = 0 To adoAccount.Recordset.RecordCount - 1
BC = adoAccount.Recordset.Fields(1).Value '提取单据号判断是进货还是进货退货。
billcode = Mid(BC, 9, 4)
For ms = 1 To MS1.Rows '判断数据录入到那一行
If MS1.TextMatrix(ms, 1) = "" Then Exit For
Next ms
'/////////////////////////////////////////////////////////////////////////////////////////
If billcode = "JHTH" Then '为进货退货
'ADO控件的RecordSource执行SQL语句
Adodc2.RecordSource = " select * from tbS_rewarehouse_detailed where (billcode='" + BC + "')ORDER BY tsum"
Adodc2.Refresh
Adodc4.RecordSource = " select * from tbS_rewarehouse_main where billcode='" + BC + "'"
Adodc4.Refresh
MS1.Rows = MS1.Rows + Adodc2.Recordset.RecordCount '创建MSFlexGrid表格行数
MS1.Rows = MS1.Rows - 1
If Adodc2.Recordset.RecordCount > 0 Then
For j = ms To ms + Adodc2.Recordset.RecordCount '将进货退货的往来对账 条目 添加到 MSFlexGrid控件中
MS1.TextMatrix(j, 1) = Adodc2.Recordset.Fields("billdate")
MS1.TextMatrix(j, 2) = Adodc2.Recordset.Fields(0)
On Error Resume Next
MS1.TextMatrix(j, 3) = "进货退货：【" & Adodc2.Recordset.Fields("fullname") & "】" & Adodc2.Recordset.Fields("qty") & " * " & Adodc2.Recordset.Fields("price") & " ：" & Adodc4.Recordset.Fields("handle")
MS1.TextMatrix(j, 4) = Adodc2.Recordset.Fields("tsum")
MS1.TextMatrix(j, 5) = Adodc4.Recordset.Fields("gathering")
Adodc2.Recordset.MoveNext
Adodc4.Recordset.MoveNext
If Adodc2.Recordset.EOF Then Exit For
Next j
'''''''''''''''''''''''''''''''''''''''''''''''''''当在您出现你的文本行内，出现空白时，请记住，问题源自“SQL语句排序”
Adodc4.Recordset.MoveFirst '将记录移动到下一条
'ADO控件的RecordSource执行SQL语句
Adodc5.RecordSource = "select * from tbS_rewarehouse_detailed where (billcode='" + BC + "')ORDER BY tsum"
Adodc5.Refresh
If Adodc5.Recordset.RecordCount > 0 Then
For m = 1 To 99
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -