📄 损溢单录入.frm
字号:
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 5
Left = 6240
TabIndex = 29
Top = 4710
Width = 1425
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 6
Left = 6240
TabIndex = 28
Top = 5040
Width = 1425
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 270
Index = 0
Left = 7710
TabIndex = 27
Top = 3090
Width = 1395
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 270
Index = 1
Left = 7710
TabIndex = 26
Top = 3420
Width = 1395
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 300
Index = 2
Left = 7710
TabIndex = 25
Top = 3720
Width = 1395
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 300
Index = 3
Left = 7710
TabIndex = 24
Top = 4050
Width = 1395
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 300
Index = 4
Left = 7710
TabIndex = 23
Top = 4380
Width = 1395
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 300
Index = 5
Left = 7710
TabIndex = 22
Top = 4710
Width = 1395
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 270
Index = 6
Left = 7710
TabIndex = 21
Top = 5040
Width = 1395
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 0
Left = 9150
TabIndex = 20
Top = 3090
Width = 1455
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 9150
TabIndex = 19
Top = 3420
Width = 1455
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 2
Left = 9150
TabIndex = 18
Top = 3720
Width = 1455
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 3
Left = 9150
TabIndex = 17
Top = 4050
Width = 1455
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 4
Left = 9150
TabIndex = 16
Top = 4380
Width = 1455
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 5
Left = 9150
TabIndex = 15
Top = 4710
Width = 1455
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 6
Left = 9150
TabIndex = 14
Top = 5040
Width = 1455
End
Begin VB.TextBox Text7
BorderStyle = 0 'None
Height = 315
Left = 2820
TabIndex = 13
Top = 5340
Width = 7785
End
Begin VB.TextBox Text8
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Left = 1560
TabIndex = 12
Top = 2430
Width = 1605
End
Begin VB.TextBox Text9
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Left = 4650
TabIndex = 11
Top = 2430
Width = 1935
End
Begin VB.TextBox Text10
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Left = 8610
TabIndex = 10
Top = 2430
Width = 1995
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 0
Left = 1440
TabIndex = 9
Top = 6090
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 1440
TabIndex = 8
Top = 6420
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 2
Left = 3570
TabIndex = 7
Top = 6060
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 3
Left = 3570
TabIndex = 6
Top = 6390
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 4
Left = 5820
TabIndex = 5
Top = 6060
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 5
Left = 5820
TabIndex = 4
Top = 6390
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 6
Left = 8010
TabIndex = 3
Top = 6060
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 7
Left = 8010
TabIndex = 2
Top = 6390
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 8
Left = 9750
TabIndex = 1
Top = 6060
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 9
Left = 9750
TabIndex = 0
Top = 6390
Width = 1185
End
Begin MSComDlg.CommonDialog cd
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label date1
BackStyle = 0 'Transparent
Height = 435
Left = 570
TabIndex = 65
Top = 1950
Width = 2655
End
Begin WordCtl.Document Document1
Height = 4680
Index = 0
Left = 0
OleObjectBlob = "损溢单录入.frx":410A
TabIndex = 63
Top = 2370
Width = 14370
End
Begin VB.Line Line1
BorderColor = &H00FFFF00&
BorderWidth = 3
X1 = 4740
X2 = 6660
Y1 = 2250
Y2 = 2250
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "商品损溢单"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4740
TabIndex = 62
Top = 1770
Width = 1935
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "№：00000001"
Height = 255
Left = 8820
TabIndex = 61
Top = 2130
Width = 2535
End
Begin VB.Label date
BackStyle = 0 'Transparent
Caption = "日期："
Height = 255
Left = 60
TabIndex = 60
Top = 2130
Width = 2415
End
End
Attribute VB_Name = "tpaper3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
date1.Caption = Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "save"
cd.DialogTitle = "保存"
cd.ShowSave
Case "modify"
MsgBox "直接在单上修改保存既可！"
Case "print"
付款单.PrintForm
Case "quit"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -