📄 main_frm.frm
字号:
VERSION 5.00
Object = "{4932CEF1-2CAA-11D2-A165-0060081C43D9}#2.0#0"; "Actbar2.ocx"
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "Resize32.ocx"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form main_FRM
Caption = "企业资源信息管理系统 CH_2003 VER+"
ClientHeight = 8625
ClientLeft = 60
ClientTop = 345
ClientWidth = 11910
Icon = "main_FRM.frx":0000
LinkTopic = "Form1"
ScaleHeight = 8625
ScaleWidth = 11910
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin ActiveBar2LibraryCtl.ActiveBar2 ActiveBar21
Align = 2 'Align Bottom
Height = 8625
Left = 0
TabIndex = 0
Top = 0
Width = 11910
_LayoutVersion = 1
_ExtentX = 21008
_ExtentY = 15214
_DataPath = ""
Bands = "main_FRM.frx":030A
Begin ResizeLibCtl.ReSize ReSize1
Left = 2520
Top = 4890
_Version = 196608
_ExtentX = 741
_ExtentY = 741
_StockProps = 64
Enabled = -1 'True
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 8625
FormDesignWidth = 11910
End
Begin VB.PictureBox Picture1
Height = 7500
Left = 1530
Picture = "main_FRM.frx":6123B
ScaleHeight = 7440
ScaleWidth = 10275
TabIndex = 1
Top = 840
Width = 10335
Begin MSComDlg.CommonDialog Dialog1
Left = 870
Top = 6480
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Begin VB.Timer Timer1
Interval = 1000
Left = 6840
Top = -450
End
Begin InetCtlsObjects.Inet Inet1
Left = 4590
Top = 4080
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
Protocol = 4
RemoteHost = "www.hnkj21.com"
URL = "http://www.hnkj21.com"
End
End
End
Attribute VB_Name = "main_FRM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveBar21_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)
Select Case Tool.Name
Case "Tool5"
Load sys_xtts
sys_xtts.Show vbModal
Case "Tool6"
Load frmSplash
frmSplash.Show vbModal
Case "Tool55"
Load sys_QXSZ
sys_QXSZ.Show vbModal
Case "Tool94"
Load yy_cpbj
yy_cpbj.Show vbModal
Case "Tool95"
Load yy_khbj
yy_khbj.Show vbModal
Case "Tool19"
If MsgBox("是否真的退出系统？", vbYesNo + 32, "系统提示") = vbYes Then
End
Else
Exit Sub
End If
Case "Tool"
Load frmSplash
frmSplash.Show vbModal
Case "Tool84"
Load yy_khzl
yy_khzl.Show vbModal
Case "Tool90"
Load bg_jck_zxd
bg_jck_zxd.Show vbModal
Case "Tool56"
Load sys_gzry
sys_gzry.Show vbModal
Case "Tool88"
Load sys_bzsz
sys_bzsz.Show vbModal
Case "Tool8"
Load bg_jck_fp
bg_jck_fp.Show vbModal
Case "Tool57"
Load sys_bmsz
sys_bmsz.Show vbModal
Case "Tool50"
Load sys_bmsz
sys_bmsz.Show vbModal
Case "Tool57"
Load sys_qysz
xj_GTXL_jYdj.Show vbModal
Case "Tool85"
Load sys_qysz
sys_qysz.Show 0
Case "Tool31"
Load GY_Xljy_XMsz
GY_Xljy_XMsz.Show 0
Case "Tool87"
Load sys_fkfs
sys_fkfs.Show 0
Case "Tool32"
Load XJ_XcG_XMsZ
XJ_XcG_XMsZ.Show 0
Case "Tool93"
Load sYs_YlMC
sYs_YlMC.Show 0
Case "Tool54"
Load sys_gssz
sys_gssz.Show 0
Case "Tool86"
Load sys_zffs
sys_zffs.Show 0
Case "Tool39"
Load SH_SGjy_XMsz
SH_SGjy_XMsz.Show 0
Case "Tool40"
Load SH_LZjy_XMSZ
SH_LZjy_XMSZ.Show 0
Case "Tool38"
Load SH_LzSGjy_XMSZ
SH_LzSGjy_XMSZ.Show 0
Case "Tool41"
Load SH_xTXzDGC_xmsz
SH_xTXzDGC_xmsz.Show 0
Case "Tool11"
Load SH_GGJY_DJb
SH_GGJY_DJb.Show 0
Case "Tool12"
Load SH_SGJY_DJB
SH_SGJY_DJB.Show 0
Case "Tool47"
Load SH_LZSG_DJB
SH_LZSG_DJB.Show 0
Case "Tool48"
Load SH_LZJY_DJB
SH_LZJY_DJB.Show 0
Case "Tool49"
Load SH_XtXzDGC_DJB
SH_XtXzDGC_DJB.Show 0
Case "Tool52"
Load QT_FSjy_DJB
QT_FSjy_DJB.Show 0
Case "Tool45"
Load QT_XJMP_XMSZ
QT_XJMP_XMSZ.Show 0
Case "Tool53"
Load QT_XJMP_DJB
QT_XJMP_DJB.Show 0
Case "Tool71"
Load GY_XLjY_CxFX
GY_XLjY_CxFX.Show 0
Case "Tool72"
Load SH_xLjY_CxFx
SH_xLjY_CxFx.Show 0
Case "Tool73"
Load XJ_XZjy_CxFx
XJ_XZjy_CxFx.Show 0
Case "Tool78"
Load sYs_YlMC
sYs_YlMC.Show 0
Case "Tool79"
Load SH_zHjY_DJB
SH_zHjY_DJB.Show 0
Case "Tool80"
Load GY_ZHJY_DJB
GY_ZHJY_DJB.Show 0
Case "Tool59"
Load frmAbout
frmAbout.Show 0
Case "Tool81"
Load ZH_SfTj_RPT
ZH_SfTj_RPT.Show 0
Case "Tool89"
Load Sys_GKSZ
Sys_GKSZ.Show 0
Case "Tool83"
Load ZH_JYjL_CXxG
ZH_JYjL_CXxG.Show 0
Case "Tool61"
Load frmODBCLogon
frmODBCLogon.Show 0
Case "Tool60"
Load sYS_ReS_BaK
sYS_ReS_BaK.Show 0
Case "Tool96"
Load yy_khdd
yy_khdd.Show 0
Case "Tool127"
Load CK_YLcK_dJB
CK_YLcK_dJB.Show 0
Case "Tool97"
Load sys_SSDZ
sys_SSDZ.Show 0
Case "Tool98"
Load Sys_GYSZL
Sys_GYSZL.Show 0
Case "Tool99"
Load yy_gysbj
yy_gysbj.Show 0
Case "Tool100"
Load cg_yl_cgd
cg_yl_cgd.Show 0
Case "Tool101"
Load Cg_SH_DjB
Cg_SH_DjB.Show 0
Case "Tool102"
Load Cg_wLtH_DjB
Cg_wLtH_DjB.Show 0
Case "Tool106"
Load YY_KhSh_DjB
YY_KhSh_DjB.Show 0
Case "Tool107"
Load BG_ht_bab
BG_ht_bab.Show 0
Case "Tool108"
Load CG_SH_CG_ZHTJ
CG_SH_CG_ZHTJ.Show 0
Case "Tool109"
Load SCBM_kh_ddWj
SCBM_kh_ddWj.Show 0
Case "Tool110"
Load cg_ShQk_TJB
cg_ShQk_TJB.Show 0
Case "Tool112"
Load yy_KHDD_SH_tjB
yy_KHDD_SH_tjB.Show 0
Case "Tool114"
Load yy_khth_frm
yy_khth_frm.Show 0
Case "Tool115"
Load YY_khth_BS
YY_khth_BS.Show 0
Case "Tool117"
Load YY_KhBj_CxFx
YY_KhBj_CxFx.Show 0
Case "Tool120"
Load CG_GysBJ_CxFx
CG_GysBJ_CxFx.Show 0
Case "Tool121"
Load Yy_ThBs_TJB
Yy_ThBs_TJB.Show 0
Case "Tool103"
Load CK_cprk_Djb
CK_cprk_Djb.Show 0
Case "Tool125"
Load CK_CpCk_DjB
CK_CpCk_DjB.Show 0
Case "Tool104"
Load Ck_BcPRk_DjB
Ck_BcPRk_DjB.Show 0
Case "Tool126"
Load CK_BCpCk_DjB
CK_BCpCk_DjB.Show 0
Case "Tool105"
Load CK_YlRk_DjB
CK_YlRk_DjB.Show 0
Case "Tool122"
Load Ck_CcPrK_DjB
Ck_CcPrK_DjB.Show 0
Case "Tool128"
Load Ck_CcPcK_DjB
Ck_CcPcK_DjB.Show 0
Case "Tool133"
Load Ck_CpRk_CxTjB
Ck_CpRk_CxTjB.Show 0
Case "Tool134"
Load YY_CpCk_CxTjB
YY_CpCk_CxTjB.Show 0
Case "Tool135"
Load Ck_CP_KcTjB
Ck_CP_KcTjB.Show 0
Case "Tool136"
Load Ck_BcPrK_CxTjB
Ck_BcPrK_CxTjB.Show 0
Case "Tool137"
Load YY_BcpcK_cxTjB
YY_BcpcK_cxTjB.Show 0
Case "Tool138"
Load Ck_BcP_kcTjB
Ck_BcP_kcTjB.Show 0
Case "Tool139"
Load Ck_yLrK_CxTjB
Ck_yLrK_CxTjB.Show 0
Case "Tool140"
Load YY_yLcK_CxTjB
YY_yLcK_CxTjB.Show 0
Case "Tool143"
Load Ck_YLKc_TjB
Ck_YLKc_TjB.Show 0
Case "Tool123"
Load SC_BoM_RpT
SC_BoM_RpT.Show 0
Case "Tool155"
Load SC_ZzTz_DjB
SC_ZzTz_DjB.Show 0
Case "Tool156"
Load Sc_ZjH_PQB
Sc_ZjH_PQB.Show 0
Case "Tool189"
Load Sc_GxSz_DjB
Sc_GxSz_DjB.Show 0
Case "Tool188"
Load yy_xsfp
yy_xsfp.Show 0
Case "Tool190"
Load Cg_ThBs_DjB
Cg_ThBs_DjB.Show 0
Case "Tool191"
Load sys_JLDW
sys_JLDW.Show 0
Case "Tool192"
Load Sc_jH_MRP
Sc_jH_MRP.Show 0
Case "Tool145"
Load Ck_CcpRk_CxtJb
Ck_CcpRk_CxtJb.Show 0
Case "Tool146"
Load YY_CcPcK_CxTjB
YY_CcPcK_CxTjB.Show 0
Case "Tool147"
Load CK_CcP_KcTjB
CK_CcP_KcTjB.Show 0
Case "Tool160"
Load Sc_LLtZ_DjB
Sc_LLtZ_DjB.Show 0
Case "Tool157"
Load Sc_RB_DjB
Sc_RB_DjB.Show 0
Case "Tool199"
Load Sc_WWJg_GCZL
Sc_WWJg_GCZL.Show 0
End Select
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("是否真的退出系统？", vbYesNo + 32, "系统提示") = vbYes Then
Cancel = 0
Else
Cancel = 1
Exit Sub
End If
End Sub
Private Sub Form_Resize()
Me.Picture1.Top = Me.ActiveBar21.Bands("Band7").Height * 1.7 + 10
Me.ActiveBar21.Top = -1
'Picture1.Height = Me.Height - Me.ActiveBar21.Bands("Band7").Height * 3 - 200
Me.Picture1.Left = Me.ActiveBar21.Bands("Band8").Width + 4
Me.Picture1.Width = Me.Width - Me.ActiveBar21.Bands("Band8").Width - 200
End Sub
Private Sub Timer1_Timer()
Me.ActiveBar21.Bands("Band7").Tools("Tool23").Caption = VBA.Time$
Me.ActiveBar21.Refresh
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -