📄 frmcross.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.2#0"; "ATLEDIT.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
Object = "{E0B099CD-729C-11D2-840D-444553540000}#2.0#0"; "LISTTEXT.OCX"
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "CALENDAR.DLL"
Begin VB.Form frmCross
BorderStyle = 3 'Fixed Dialog
Caption = "交叉表查询向导"
ClientHeight = 4740
ClientLeft = 45
ClientTop = 330
ClientWidth = 7470
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5000
ScaleMode = 0 'User
ScaleWidth = 7500
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton CmdReset
Cancel = -1 'True
Height = 315
Left = 1260
Style = 1 'Graphical
TabIndex = 1
Top = 4380
UseMaskColor = -1 'True
Width = 1110
End
Begin VB.PictureBox picWizard
Height = 3165
Left = 360
ScaleHeight = 3105
ScaleWidth = 1485
TabIndex = 6
TabStop = 0 'False
Top = 660
Width = 1545
End
Begin VB.CommandButton cmdComplete
Default = -1 'True
Height = 315
Left = 6060
Style = 1 'Graphical
TabIndex = 5
Top = 4380
UseMaskColor = -1 'True
Width = 1110
End
Begin VB.CommandButton cmdPrevious
Height = 315
Left = 3660
Style = 1 'Graphical
TabIndex = 3
Top = 4380
UseMaskColor = -1 'True
Width = 1110
End
Begin VB.CommandButton cmdNext
Height = 315
Left = 4860
Style = 1 'Graphical
TabIndex = 4
Top = 4380
UseMaskColor = -1 'True
Width = 1110
End
Begin VB.CommandButton cmdCancel
Height = 315
Left = 2460
Style = 1 'Graphical
TabIndex = 2
Top = 4380
UseMaskColor = -1 'True
Width = 1110
End
Begin TabDlg.SSTab sstCross
Height = 4152
Left = 69
TabIndex = 0
TabStop = 0 'False
Top = 65
Width = 7311
_ExtentX = 12885
_ExtentY = 7329
_Version = 327681
Style = 1
Tabs = 4
Tab = 2
TabsPerRow = 4
TabHeight = 512
TabMaxWidth = 2239
TabCaption(0) = "名称(&N)"
TabPicture(0) = "frmCross.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "fraDescribe"
Tab(0).Control(1)= "txtName"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "LblReportName"
Tab(0).ControlCount= 3
TabCaption(1) = "查询项目(&Q)"
TabPicture(1) = "frmCross.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "cmdHeadTail"
Tab(1).Control(1)= "LstReport"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "LstDataField"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "cmdBrowse(0)"
Tab(1).Control(4)= "txtList"
Tab(1).Control(5)= "cmdArrow(0)"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "cmdArrow(1)"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "cmdArrow(2)"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "cmdArrow(3)"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "ImageList1"
Tab(1).Control(10)= "LblList"
Tab(1).Control(11)= "LblReport(0)"
Tab(1).Control(12)= "LblDataField"
Tab(1).ControlCount= 13
TabCaption(2) = "查询条件(&C)"
TabPicture(2) = "frmCross.frx":0038
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "Frame1"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Frame6"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Frame2"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).ControlCount= 3
TabCaption(3) = "交叉表格(&S)"
TabPicture(3) = "frmCross.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "cmdCol(0)"
Tab(3).Control(1)= "cmdCol(1)"
Tab(3).Control(2)= "cmdRow(0)"
Tab(3).Control(3)= "cmdRow(1)"
Tab(3).Control(4)= "cboColSum"
Tab(3).Control(5)= "cboRowSum"
Tab(3).Control(6)= "chkRow"
Tab(3).Control(7)= "chkCol"
Tab(3).Control(8)= "LstData"
Tab(3).Control(9)= "LstRow"
Tab(3).Control(10)= "LstCol"
Tab(3).Control(11)= "cmdDelete"
Tab(3).Control(12)= "cmdAddData"
Tab(3).Control(13)= "cmdAddCol"
Tab(3).Control(14)= "cmdAddRow"
Tab(3).Control(15)= "cmdBrowse(1)"
Tab(3).Control(16)= "LstField"
Tab(3).Control(17)= "LblDrag"
Tab(3).Control(18)= "LblData"
Tab(3).Control(19)= "LblRow"
Tab(3).Control(20)= "LblCol"
Tab(3).Control(21)= "Line2"
Tab(3).Control(22)= "Line1"
Tab(3).Control(23)= "shpCross"
Tab(3).ControlCount= 24
Begin VB.CommandButton cmdHeadTail
Caption = "表头表尾(&D)......"
Height = 315
Left = -69960
TabIndex = 22
Top = 3720
UseMaskColor = -1 'True
Width = 1875
End
Begin VB.CommandButton cmdCol
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = -68340
Style = 1 'Graphical
TabIndex = 33
Top = 720
UseMaskColor = -1 'True
Width = 240
End
Begin VB.CommandButton cmdCol
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 1
Left = -68340
Style = 1 'Graphical
TabIndex = 34
Top = 1080
UseMaskColor = -1 'True
Width = 240
End
Begin VB.CommandButton cmdRow
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = -70860
Style = 1 'Graphical
TabIndex = 29
Top = 1500
UseMaskColor = -1 'True
Width = 240
End
Begin VB.CommandButton cmdRow
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 1
Left = -70860
Style = 1 'Graphical
TabIndex = 30
Top = 1860
UseMaskColor = -1 'True
Width = 240
End
Begin VB.ComboBox cboColSum
Height = 300
ItemData = "frmCross.frx":0070
Left = -72060
List = "frmCross.frx":0072
Style = 2 'Dropdown List
TabIndex = 26
Top = 1020
Width = 1395
End
Begin VB.ComboBox cboRowSum
Height = 300
Left = -72060
Style = 2 'Dropdown List
TabIndex = 24
Top = 660
Width = 1395
End
Begin VB.CheckBox chkRow
Caption = "行合计"
Height = 315
Left = -72900
TabIndex = 23
Top = 660
Width = 1035
End
Begin VB.CheckBox chkCol
Caption = "列合计"
Height = 255
Left = -72900
TabIndex = 25
Top = 1020
Width = 975
End
Begin VB.ListBox LstReport
Height = 2220
Left = -69960
MultiSelect = 2 'Extended
TabIndex = 14
TabStop = 0 'False
Top = 900
Width = 1875
End
Begin VB.ListBox LstData
Height = 600
Left = -69780
TabIndex = 36
Top = 1500
Width = 1680
End
Begin VB.ListBox LstRow
Height = 600
Left = -72600
TabIndex = 28
Top = 1500
Width = 1620
End
Begin VB.ListBox LstCol
Height = 600
Left = -70140
TabIndex = 32
Top = 720
Width = 1680
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Enabled = 0 'False
Height = 315
Left = -69120
TabIndex = 42
Top = 3060
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdAddData
Caption = "数据(&T)"
Enabled = 0 'False
Height = 315
Left = -70500
TabIndex = 41
Top = 3060
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdAddCol
Caption = "列项目(&L)"
Enabled = 0 'False
Height = 315
Left = -69120
TabIndex = 40
Top = 2400
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdAddRow
Caption = "行项目(&R)"
Enabled = 0 'False
Height = 315
Left = -70500
TabIndex = 39
Top = 2400
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdBrowse
Caption = "数据浏览(&B)"
Enabled = 0 'False
Height = 315
Index = 1
Left = -72960
TabIndex = 38
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -