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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > SQL Server > 查看源码
QiDong.frm
资源名称：20080403.rar　[点击查看]
上传用户：linhua1013
上传日期：2014-12-05
资源大小：375k
文件大小：2k
源码类别：

SQL Server

开发平台：

Visual Basic

QiDong.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form QiDong 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3105
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   5295
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3105
  11.    ScaleWidth      =   5295
  12.    ShowInTaskbar   =   0   'False
  13.    StartUpPosition =   2  '屏幕中心
  14.    Begin VB.Timer Timer2 
  15.       Interval        =   3000
  16.       Left            =   120
  17.       Top             =   2160
  18.    End
  19.    Begin VB.Timer Timer1 
  20.       Interval        =   400
  21.       Left            =   840
  22.       Top             =   2160
  23.    End
  24.    Begin VB.Label Label2 
  25.       AutoSize        =   -1  'True
  26.       BackStyle       =   0  'Transparent
  27.       Caption         =   "."
  28.       Height          =   180
  29.       Left            =   1440
  30.       TabIndex        =   1
  31.       Top             =   2880
  32.       Width           =   90
  33.    End
  34.    Begin VB.Label Label1 
  35.       AutoSize        =   -1  'True
  36.       BackStyle       =   0  'Transparent
  37.       Caption         =   "正在连接服务器"
  38.       Height          =   180
  39.       Left            =   120
  40.       TabIndex        =   0
  41.       Top             =   2880
  42.       Width           =   1260
  43.    End
  44.    Begin VB.Image Image1 
  45.       Height          =   3135
  46.       Left            =   0
  47.       Picture         =   "QiDong.frx":0000
  48.       Stretch         =   -1  'True
  49.       Top             =   0
  50.       Width           =   5295
  51.    End
  52. End
  53. Attribute VB_Name = "QiDong"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Private Sub Timer1_Timer()
  59.   If Label2.Caption = "." Then
  60.      Label2.Caption = ".."
  61.      Exit Sub
  62.   End If
  63.   If Label2.Caption = ".." Then
  64.      Label2.Caption = "..."
  65.      Exit Sub
  66.   End If
  67.   If Label2.Caption = "..." Then
  68.      Label2.Caption = "...."
  69.      Exit Sub
  70.   End If
  71.   If Label2.Caption = "...." Then
  72.      Label2.Caption = "....."
  73.      Exit Sub
  74.   End If
  75.   If Label2.Caption = "....." Then
  76.      Label2.Caption = "."
  77.      Exit Sub
  78.   End If
  79. End Sub
  81. Private Sub Timer2_Timer()
  82.   If MySQL.State = adStateClosed Then LianJie
  83. End Sub