📄 frmaccountlist.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmAccountList
Caption = "科目列表"
ClientHeight = 4092
ClientLeft = 48
ClientTop = 312
ClientWidth = 7068
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4092
ScaleWidth = 7068
Begin VB.TextBox txtFind
Height = 300
Left = 4410
TabIndex = 3
Text = "Text1"
Top = 24
Width = 1815
End
Begin VB.CommandButton cmdAgain
BeginProperty Font
Name = "Arial Black"
Size = 10.8
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 6225
Style = 1 'Graphical
TabIndex = 4
Tag = "1017"
Top = 24
UseMaskColor = -1 'True
Width = 300
End
Begin VB.ComboBox cboFindKind
Height = 276
Left = 870
Style = 2 'Dropdown List
TabIndex = 1
Top = 24
Width = 1515
End
Begin VB.CheckBox chkShowall
Caption = "全部显示"
Height = 350
Left = 4440
TabIndex = 9
Top = 3384
Width = 1035
End
Begin VB.Data datCustom
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 324
Index = 0
Left = 5820
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3840
Visible = 0 'False
Width = 1140
End
Begin VB.Data datCustom
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 324
Index = 1
Left = 4650
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3840
Visible = 0 'False
Width = 1140
End
Begin VB.Data datCustom
Caption = "Data3"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 324
Index = 2
Left = 3510
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3840
Visible = 0 'False
Width = 1140
End
Begin VB.Data datCustom
Caption = "Data4"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 324
Index = 3
Left = 2310
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3840
Visible = 0 'False
Width = 1140
End
Begin VB.Data datCustom
Caption = "Data5"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Index = 4
Left = 1170
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3840
Visible = 0 'False
Width = 1140
End
Begin VB.Data datCustom
Caption = "Data6"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 324
Index = 5
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3840
Visible = 0 'False
Width = 1140
End
Begin TabDlg.SSTab sstCustom
Height = 2532
Left = 48
TabIndex = 5
Top = 504
Width = 6612
_ExtentX = 11663
_ExtentY = 4466
_Version = 327681
Style = 1
Tabs = 6
Tab = 1
TabsPerRow = 6
TabHeight = 529
TabCaption(0) = "全称(&O) "
TabPicture(0) = "AccountList.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "msgCustom0"
Tab(0).ControlCount= 1
TabCaption(1) = "资产(&D)"
TabPicture(1) = "AccountList.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "msgCustom1"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
TabCaption(2) = "负债(&M)"
TabPicture(2) = "AccountList.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "msgCustom2"
Tab(2).ControlCount= 1
TabCaption(3) = "权益(&P)"
TabPicture(3) = "AccountList.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "msgCustom3"
Tab(3).ControlCount= 1
TabCaption(4) = "成本(&N)"
TabPicture(4) = "AccountList.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "msgCustom4"
Tab(4).ControlCount= 1
TabCaption(5) = "损益(&K)"
TabPicture(5) = "AccountList.frx":008C
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "msgCustom5"
Tab(5).ControlCount= 1
Begin MSFlexGridLib.MSFlexGrid msgCustom2
Bindings = "AccountList.frx":00A8
Height = 1908
Left = -74952
TabIndex = 14
Top = 408
Width = 6348
_ExtentX = 11197
_ExtentY = 3366
_Version = 65541
FixedCols = 0
BackColor = 16777215
BackColorFixed = -2147483644
BackColorSel = -2147483646
BackColorBkg = 16777215
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
End
Begin MSFlexGridLib.MSFlexGrid msgCustom5
Bindings = "AccountList.frx":00BF
Height = 1845
Left = -74790
TabIndex = 10
Top = 450
Width = 6165
_ExtentX = 10880
_ExtentY = 3239
_Version = 65541
FixedCols = 0
BackColor = 16777215
BackColorFixed = -2147483644
BackColorSel = -2147483646
BackColorBkg = 16777215
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
End
Begin MSFlexGridLib.MSFlexGrid msgCustom4
Bindings = "AccountList.frx":00D6
Height = 2055
Left = -74820
TabIndex = 11
Top = 420
Width = 6315
_ExtentX = 11134
_ExtentY = 3620
_Version = 65541
FixedCols = 0
BackColor = 16777215
BackColorFixed = -2147483644
BackColorSel = -2147483646
BackColorBkg = 16777215
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
End
Begin MSFlexGridLib.MSFlexGrid msgCustom1
Bindings = "AccountList.frx":00ED
Height = 1905
Left = 120
TabIndex = 12
Top = 450
Width = 6345
_ExtentX = 11197
_ExtentY = 3344
_Version = 65541
FixedCols = 0
BackColor = 16777215
BackColorFixed = -2147483644
BackColorSel = -2147483646
BackColorBkg = 16777215
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
End
Begin MSFlexGridLib.MSFlexGrid msgCustom0
Bindings = "AccountList.frx":0104
Height = 1965
Left = -74880
TabIndex = 6
Top = 420
Width = 6315
_ExtentX = 11134
_ExtentY = 3471
_Version = 65541
Cols = 3
FixedCols = 0
BackColor = 16777215
BackColorFixed = -2147483644
BackColorSel = -2147483646
BackColorBkg = 16777215
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 1
End
Begin MSFlexGridLib.MSFlexGrid msgCustom3
Bindings = "AccountList.frx":011B
Height = 1905
Left = -74820
TabIndex = 13
Top = 420
Width = 6315
_ExtentX = 11134
_ExtentY = 3366
_Version = 65541
FixedCols = 0
BackColor = 16777215
BackColorFixed = -2147483644
BackColorSel = -2147483646
BackColorBkg = 16777215
AllowBigSelection= 0 'False
FocusRect = 0
SelectionMode = 1
End
End
Begin VB.Label lblFindKind
Caption = "查找(&F)"
DragMode = 1 'Automatic
Height = 204
Left = 48
TabIndex = 0
Top = 72
Width = 684
End
Begin VB.Label lblFind
Caption = "内容(&C)"
Height = 228
Left = 3636
TabIndex = 2
Top = 84
Width = 756
End
Begin MSForms.CommandButton cmdEAR
Height = 348
Index = 0
Left = 48
TabIndex = 7
Tag = "1018"
Top = 3324
Width = 1212
Caption = "编辑"
PicturePosition = 196613
Size = "2143;617"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdEAR
Height = 348
Index = 1
Left = 1260
TabIndex = 8
Tag = "1018"
Top = 3324
Width = 1212
Caption = "报表"
PicturePosition = 196613
Size = "2143;617"
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(1) 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
'Private mblnIsSaveListset(5) As Boolean 'Whether or not save lngViewID in List
'
'方法及函数
'
'产生部门职员列表记录集
Public Function GetList(ByVal intTab As Integer) As Recordset
Dim recRecordset As Recordset
Dim strSelectOfSql As String
Dim strFromOfSql As String
Dim strWhereOfSql As String
Dim Strsql As String
strSelectOfSql = mclsList(intTab).ListSet.SelectOfSql
strFromOfSql = mclsList(intTab).ListSet.FromOfSql
strWhereOfSql = mclsList(intTab).ListSet.WhereOfSql
strSelectOfSql = "Select Account.lngAccountID As id,IIF(Account.blnIsInActive,'√','') As 停用," & strSelectOfSql
If strWhereOfSql <> "" Then
strWhereOfSql = " Where " & strWhereOfSql
End If
Strsql = strSelectOfSql & strFromOfSql & strWhereOfSql
'Debug.Print strSql
Set recRecordset = gclsBase.BaseDB.OpenRecordset(Strsql, dbOpenSnapshot)
'列表是否为空
If recRecordset.RecordCount = 0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -