📄 frmalisttemplate.frm
字号:
VERSION 5.00
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 frmAListTemplate
Caption = "摸版"
ClientHeight = 4725
ClientLeft = 45
ClientTop = 285
ClientWidth = 8565
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 4725
ScaleWidth = 8565
Begin VB.CheckBox chkShowall
Caption = "全部显示"
Height = 350
Left = 5250
TabIndex = 11
Top = 4350
Width = 1035
End
Begin VB.ComboBox cboFindKind
Height = 300
Left = 825
Style = 2 'Dropdown List
TabIndex = 1
Top = 24
Width = 1515
End
Begin VB.CommandButton cmdAgain
BeginProperty Font
Name = "Arial Black"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 6180
Style = 1 'Graphical
TabIndex = 4
Tag = "1017"
Top = 24
UseMaskColor = -1 'True
Width = 300
End
Begin VB.TextBox txtFind
Height = 300
Left = 4365
TabIndex = 3
Top = 24
Width = 1815
End
Begin VB.PictureBox pctDataGrid
Height = 2760
Left = 219
ScaleHeight = 2700
ScaleWidth = 8130
TabIndex = 6
Top = 1032
Width = 8196
End
Begin TabDlg.SSTab sstPages
Height = 3570
Left = 75
TabIndex = 5
Top = 504
Width = 8775
_ExtentX = 15478
_ExtentY = 6297
_Version = 393216
Style = 1
Tabs = 7
TabsPerRow = 7
TabHeight = 529
ForeColor = -2147483640
TabCaption(0) = "库存期初(&D)"
TabPicture(0) = "frmAListTemplate.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).ControlCount= 0
TabCaption(1) = "受托期初(&K)"
TabPicture(1) = "frmAListTemplate.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).ControlCount= 0
TabCaption(2) = "委托期初(&M)"
TabPicture(2) = "frmAListTemplate.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).ControlCount= 0
TabCaption(3) = "分期期初(&N)"
TabPicture(3) = "frmAListTemplate.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).ControlCount= 0
TabCaption(4) = "直运期初(&Q)"
TabPicture(4) = "frmAListTemplate.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).ControlCount= 0
TabCaption(5) = "加工期初(&X)"
TabPicture(5) = "frmAListTemplate.frx":008C
Tab(5).ControlEnabled= 0 'False
Tab(5).ControlCount= 0
TabCaption(6) = "采购期初(&P)"
TabPicture(6) = "frmAListTemplate.frx":00A8
Tab(6).ControlEnabled= 0 'False
Tab(6).ControlCount= 0
End
Begin MSForms.CommandButton cmdEAR
Height = 345
Index = 3
Left = 3645
TabIndex = 13
Top = 4350
WhatsThisHelpID = 5010
Width = 1215
Caption = "拜访资料(P)"
PicturePosition = 196613
Size = "2143;609"
Accelerator = 80
TakeFocusOnClick= 0 'False
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdEAR
Height = 345
Index = 2
Left = 2430
TabIndex = 12
Top = 4329
WhatsThisHelpID = 5010
Width = 1215
Caption = "折扣管理(Z)"
PicturePosition = 196613
Size = "2143;609"
Accelerator = 90
TakeFocusOnClick= 0 'False
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label lblEdit
Height = 264
Index = 0
Left = 2664
TabIndex = 9
Tag = "1018"
Top = 4392
Width = 696
BackColor = -2147483644
Caption = "业务"
PicturePosition = 327683
Size = "1228;466"
SpecialEffect = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label lblEdit
Height = 264
Index = 1
Left = 3360
TabIndex = 10
Tag = "1018"
Top = 4392
Width = 696
BackColor = -2147483644
Caption = "报表"
PicturePosition = 327683
Size = "1228;466"
SpecialEffect = 1
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdEAR
Height = 348
Index = 1
Left = 1212
TabIndex = 8
Tag = "1018"
Top = 4329
WhatsThisHelpID = 5010
Width = 1212
Caption = "报表"
PicturePosition = 196613
Size = "2138;614"
TakeFocusOnClick= 0 'False
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdEAR
Height = 345
Index = 0
Left = 0
TabIndex = 7
Tag = "1018"
Top = 4329
Width = 1215
Caption = "编辑"
PicturePosition = 196613
Size = "2143;617"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblFind
Caption = "内容(&C)"
Height = 228
Left = 3588
TabIndex = 2
Top = 60
Width = 756
End
Begin VB.Label lblFindKind
Caption = "查找(&B)"
DragMode = 1 'Automatic
Height = 204
Left = 0
TabIndex = 0
Top = 72
Width = 684
End
End
Attribute VB_Name = "frmAListTemplate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_Description = "Template Of All List"
Option Explicit
Private mclsList As ListGrid
Public WithEvents mclsMainControl As MainControl
Attribute mclsMainControl.VB_VarHelpID = -1
Public strListType As String
Public mHelpID As Long '帮助ID
Public mTitle As String '标题
Private mTabs As Integer '页数
Private mTabCaption() As String '页标题
Private mintViewId() As Integer '视图ID
Private mstrSelect() As String '
Private mstrWhere() As String '
Private mstrHaving() As String '
Private mstrGroupby() As String '
Private mintPrintID() As Integer '打印ID
Private mstrPrintTitle() As String '打印标题
Private mblnEditbyRight() As Boolean '权限控制
Private mintcEnableOnPageNo(7) As Integer '业面控制
Public blnReceptionList As Boolean '是否单据列表
Public blnIsReceptionWriteoff As Boolean '是否冲销单据
Private mblnIsFindTextChange As Boolean
Private mintSpMenu As Integer '自定义菜单数
Private mintSpPosition As Integer '自定义菜单位置
Private mstrSpMenuName() As String '自定义菜单名称
Private mintEnableOnPageNo() As Integer '自定义菜单业面控制
Private mblnConstant() As Boolean '自定义菜单一致性
Private mCallMenuPostion(7) As Integer '系统菜单位置
Private mblnIsload() As Boolean
Public blnIsHavingReport As Boolean '是否有报表
Private mintReportNo As Integer '报表数
Private mstrReportName() As String '报表名
Private mstrShowAllWhere() As String
Private IsFind As Boolean '
Private ComPleteLoad As Integer '
Event ListReorpt(ByVal Index As Integer) '
Public Event ListEdite() '
Event ListNew() '
Event ListDel() '
'Event ListInActive()
Event ListInActive(blnLevel As Boolean, blnSuceess As Boolean) '
Event ListShowAll() '
Event ListUserMenu(ByVal Index As Integer) '
Event ListUsed() '
Event ListChildActive() '
Event ListPrintReceipt() '
Event cmdMessage(ByVal Index As Integer) '表示是否有控件消息
Public blnIsDealMenu As Boolean '
Public blnunDefaultWhere As Boolean '
Private mblnEdit As Boolean '
Private mblnNew As Boolean '
Public Event ListPopBefore(blnNew As Boolean, blnEdit As Boolean)
Event ListPopAfter(ByVal blnNew As Boolean, ByVal blnEdit As Boolean)
Public blnIsItem As Boolean '是否是商品列表
Public blnIsEmployee As Boolean '是否是职员列表
'全部显示
Public Property Let ShowAll(ByVal Index As Integer, ByVal vNewValue As String)
mstrShowAllWhere(Index) = vNewValue
End Property
'报表数
Public Property Let ReportCount(ByVal vNewValue As Integer)
mintReportNo = vNewValue
ReDim mstrReportName(0 To mintReportNo - 1)
End Property
'报表名称
Public Property Let ReportName(ByVal Index As Integer, ByVal vNewValue As String)
mstrReportName(Index) = vNewValue
End Property
'页面名
Public Property Let SpTabCaption(ByVal Index As Integer, ByVal vNewValue As String)
mTabCaption(Index) = vNewValue
End Property
'视图ID
Public Property Let SpViewID(ByVal Index As Integer, ByVal vNewValue As Long)
mintViewId(Index) = vNewValue
End Property
'SELECT 语句
Public Property Let SpSelect(ByVal Index As Integer, ByVal vNewValue As String)
mstrSelect(Index) = vNewValue
End Property
'条件语句
Public Property Let SpWhere(ByVal Index As Integer, ByVal vNewValue As String)
mstrWhere(Index) = vNewValue
End Property
Public Property Let SpHaving(ByVal Index As Integer, ByVal vNewValue As String)
mstrHaving(Index) = vNewValue
End Property
Public Property Let SpGoupBy(ByVal Index As Integer, ByVal vNewValue As String)
mstrGroupby(Index) = vNewValue
End Property
'打印ID
Public Property Let SpPrintID(ByVal Index As Integer, ByVal vNewValue As Integer)
mintPrintID(Index) = vNewValue
End Property
'打印标题
Public Property Let SpPrintTitle(ByVal Index As Integer, ByVal vNewValue As String)
mstrPrintTitle(Index) = vNewValue
End Property
'是否有编辑权限
Public Property Let blnEditByRight(ByVal Index As Integer, ByVal vNewValue As Boolean)
mblnEditbyRight(Index) = vNewValue
End Property
Public Property Let MenuEnbaleOnPage(ByVal Index As Integer, ByVal vNewValue As Integer)
mintcEnableOnPageNo(Index) = vNewValue
End Property
'总页数
Public Property Get Tabs() As Variant
Tabs = mTabs
End Property
Public Property Let Tabs(ByVal vNewValue As Variant)
mTabs = vNewValue
ReDim mTabCaption(0 To mTabs - 1)
ReDim mintViewId(0 To mTabs - 1)
ReDim mstrSelect(0 To mTabs - 1)
ReDim mstrWhere(0 To mTabs - 1)
ReDim mstrHaving(0 To mTabs - 1)
ReDim mstrGroupby(0 To mTabs - 1)
ReDim mintPrintID(0 To mTabs - 1)
ReDim mstrPrintTitle(0 To mTabs - 1)
ReDim mblnEditbyRight(0 To mTabs - 1)
ReDim mstrShowAllWhere(0 To mTabs - 1)
ReDim mblnIsload(0 To mTabs - 1)
' ReDim mblnEnbaleOnPage(0 To mTabs - 1)
End Property
'自定义菜单位置
Public Property Let SpPosition(ByVal vNewValue As Variant)
mintSpPosition = vNewValue
End Property
'自定义菜单数
Public Property Let SpMenuCount(ByVal vNewValue As Variant)
mintSpMenu = vNewValue
ReDim mstrSpMenuName(0 To mintSpMenu - 1)
ReDim mintEnableOnPageNo(0 To mintSpMenu - 1)
ReDim mblnConstant(0 To mintSpMenu - 1)
End Property
'自定义菜单名
Public Property Let SpMenuName(ByVal Index As Integer, ByVal vNewValue As String)
mstrSpMenuName(Index) = vNewValue
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -