frmsubtopnew.frm

1、以DLL形式提供医生工作站 2、 根据【检查项目】

VERSION 5.00
Object = "{806F1F89-D431-4F37-A387-2868CC03DCA8}#48.0#0"; "GetData.ocx"
Begin VB.Form frmSubTopNew 
   BackColor       =   &H00F1E7DA&
   BorderStyle     =   0  'None
   ClientHeight    =   1500
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   13290
   ForeColor       =   &H00FFFFFF&
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1500
   ScaleWidth      =   13290
   ShowInTaskbar   =   0   'False
   Visible         =   0   'False
   Begin VB.Timer tmrSendNetState 
      Enabled         =   0   'False
      Left            =   840
      Top             =   240
   End
   Begin GetData.XPB btnHTPACS 
      Height          =   420
      Left            =   11400
      TabIndex        =   2
      Top             =   0
      Width           =   1020
      _ExtentX        =   1799
      _ExtentY        =   741
      Caption         =   "HT-PACS"
      FontColor       =   -2147483630
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Label lblAddressShow 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   60
      Left            =   0
      TabIndex        =   3
      Top             =   1440
      Width           =   13200
   End
   Begin VB.Label lblStationName 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "HT-PACS CT工作站"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   2400
      TabIndex        =   1
      Top             =   720
      Width           =   7935
   End
   Begin VB.Label lblHospitalName 
      Alignment       =   2  'Center
      BackColor       =   &H00808080&
      BackStyle       =   0  'Transparent
      Caption         =   "涟水县人民医院"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   2400
      TabIndex        =   0
      Top             =   120
      Width           =   7935
   End
End
Attribute VB_Name = "frmSubTopNew"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'------------------------------------------------------------------------------------
'文件：frmSubTopnew.frm
'作者：刘辉
'时间：2008-4-8
'说明：筛选--子窗体
'------------------------------------------------------------------------------------
Option Explicit



Private Sub btnHTPACS_Click(Shifit As Integer)
        On Error GoTo ErrHandler
        frmListAbout.Show vbModal
        Exit Sub
        
ErrHandler:
        MsgBox Err.Description, vbExclamation, "提示"
End Sub

Private Sub Form_Load()
On Error GoTo ErrHandler
    '医院名称
    Me.lblHospitalName.Caption = HOSPITAL_NAME
    
    '工作站名称
    'Me.lblStationName.Caption = STATION_NAME
    
    'tmrSendNetState.Interval = TIMER_INTERVAL
    
    Exit Sub
    
ErrHandler:
    
End Sub


Private Sub Form_Resize()
On Error GoTo ErrHandler
    'Me.top = 0 'Me.Top
    'Me.left = 0 'Me.Left
    Me.Width = frmMdiMain.Width - 50
    
    
    
    
    '地址导航栏
    Me.lblAddressShow.left = 0
    Me.lblAddressShow.Width = Me.Width ' - Me.lblAddress.Width
    
    
    '医院名称
    Me.lblHospitalName.left = (Me.Width - Me.lblHospitalName.Width + 2 * Me.left) / 2
    
    
    '工作站名称
    'Me.lblStationName.Left = Me.lblHospitalName.Left + Me.lblHospitalName.Width + 200
    Me.lblStationName.left = Me.lblHospitalName.left
    
    
    btnHTPACS.left = Me.left + Me.Width - btnHTPACS.Width
    Exit Sub
ErrHandler:

End Sub

'发送本机状态至服务器，以备监控
Private Sub tmrSendNetState_Timer()
    On Error GoTo ErrHandler
    If Not GetNetStat Then
        MsgBox "本机状态发送失败, 请与系统管理员联系!", vbExclamation, "提示"
    Else
        'MsgBox "本机状态发送成功!", vbExclamation, "提示"
    End If
    
    If Not GetInfoChange Then
        MsgBox "本机状态发送失败, 请与系统管理员联系!", vbExclamation, "提示"
    Else
        'MsgBox "本机状态发送成功!", vbExclamation, "提示"
    End If
    Exit Sub
ErrHandler:
    MsgBox "本机状态发送失败, 请与系统管理员联系!", vbExclamation, "提示"
End Sub