frmmsgadd.frm

金算盘软件代码

VERSION 5.00
Begin VB.Form frmMsgAdd 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "部门不存在"
   ClientHeight    =   1335
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   3930
   Icon            =   "frmMsgAdd.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1335
   ScaleWidth      =   3930
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdAddCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   345
      Index           =   1
      Left            =   2130
      TabIndex        =   1
      Top             =   840
      UseMaskColor    =   -1  'True
      Width           =   1125
   End
   Begin VB.CommandButton cmdAddCancel 
      Caption         =   "新增(&A)"
      Default         =   -1  'True
      Height          =   345
      Index           =   0
      Left            =   690
      TabIndex        =   0
      Top             =   840
      UseMaskColor    =   -1  'True
      Width           =   1125
   End
   Begin VB.Label lblContent 
      AutoSize        =   -1  'True
      Caption         =   "部门列表中没有“人事部”！"
      Height          =   180
      Left            =   900
      TabIndex        =   2
      Top             =   300
      Width           =   2340
   End
   Begin VB.Image imgExclamation 
      Height          =   480
      Left            =   210
      Picture         =   "frmMsgAdd.frx":000C
      Top             =   180
      Width           =   480
   End
End
Attribute VB_Name = "frmMsgAdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  新增记录提示对话框
'  作者：郑权
'  日期：1998.06.23
'
'  功能：提示用户是否新增记录
'
'  接口： MsgAddShow  调用对话框并返回被按的按钮值。
'                     参数：strCaption 对话框的标题， strContent 提示的内容
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mintMsgReturn As Integer

Private Sub cmdAddCancel_Click(Index As Integer)
    Select Case Index
        Case 0    '新增
            mintMsgReturn = vbOK
        Case 1    '取消
            mintMsgReturn = vbCancel
    End Select
    Unload Me
End Sub

'显示新增信息，返回按钮信息
Public Function MsgAddShow(strCaption As String, strContent As String) As Integer
    Dim dblFormWidth As Double
    
    frmMsgAdd.Caption = strCaption
    LblContent = strContent
    dblFormWidth = 900 + LblContent.width + 780
    'frmMsgAdd.Width = 900 + lblContent.Width + 780
    If dblFormWidth >= 2850 Then    '4020 Then
       frmMsgAdd.width = dblFormWidth
       cmdAddCancel(0).Left = frmMsgAdd.width / 2 - 195 - cmdAddCancel(0).width
       cmdAddCancel(1).Left = frmMsgAdd.width / 2 + 120
       cmdAddCancel(0).top = LblContent.top + LblContent.Height + 360
       cmdAddCancel(1).top = cmdAddCancel(0).top
       frmMsgAdd.Height = cmdAddCancel(0).top + cmdAddCancel(0).Height + 525
    End If
    Me.Show vbModal
    MsgAddShow = mintMsgReturn
End Function