frmexitsys.frm

金水区行政审批服务软件窗口系统

VERSION 5.00
Object = "{8ED8CCC1-8472-46D0-93E7-F66929B98442}#2.0#0"; "xpcmd.ocx"
Begin VB.Form frmExitSys 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "退出系统"
   ClientHeight    =   2715
   ClientLeft      =   4575
   ClientTop       =   3705
   ClientWidth     =   4380
   Icon            =   "frmExitSys.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2715
   ScaleWidth      =   4380
   StartUpPosition =   2  '屏幕中心
   Begin XPCmd.xpcmdbutton xpcmdbutton2 
      Height          =   375
      Left            =   2760
      TabIndex        =   8
      Top             =   1800
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   661
      Caption         =   "   取  消"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin XPCmd.xpcmdbutton xpcmdbutton1 
      Height          =   375
      Left            =   1680
      TabIndex        =   7
      Top             =   1800
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   661
      Caption         =   "   确  定"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.PictureBox PicCaption 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   720
      Left            =   4320
      Picture         =   "frmExitSys.frx":1042
      ScaleHeight     =   720
      ScaleWidth      =   9600
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   120
      Visible         =   0   'False
      Width           =   9600
      Begin VB.PictureBox PicBorder 
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   150
         Left            =   0
         Picture         =   "frmExitSys.frx":17886
         ScaleHeight     =   150
         ScaleWidth      =   1050
         TabIndex        =   5
         TabStop         =   0   'False
         Top             =   0
         Visible         =   0   'False
         Width           =   1050
      End
   End
   Begin VB.Frame Frame1 
      Height          =   1575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3855
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "单击[确定]将退出系统"
         Height          =   180
         Left            =   1120
         TabIndex        =   6
         Top             =   1200
         Width           =   1800
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "注    意：退出之前要保存数据！"
         Height          =   180
         Left            =   240
         TabIndex        =   3
         Top             =   960
         Width           =   2700
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "当前时间："
         Height          =   180
         Left            =   240
         TabIndex        =   2
         Top             =   600
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "当前日期："
         Height          =   180
         Left            =   240
         TabIndex        =   1
         Top             =   240
         Width           =   900
      End
   End
End
Attribute VB_Name = "frmExitSys"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private m_cn As cNeoCaption
Dim dateandtime As String
Dim mytime As String
Dim mydate As String







Private Sub Form_Load()
'此处代码将制作一个漂亮窗体用
'===========================================================
Set m_cn = New cNeoCaption
Skin Me, m_cn
'===========================================================
'------------------------------------------------------------
'调整Frame控件的背景颜色使其和窗体颜色一致
'若Frame控件上有标签则应修改标签属性使其为透明
Frame1.BackColor = RGB(207, 203, 207)
'------------------------------------------------------------
mytime = time
mydate = Date
dateandtime = GetDateAndWeekAndYear()
'显示时有点小问题2003-06-01 ????
Label1.Caption = "当前日期：" + " " + mydate + " " + left(right(dateandtime, 7), 4)
Label2.Caption = "当前时间：" + "  " + mytime + " " + right(dateandtime, 3)
End Sub
'释放对象
Private Sub Form_Unload(Cancel As Integer)
Set m_cn = Nothing
End Sub






Private Sub xpcmdbutton1_Click()
'卸载主窗体和其他窗体
Unload frmBanjianchaxun
Unload frmShouJian
Unload Me
End Sub
Private Sub xpcmdbutton2_Click()
'卸载当前窗体
Unload Me
End Sub