frmunpfsale.frm
来自「通用书店管理系统」· FRM 代码 · 共 1,483 行 · 第 1/5 页
FRM
1,483 行
_StyleDefs(43) = "Named:id=35:Footing"
_StyleDefs(44) = ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
_StyleDefs(45) = "Named:id=36:Selected"
_StyleDefs(46) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(47) = "Named:id=37:Caption"
_StyleDefs(48) = ":id=37,.parent=34,.alignment=2"
_StyleDefs(49) = "Named:id=38:HighlightRow"
_StyleDefs(50) = ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(51) = "Named:id=39:EvenRow"
_StyleDefs(52) = ":id=39,.parent=33,.bgcolor=&HFFFF00&"
_StyleDefs(53) = "Named:id=40:OddRow"
_StyleDefs(54) = ":id=40,.parent=33"
_StyleDefs(55) = "Named:id=41:RecordSelector"
_StyleDefs(56) = ":id=41,.parent=34"
_StyleDefs(57) = "Named:id=42:FilterBar"
_StyleDefs(58) = ":id=42,.parent=33"
End
End
Begin VB.Frame Frame2
Height = 6495
Left = 120
TabIndex = 41
Top = 375
Width = 2595
Begin VB.CommandButton cmdOk
Height = 435
Left = 225
Picture = "frmUnPFSale.frx":0038
Style = 1 'Graphical
TabIndex = 58
Top = 5955
Width = 930
End
Begin VB.CommandButton cmdCancel
Height = 435
Left = 1410
Picture = "frmUnPFSale.frx":151C
Style = 1 'Graphical
TabIndex = 57
Top = 5955
Width = 930
End
Begin TabDlg.SSTab SSTab2
Height = 2460
Left = 90
TabIndex = 42
Top = 165
Width = 2430
_ExtentX = 4286
_ExtentY = 4339
_Version = 393216
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "销售单"
TabPicture(0) = "frmUnPFSale.frx":2A00
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "dtpInDate(1)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "dtpInDate(0)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "txtFields(0)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "chkFields(0)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "chkFields(1)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "cmdSearch(0)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).ControlCount= 7
TabCaption(1) = "明细"
TabPicture(1) = "frmUnPFSale.frx":2A1C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "txtFields(15)"
Tab(1).Control(1)= "chkFields(3)"
Tab(1).Control(2)= "chkFields(2)"
Tab(1).Control(3)= "cmdSearch(2)"
Tab(1).Control(4)= "dtpInDate(2)"
Tab(1).Control(5)= "dtpInDate(3)"
Tab(1).Control(6)= "Label1(16)"
Tab(1).ControlCount= 7
Begin VB.CommandButton cmdSearch
Height = 315
Index = 0
Left = 1995
Picture = "frmUnPFSale.frx":2A38
Style = 1 'Graphical
TabIndex = 50
Top = 780
Width = 345
End
Begin VB.CheckBox chkFields
Caption = "销售单填写日期"
Height = 300
Index = 1
Left = 120
TabIndex = 49
Top = 1185
Width = 1860
End
Begin VB.CheckBox chkFields
Caption = "按销售单号"
Height = 300
Index = 0
Left = 120
TabIndex = 48
Top = 390
Value = 1 'Checked
Width = 1365
End
Begin VB.TextBox txtFields
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 0
Left = 120
TabIndex = 47
Top = 705
Width = 1890
End
Begin VB.CommandButton cmdSearch
Height = 315
Index = 2
Left = -72960
Picture = "frmUnPFSale.frx":2D7C
Style = 1 'Graphical
TabIndex = 46
Top = 795
Width = 345
End
Begin VB.CheckBox chkFields
Caption = "销售日期"
Height = 300
Index = 2
Left = -74865
TabIndex = 45
Top = 1200
Width = 1860
End
Begin VB.CheckBox chkFields
Caption = "按书号"
Height = 300
Index = 3
Left = -74850
TabIndex = 44
Top = 390
Value = 1 'Checked
Width = 1365
End
Begin VB.TextBox txtFields
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 15
Left = -74850
TabIndex = 43
Top = 720
Width = 1890
End
Begin MSComCtl2.DTPicker dtpInDate
Height = 345
Index = 0
Left = 120
TabIndex = 51
Top = 1470
Width = 1905
_ExtentX = 3360
_ExtentY = 609
_Version = 393216
Enabled = 0 'False
Format = 24510465
CurrentDate = 37314
End
Begin MSComCtl2.DTPicker dtpInDate
Height = 315
Index = 1
Left = 120
TabIndex = 52
Top = 2010
Width = 1905
_ExtentX = 3360
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
Format = 24510465
CurrentDate = 37314
End
Begin MSComCtl2.DTPicker dtpInDate
Height = 345
Index = 2
Left = -74850
TabIndex = 53
Top = 1485
Width = 1905
_ExtentX = 3360
_ExtentY = 609
_Version = 393216
Enabled = 0 'False
Format = 24510465
CurrentDate = 37314
End
Begin MSComCtl2.DTPicker dtpInDate
Height = 315
Index = 3
Left = -74850
TabIndex = 54
Top = 2025
Width = 1905
_ExtentX = 3360
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
Format = 24510465
CurrentDate = 37314
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "至"
Height = 315
Index = 0
Left = 2085
TabIndex = 56
Top = 1860
Width = 300
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "至"
Height = 315
Index = 16
Left = -72885
TabIndex = 55
Top = 1875
Width = 300
End
End
Begin MSComctlLib.ListView lstFields
Height = 3270
Left = 120
TabIndex = 59
Top = 2655
Width = 2370
_ExtentX = 4180
_ExtentY = 5768
View = 2
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 1
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Object.Width = 4180
EndProperty
End
End
Begin VB.CommandButton cmdAddNew
Caption = "新建(&N)"
Height = 420
Left = -74610
TabIndex = 40
Top = 7935
Visible = 0 'False
Width = 900
End
Begin VB.CommandButton cmdDelete
Caption = "删除(D)"
Height = 420
Left = -70995
TabIndex = 39
Top = 7935
Visible = 0 'False
Width = 855
End
Begin VB.CommandButton cmdUndo
Cancel = -1 'True
Caption = "取消(&U)"
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?