开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
frmSplash.frm
资源名称：CarMaintain.rar　[点击查看]
上传用户：yexiandon
上传日期：2022-07-12
资源大小：895k
文件大小：5k
源码类别：

百货/超市行业

开发平台：

Visual Basic

frmSplash.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3240
  5.    ClientLeft      =   45
  6.    ClientTop       =   45
  7.    ClientWidth     =   5685
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3240
  13.    ScaleWidth      =   5685
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  '屏幕中心
  16.    Visible         =   0   'False
  17.    Begin VB.Frame fraMainFrame 
  18.       Height          =   3150
  19.       Left            =   45
  20.       TabIndex        =   0
  21.       Top             =   -15
  22.       Width           =   5580
  23.       Begin VB.PictureBox Picture1 
  24.          BorderStyle     =   0  'None
  25.          Height          =   1095
  26.          Left            =   720
  27.          Picture         =   "frmSplash.frx":0000
  28.          ScaleHeight     =   1095
  29.          ScaleWidth      =   1335
  30.          TabIndex        =   4
  31.          Top             =   240
  32.          Width           =   1335
  33.       End
  34.       Begin VB.Timer Timer1 
  35.          Interval        =   1000
  36.          Left            =   480
  37.          Top             =   2520
  38.       End
  39.       Begin VB.Label lb 
  40.          AutoSize        =   -1  'True
  41.          Height          =   180
  42.          Left            =   1200
  43.          TabIndex        =   5
  44.          Top             =   2760
  45.          Width           =   90
  46.       End
  47.       Begin VB.Label lblLicenseTo 
  48.          Alignment       =   1  'Right Justify
  49.          Caption         =   "使用权属于:辽宁正昊企业集团"
  50.          Height          =   255
  51.          Left            =   2400
  52.          TabIndex        =   1
  53.          Tag             =   "使用权属于"
  54.          Top             =   600
  55.          Width           =   2535
  56.       End
  57.       Begin VB.Label lblProductName 
  58.          AutoSize        =   -1  'True
  59.          Caption         =   "产品"
  60.          BeginProperty Font 
  61.             Name            =   "宋体"
  62.             Size            =   26.25
  63.             Charset         =   134
  64.             Weight          =   700
  65.             Underline       =   0   'False
  66.             Italic          =   0   'False
  67.             Strikethrough   =   0   'False
  68.          EndProperty
  69.          Height          =   525
  70.          Left            =   480
  71.          TabIndex        =   3
  72.          Tag             =   "产品"
  73.          Top             =   1440
  74.          Width           =   1080
  75.       End
  76.       Begin VB.Label lblVersion 
  77.          Alignment       =   1  'Right Justify
  78.          AutoSize        =   -1  'True
  79.          Caption         =   "版本"
  80.          BeginProperty Font 
  81.             Name            =   "宋体"
  82.             Size            =   12
  83.             Charset         =   134
  84.             Weight          =   700
  85.             Underline       =   0   'False
  86.             Italic          =   0   'False
  87.             Strikethrough   =   0   'False
  88.          EndProperty
  89.          Height          =   240
  90.          Left            =   3240
  91.          TabIndex        =   2
  92.          Tag             =   "版本"
  93.          Top             =   2280
  94.          Width           =   510
  95.       End
  96.    End
  97. End
  98. Attribute VB_Name = "frmSplash"
  99. Attribute VB_GlobalNameSpace = False
  100. Attribute VB_Creatable = False
  101. Attribute VB_PredeclaredId = True
  102. Attribute VB_Exposed = False
  103. '****************************************************************************
  104. '人人为我，我为人人
  105. '枕善居收藏整理
  106. '发布日期：2008/01/21
  107. '描    述：汽车维修管理系统SQL2000版
  108. '网    站：http://www.Mndsoft.com/  (VB6源码博客)
  109. '网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
  110. 'e-mail  ：Mndsoft@163.com
  111. 'e-mail  ：Mndsoft@126.com
  112. 'OICQ    ：88382850
  113. '          如果您有新的好的代码别忘记给枕善居哦!
  114. '****************************************************************************
  115. Private Sub Form_Load()
  116.     lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
  117.     lblProductName.Caption = App.Title
  118.     With frmLogin
  119.         On Error Resume Next
  120.         Dim MyData() As Byte, VerInfo() As Byte, Ti As Long, Tj As Long
  121.         If .Inet1.StillExecuting = True Then GoTo HDL1
  122.         VerInfo() = .Inet1.OpenURL("http://192.168.1.49/Updata/qx.txt", icString)
  123.         Ti = InStr(1, VerInfo, vbCrLf) + 2
  124.         Tj = InStr(Ti, VerInfo, vbCrLf)
  125.         '检测版本号
  126.         If Val(Left$(VerInfo, Ti - 3)) <= Val(App.Major & "." & App.Minor & App.Revision) Then GoTo HDL1
  127.         If MsgBox("本软件发布了新的版本：" & Left$(VerInfo, Ti - 3) & "，文件大小：" & Mid$(VerInfo, Tj + 2) & _
  128.             "，是否进行在线升级 ？", vbYesNo + vbQuestion, "在线升级") = vbNo Then GoTo HDL1
  129.         'MyData() = .Inet1.OpenURL("http://192.168.1.49/Updata/Updata.exe", icByteArray)
  130.         'Open App.Path + "" + Mid$(VerInfo, Ti, Tj - Ti) For Binary Access Write As #1
  131.     End With
  132.         Shell App.Path & "Update.exe", vbNormalFocus
  133.         End
  134. HDL1:
  135.     Unload frmSplash
  136.     frmLogin.Show vbModal
  137.     If frmLogin.OK Then
  138.         frmMain.Show
  139.     Else
  140.         End
  141.     End If
  142. End Sub