📄 codemode.frm
字号:
VERSION 5.00
Begin VB.Form CodeMode
Caption = "宽度设置"
ClientHeight = 3390
ClientLeft = 60
ClientTop = 345
ClientWidth = 7110
Icon = "CodeMode.frx":0000
LinkTopic = "Form1"
ScaleHeight = 3390
ScaleWidth = 7110
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame1
Height = 3375
Left = 0
TabIndex = 0
Top = 0
Width = 7095
Begin VB.TextBox Text1
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1920
MaxLength = 1
TabIndex = 6
Top = 480
Width = 1575
End
Begin VB.TextBox Text2
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1920
MaxLength = 1
TabIndex = 5
Top = 960
Width = 1575
End
Begin VB.TextBox Text3
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1920
MaxLength = 1
TabIndex = 4
Top = 1440
Width = 1575
End
Begin VB.TextBox Text4
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1920
MaxLength = 1
TabIndex = 3
Top = 1920
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 2
Top = 2700
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3960
TabIndex = 1
Top = 2700
Width = 1095
End
Begin VB.Label Label5
Caption = "输 入 的 必 须 是 数 字，并 且 在 上 一 级 为 零 的 情 况 下 ，下 一 级 不 能 有 数 字。"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1095
Left = 4080
TabIndex = 11
Top = 840
Width = 2655
End
Begin VB.Shape Shape1
Height = 1695
Left = 3840
Shape = 4 'Rounded Rectangle
Top = 480
Width = 3015
End
Begin VB.Label Label1
Caption = "一级代码宽度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 10
Top = 540
Width = 1455
End
Begin VB.Label Label2
Caption = "二级代码宽度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 9
Top = 1065
Width = 1455
End
Begin VB.Label Label3
Caption = "三级代码宽度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 8
Top = 1575
Width = 1455
End
Begin VB.Label Label4
Caption = "四级代码宽度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 7
Top = 2100
Width = 1455
End
End
End
Attribute VB_Name = "CodeMode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public CodeMame As String
Dim myclss As New CodeModeClass
Private Sub Command1_Click()
Dim strUpdata As String
If Text1.Text = "" Then
Text1.Text = 0
End If
If Text2.Text = "" Then
Text2.Text = 0
End If
If Text3.Text = "" Then
Text3.Text = 0
End If
If Text4.Text = "" Then
Text4.Text = 0
End If
If Not IsNumeric(Text1.Text) Then
MsgBox "输入数字", vbInformation, "提示"
Exit Sub
End If
If Not IsNumeric(Text2.Text) Then
MsgBox "输入数字", vbInformation, "提示"
Exit Sub
End If
If Not IsNumeric(Text3.Text) Then
MsgBox "输入数字", vbInformation, "提示"
Exit Sub
End If
If Not IsNumeric(Text4.Text) Then
MsgBox "输入数字", vbInformation, "提示"
Exit Sub
End If
If Text1.Locked = False Then
If myclss.PassTest(Text1.Text, Text2.Text, Text3.Text, Text4.Text) Then
strUpdata = "update Code set I1=" & Text1.Text & "," & _
"I2 = " & Text2.Text & "," & "I3=" & Text3.Text & "," & _
"I4 = " & Text4.Text
strUpdata = strUpdata & " " & "where Name =" & "'" & CodeMame & "'"
myclss.UpData (strUpdata)
MsgBox "保存成功", vbInformation, "提示"
Else
MsgBox "输入错误！上级编码为零", vbInformation, "提示"
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
If myclss.EditFlag(CodeMame) Then
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
Text1.BackColor = &H80000004
Text2.BackColor = &H80000004
Text3.BackColor = &H80000004
Text4.BackColor = &H80000004
End If
Call myclss.InitialData(CodeMame, Text1, Text2, Text3, Text4)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -