📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{37A003DF-226E-449F-BDCC-DD017B04B06B}#1.0#0"; "HookMenu.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H00FFFFFF&
Caption = "财政票据准购薄管理系统"
ClientHeight = 6855
ClientLeft = 165
ClientTop = 735
ClientWidth = 9420
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin HookMenu.ctxHookMenu ctxHookMenu1
Left = 9000
Top = 5520
_ExtentX = 900
_ExtentY = 900
BmpCount = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 1
Top = 0
Width = 9420
_ExtentX = 16616
_ExtentY = 1508
ButtonWidth = 1376
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "添加新单位信息"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "浏览单位，并且对单位进行管理操作"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "检索票据项目"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "管理依据文件"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "主管部门管理"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "数据备份操作"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "修改密码"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "关于"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "退出系统"
ImageIndex = 9
EndProperty
EndProperty
OLEDropMode = 1
Begin InetCtlsObjects.Inet Inet1
Left = 8760
Top = 120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 9000
Top = 4920
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 45
ImageHeight = 45
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":84CA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":8BAF
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":9309
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":9912
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":9FE3
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":A625
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":AD87
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":B4CD
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":BB8C
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 6480
Width = 9420
_ExtentX = 16616
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 10980
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
TextSave = "2005-7-8"
Object.ToolTipText = "当前日期"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
TextSave = "6:34"
Object.ToolTipText = "当前时间"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 9000
Top = 6000
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Menu pjgl
Caption = "单位管理"
Begin VB.Menu kjpj
Caption = "添加单位"
Shortcut = ^D
End
Begin VB.Menu zfpj
Caption = "管理单位"
Shortcut = ^E
End
End
Begin VB.Menu pjtj
Caption = "项目管理"
Begin VB.Menu cxpj
Caption = "票据项目管理"
End
Begin VB.Menu dybb
Caption = "依据文件管理"
End
End
Begin VB.Menu pjsb
Caption = "辅助管理"
Begin VB.Menu sbsj
Caption = "主管部门管理"
End
Begin VB.Menu zzsj
Caption = "数据备份"
End
End
Begin VB.Menu xtgl
Caption = "系统管理"
Begin VB.Menu xgmm
Caption = "修改密码"
End
Begin VB.Menu rygl
Caption = "人员管理"
End
Begin VB.Menu zxsj
Caption = "在线升级"
End
End
Begin VB.Menu gy
Caption = "关于"
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bzsy_Click()
On Error Resume Next
CommonDialog1.CancelError = True
'设置 HelpCommand 属性
CommonDialog1.HelpCommand = cdlHelpForceFile
'指定帮助文件。
CommonDialog1.HelpFile = App.Path & "\help.hlp"
'显示 Windows 帮助引擎。
CommonDialog1.ShowHelp
End Sub
Private Sub kjpj_Click()
Pub_dwID = 0
Call goform(Form1, "0,1,2")
End Sub
Private Sub zfpj_Click()
Call goform(Form2, "0,1,2")
End Sub
Private Sub rkpj_Click()
Call goform(Form2, "1,2")
End Sub
Private Sub cxpj_Click()
Call goform(Form4, "2")
End Sub
Private Sub dybb_Click()
Call goform(Form5, "2")
End Sub
Private Sub sbsj_Click()
Call goform(Form3, "2")
End Sub
Private Sub zxsj_Click()
On Error Resume Next
Dim updatever As String
Dim transfersuccess As Long
updates = True
InternetDir = "http://www.sheny.com/update/fina/"
If MsgBox("从互联网升级？", vbYesNo) = vbYes Then
transfersuccess = GetInternetFile(Inet1, InternetDir & "update.up", App.Path)
StatusBar1.Panels(1).Text = "正在从互联网获取信息..."
If transfersuccess = 0 Then
MsgBox "连接Internet服务器失败"
Exit Sub
End If
Internet = True
Else
If Len(Dir$(App.Path & "\update.up")) > 0 Then
Open App.Path & "\update.up" For Input As #1
Line Input #1, updatever
upver = CSng(formnum(updatever))
Close #1
If upver > Version Then
Shell App.Path & "\update.exe"
End
Else
StatusBar1.Panels(1).Text = "无新版本可升级..."
Exit Sub
End If
Else
StatusBar1.Panels(1).Text = "升级文件不存在..."
Exit Sub
End If
End If
Open App.Path & "\update.up" For Input As #1
Line Input #1, updatever
upver = CSng(formnum(updatever))
If upver > Version Then
StatusBar1.Panels(1).Text = "正在从当前版本" & Version & "升级到" & upver & "..."
Do While Not EOF(1)
Line Input #1, updatever
If updatever = "" Then Exit Do
upinfos = Split(updatever, "|")
StatusBar1.Panels(1).Text = "正在下载" & upinfos(0) & "文件..."
transfersuccess = GetInternetFile(Inet1, InternetDir & upinfos(0) & ".up", App.Path)
If transfersuccess <> CLng(formnum(upinfos(1))) Then
StatusBar1.Panels(1).Text = upinfos(0) & "文件下载校验错误，升级失败，请与博易公司联系..."
Close #1
Exit Sub
End If
Loop
Else
StatusBar1.Panels(1).Text = "当前为最新版本，无需升级..."
updates = False
End If
Close #1
If Err.Number = 0 Then
If updates Then
StatusBar1.Panels(1).Text = "正在关闭当前程序启动升级程序..."
Shell App.Path & "\update.exe"
End
End If
Else
StatusBar1.Panels(1).Text = "升级过程中出现错误[" & Err.Description & "]..."
End If
End Sub
Private Sub zzsj_Click()
Call goform(Form10, "2")
End Sub
Private Sub xgmm_Click()
Call goform(Form8, "0,1,2")
End Sub
Private Sub rygl_Click()
Call goform(Form9, "2")
End Sub
Private Sub sjbf_Click()
Call goform(Form10, "1,2")
End Sub
Private Sub gy_Click()
Call goform(Form11, "0,1,2,3")
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Index
Case 1
Pub_dwID = 0
Call goform(Form1, "0,1,2")
Case 2
Call goform(Form2, "0,1,2")
Case 3
Call goform(Form4, "2")
Case 4
Call goform(Form5, "2")
Case 5
Call goform(Form3, "2")
Case 6
Call goform(Form10, "2")
Case 7
Call goform(Form8, "0,1,2")
Case 8
Call goform(Form9, "1,2")
Case 9
If MsgBox("你确定要退出系统吗？", vbYesNo) = vbYes Then End
Cancel = True
Case 11
End Select
End Sub
Private Sub MDIForm_Load()
On Error Resume Next
Load frm1
Me.Picture = frm1.Image
Unload frm1
lockForm = False
'MsgBox AdminArea
End Sub
Private Sub MDIForm_Resize()
On Error Resume Next
If Me.WindowState <> 1 Then
If Me.Width < 8800 Then Me.Width = 8800
If Me.Height < 5000 Then Me.Height = 5000
End If
End Sub
Private Sub sdck_Click()
On Error Resume Next
lockForm = True
If Form1.Visible = True Then Form1.Visible = False
If Form2.Visible = True Then Form2.Visible = False
If Form3.Visible = True Then Form3.Visible = False
If Form4.Visible = True Then Form4.Visible = False
If Form5.Visible = True Then Form5.Visible = False
If Form6.Visible = True Then Form6.Visible = False
If Form7.Visible = True Then Form7.Visible = False
If Form8.Visible = True Then Form8.Visible = False
If Form9.Visible = True Then Form9.Visible = False
If Form10.Visible = True Then Form10.Visible = False
Call goform(Form12, "0,1,2")
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
If MsgBox("你确定要退出系统吗？", vbYesNo) = vbYes Then End
Cancel = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -