📄 frmmain.frm
字号:
Top = 2760
Width = 7455
End
End
Begin VB.PictureBox 软件版权
Align = 1 'Align Top
BackColor = &H00000000&
Height = 1380
Left = 0
ScaleHeight = 132
ScaleMode = 0 'User
ScaleWidth = 9225
TabIndex = 3
Top = 2190
Width = 9285
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1
Height = 735
Left = 3720
TabIndex = 5
Top = 360
Width = 3495
_cx = 6165
_cy = 1296
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= "always"
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
MovieData = ""
SeamlessTabbing = -1 'True
Profile = 0 'False
ProfileAddress = ""
ProfilePort = 0
AllowNetworking = "all"
AllowFullScreen = "false"
End
Begin VB.Shape Shape3
Height = 15
Left = 3000
Top = 1320
Width = 375
End
End
Begin VB.PictureBox 软件信息
Align = 4 'Align Right
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H80000008&
Height = 2835
Left = 6390
ScaleHeight = 2805
ScaleWidth = 2865
TabIndex = 2
Top = 3570
Width = 2895
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "播放背景音乐:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 900
MouseIcon = "frmMain.frx":6480
MousePointer = 99 'Custom
TabIndex = 49
Top = 4740
Width = 1635
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "播放背景音乐:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 1
Left = 240
TabIndex = 48
Top = 4320
Width = 2595
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "网站主页:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 0
Left = 240
TabIndex = 46
Top = 3360
Width = 2595
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "www.thgg.com.cn"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 900
MouseIcon = "frmMain.frx":678A
MousePointer = 99 'Custom
TabIndex = 45
Top = 3660
Width = 1635
End
Begin VB.Label 我的主页
BackStyle = 0 'Transparent
Caption = "QQ:382954685"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 900
MouseIcon = "frmMain.frx":6A94
MousePointer = 99 'Custom
TabIndex = 43
Top = 1920
Width = 1455
End
Begin VB.Label 给作者写信
BackStyle = 0 'Transparent
Caption = "thgg@thgg.com.cn"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 900
MouseIcon = "frmMain.frx":6D9E
MousePointer = 99 'Custom
TabIndex = 12
Top = 2820
Width = 1755
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "给作者写信:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 11
Top = 2520
Width = 2595
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "与我联系:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 10
Top = 1620
Width = 2595
End
Begin VB.Label 操作用户
BackStyle = 0 'Transparent
Caption = "admin"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 195
Left = 1320
TabIndex = 9
Top = 1020
Width = 1755
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "操作用户:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 8
Top = 1020
Width = 975
End
Begin VB.Label 当前日期
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "2007年1月1日"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 1320
MouseIcon = "frmMain.frx":70A8
MousePointer = 99 'Custom
TabIndex = 7
ToolTipText = "单击显示出动态的表"
Top = 420
Width = 1215
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "当前日期:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 6
ToolTipText = "单击显示出动态的表"
Top = 420
Width = 975
End
End
Begin MSAdodcLib.Adodc m_checkado
Height = 375
Left = 6720
Top = -180
Width = 2595
_ExtentX = 4577
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "check"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 8880
Top = 120
_ExtentX = 847
_ExtentY = 847
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -