【VB开源代码栏目提醒】:网学会员VB开源代码为您提供affair.frm参考，解决您在affair.frm学习中工作中的难题，参考学习。
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm MDIForm1
BackColor = &H00C0FFC0&
Caption = "事务管理系统"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 1155
ClientWidth = 4680
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 765
Left = 0
TabIndex = 0
Top = 0
Width = 4680
_ExtentX = 8255
_ExtentY = 1349
ButtonWidth = 900
ButtonHeight = 1191
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "文档"
Key = "bt_wendang"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "财产"
Key = "bt_caichan"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "订单"
Key = "bt_dingdan"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设备"
Key = "bt_shebei"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "bt_tuichu"
ImageIndex = 5
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 8040
Top = 2280
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 27
ImageHeight = 26
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "affair.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "affair.frx":08DA
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "affair.frx":0FEC
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "affair.frx":1746
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "affair.frx":2278
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu file_manage
Caption = "文档管理"
Begin VB.Menu xingwen
Caption = "文件管理"
End
Begin VB.Menu filefind
Caption = "文件查询"
End
Begin VB.Menu sep1
Caption = "-"
End
Begin VB.Menu xinhan
Caption = "信函管理"
End
Begin VB.Menu xinhanfind
Caption = "信函查询"
End
Begin VB.Menu sep2
Caption = "-"
End
Begin VB.Menu baobiaoman
Caption = "报表管理"
End
Begin VB.Menu baobiaofind
Caption = "报表查询"
End
Begin VB.Menu sep3
Caption = "-"
End
Begin VB.Menu tousu
Caption = "投诉管理"
End
Begin VB.Menu tousufind
Caption = "投诉查询"
End
End
Begin VB.Menu caichan_manage
Caption = "财产管理"
Begin VB.Menu caichandengji
Caption = "财产登记"
End
Begin VB.Menu caichanweixiu
Caption = "财产维修"
End
Begin VB.Menu caichantoubao
Caption = "财产投保"
End
Begin VB.Menu caichanzengjian
Caption = "财产增减"
End
End
Begin VB.Menu dingdanman
Caption = "订单管理"
Begin VB.Menu dingdanbrow
Caption = "订单浏览"
End
Begin VB.Menu dingdanfind
Caption = "订单查询"
End
End
Begin VB.Menu shebeiman
Caption = "设备管理"
Begin VB.Menu shebeibrow
Caption = "设备浏览"
End
Begin VB.Menu shebeifind
Caption = "设备查询"
End
End
Begin VB.Menu huiyiman
Caption = "会议管理"
Begin VB.Menu huiyibrow
Caption = "会议浏览"
End
Begin VB.Menu huiyifind
Caption = "会议查询"
End
End
Begin VB.Menu hetongman
Caption = "合同管理"
Begin VB.Menu hetongbrow
Caption = "合同浏览"
End
Begin VB.Menu hetongfind
Caption = "合同查询"
End
End
Begin VB.Menu xitong_manage
Caption = "系统管理"
Begin VB.Menu adduser
Caption = "增加用户"
End
Begin VB.Menu changepw
Caption = "更改密码"
End
Begin VB.Menu exit
Caption = "退出系统"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub adduser_Click()
frmadduser.Show 1
End Sub
Private Sub baobiaofasong_Click()
select_menu = "baobiao"
frmwendang.Show
frmwendang.SetFocus
End Sub
Private Sub baobiaofind_Click()
frmwenjianfind.Show
End Sub
Private Sub baobiaoman_Click()
select_menu = "baobiao"
frmwendang.Show
frmwendang.SetFocus
End Sub
Private Sub caichandengji_Click()
select_menu = "caichandengji"
frmcaichan.Show
frmcaichan.SetFocus
End Sub
Private Sub caichantoubao_Click()
select_menu = "caichantoubao"
frmcaichan.Show
frmcaichan.SetFocus
End Sub
Private Sub caichanweixiu_Click()
select_menu = "caichanweixiu"
frmcaichan.Show
frmcaichan.SetFocus
End Sub
Private Sub caichanzengjian_Click()
select_menu = "caichanzengjian"
frmcaichan.Show
frmcaichan.SetFocus
End Sub
Private Sub changepw_Click()
frmchangepwd.Show
frmchangepwd.SetFocus
End Sub
Private Sub chengepw_Click()
frmchangepwd.Show
frmchangepwd.SetFocus
End Sub
Private Sub dingdanbrow_Click()
frmdingdan.Show
frmdingdan.SetFocus
End Sub
Private Sub dingdanfind_Click()
frmdingdanfind.Show
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub filefind_Click()
frmwenjianfind.Show
End Sub
Private Sub hetongbrow_Click()
frmhetong.Show
frmhetong.SetFocus
End Sub
Private Sub hetongfind_Click()
frmhetongfind.Show
frmhetongfind.SetFocus
End Sub
Private Sub huiyibrow_Click()
frmhuiyi.Show
frmhuiyi.SetFocus
End Sub
Private Sub huiyifind_Click()
frmhuiyifind.Show
frmhuiyifind.SetFocus
End Sub
Private Sub MDIForm_Load()
If userpow = "guest" Then
adduser.Enabled = False
End If
select_menu = ""
End Sub
Private Sub shebeibrow_Click()
frmshebei.Show
frmshebei.SetFocus
End Sub
Private Sub shebeifind_Click()
frmshebeifind.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key '按关键字选择
Case "bt_wendang" '文档按钮
frmwendang.Show
frmwendang.SetFocus
Case "bt_caichan" '财产按钮
frmc
上一篇：
CreateListDlg.cpp
下一篇：
让我掉下眼泪的
2013-9-1
