📄 guestmanager.ctl
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.UserControl GuestManager
ClientHeight = 3855
ClientLeft = 0
ClientTop = 0
ClientWidth = 6285
LockControls = -1 'True
PropertyPages = "GuestManager.ctx":0000
ScaleHeight = 3855
ScaleWidth = 6285
ToolboxBitmap = "GuestManager.ctx":000F
Begin VB.PictureBox Picture3
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 3525
Left = 75
ScaleHeight = 3525
ScaleWidth = 4320
TabIndex = 12
Top = 165
Visible = 0 'False
Width = 4320
Begin VB.TextBox StoreModifyName
Height = 300
Left = 390
TabIndex = 13
Top = 915
Width = 3540
End
Begin VB.CommandButton cmdModifySave
Caption = "&Save"
Enabled = 0 'False
Height = 405
Left = 1500
TabIndex = 14
Top = 1320
Width = 1200
End
Begin VB.CommandButton cmdCancelX
Caption = "&Cancel"
Height = 405
Left = 2745
TabIndex = 15
Top = 1320
Width = 1200
End
Begin VB.Line Line12
BorderColor = &H00808080&
X1 = 60
X2 = 60
Y1 = 45
Y2 = 3480
End
Begin VB.Line Line11
BorderColor = &H00808080&
X1 = 60
X2 = 4290
Y1 = 45
Y2 = 45
End
Begin VB.Line Line10
BorderColor = &H00E0E0E0&
X1 = 60
X2 = 4305
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line9
BorderColor = &H00E0E0E0&
X1 = 4290
X2 = 4290
Y1 = 45
Y2 = 3495
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "New Name："
ForeColor = &H00008000&
Height = 180
Index = 2
Left = 420
TabIndex = 16
Top = 615
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "New Name："
ForeColor = &H00E0E0E0&
Height = 180
Index = 3
Left = 405
TabIndex = 17
Top = 630
Width = 900
End
End
Begin VB.PictureBox Picture2
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 3525
Left = 75
ScaleHeight = 3525
ScaleWidth = 4320
TabIndex = 8
Top = 165
Visible = 0 'False
Width = 4320
Begin VB.CommandButton Command1
Caption = "&Cancel"
Height = 405
Index = 1
Left = 2745
TabIndex = 6
Top = 1320
Width = 1200
End
Begin VB.CommandButton Command1
Caption = "&Save"
Enabled = 0 'False
Height = 405
Index = 0
Left = 1500
TabIndex = 5
Top = 1320
Width = 1200
End
Begin VB.TextBox StoreName
Height = 300
Left = 390
TabIndex = 4
Top = 915
Width = 3540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "New Name："
ForeColor = &H000000C0&
Height = 180
Index = 1
Left = 420
TabIndex = 11
Top = 615
Width = 900
End
Begin VB.Line Line8
BorderColor = &H00E0E0E0&
X1 = 4290
X2 = 4290
Y1 = 45
Y2 = 3495
End
Begin VB.Line Line7
BorderColor = &H00E0E0E0&
X1 = 60
X2 = 4305
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line6
BorderColor = &H00808080&
X1 = 60
X2 = 4290
Y1 = 45
Y2 = 45
End
Begin VB.Line Line5
BorderColor = &H00808080&
X1 = 60
X2 = 60
Y1 = 45
Y2 = 3480
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "New Name："
ForeColor = &H00E0E0E0&
Height = 180
Index = 0
Left = 405
TabIndex = 9
Top = 630
Width = 900
End
End
Begin VB.PictureBox Picture1
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 3540
Left = 4470
ScaleHeight = 3540
ScaleWidth = 1665
TabIndex = 7
Top = 150
Width = 1665
Begin VB.CommandButton StoreModify
Caption = "&Modify"
Height = 870
Left = 0
Picture = "GuestManager.ctx":0321
Style = 1 'Graphical
TabIndex = 2
Top = 1770
Width = 1650
End
Begin VB.CommandButton ExitButton
Caption = "E&xit"
Height = 870
Left = 0
Picture = "GuestManager.ctx":062B
Style = 1 'Graphical
TabIndex = 3
Top = 2655
Width = 1650
End
Begin VB.CommandButton StoreDelete
Caption = "&Delete"
Height = 870
Left = 0
Picture = "GuestManager.ctx":0935
Style = 1 'Graphical
TabIndex = 1
Top = 885
Width = 1650
End
Begin VB.CommandButton AddStore
Caption = "&AddNew"
Height = 870
Left = 0
Picture = "GuestManager.ctx":11FF
Style = 1 'Graphical
TabIndex = 0
Top = 0
Width = 1650
End
End
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 3525
Left = 105
TabIndex = 10
Top = 165
Width = 4305
_ExtentX = 7594
_ExtentY = 6218
_Version = 393216
Rows = 10
BackColor = 16777215
BackColorFixed = 12632256
BackColorSel = 8438015
BackColorBkg = 12632256
GridColor = 0
AllowBigSelection= 0 'False
FocusRect = 0
ScrollBars = 2
SelectionMode = 1
BorderStyle = 0
FormatString = "^序号 |^ 名 称 "
End
Begin VB.Line Line16
X1 = 30
X2 = 30
Y1 = 30
Y2 = 3810
End
Begin VB.Line Line15
X1 = 60
X2 = 60
Y1 = 60
Y2 = 3795
End
Begin VB.Line Line14
X1 = 60
X2 = 6225
Y1 = 60
Y2 = 60
End
Begin VB.Line Line13
X1 = 6240
X2 = 30
Y1 = 30
Y2 = 30
End
Begin VB.Line Line4
X1 = 6240
X2 = 6240
Y1 = 3810
Y2 = 30
End
Begin VB.Line Line3
X1 = 6210
X2 = 6210
Y1 = 3780
Y2 = 60
End
Begin VB.Line Line2
X1 = 6240
X2 = 15
Y1 = 3810
Y2 = 3810
End
Begin VB.Line Line1
X1 = 60
X2 = 6225
Y1 = 3780
Y2 = 3780
End
End
Attribute VB_Name = "GuestManager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "PropPageWizardRun" ,"Yes"
'缺省属性值:
Const m_def_DelField1 = ""
Const m_def_DelField2 = ""
Const m_def_DelField3 = ""
Const m_def_DelField4 = ""
Const m_def_DelField5 = ""
Const m_def_UpdateField1 = ""
Const m_def_UpdateField2 = ""
Const m_def_UpdateField3 = ""
Const m_def_UpdateField4 = ""
Const m_def_UpdateField5 = ""
Const m_def_sOldFieldValue = ""
Const m_def_sFieldValue = ""
Const m_def_sTypeName = " Classify "
Const m_def_sDatabaseFile = ""
Const m_def_sTableName = ""
Const m_def_sDatabasePassword = ""
Const m_def_DelSQL1 = ""
Const m_def_DelSQL2 = ""
Const m_def_DelSQL3 = ""
Const m_def_DelSQL4 = ""
Const m_def_DelSQL5 = ""
Const m_def_UpdateSQL1 = ""
Const m_def_UpdateSQL2 = ""
Const m_def_UpdateSQL3 = ""
Const m_def_UpdateSQL4 = ""
Const m_def_UpdateSQL5 = ""
Const m_def_IsGuest = 0
'Const m_def_sDatabaseFile = ""
'Const m_def_sTableName = ""
'Const m_def_sDatabasePassword = ""
'属性变量:
Dim m_DelField1 As String
Dim m_DelField2 As String
Dim m_DelField3 As String
Dim m_DelField4 As String
Dim m_DelField5 As String
Dim m_UpdateField1 As String
Dim m_UpdateField2 As String
Dim m_UpdateField3 As String
Dim m_UpdateField4 As String
Dim m_UpdateField5 As String
Dim m_sOldFieldValue As String
Dim m_sFieldValue As String
Dim m_sTypeName As String
Dim m_sDatabaseFile As String
Dim m_sTableName As String
Dim m_sDatabasePassword As String
Dim m_DelSQL1 As String
Dim m_DelSQL2 As String
Dim m_DelSQL3 As String
Dim m_DelSQL4 As String
Dim m_DelSQL5 As String
Dim m_UpdateSQL1 As String
Dim m_UpdateSQL2 As String
Dim m_UpdateSQL3 As String
Dim m_UpdateSQL4 As String
Dim m_UpdateSQL5 As String
Dim sOld_Name As String '修改旧名称
'Dim m_sDatabaseFile As String
'Dim m_sTableName As String
'Dim m_sDatabasePassword As String
Private Sub AddStore_Click()
Grid1.Visible = False
AddStore.Enabled = False
StoreDelete.Enabled = False
ExitButton.Enabled = False
StoreModify.Enabled = False
Picture2.Visible = True
StoreName.SetFocus
Label1(0).Caption = "Enter New〖" & sTypeName & "〗Name."
Label1(1).Caption = "Enter New〖" & sTypeName & "〗Name."
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -