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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
CHNGDB.FRM
资源名称：MSDN_VC98.zip　[点击查看]
上传用户：bangxh
上传日期：2007-01-31
资源大小：42235k
文件大小：2k
源码类别：

Windows编程

开发平台：

Visual C++

CHNGDB.FRM：源码内容
  1. VERSION 2.00
  2. Begin Form CHNGDB 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Change Database"
  6.    ForeColor       =   &H00000000&
  7.    Height          =   2160
  8.    Left            =   2895
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   1755
  12.    ScaleWidth      =   5640
  13.    Top             =   3150
  14.    Width           =   5760
  15.    Begin CommandButton CANCEL_BUTTON 
  16.       BackColor       =   &H00C0C0C0&
  17.       Cancel          =   -1  'True
  18.       Caption         =   "Cancel"
  19.       Height          =   480
  20.       Left            =   3240
  21.       TabIndex        =   3
  22.       Top             =   1200
  23.       Width           =   1320
  24.    End
  25.    Begin CommandButton OK_BUTTON 
  26.       BackColor       =   &H00C0C0C0&
  27.       Caption         =   "OK"
  28.       Default         =   -1  'True
  29.       Height          =   480
  30.       Left            =   1080
  31.       TabIndex        =   2
  32.       Top             =   1200
  33.       Width           =   1320
  34.    End
  35.    Begin ComboBox DBNAME_COMBO 
  36.       BackColor       =   &H00FFFFFF&
  37.       ForeColor       =   &H00000000&
  38.       Height          =   300
  39.       Left            =   2040
  40.       TabIndex        =   1
  41.       Text            =   "Combo1"
  42.       Top             =   360
  43.       Width           =   3240
  44.    End
  45.    Begin Label Label1 
  46.       BackColor       =   &H00FFFFFF&
  47.       Caption         =   "Database Name:"
  48.       ForeColor       =   &H00000000&
  49.       Height          =   240
  50.       Left            =   240
  51.       TabIndex        =   0
  52.       Top             =   480
  53.       Width           =   1560
  54.    End
  55. End
  56. '$INCLUDE: 'VBQUERY.BI'
  57. '$INCLUDE: 'VBDSQL.BI'
  59. Sub CANCEL_BUTTON_Click ()
  60. Unload Chngdb
  61. End Sub
  63. Sub Form_Load ()
  64. Result% = GetDatabases(DBNAME_COMBO)
  65. If Result% = FAIL% Then Unload Chngdb
  66. End Sub
  68. Sub OK_BUTTON_Click ()
  70. newname$ = DBNAME_COMBO.Text
  71. If SqlUse(SqlConn, newname$) = SUCCEED% Then
  72. DatabaseName$ = DBNAME_COMBO.Text
  73. ChangePrimaryWindowCaption
  74. SqlStatus = SUCCEED
  75. Else
  76. SqlStatus = FAIL
  77. End If
  78. Unload Chngdb
  79. End Sub