- Code/Resource
- Windows Develop
- Linux-Unix program
- Internet-Socket-Network
- Web Server
- Browser Client
- Ftp Server
- Ftp Client
- Browser Plugins
- Proxy Server
- Email Server
- Email Client
- WEB Mail
- Firewall-Security
- Telnet Server
- Telnet Client
- ICQ-IM-Chat
- Search Engine
- Sniffer Package capture
- Remote Control
- xml-soap-webservice
- P2P
- WEB(ASP,PHP,...)
- TCP/IP Stack
- SNMP
- Grid Computing
- SilverLight
- DNS
- Cluster Service
- Network Security
- Communication-Mobile
- Game Program
- Editor
- Multimedia program
- Graph program
- Compiler program
- Compress-Decompress algrithms
- Crypt_Decrypt algrithms
- Mathimatics-Numerical algorithms
- MultiLanguage
- Disk/Storage
- Java Develop
- assembly language
- Applications
- Other systems
- Database system
- Embeded-SCM Develop
- FlashMX/Flex
- source in ebook
- Delphi VCL
- OS Develop
- MiddleWare
- MPI
- MacOS develop
- LabView
- ELanguage
- Software/Tools
- E-Books
- Artical/Document
CHNGDB.FRM
Package: MSDN_VC98.zip [view]
Upload User: bangxh
Upload Date: 2007-01-31
Package Size: 42235k
Code Size: 2k
Category:
Windows Develop
Development Platform:
Visual C++
- VERSION 2.00
- Begin Form CHNGDB
- BackColor = &H00FFFFFF&
- BorderStyle = 1 'Fixed Single
- Caption = "Change Database"
- ForeColor = &H00000000&
- Height = 2160
- Left = 2895
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 1755
- ScaleWidth = 5640
- Top = 3150
- Width = 5760
- Begin CommandButton CANCEL_BUTTON
- BackColor = &H00C0C0C0&
- Cancel = -1 'True
- Caption = "Cancel"
- Height = 480
- Left = 3240
- TabIndex = 3
- Top = 1200
- Width = 1320
- End
- Begin CommandButton OK_BUTTON
- BackColor = &H00C0C0C0&
- Caption = "OK"
- Default = -1 'True
- Height = 480
- Left = 1080
- TabIndex = 2
- Top = 1200
- Width = 1320
- End
- Begin ComboBox DBNAME_COMBO
- BackColor = &H00FFFFFF&
- ForeColor = &H00000000&
- Height = 300
- Left = 2040
- TabIndex = 1
- Text = "Combo1"
- Top = 360
- Width = 3240
- End
- Begin Label Label1
- BackColor = &H00FFFFFF&
- Caption = "Database Name:"
- ForeColor = &H00000000&
- Height = 240
- Left = 240
- TabIndex = 0
- Top = 480
- Width = 1560
- End
- End
- '$INCLUDE: 'VBQUERY.BI'
- '$INCLUDE: 'VBDSQL.BI'
- Sub CANCEL_BUTTON_Click ()
- Unload Chngdb
- End Sub
- Sub Form_Load ()
- Result% = GetDatabases(DBNAME_COMBO)
- If Result% = FAIL% Then Unload Chngdb
- End Sub
- Sub OK_BUTTON_Click ()
- newname$ = DBNAME_COMBO.Text
- If SqlUse(SqlConn, newname$) = SUCCEED% Then
- DatabaseName$ = DBNAME_COMBO.Text
- ChangePrimaryWindowCaption
- SqlStatus = SUCCEED
- Else
- SqlStatus = FAIL
- End If
- Unload Chngdb
- End Sub