📄 入库单录入.frm
字号:
Begin VB.TextBox Text3
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 6
Left = 5460
TabIndex = 32
Top = 4470
Width = 675
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 255
Index = 1
Left = 6180
TabIndex = 31
Top = 2850
Width = 1035
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 2
Left = 6180
TabIndex = 30
Top = 3150
Width = 1035
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 3
Left = 6180
TabIndex = 29
Top = 3480
Width = 1035
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 255
Index = 4
Left = 6180
TabIndex = 28
Top = 3810
Width = 1035
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 5
Left = 6180
TabIndex = 27
Top = 4140
Width = 1035
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 6
Left = 6180
TabIndex = 26
Top = 4470
Width = 1035
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 270
Index = 1
Left = 7260
TabIndex = 25
Top = 2850
Width = 1035
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 300
Index = 2
Left = 7260
TabIndex = 24
Top = 3150
Width = 1035
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 300
Index = 3
Left = 7260
TabIndex = 23
Top = 3480
Width = 1035
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 300
Index = 4
Left = 7260
TabIndex = 22
Top = 3810
Width = 1035
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 300
Index = 5
Left = 7260
TabIndex = 21
Top = 4140
Width = 1035
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 270
Index = 6
Left = 7260
TabIndex = 20
Top = 4470
Width = 1035
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 255
Index = 1
Left = 8340
TabIndex = 19
Top = 2850
Width = 675
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 2
Left = 8340
TabIndex = 18
Top = 3150
Width = 675
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 3
Left = 8340
TabIndex = 17
Top = 3480
Width = 675
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 4
Left = 8340
TabIndex = 16
Top = 3810
Width = 675
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 5
Left = 8340
TabIndex = 15
Top = 4140
Width = 675
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 255
Index = 6
Left = 8340
TabIndex = 14
Top = 4470
Width = 675
End
Begin VB.TextBox Text7
BorderStyle = 0 'None
Height = 315
Left = 3090
TabIndex = 13
Top = 5100
Width = 7785
End
Begin VB.TextBox Text8
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Left = 1830
TabIndex = 12
Top = 1860
Width = 1605
End
Begin VB.TextBox Text9
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Left = 4920
TabIndex = 11
Top = 1860
Width = 1935
End
Begin VB.TextBox Text10
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Left = 8880
TabIndex = 10
Top = 1860
Width = 1995
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 0
Left = 1710
TabIndex = 9
Top = 6180
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 1680
TabIndex = 8
Top = 6480
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 2
Left = 3840
TabIndex = 7
Top = 6150
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 3
Left = 3840
TabIndex = 6
Top = 6480
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 4
Left = 6090
TabIndex = 5
Top = 6150
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 5
Left = 6120
TabIndex = 4
Top = 6480
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 6
Left = 8280
TabIndex = 3
Top = 6150
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 7
Left = 8280
TabIndex = 2
Top = 6480
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 8
Left = 10020
TabIndex = 1
Top = 6150
Width = 1185
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Index = 9
Left = 10020
TabIndex = 0
Top = 6480
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 = 930
TabIndex = 80
Top = 1350
Width = 1935
End
Begin WordCtl.Document Document1
Height = 4950
Index = 0
Left = 270
OleObjectBlob = "入库单录入.frx":370A
TabIndex = 55
Top = 1770
Width = 14370
End
Begin VB.Line Line1
BorderColor = &H00FFFF00&
BorderWidth = 3
X1 = 5010
X2 = 6930
Y1 = 1650
Y2 = 1650
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 = 5010
TabIndex = 54
Top = 1170
Width = 1935
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "№：00000001"
Height = 255
Left = 9090
TabIndex = 53
Top = 1530
Width = 2535
End
Begin VB.Label date
BackStyle = 0 'Transparent
Caption = "日期："
Height = 255
Left = 330
TabIndex = 52
Top = 1530
Width = 2415
End
End
Attribute VB_Name = "tpaper1"
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) & "日"
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i Mod 2 = 1 Then
Text9.BackColor = RGB(255, 255, 255)
Else
Text9.BackColor = RGB(130, 129, 122)
End If
If i > 40 Then i = 0
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Select Case Button.Key
Case "save"
Dim j As Integer
For j = 1 To 5
Text(j) = ""
Text1(j).Text = ""
Text2(j).Text = ""
Text3(j).Text = ""
Text4(j).Text = ""
Text5(j).Text = ""
Text6(j).Text = ""
Next j
tsql = " 调拨单号 ='" & Trim((Text9.Text) & " ") & "'"
Timer1.Interval = 50
If Trim(Text9.Text) = "" Then
MsgBox "必须输入调拨单编号,请在调拨单处填上", vbExclamation + vbOKOnly, "宁丽华警告"
Call Timer1_Timer
Else
number = Trim(Text9.Text)
Label2.Caption = "№0000000" & number
txtSQL = "select *from 商品调拨单 where" & tsql
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.RecordCount = 0 Then
MsgBox "没有记录！"
Label2.Caption = 0
Text9.Text = ""
Text8.Text = ""
Text(1).Text = ""
Text1(1).Text = ""
Text2(1).Text = ""
Text3(0).Text = ""
Text4(1).Text = ""
Text5(1).Text = ""
Text6(1).Text = ""
Text14(0).Text = ""
Text15(0).Text = ""
Text12.Text = ""
Text13.Text = ""
Text10.Text = ""
Exit Sub
Unload Me
End If
Text9.Text = mrc.Fields(1)
Text8.Text = mrc.Fields(0)
Text(1).Text = mrc.Fields(3)
Text1(1).Text = mrc.Fields(4)
Text2(1).Text = mrc.Fields(5)
Text3(0).Text = mrc.Fields(6)
Text4(1).Text = mrc.Fields(7)
Text5(1).Text = mrc.Fields(8)
Text6(1).Text = mrc.Fields(7)
Text14(0).Text = mrc.Fields(8)
If mrc.RecordCount > 1 Then
Dim i As Integer
For i = 1 To mrc.RecordCount
Text9.Text = mrc.Fields(1)
Text8.Text = mrc.Fields(0)
Text(i).Text = mrc.Fields(3)
Text1(i).Text = mrc.Fields(4)
Text2(i).Text = mrc.Fields(5)
Text3(i).Text = mrc.Fields(6)
Text4(i).Text = mrc.Fields(7)
Text5(i).Text = mrc.Fields(8)
Text6(1).Text = mrc.Fields(7)
Next i
End If
mrc.Update
mrc.Close
txtSQL = "select *from 数据存取表"
Set mrc = ExecuteSQL(txtSQL, MsgText)
Text15(0).Text = mrc.Fields(12)
Text12.Text = mrc.Fields(14)
Text13.Text = mrc.Fields(13)
Text10.Text = mrc.Fields(15)
mrc.Update
mrc.Close
End If
Case "modify"
MsgBox "直接在单上修改保存既可！"
Case "print"
付款单.PrintForm
Case "quit"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -