errormsgmodule.bas

饲料生产控制系统

Attribute VB_Name = "ErrorMsgModule"
Option Explicit

Public Const ErrorMsg1 As String = "僨乕僞儀乕僗傊偺愙懕幐攕偟傑偟偨!"
Public Const ErrorMsg2 As String = "僨乕僞撉崬傒偑幐攕偟傑偟偨!"
Public Const ErrorMsg3 As String = "SQL暥傪幚峴偡傞偲偒僄儔乕偑敪惗偟傑偟偨丅"
Public Const ErrorMsg4 As String = "偙偺僨乕僞傪嶍彍偟傑偡偐丠"
Public Const ErrorMsg6 As String = "儗僐乕僪偑慖戰偝傟偰偄傑偣傫丅"
Public Const ErrorMsg8 As String = "僨乕僞儀乕僗偺峏怴偑幐攕偟傑偟偨丅"
Public Const ErrorMsg11 As String = "尨椏僐乕僪偑悢抣偱偼偁傝傑偣傫丅悢抣偱俈寘偱偡丅"
Public Const ErrorMsg12 As String = "尨椏喊霓偼俈寘傑偱偱偡丅"
Public Const ErrorMsg13 As String = "儘僢僩寁検奐巒帪偺妋擣梫媮偑昁梫偱偡丅" _
                                    & vbLf & "捈偪偵廔椆偟偰儊僯儏乕夋柺偵偟偰偔偩偝偄丅"
Public Const ErrorMsg14 As String = "栠偡僨乕僞偑偁傝傑偣傫!"
Public Const ErrorMsg15 As String = "尨椏柤偼娍帤乮慡妏乯偱侾俆暥帤偱偡丅"
Public Const ErrorMsg16 As String = "價儞No偑偁傝傑偣傫丅"
Public Const ErrorMsg17 As String = "庤摦寁検抣傪搊榐偟傑偡偐丠"


Public Const ErrorMsgTit13 As String = "[儘僢僩寁検奐巒妋擣梫媮]"
Public Const ErrorMsgTit4 As String = "[尨椏儅僗僞乕僨乕僞嶍彍]"
Public Const ErrorMsgTit6 As String = "[尨椏儅僗僞乕僨乕僞嶍彍]"
Public Const ErrorMsgTit1 As String = "[柫暱儅僗僞乕僨乕僞嶍彍]"
Public Const ErrorMsgTit105 As String = "[倁俵攝崌棪儅僗僞乕僨乕僞嶍彍]"
Public Const ErrorMsgTit308_1 As String = "[庤摦寁検抣擖椡]"
Public Const ErrorMsgTit308_2 As String = "[幚愌搊榐]"

Public Const ErrorMsgPrintTit As String = "夋柺報嶞偺妋擣"
Public Const ErrorMsgPrintCon As String = "夋柺報嶞傪奐巒偟傑偡丅媂偟偄偱偟傚偆偐丠"

Public Const ErrorMsgDefTit As String = "[椦寭嶻嬈壓娭]"

'####################################### HFrm000 ########################################
Public Const ErrorMsg000_1 As String = "尰嵼惂屼偱巊梡偟偰偄傞儅僗僞乕傪梊栺偵撉傒弌偟傑偡偐丠"
Public Const ErrorMsg000_2 As String = "梊栺儅僗僞乕傪惂屼儅僗僞乕偵偟傑偡偐乮惂屼儅僗僞乕偑抲偒姺傢傝傑偡乯丠"
Public Const ErrorMsgTit000_1 As String = "[儅僗僞乕撉弌]"
Public Const ErrorMsgTit000_2 As String = "[儅僗僞乕彂崬]"

'####################################### HFrm002 ########################################
Public Const ErrorMsgTit002_1 As String = "[僨乕僞儀乕僗]"

Public Const ErrorMsg002_1 As String = "僨乕僞儀乕僗偺暅尦傪峴偄傑偡丅傛傠偟偄偱偟傚偆偐丠"
Public Const ErrorMsg002_2 As String = "慖戰偝傟偨儅僗僞乕媦傃幚愌僨乕僞傪嶍彍偟傑偡丅傛傠偟偄偱偟傚偆偐丠"
Public Const ErrorMsg002_3 As String = "僨乕僞儀乕僗偺僶僢僋傾僢僾傪峴偄傑偡丅傛傠偟偄偱偟傚偆偐丠"

'####################################### HFrm003 ########################################
Public Const ErrorMsgTit003_1 As String = "[僷僗儚乕僪]"

Public Const ErrorMsg003_1 As String = "僷僗儚乕僪偑堘偄傑偡"

'####################################### HFrm101 ########################################
Public Const ErrorMsgTit101_1 As String = "[尨椏儅僗僞乕僨乕僞嶍彍]"
Public Const ErrorMsgTit101_2 As String = "[尨椏儅僗僞乕]"

Public Const ErrorMsg101_1 As String = "偙偺僨乕僞傪嶍彍偟傑偡偐丠" _
                                        & vbLf & "[偼丂偄].......嶍彍" _
                                        & vbLf & "[偄偄偊].......拞巭"
Public Const ErrorMsg101_1_1 As String = "僨乕僞偑偁傝傑偣傫!"
Public Const ErrorMsg101_2 As String = "儗僐乕僪偑慖戰偝傟偰偄傑偣傫!"
Public Const ErrorMsg101_5 As String = "僨乕僞儀乕僗偺峏怴偑幐攕偟傑偟偨丅"
Public Const ErrorMsg101_6 As String = "尨椏僐乕僪偑悢抣偱偁傝傑偣傫丅悢抣偱俈寘偱偡丅"
Public Const ErrorMsg101_8 As String = "偙偺尨椏僐乕僪偼搊榐嵪傒偱偡両"
Public Const ErrorMsg101_10 As String = "栠偡僨乕僞偑偁傝傑偣傫!"
Public Const ErrorMsg101_11 As String = "僨乕僞偑偁傝傑偣傫!"
'####################################### HFrm102 ########################################
Public Const ErrorMsgTit102_1 As String = "[柫暱儅僗僞乕僨乕僞嶍彍]"
Public Const ErrorMsgTit102_2 As String = "[儘僢僩寁検奐巒妋擣梫媮]"
Public Const ErrorMsgTit102_3 As String = "H_Menu"
Public Const ErrorMsgTit102_4 As String = "[柫暱儅僗僞乕]"

Public Const ErrorMsg102_1 As String = "偙偺僨乕僞傪嶍彍偟傑偡偐丠" _
                                        & vbLf & "[偼丂偄].......嶍彍" _
                                        & vbLf & "[偄偄偊].......拞巭"
Public Const ErrorMsg102_2 As String = "儗僐乕僪偑慖戰偝傟偰偄傑偣傫!"
Public Const ErrorMsg102_3 As String = "儘僢僩寁検奐巒帪偺妋擣梫媮偑昁梫偱偡丅" _
                                       & vbLf & "捈偪偵廔椆偟偰儊僯儏乕夋柺偵偟偰偔偩偝偄!"
Public Const ErrorMsg102_5 As String = "偙偺僼傿乕儖僪偵擖椡偟偨抣偑惓偟偁傝傑偣傫