📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm FrmMain
BackColor = &H00008000&
Caption = "院级办公室管理信息系统"
ClientHeight = 5595
ClientLeft = 165
ClientTop = 630
ClientWidth = 7875
Icon = "FrmMain.frx":0000
LinkTopic = "MDIForm1"
Picture = "FrmMain.frx":0CCA
WindowState = 2 'Maximized
Begin VB.PictureBox PicCaption
Align = 1 'Align Top
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 720
Left = 0
Picture = "FrmMain.frx":1448A
ScaleHeight = 720
ScaleWidth = 7875
TabIndex = 1
TabStop = 0 'False
Top = 0
Visible = 0 'False
Width = 7875
Begin VB.PictureBox PicBorder
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 150
Left = 0
Picture = "FrmMain.frx":2ACCE
ScaleHeight = 150
ScaleWidth = 1050
TabIndex = 2
TabStop = 0 'False
Top = 0
Visible = 0 'False
Width = 1050
End
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 0
Top = 5280
Width = 7875
_ExtentX = 13891
_ExtentY = 556
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 7
Alignment = 1
Enabled = 0 'False
TextSave = "KANA"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 3
Alignment = 1
Enabled = 0 'False
TextSave = "Ins"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
TextSave = "2004-4-4"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
TextSave = "17:50"
EndProperty
EndProperty
End
Begin VB.Menu xitongguanli
Caption = "系统管理"
Begin VB.Menu tianjiayonghu
Caption = "添加用户"
End
Begin VB.Menu shchuser
Caption = "删除用户"
End
Begin VB.Menu xiugaimima
Caption = "修改密码"
End
Begin VB.Menu tuichuxitong
Caption = "退出系统"
End
End
Begin VB.Menu Renyuan
Caption = "人员管理"
Begin VB.Menu tianjiarenyuan
Caption = "添加人员"
End
Begin VB.Menu liulan
Caption = "查询浏览"
End
Begin VB.Menu shanchu
Caption = "修改删除"
End
End
Begin VB.Menu gongwenguanli
Caption = "公文管理"
Begin VB.Menu fadd
Caption = "添加公文"
End
Begin VB.Menu fchliu
Caption = "查询浏览"
End
Begin VB.Menu fxsh
Caption = "修改删除"
End
End
Begin VB.Menu caichanguanli
Caption = "财产管理"
Begin VB.Menu tianjiacaichan
Caption = "添加财产"
End
Begin VB.Menu chaxunliulan
Caption = "查询浏览"
End
Begin VB.Menu xiugaishanchu
Caption = "修改删除"
End
End
Begin VB.Menu keyanguanli
Caption = "科研管理"
Begin VB.Menu lunwenguanli
Caption = "论文著作"
Begin VB.Menu lunadd
Caption = "添加论文"
End
Begin VB.Menu lunxiu
Caption = "修改删除"
End
End
Begin VB.Menu ketiguanli
Caption = "课题管理"
Begin VB.Menu ketiadd
Caption = "添加课题"
End
Begin VB.Menu ketixiu
Caption = "修改删除"
End
End
Begin VB.Menu lunwenketichaxun
Caption = "论文课题查询"
End
End
Begin VB.Menu gzlmanag
Caption = "课时管理"
Begin VB.Menu wtianjia
Caption = "添加信息"
End
Begin VB.Menu wchxun
Caption = "查询浏览"
End
Begin VB.Menu wxg
Caption = "修改删除"
End
End
Begin VB.Menu help
Caption = "帮助"
Begin VB.Menu bangzhu
Caption = "帮助"
End
Begin VB.Menu guanyu
Caption = "关于"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private m_cN As cNeoCaption
Dim mrc As ADODB.Recordset
Private Sub bangzhu_Click()
ShellExecute Me.hwnd, "Open", "c:\help\my.chm", "", "", SW_SHOWNORMAL
End Sub
Private Sub chaxunliulan_Click()
FrmProcl.Show
End Sub
Private Sub fadd_Click()
FrmSfadd.Show
End Sub
Private Sub fchliu_Click()
FrmSfcl.Show
End Sub
Private Sub sub_Skin(fMain As MDIForm, cN As cNeoCaption)
cN.ActiveCaptionColor = &HFFFFFF '活动窗体的标题前景色
cN.InActiveCaptionColor = &HC0FFC0 '非活动窗体的标题前景色
cN.ActiveMenuColor = &H400000 '活动菜单前景色
cN.ActiveMenuColorOver = &H8000& '激活活动菜单前景色
cN.InActiveMenuColor = &H0 '非活动菜单前景色
cN.MenuBackgroundColor = &H8000000F '菜单背景颜色
cN.CaptionFont.Name = "宋体" '标题字体
cN.CaptionFont.Size = 9 '标题字号
cN.MenuFont.Name = "宋体" '菜单字体
cN.MenuFont.Size = 9 '菜单字号
cN.Attach fMain, fMain.PicCaption.Picture, fMain.PicBorder.Picture, 19, 20, 90, 140, 240, 400 '窗体外观参数
fMain.BackColor = &H8000000F '窗体背景
End Sub
Private Sub fxsh_Click()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from gongwenguanli"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'判断数据库中是否有记录
'如果没有任何人员记录，询问是否添加记录
If mrc.BOF Then
str2$ = MsgBox("数据库中没有任何文件记录！" & Chr(13) & " 添加文件信息？", vbOKCancel + vbQuestion, "添加信息？")
If str2$ = vbOK Then
FrmSfadd.Show
Else
End If
Else
FrmSfmd.Show
End If
End Sub
Private Sub guanyu_Click()
frmAbout.Show
End Sub
Private Sub ketiadd_Click()
FrmBleadd.Show
End Sub
Private Sub keticha_Click()
FrmBlecl.Show
End Sub
Private Sub ketixiu_Click()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from ketiguanli"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'判断数据库中是否有记录
'如果没有任何人员记录，询问是否添加记录
If mrc.BOF Then
str2$ = MsgBox("数据库中没有任何课题记录！" & Chr(13) & " 添加信息？", vbOKCancel + vbQuestion, "添加信息？")
If str2$ = vbOK Then
FrmBleadd.Show
Else
End If
Else
FrmBlemd.Show
End If
End Sub
Private Sub liulan_Click()
FrmRencl.Show
End Sub
Private Sub lunadd_Click()
FrmArtadd.Show
End Sub
Private Sub luncha_Click()
FrmArtcl.Show
End Sub
Private Sub lunwenketichaxun_Click()
Frmlunwenketicl.Show
End Sub
Private Sub lunxiu_Click()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from lunwenguanli"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'判断数据库中是否有记录
'如果没有任何人员记录，询问是否添加记录
If mrc.BOF Then
str2$ = MsgBox("数据库中没有任何论文或著作记录！" & Chr(13) & " 添加信息？", vbOKCancel + vbQuestion, "添加信息？")
If str2$ = vbOK Then
FrmArtadd.Show
Else
End If
Else
FrmArtmd.Show
End If
End Sub
Private Sub MDIForm_Load()
If username <> "Administrator" Then
tianjiayonghu.Enabled = False
shchuser.Enabled = False
End If
Set m_cN = New cNeoCaption
Call sub_Skin(Me, m_cN) '更改窗体皮肤
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
m_cN.Detach '取消窗体皮肤
End Sub
Private Sub shanchu_Click()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from personnel_Infor"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'判断数据库中是否有记录
'如果没有任何人员记录，询问是否添加记录
If mrc.BOF Then
str2$ = MsgBox("数据库中没有任何人员记录！" & Chr(13) & " 添加人员信息？", vbOKCancel + vbQuestion, "添加信息？")
If str2$ = vbOK Then
FrmRenadd.Show
Else
End If
Else
FrmRenmd.Show
End If
End Sub
Private Sub shchuser_Click()
FrmScuser.Show
End Sub
Private Sub tianjiacaichan_Click()
FrmProadd.Show
End Sub
Private Sub tianjiarenyuan_Click()
FrmRenadd.Show
End Sub
Private Sub tianjiayonghu_Click()
FrmUseradd.Show
End Sub
Private Sub tuichuxitong_Click()
Unload Me
End Sub
Private Sub wchxun_Click()
FrmWorcl.Show
End Sub
Private Sub wtianjia_Click()
FrmWoradd.Show
End Sub
Private Sub wxg_Click()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from gongzuoliang"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'判断数据库中是否有记录
'如果没有任何财产记录，询问是否添加记录
If mrc.BOF Then
str2$ = MsgBox(" 数据库中没有任何教师的工作量记录！" & Chr(13) & " 添加工作量信息？", vbOKCancel + vbQuestion, "添加信息？")
If str2$ = vbOK Then
FrmWoradd.Show
Else
End If
Else
FrmWormd.Show
End If
End Sub
Private Sub xiugaimima_Click()
FrmModipass.Show
End Sub
Private Sub xiugaishanchu_Click()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from caichanguanli"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'判断数据库中是否有记录
'如果没有任何财产记录，询问是否添加记录
If mrc.BOF Then
str2$ = MsgBox("数据库中没有任何财产记录！" & Chr(13) & " 添加财产信息？", vbOKCancel + vbQuestion, "添加信息？")
If str2$ = vbOK Then
FrmProadd.Show
Else
End If
Else
FrmPromd.Show
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -