📄 frm标准字段修改.frm
字号:
Height = 255
Index = 13
Left = 2400
TabIndex = 31
Top = 1440
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发13:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 12
Left = 180
TabIndex = 29
Top = 1470
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发12:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 11
Left = 6750
TabIndex = 25
Top = 1110
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发11:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 4590
TabIndex = 24
Top = 1110
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发10:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 2400
TabIndex = 22
Top = 1080
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发9:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 180
TabIndex = 20
Top = 1080
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发8:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 6750
TabIndex = 19
Top = 750
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发7:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 4590
TabIndex = 17
Top = 750
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发6:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 2400
TabIndex = 15
Top = 720
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发5:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 180
TabIndex = 13
Top = 720
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发4:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 6750
TabIndex = 11
Top = 390
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发3:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 4590
TabIndex = 9
Top = 390
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发2:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 2400
TabIndex = 7
Top = 390
Width = 885
End
Begin VB.Label lblLabels
Caption = "应发1:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 180
TabIndex = 4
Top = 390
Width = 885
End
End
Begin VB.PictureBox picButtons
Align = 2 'Align Bottom
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 480
Left = 0
ScaleHeight = 480
ScaleWidth = 9060
TabIndex = 0
Top = 3705
Width = 9060
Begin VB.CommandButton cmd关闭
Caption = "关闭(&C)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3750
TabIndex = 1
Top = 60
Width = 1335
End
End
Begin VB.Data datPrimaryRS
Align = 2 'Align Bottom
Caption = " "
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Enabled = 0 'False
Exclusive = 0 'False
Height = 405
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "select * from [zzbzzd]"
Top = 4185
Visible = 0 'False
Width = 9060
End
End
Attribute VB_Name = "frm项目修改"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim hxfjd As Integer
Private Sub cmd关闭_Click()
hxfi = 0
Do While hxfi <= 33
If LenB(Trim(txtFields(hxfi).Text)) = 2 Then txtFields(hxfi).Text = Trim(txtFields(hxfi).Text) & " "
If LenB(Trim(txtFields(hxfi).Text)) = 4 Then txtFields(hxfi).Text = Trim(txtFields(hxfi).Text) & " "
If LenB(Trim(txtFields(hxfi).Text)) = 6 Then txtFields(hxfi).Text = Trim(txtFields(hxfi).Text) & " "
hxfi = hxfi + 1
Loop
Screen.MousePointer = vbDefault
Unload Me
End Sub
Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer)
'错误处理程序代码置于此处
'想要忽略错误，注释掉下一行
'想要俘获它们，在此添加代码处理它们
MsgBox "Data error event hit err:" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub datPrimaryRS_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'为 dynasets 和快照显示当前记录位置
datPrimaryRS.Caption = "Record: " & (datPrimaryRS.Recordset.AbsolutePosition + 1)
End Sub
Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer)
'验证代码置于此处
'下列动作发生时该事件被调用
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
Screen.MousePointer = vbDefault
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
If hxfjd < 33 Then
txtFields(hxfjd + 1).SetFocus
End If
End If
If KeyCode = vbKeyUp Then
If hxfjd >= 1 And hxfjd <= 33 Then
txtFields(hxfjd - 1).SetFocus
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
Private Sub txtFields_GotFocus(Index As Integer)
hxfjd = Index
TEXTF txtFields(Index)
End Sub
Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
If hxfjd < 33 Then
txtFields(hxfjd + 1).SetFocus
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -