📄 accountlist.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSRDC.MSRDC datCustom
Height = 330
Index = 3
Left = 2010
Top = 4380
Visible = 0 'False
Width = 1335
_ExtentX = 2350
_ExtentY = 593
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSRDC.MSRDC datCustom
Height = 330
Index = 4
Left = 870
Top = 4380
Visible = 0 'False
Width = 1335
_ExtentX = 2350
_ExtentY = 593
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSRDC.MSRDC datCustom
Height = 330
Index = 5
Left = -90
Top = 4350
Visible = 0 'False
Width = 1335
_ExtentX = 2371
_ExtentY = 572
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSForms.CommandButton cmdEAR
Height = 345
Index = 3
Left = 3660
TabIndex = 16
TabStop = 0 'False
Top = 5700
Visible = 0 'False
Width = 1215
Caption = "财务预算(B)"
Size = "2143;609"
Accelerator = 66
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdEAR
Height = 345
Index = 2
Left = 2460
TabIndex = 15
TabStop = 0 'False
Top = 5700
Visible = 0 'False
Width = 1215
Caption = "科目期初(Q)"
Size = "2143;609"
Accelerator = 81
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblFindKind
Caption = "查找(&B)"
DragMode = 1 'Automatic
Height = 204
Left = 48
TabIndex = 0
Top = 150
Width = 684
End
Begin VB.Label lblFind
Caption = "内容(&C)"
Height = 228
Left = 3636
TabIndex = 2
Top = 138
Width = 756
End
Begin MSForms.CommandButton cmdEAR
Height = 345
Index = 0
Left = 45
TabIndex = 12
Tag = "1018"
Top = 3600
Width = 1215
Caption = "编辑"
PicturePosition = 196613
Size = "2138;614"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdEAR
Height = 345
Index = 1
Left = 1260
TabIndex = 14
TabStop = 0 'False
Tag = "1018"
Top = 5700
Visible = 0 'False
Width = 1215
Caption = "报表"
PicturePosition = 196613
Size = "2138;614"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Attribute VB_Name = "frmAccountList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''
' 会计科目列表
' 作者：欧中建
' 日期:98.6.23
''1.1 所用类模块：List
'1.2 所用钩子函数：mclsSubClass，mclsSubClassForm。
'功能: 显示本帐套所有的科目
''''''''''''''''''''''''''''''''
Option Explicit
Private mIsShowCard(2) As Boolean '卡片窗口显示标志
Private mblnCheckNoChange As Boolean '不需要响应chkshowAll控件Change事件
Private mblnComboxNoClick As Boolean
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private WithEvents mclsSubClass As SubClass32.SubClass '钩子对象
Attribute mclsSubClass.VB_VarHelpID = -1
Private WithEvents mclsSubClassform As SubClass32.SubClass
Attribute mclsSubClassform.VB_VarHelpID = -1
Private mclsList(5) As list '列表对象
Private blnIsLoad(5) As Boolean '相应页是否加载
Private intViewID(5) As Integer '相应页的视图的ID值
Private intWinFormState As Integer '窗体的状态
'Private blnNoDoEvents As Boolean
'
'方法及函数(Function and Methon)
'
'产生部门职员列表记录集(Product a recordset)
Public Function GetList(ByVal intTab As Integer) As rdoResultset
Dim recRecordset As rdoResultset
Dim strSelectOfSql As String
Dim strFromOfSql As String
Dim strWhereOfSql As String
Dim strSql As String
'组织SQL语句
strSelectOfSql = mclsList(intTab).ListSet.GetSelect
'#If conVersionType = 4 Then
' strSelectOfSql = strReplace(strSelectOfSql, ",IIF(Account.blnIsMultCurrency,'多币种','')+IIF(Account.blnIsAllCurrency,'全部币种','') As [外币核算]", "")
' strSelectOfSql = strReplace(strSelectOfSql, ",IIF(Account.blnIsQuantity,Account.strQuantityUnit,'') As [数量单位]", "")
' strSelectOfSql = strReplace(strSelectOfSql, ",IIF(Account.blnIsQuantity,'√','') As [数量核算]", "")
'#End If
strFromOfSql = mclsList(intTab).ListSet.FromOfSql
strWhereOfSql = mclsList(intTab).ListSet.WhereOfSql
strSelectOfSql = "Select Account.lngAccountID As id,decode(Account.blnIsInActive,1,'√','') As ""停用""," & strSelectOfSql
If Trim(strWhereOfSql) <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
strSql = strSelectOfSql & strFromOfSql & strWhereOfSql
'Debug.Print strSql
'执行SQL 获得记录集
Set recRecordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
'列表是否为空
If recRecordset.RowCount = 0 Then
mclsList(intTab).FlexGrid.HighLight = flexHighlightNever
cmdAgain.Enabled = False
Else
mclsList(intTab).FlexGrid.HighLight = flexHighlightAlways
cmdAgain.Enabled = True
End If
mclsList(intTab).ShowAll = True
Set GetList = recRecordset
End Function
'调用接口
Public Function Showlist(ByVal lngID As Long, Optional intTab As Integer = 0) As Boolean
Dim intCount As Integer
Dim strSortField As String
Dim strSortDec As String
Dim strSql As String
Dim recTemp As rdoResultset
Dim strofFrom As String
Dim strofWhere As String
With frmMain.mnuListAccount
If IsNumeric(.Tag) Then
If CLng(.Tag) > 0 Then
BringWindowToTop .Tag
Else
Me.BindingResultSet
End If
Else
Me.BindingResultSet
End If
End With
' Me.Show
' Me.ZOrder 0
Me.sstCustom.Tab = intTab
'得到排序字段
With mclsList(intTab).ListSet
For intCount = 1 To .Columns
If .ColumnOrderType(intCount) <> 0 Then
strSortField = .ColumnFieldName(intCount)
strSortDec = .ColumnDesc(intCount)
Exit For
End If
Next
If intCount > .Columns Then
Showlist = False
Exit Function
End If
strofFrom = .FromOfSql
strofWhere = .WhereOfSql
End With
'根据lngID得到排序字段值
strSql = "Select " & strSortField & " As " & strSortDec
If strofWhere <> "" Then
strofWhere = " where " & strofWhere & " and Account.lngaccountID=" & lngID
Else
strofWhere = " where Account.lngAccountID=" & lngID
End If
strSql = strSql & strofFrom & strofWhere
Set recTemp = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
With recTemp
If .RowCount > 0 Then
txtFind.Text = recTemp(strSortDec) '查找
With mclsList(intTab).FlexGrid
If .TextMatrix(.Row, 0) = lngID Then '是否找到
Showlist = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -