frmmsgquickadd.frm

金算盘软件代码

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

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

'显示新增信息，返回按钮信息
Public Function MsgAddShow(strCaption As String, strContent As String) As Integer
    frmMsgQuickAdd.Caption = strCaption
    LblContent = strContent
    frmMsgQuickAdd.width = 900 + LblContent.width + 900
    If Me.width < 4380 Then Me.width = 4380
    If frmMsgQuickAdd.width >= 4395 Then
       cmdOkCancel(1).Left = frmMsgQuickAdd.width / 2 - 700
       cmdOkCancel(0).Left = cmdOkCancel(1).Left - 1380
       cmdOkCancel(2).Left = cmdOkCancel(1).Left + 1380
    End If
    Me.Show vbModal
    MsgAddShow = mintMsgReturn
End Function