📄 frmytjb.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{DEF7CADD-83C0-11D0-A0F1-00A024703500}#7.0#0"; "TODG7.OCX"
Begin VB.Form FrmYTJB
Caption = "销售统计表"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8595
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Caption = "排序条件"
ForeColor = &H000000FF&
Height = 6075
Left = 120
TabIndex = 0
Top = 1020
Width = 1755
Begin VB.CheckBox chkFields
BackColor = &H80000000&
Caption = "排序类型"
Height = 315
Index = 4
Left = 120
TabIndex = 16
Top = 4380
Value = 1 'Checked
Width = 1485
End
Begin VB.CheckBox chkFields
BackColor = &H80000000&
Caption = "选择图书类型"
Height = 315
Index = 3
Left = 120
TabIndex = 14
Top = 3660
Visible = 0 'False
Width = 1485
End
Begin VB.CheckBox chkFields
BackColor = &H80000000&
Caption = "按制品类型"
Height = 315
Index = 2
Left = 120
TabIndex = 13
Top = 2940
Width = 1365
End
Begin VB.CheckBox chkFields
BackColor = &H80000000&
Caption = "按日期类型"
Height = 315
Index = 1
Left = 120
TabIndex = 12
Top = 1680
Width = 1305
End
Begin VB.ComboBox cmbFields
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 3
Left = 120
TabIndex = 11
Top = 4740
Width = 1515
End
Begin VB.ComboBox cmbFields
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 2
Left = 120
TabIndex = 10
Top = 4020
Visible = 0 'False
Width = 1515
End
Begin VB.ComboBox cmbFields
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 120
TabIndex = 9
Top = 3300
Width = 1515
End
Begin VB.ComboBox cmbFields
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 0
Left = 120
TabIndex = 8
Top = 2040
Width = 1515
End
Begin VB.CheckBox chkFields
BackColor = &H80000000&
Caption = "时间从"
Height = 315
Index = 0
Left = 120
TabIndex = 4
Top = 240
Width = 885
End
Begin VB.CommandButton Command1
Height = 405
Index = 0
Left = 360
Picture = "FrmYTJB.frx":0000
Style = 1 'Graphical
TabIndex = 2
Top = 5400
Width = 960
End
Begin MSComCtl2.DTPicker dtpDate
Height = 375
Index = 0
Left = 120
TabIndex = 5
Top = 600
Width = 1485
_ExtentX = 2619
_ExtentY = 661
_Version = 393216
Format = 24510465
CurrentDate = 37329
End
Begin MSComCtl2.DTPicker dtpDate
Height = 375
Index = 1
Left = 120
TabIndex = 7
ToolTipText = "2002-03-14"
Top = 1260
Width = 1485
_ExtentX = 2619
_ExtentY = 661
_Version = 393216
Format = 24510465
CurrentDate = 37329
End
Begin MSComCtl2.DTPicker dtpDate
Height = 375
Index = 2
Left = 120
TabIndex = 15
Top = 2460
Visible = 0 'False
Width = 1485
_ExtentX = 2619
_ExtentY = 661
_Version = 393216
CustomFormat = "yyyy-MM"
Format = 24510467
CurrentDate = 37316
End
Begin VB.Label Label1
BackColor = &H80000000&
Caption = "到"
Height = 255
Index = 0
Left = 120
TabIndex = 6
Top = 1020
Width = 315
End
End
Begin TrueOleDBGrid70.TDBGrid Tdbtongji
Height = 6075
Left = 1920
TabIndex = 3
Top = 1020
Width = 9915
_ExtentX = 17489
_ExtentY = 10716
_LayoutType = 4
_RowHeight = -2147483647
_WasPersistedAsPixels= 0
Columns(0)._VlistStyle= 0
Columns(0)._MaxComboItems= 5
Columns(0).Caption= "时间"
Columns(0).DataField= ""
Columns(0)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(1)._VlistStyle= 0
Columns(1)._MaxComboItems= 5
Columns(1).Caption= "制品类型"
Columns(1).DataField= ""
Columns(1)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(2)._VlistStyle= 0
Columns(2)._MaxComboItems= 5
Columns(2).Caption= "图书类型"
Columns(2).DataField= ""
Columns(2)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(3)._VlistStyle= 0
Columns(3)._MaxComboItems= 5
Columns(3).Caption= "数量"
Columns(3).DataField= ""
Columns(3)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(4)._VlistStyle= 0
Columns(4)._MaxComboItems= 5
Columns(4).Caption= "金额"
Columns(4).DataField= ""
Columns(4)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns.Count = 5
Splits(0)._UserFlags= 0
Splits(0).RecordSelectorWidth= 503
Splits(0)._SavedRecordSelectors= 0 'False
Splits(0).DividerColor= 12632256
Splits(0).SpringMode= 0 'False
Splits(0)._PropDict= "_ColumnProps,515,0;_UserFlags,518,3"
Splits(0)._ColumnProps(0)= "Columns.Count=5"
Splits(0)._ColumnProps(1)= "Column(0).Width=3281"
Splits(0)._ColumnProps(2)= "Column(0).DividerColor=0"
Splits(0)._ColumnProps(3)= "Column(0)._WidthInPix=3175"
Splits(0)._ColumnProps(4)= "Column(0)._ColStyle=516"
Splits(0)._ColumnProps(5)= "Column(0).Order=1"
Splits(0)._ColumnProps(6)= "Column(1).Width=2461"
Splits(0)._ColumnProps(7)= "Column(1).DividerColor=0"
Splits(0)._ColumnProps(8)= "Column(1)._WidthInPix=2355"
Splits(0)._ColumnProps(9)= "Column(1)._ColStyle=516"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -