📄 frmdang.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
Begin VB.Form FRMDANG
BackColor = &H00808000&
Caption = "上海交通大学学生党建工作管理系统"
ClientHeight = 6504
ClientLeft = 60
ClientTop = 636
ClientWidth = 9480
ForeColor = &H00808080&
Icon = "frmdang.frx":0000
KeyPreview = -1 'True
LinkTopic = "FRMDANG"
Moveable = 0 'False
ScaleHeight = 6504
ScaleWidth = 9480
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 180
Left = 4320
Top = 2880
End
Begin ComctlLib.StatusBar StaBar1
Align = 2 'Align Bottom
Height = 408
Left = 0
Negotiate = -1 'True
TabIndex = 0
Top = 6096
Width = 9480
_ExtentX = 16722
_ExtentY = 720
SimpleText = ""
_Version = 327680
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 1
AutoSize = 2
Text = "时间："
TextSave = "98-9-5"
Key = ""
Object.Tag = ""
Object.ToolTipText = "当前系统日期"
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Alignment = 1
Text = "日期："
TextSave = "6:32"
Key = ""
Object.Tag = ""
Object.ToolTipText = "当前系统时间"
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 11049
Text = "上海交通大学蓝天软件开发室，1998年12月出品"
TextSave = "上海交通大学蓝天软件开发室，1998年12月出品"
Key = ""
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "frmdang.frx":0442
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 615
Left = 8745
Stretch = -1 'True
Top = 0
Width = 855
End
Begin VB.Line Line1
BorderColor = &H000000FF&
BorderWidth = 2
X1 = 0
X2 = 9600
Y1 = 0
Y2 = 0
End
Begin VB.Menu MENU1
Caption = "文件[&F]"
Begin VB.Menu MENUSECU
Caption = "输入密码[&S]"
End
Begin VB.Menu MENUDOT1
Caption = "-"
End
Begin VB.Menu MENU12
Caption = "系统设置[&R]"
Begin VB.Menu MENU121
Caption = "修改密码[&S]"
End
Begin VB.Menu MENU122
Caption = "背景图案[&P]"
Begin VB.Menu menu1221
Caption = "背景一"
End
Begin VB.Menu MENU1222
Caption = "背景二"
End
Begin VB.Menu MENU1223
Caption = "背景三"
End
Begin VB.Menu MENU1225
Caption = "背景四"
End
Begin VB.Menu MENU1226
Caption = "背景五"
End
Begin VB.Menu MENU1227
Caption = "背景六"
End
Begin VB.Menu MENU1224
Caption = "无背景"
End
End
Begin VB.Menu MENU123
Caption = "背景音乐[&M]"
Begin VB.Menu MENU1231
Caption = "背景音乐一"
End
Begin VB.Menu MENU1232
Caption = "背景音乐二"
End
Begin VB.Menu MENU1233
Caption = "背景音乐三"
End
Begin VB.Menu MENU1234
Caption = "背景音乐四"
End
Begin VB.Menu MENU1235
Caption = "背景音乐五"
End
Begin VB.Menu menu1236
Caption = "背景音乐六"
End
Begin VB.Menu MENU1238
Caption = "播放CD唱片"
End
Begin VB.Menu MENU1237
Caption = "切换或取消"
End
End
Begin VB.Menu MENU124
Caption = "系统路径设置[&S]"
End
End
Begin VB.Menu MENUDOT2
Caption = "-"
End
Begin VB.Menu MENUEXIT
Caption = "退出[&X]"
End
End
Begin VB.Menu MENU2
Caption = "数据管理[&D]"
Begin VB.Menu MENUADD
Caption = "添加和删除[&A]"
End
Begin VB.Menu MNUDATAOUT
Caption = "数据库导出[&U]"
Begin VB.Menu MNUFILENEW
Caption = "将现数据库导出至A:盘"
End
Begin VB.Menu MNUFILEOLD
Caption = "将旧数据库导出至A:盘"
End
End
Begin VB.Menu MNUDATAIN
Caption = "A盘导入数据[&I]"
End
Begin VB.Menu MENUOUT
Caption = "文件操作[&O]"
End
End
Begin VB.Menu MENU3
Caption = "信息浏览[&L]"
End
Begin VB.Menu MENU6
Caption = "资讯查询[&Q]"
End
Begin VB.Menu MENU5
Caption = "数据统计[&C]"
End
Begin VB.Menu MENU8
Caption = "工具箱[&T]"
Begin VB.Menu MENU81
Caption = "书写板"
End
Begin VB.Menu MENU8DOT1
Caption = "-"
End
Begin VB.Menu MENU82
Caption = "计算器"
End
Begin VB.Menu MENU8DOT2
Caption = "-"
End
Begin VB.Menu MENU83
Caption = "扑克游戏"
End
Begin VB.Menu MENU8DOT5
Caption = "-"
End
Begin VB.Menu MENU84
Caption = "挖地雷游戏"
End
Begin VB.Menu menu8dot6
Caption = "-"
End
Begin VB.Menu MENU85
Caption = "CD播放器"
End
End
Begin VB.Menu MENU7
Caption = "帮助[&H]"
Begin VB.Menu MENU71
Caption = "使用说明[&D]"
End
Begin VB.Menu MENU7DIT1
Caption = "-"
End
Begin VB.Menu MENU72
Caption = "关于[&A]..."
End
Begin VB.Menu MENUDOT4
Caption = "-"
End
Begin VB.Menu MENU73
Caption = "系统信息[&S]"
End
End
End
Attribute VB_Name = "FRMDANG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Private Sub Form_Activate()
If FRMDANG.WindowState = 2 Then
Call Form_DblClick
Else
If FRMDANG.WindowState = 0 Then
Call Form_DblClick
End If
End If
End Sub
Private Sub Form_DblClick()
Image1.Left = (FRMDANG.Left + FRMDANG.Width) - 855
Image1.Top = 15
Line1.X1 = 0
Line1.X2 = FRMDANG.Width
End Sub
Private Sub Form_Load()
On Error GoTo ERR
Timer1.Enabled = True
Image1.Left = (FRMDANG.Left + FRMDANG.Width) - 855
Image1.Top = 15
Line1.X1 = 0
Line1.X2 = FRMDANG.Width
MENU2.Enabled = False
MENU3.Enabled = False
MENU5.Enabled = False
MENU6.Enabled = False
MENU7.Enabled = False
MENU12.Enabled = False
MENU2.Visible = False
MENU3.Visible = False
MENU5.Visible = False
MENU6.Visible = False
MENU7.Visible = False
Open App.Path + "\system\data.ini" For Input As #1
Input #1, PASSWORD
Close #1
Open App.Path + "\system\PIC.TXT" For Input As #1
Input #1, PIC
Close #1
Open App.Path + "\system\winpath.txt" For Input As #1
Input #1, winpath
Close #1
FRMDANG.Picture = LoadPicture(PIC)
'Dim DA, DB, DC As Date
'Dim Date0 As String
'Dim i As Integer
'DA = CDate(FileDateTime(App.Path + "\data.ini"))
'DB = Now
'DC = Day(DB - DA)
'Date0 = Right(CStr(DC), 2)
'If Left(Date0, 1) = "-" Then
' Date0 = Right(Date0, 1)
'End If
'i = CInt(Right(DC, 2))
'If (DB - DA) > 10 Then
'MsgBox "请购买正版软件!", vbOKOnly
'unload Me
'Exit Sub
'End
'End If
'也可设置一个全局变量,每使用一次它就减少1,直到减为0结束软件的使用.
ERR:
'MsgBox "Error:" & ERR & " " & error$
Exit Sub
End Sub
Private Sub Form_Resize()
If FRMDANG.WindowState = 2 Then
Call Form_DblClick
Else
If FRMDANG.WindowState = 0 Then
Call Form_DblClick
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub MENU121_Click()
FRMDANG.Enabled = False
Load FRMSETUP
FRMSETUP.Show
End Sub
Private Sub menu1221_Click()
On Error GoTo error
FRMDANG.Picture = LoadPicture(App.Path + "\ICON\BAKGRD1.jpg")
PIC = App.Path + "\ICON\BAKGRD1.jpg"
error:
Exit Sub
End Sub
Private Sub MENU1222_Click()
On Error GoTo error
FRMDANG.Picture = LoadPicture(App.Path + "\icon\BAKGRD2.jpg")
PIC = App.Path + "\ICON\BAKGRD2.jpg"
error:
Exit Sub
End Sub
Private Sub MENU1223_Click()
On Error GoTo error
FRMDANG.Picture = LoadPicture(App.Path + "\icon\bAKGRD3.jpg")
PIC = App.Path + "\ICON\bAKGRD3.jpg"
error:
Exit Sub
End Sub
Private Sub MENU1224_Click()
On Error GoTo error
FRMDANG.Picture = LoadPicture("")
PIC = ""
error:
Exit Sub
End Sub
Private Sub MENU1225_Click()
On Error GoTo error
FRMDANG.Picture = LoadPicture(App.Path + "\ICON\BAKGRD4.jpg")
PIC = App.Path + "\ICON\BAKGRD4.jpg"
error:
Exit Sub
End Sub
Private Sub MENU1226_Click()
On Error GoTo error
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -