frmunsale.frm
来自「通用书店管理系统」· FRM 代码 · 共 1,480 行 · 第 1/5 页
FRM
1,480 行
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{DEF7CADD-83C0-11D0-A0F1-00A024703500}#7.0#0"; "TODG7.OCX"
Begin VB.Form frmUnSale
Caption = "零售退书"
ClientHeight = 7665
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7665
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin TabDlg.SSTab SSTab1
Height = 6975
Left = 90
TabIndex = 0
Top = 15
Width = 11775
_ExtentX = 20770
_ExtentY = 12303
_Version = 393216
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "零售销售单"
TabPicture(0) = "frmUnSale.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame3"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame2"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "零售退书单"
TabPicture(1) = "frmUnSale.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "TdbSale"
Tab(1).Control(1)= "cmdAddNew"
Tab(1).Control(2)= "cmdDelete"
Tab(1).Control(3)= "cmdUndo"
Tab(1).Control(4)= "cmdSave"
Tab(1).Control(5)= "Command1"
Tab(1).Control(6)= "cmdEdit"
Tab(1).Control(7)= "Frame4"
Tab(1).Control(8)= "Frame5"
Tab(1).ControlCount= 9
Begin VB.Frame Frame5
Height = 1035
Left = -74865
TabIndex = 33
Top = 5820
Width = 11505
Begin VB.TextBox txtFields
Alignment = 1 'Right Justify
BeginProperty DataFormat
Type = 1
Format = "#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 14
Left = 3495
Locked = -1 'True
TabIndex = 40
Top = 180
Width = 1695
End
Begin VB.TextBox txtFields
Alignment = 1 'Right Justify
BeginProperty DataFormat
Type = 1
Format = "#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 6
Left = 6075
Locked = -1 'True
TabIndex = 39
Top = 180
Width = 1695
End
Begin VB.TextBox txtFields
Alignment = 1 'Right Justify
BeginProperty DataFormat
Type = 1
Format = "#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 7
Left = 3495
TabIndex = 38
Top = 570
Width = 1695
End
Begin VB.TextBox txtFields
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 9
Left = 1275
TabIndex = 37
Text = "1.00"
Top = 345
Width = 975
End
Begin VB.TextBox txtFields
Alignment = 1 'Right Justify
BeginProperty DataFormat
Type = 1
Format = "#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 8
Left = 6075
Locked = -1 'True
TabIndex = 36
Top = 570
Width = 1695
End
Begin VB.TextBox txtFields
BackColor = &H80000018&
BeginProperty DataFormat
Type = 0
Format = "#,##0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 10
Left = 8955
Locked = -1 'True
TabIndex = 35
Top = 195
Width = 1695
End
Begin VB.TextBox txtFields
BackColor = &H80000018&
BeginProperty DataFormat
Type = 1
Format = "yyyy-MM-dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 11
Left = 8955
Locked = -1 'True
TabIndex = 34
Top = 600
Width = 1695
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "应收"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 15
Left = 2415
TabIndex = 47
Top = 270
Width = 945
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "支票"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 6
Left = 5235
TabIndex = 46
Top = 255
Width = 855
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "现金"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?