frmsavemsg1.frm

一个功能比较完善的远程抄表软件

VERSION 5.00
Begin VB.Form frmSaveMsg1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "保存数据"
   ClientHeight    =   1980
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5310
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1980
   ScaleWidth      =   5310
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdYes 
      Caption         =   "是"
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   1440
      Width           =   1095
   End
   Begin VB.CommandButton cmdYesToAll 
      Caption         =   "全部"
      Height          =   375
      Left            =   1440
      TabIndex        =   2
      Top             =   1440
      Width           =   1095
   End
   Begin VB.CommandButton cmdNo 
      Caption         =   "否"
      Height          =   375
      Left            =   2640
      TabIndex        =   1
      Top             =   1440
      Width           =   1095
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   3840
      TabIndex        =   0
      Top             =   1440
      Width           =   1095
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "当前数据库中发现已有数据"
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   120
      Width           =   4095
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "是否覆盖原数据?"
      Height          =   255
      Left            =   360
      TabIndex        =   5
      Top             =   840
      Width           =   4095
   End
   Begin VB.Label lblUser 
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   480
      Width           =   4455
   End
End
Attribute VB_Name = "frmSaveMsg1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/07/09
'描    述：CBB三表户外计量系统 Ver 5.2
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub Command1_Click()

End Sub
 '1---是(覆盖)
 '2---全部
 '3---否
 '4---取消(中止)
Private Sub cmdCancel_Click()
    msgBack1 = 4
    Unload frmSaveMsg1
End Sub


Private Sub cmdNo_Click()
    msgBack1 = 3
    Unload frmSaveMsg1
End Sub


Private Sub cmdYes_Click()
    msgBack1 = 1
    Unload frmSaveMsg1
End Sub


Private Sub cmdYesToAll_Click()
    msgBack1 = 2
    Unload frmSaveMsg1
End Sub

Private Sub Form_Load()
   'msgSave = "楼:" + curBuild + "/单元:" + curUnit + "/门牌:" + curDoor + "/用户号:" + Format(curUserID) + "/表型:" + Trim(curTypeName) + "/日期:" + g_SelDate
    lblUser = msgSave
End Sub