?? frmmain.frm
字號(hào):
VERSION 5.00
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "客戶管理信息系統(tǒng)"
ClientHeight = 4695
ClientLeft = 165
ClientTop = 735
ClientWidth = 7335
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.Menu Menu_SystemMange
Caption = "系統(tǒng)管理"
Begin VB.Menu Menu_AddUser
Caption = "添加用戶"
End
Begin VB.Menu Menu_ChangePWD
Caption = "修改密碼"
End
Begin VB.Menu Menu_Exit
Caption = "退出系統(tǒng)"
End
End
Begin VB.Menu Menu_PerMange
Caption = "個(gè)人信息管理"
Begin VB.Menu Menu_AddPer
Caption = "添加個(gè)人信息"
End
Begin VB.Menu Menu_ChangePer
Caption = "修改個(gè)人信息"
End
Begin VB.Menu Menu_CheckPer
Caption = "查詢個(gè)人信息"
End
End
Begin VB.Menu Menu_ComMange
Caption = "企業(yè)信息管理"
Begin VB.Menu Menu_ChangeCom
Caption = "修改企業(yè)信息"
End
Begin VB.Menu Menu_CheckCom
Caption = "查詢企業(yè)信息"
End
Begin VB.Menu Menu_DelCom
Caption = "刪除企業(yè)信息"
End
End
Begin VB.Menu Menu_Tools
Caption = "工具"
Begin VB.Menu Menu_SendMail
Caption = "發(fā)送電子郵件"
End
Begin VB.Menu Menu_DataExport
Caption = "數(shù)據(jù)導(dǎo)出"
End
End
Begin VB.Menu Menu_Help
Caption = "幫助"
Begin VB.Menu Menu_About
Caption = "關(guān)于"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Menu_About_Click() '關(guān)于對(duì)話框
frmAbout.Show
frmAbout.ZOrder 0
End Sub
Private Sub Menu_AddPer_Click() '添加客戶信息
ichangeFlag = 1
frmAddPer.Show
frmAddPer.ZOrder 0
End Sub
Private Sub Menu_AddUser_Click() '添加用戶
frmAddUser.Show
frmAddUser.ZOrder 0
End Sub
Private Sub Menu_ChangeCom_Click() '查詢公司信息
ichangeFlag = 2
frmComResult.Show
frmComResult.ZOrder 0
End Sub
Private Sub Menu_ChangePer_Click() '修改個(gè)人信息
ichangeFlag = 2
frmPerResult.Show
frmPerResult.ZOrder 0
End Sub
Private Sub Menu_ChangePWD_Click() '修改密碼
frmChangePWD.Show
frmChangePWD.ZOrder
End Sub
Private Sub Menu_CheckCom_Click() '修改公司信息
frmCheckCompany.Show
frmCheckCompany.ZOrder 0
End Sub
Private Sub Menu_CheckPer_Click() '查詢個(gè)人信息
frmCheckPerson.Show
frmCheckPerson.ZOrder 0
End Sub
Private Sub Menu_DataExport_Click() '導(dǎo)出數(shù)據(jù)
frmExport.Show
frmExport.ZOrder 0
End Sub
Private Sub Menu_DelCom_Click() '刪除公司信息
ichangeFlag = 2
frmComResult.Show
frmComResult.ZOrder 0
End Sub
Private Sub Menu_Exit_Click() '退出系統(tǒng)
Unload Me
Exit Sub
End Sub
Private Sub Menu_SendMail_Click() '發(fā)送Email
ichangeFlag = 2
frmPerResult.Show
frmPerResult.ZOrder 0
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -