📄 行业类别定义.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form FrmHangye
Caption = "行业类别定义"
ClientHeight = 4590
ClientLeft = 60
ClientTop = 390
ClientWidth = 7920
LinkTopic = "Form18"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 4590
ScaleWidth = 7920
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
Caption = "修改类别名称"
Height = 2115
Left = 3255
TabIndex = 7
Top = 2325
Width = 4560
Begin CSCommand.Command Command3
Height = 405
Left = 1860
TabIndex = 13
Top = 1635
Width = 1290
_ExtentX = 2275
_ExtentY = 714
IconAlign = 0
Icon = "行业类别定义.frx":0000
Caption = "删除 &D"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command Command2
Height = 405
Left = 3195
TabIndex = 12
Top = 1635
Width = 1230
_ExtentX = 2170
_ExtentY = 714
IconAlign = 0
Icon = "行业类别定义.frx":001C
Caption = "修改 &E"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox Text4
Height = 270
Left = 1260
TabIndex = 9
Top = 285
Width = 3150
End
Begin VB.TextBox Text3
Height = 945
Left = 1260
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 8
Top = 630
Width = 3165
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label6"
Height = 180
Left = 465
TabIndex = 15
Top = 1740
Width = 540
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ID："
Height = 180
Left = 105
TabIndex = 14
Top = 1740
Width = 360
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "行业名称："
Height = 180
Left = 330
TabIndex = 11
Top = 330
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注信息："
Height = 180
Left = 330
TabIndex = 10
Top = 660
Width = 900
End
End
Begin CSCommand.Command Command1
Height = 405
Left = 6420
TabIndex = 6
Top = 1770
Width = 1245
_ExtentX = 2196
_ExtentY = 714
IconAlign = 0
Icon = "行业类别定义.frx":0038
Caption = "保存 &S"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Frame Frame1
Caption = "添加新的类别"
Height = 2145
Left = 3255
TabIndex = 1
Top = 120
Width = 4560
Begin VB.TextBox Text5
Height = 345
Left = 210
TabIndex = 16
Top = 1260
Visible = 0 'False
Width = 795
End
Begin VB.TextBox Text2
Height = 945
Left = 1245
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 5
Top = 630
Width = 3165
End
Begin VB.TextBox Text1
Height = 270
Left = 1245
TabIndex = 4
Top = 285
Width = 3150
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注信息："
Height = 180
Left = 330
TabIndex = 3
Top = 660
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "行业名称："
Height = 180
Left = 330
TabIndex = 2
Top = 330
Width = 900
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 4260
Left = 135
TabIndex = 0
Top = 180
Width = 3030
_ExtentX = 5345
_ExtentY = 7514
_Version = 393216
End
End
Attribute VB_Name = "FrmHangye"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/24
'描 述：商务名片及客户资料管理系统 Ver 1.73
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit
Private Sub Command1_Click()
If Len(Trim(Text2.Text)) > 700 Then
MsgBox "备注信息文字内容过长，请保持在700字范围之内。", vbInformation, "文字内容过长"
Text2.SetFocus
Exit Sub
End If
Text1.Text = Trim(Text1.Text)
If Text1.Text = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -