gude_message_control.ascx.vb

这是一个订单管理系统

Imports System.Data

'****************************************************************
'   OptimaxOwner
'   Copyright (c) 2006 OptimaxOwner.
'****************************************************************
'****************************************************************
'ファイル名   : Gude_Message_Control.ascx.vb
'項目名称     : BAシステム
'機能概要　   :	ガイドメッセージ
'作成者       : ZhangL
'確認者       : WeiZY
'編集日付     : 2006.11.27
'修正者       : 
'修正日付     : 
'修正内容概要 : 
'****************************************************************
Partial Class Gude_Message_Control
    Inherits System.Web.UI.UserControl

#Region "定数定義"

    Private Const COLOR_0 As String = "0000FF" 'blue 
    Private Const COLOR_4 As String = "00FF00" 'green
    Private Const COLOR_8 As String = "FF0000" 'red
    Private Const MESSAGE0 As String = ""
    Private Const MESSAGE1 As String = "客户订单金额统计成功"
    Private Const MESSAGE2 As String = "月统计信息生成成功，月统计查询成功"
    Private Const MESSAGE3 As String = "データベース更新に失敗しました"
    Private Const MESSAGE4 As String = "！検索結果が１度に表示できる件数ｎ件を超えました。表示されないデータがあります。もう少し条件を絞ってください。" 'red
    Private Const MESSAGE5 As String = "火災が発生しています"
    Private Const MESSAGE6 As String = "切離・警報抑止を実行しました。"
    Private Const MESSAGE7 As String = "切離・警報抑止を解除しました。"
    Private Const MESSAGE8 As String = "設定値を更新しました。"
    Private Const MESSAGE9 As String = "上下限警報設定を更新しました。"
    Private Const MESSAGE10 As String = "数字で入力してください。"
    Private Const MESSAGE11 As String = "変数名igMaintenanceSwitch2でDBのデータを取得できません。"
    Private Const MESSAGE12 As String = "変数名igOutOfServiceでDBのデータを取得できません。"
    Private Const MESSAGE13 As String = "個別発停を実行しました。現在状態を最新表示するには「再表示」をクリックして下さい。"
    Private Const MESSAGE14 As String = "火災が発生しています"
    Private Const MESSAGE15 As String = "gjfmfnj"
    Private Const MESSAGE16 As String = "火災が発生しています"
    Private Const MESSAGE17 As String = ""
    Private Const MESSAGE18 As String = ""
    Private Const MESSAGE19 As String = ""
    Private Const MESSAGE20 As String = ""

   
#End Region

#Region "属性"


    'メッセージ
    Private strMsg As String
    Public Property Message() As String
        Get
            Return strMsg
        End Get
        Set(ByVal value As String)
            strMsg = value
        End Set
    End Property


#End Region

#Region "メソッド"

    '*******************************************
    '機能概要       ：メッセージ表示
    '引数の説明     ：Message     メッセージ文字列
    '返却値の説明   ：なし
    '機能詳細       ：メッセージ取得して表示する
    '作成日/作成者  ：2006.11.27 ZhangL
    '*******************************************    
    Public Sub Show(ByVal messageId As Integer, Optional ByVal strMessage As String = "", Optional ByVal strColor As String = "")

        Dim strMessageBody As String
        strMessageBody = getMessage(messageId, strColor)
        Me.Message = strMessageBody & strMessage
        txtmessage.Text = strMessageBody & strMessage
        txtmessage.Style("color") = C_Common.fGetColorName(strColor)
    End Sub

    '*******************************************
    '機能概要       ：メッセージ取得
    '引数の説明     ：messageId     メッセージID
    '               : strColor      
    '返却値の説明   ：メッセージ
    '機能詳細       ：メッセージ取得
    '作成日/作成者  ：2006.11.27 ZhangL
    '*******************************************    
    Public Function getMessage(ByVal messageId As Integer, ByRef strColor As String) As String
        Select Case messageId
            Case 0
                strColor = COLOR_0
                Return MESSAGE0
            Case 1
                strColor = COLOR_0
                Return MESSAGE1
            Case 2
                strColor = COLOR_0
                Return MESSAGE2
            Case 3
                strColor = COLOR_8
                Return MESSAGE3
            Case 4
                strColor = COLOR_8
                Return MESSAGE4
            Case 5
                strColor = COLOR_8
                Return MESSAGE5
            Case 6
                strColor = COLOR_0
                Return MESSAGE6
            Case 7
                strColor = COLOR_0
                Return MESSAGE7
            Case 8
                strColor = COLOR_0
                Return MESSAGE8
            Case 9
                strColor = COLOR_0
                Return MESSAGE9
            Case 10
                strColor = COLOR_8
                Return MESSAGE10
            Case 11
                strColor = COLOR_8
                Return MESSAGE11
            Case 12
                strColor = COLOR_8
                Return MESSAGE12
            Case 13
                strColor = COLOR_0
                Return MESSAGE13
            Case 14
                strColor = COLOR_8
                Return MESSAGE14
            Case 15
                strColor = COLOR_8
                Return MESSAGE15
            Case 16
                strColor = COLOR_8
                Return MESSAGE16
            Case 17
                strColor = COLOR_8
                Return MESSAGE17
            Case 18
                strColor = COLOR_8
                Return MESSAGE18
            Case 19
                strColor = COLOR_8
                Return MESSAGE19
            Case 20
                strColor = COLOR_8
                Return MESSAGE20
        End Select
        Return MESSAGE0

    End Function

#End Region

#Region "イベント処理"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack Then
            Me.txtmessage.Text = ""
        End If
        '初期化


    End Sub

#End Region

End Class