📄 addguesttype.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmCatalog
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "档案类型管理[添加、删除]"
ClientHeight = 3285
ClientLeft = 45
ClientTop = 330
ClientWidth = 5460
Icon = "AddGuestType.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3285
ScaleWidth = 5460
ShowInTaskbar = 0 'False
Begin VB.CommandButton ExitB
Cancel = -1 'True
Caption = "关 闭(&C)"
Height = 330
Left = 3615
TabIndex = 6
Top = 1230
Width = 1575
End
Begin VB.CommandButton DeleteB
Caption = "删 除(&D)"
Height = 330
Left = 3615
TabIndex = 5
Top = 900
Width = 1575
End
Begin VB.CommandButton cmdModify
Caption = "修 改(&M)"
Height = 330
Left = 3615
TabIndex = 4
Top = 570
Width = 1575
End
Begin ComctlLib.ListView ListView1
Height = 2895
Left = 165
TabIndex = 7
Top = 180
Width = 3225
_ExtentX = 5689
_ExtentY = 5106
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = 16777215
BackColor = 32768
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.PictureBox picDraw
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 1125
Left = 3750
Picture = "AddGuestType.frx":030A
ScaleHeight = 1125
ScaleWidth = 1260
TabIndex = 11
Top = 1785
Width = 1260
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
Height = 540
Left = 3210
Picture = "AddGuestType.frx":D27A
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 10
Top = 120
Visible = 0 'False
Width = 540
End
Begin VB.PictureBox AddPicture
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 1440
Left = 3405
ScaleHeight = 1440
ScaleWidth = 1860
TabIndex = 8
Top = 1635
Visible = 0 'False
Width = 1860
Begin VB.CommandButton CancelRecord
Caption = "取消"
Height = 390
Left = 1020
TabIndex = 2
Top = 825
Width = 795
End
Begin VB.CommandButton SaveRecord
Caption = "保存"
Default = -1 'True
Enabled = 0 'False
Height = 390
Left = 210
TabIndex = 1
Top = 825
Width = 795
End
Begin VB.TextBox NewTypeName
Height = 300
Left = 195
TabIndex = 0
Top = 480
Width = 1590
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "请输入新的档案类型"
ForeColor = &H000040C0&
Height = 180
Left = 165
TabIndex = 9
Top = 195
Width = 1620
End
End
Begin VB.CommandButton AddB
Caption = "添 加(&A)"
Height = 330
Left = 3615
TabIndex = 3
Top = 240
Width = 1575
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 1
X1 = 5415
X2 = 5415
Y1 = 15
Y2 = 3240
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 1
X1 = 5400
X2 = 5400
Y1 = 15
Y2 = 3210
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 0
X1 = 45
X2 = 45
Y1 = 30
Y2 = 3225
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 0
X1 = 30
X2 = 30
Y1 = 30
Y2 = 3225
End
Begin ComctlLib.ImageList ImageList1
Left = 1965
Top = 2355
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 30
X2 = 5415
Y1 = 3225
Y2 = 3225
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 15
X2 = 5415
Y1 = 3240
Y2 = 3240
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 30
X2 = 5400
Y1 = 30
Y2 = 30
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 30
X2 = 5400
Y1 = 15
Y2 = 15
End
End
Attribute VB_Name = "frmCatalog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim GTN As String
Dim NoChange As Boolean
Private Sub AddB_Click()
DeleteB.Enabled = False
ExitB.Enabled = False
AddB.Enabled = False
cmdModify.Enabled = False
AddPicture.Visible = True
picDraw.Visible = False
NewTypeName.SetFocus
Label1.Caption = "请输入新的档案类型"
End Sub
Private Sub AddB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
GetStatus "添加新的档案类型"
End Sub
Private Sub CancelRecord_Click()
NewTypeName.Text = ""
AddPicture.Visible = False
picDraw.Visible = True
DeleteB.Enabled = True
ExitB.Enabled = True
AddB.Enabled = True
cmdModify.Enabled = True
AddB.SetFocus
subPurView '安装权限
End Sub
Private Sub CancelRecord_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
GetStatus "放弃保存档案新类型"
End Sub
Private Sub cmdModify_Click()
If GTN = "" Then
MsgBox "请先选择一个档案类型，然后按修改按钮。 ", vbInformation, "档案管理系统"
Exit Sub
End If
'进行修改目录动作
DeleteB.Enabled = False
ExitB.Enabled = False
AddB.Enabled = False
AddPicture.Visible = True
picDraw.Visible = False
cmdModify.Enabled = False
NewTypeName.Text = GTN
NewTypeName.SetFocus
Label1.Caption = "输入修改的档案类型"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -