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

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

SQL Server

开发平台：

Visual Basic

QiDong_ShD.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form QiDong_ShD 
  3.    Caption         =   "手动选择服务器"
  4.    ClientHeight    =   2220
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   4485
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2220
  10.    ScaleWidth      =   4485
  11.    StartUpPosition =   1  '所有者中心
  12.    Begin VB.CommandButton QX 
  13.       Caption         =   "取   消"
  14.       Height          =   375
  15.       Left            =   2640
  16.       TabIndex        =   3
  17.       Top             =   1440
  18.       Width           =   1095
  19.    End
  20.    Begin VB.CommandButton QD 
  21.       Caption         =   "确   定"
  22.       Height          =   375
  23.       Left            =   600
  24.       TabIndex        =   2
  25.       Top             =   1440
  26.       Width           =   1095
  27.    End
  28.    Begin VB.ComboBox SQLFWQ 
  29.       Height          =   300
  30.       Left            =   1920
  31.       TabIndex        =   1
  32.       Top             =   880
  33.       Width           =   1815
  34.    End
  35.    Begin VB.Label Label2 
  36.       AutoSize        =   -1  'True
  37.       Caption         =   "公 司 人 事 管 理 系 统"
  38.       BeginProperty Font 
  39.          Name            =   "华文彩云"
  40.          Size            =   21.75
  41.          Charset         =   134
  42.          Weight          =   400
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.       ForeColor       =   &H00C0C000&
  48.       Height          =   450
  49.       Left            =   120
  50.       TabIndex        =   4
  51.       Top             =   240
  52.       Width           =   4215
  53.    End
  54.    Begin VB.Label Label1 
  55.       AutoSize        =   -1  'True
  56.       Caption         =   "选择服务器："
  57.       Height          =   180
  58.       Left            =   600
  59.       TabIndex        =   0
  60.       Top             =   960
  61.       Width           =   1080
  62.    End
  63. End
  64. Attribute VB_Name = "QiDong_ShD"
  65. Attribute VB_GlobalNameSpace = False
  66. Attribute VB_Creatable = False
  67. Attribute VB_PredeclaredId = True
  68. Attribute VB_Exposed = False
  69. Dim SQLS As String
  70. Private Sub QD_Click()
  71.   SQLS = SQLFWQ.Text
  72.   If MySQL.State = adStateClosed Then
  73.      lujing = "provider=sqloledb.1;integrated security=sspi;persist security info=false;" & "initial catalog=CPMS;data source=" & SQLS
  74.      MySQL.Open lujing
  75.      Load YHdenglu
  76.      YHdenglu.Show
  77.      Unload QiDong_ShD
  78.   End If
  79. End Sub
  81. Private Sub QX_Click()
  82.   End
  83. End Sub