www.pudn.com > MapX5Demo.rar > frmOpenOracleLayer.frm, change:2002-09-20,size:3721b


VERSION 5.00 
Begin VB.Form frmOpenOracleLayer  
   Caption         =   "打开Oracle空间数据图层" 
   ClientHeight    =   3195 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   4680 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   3195 
   ScaleWidth      =   4680 
   StartUpPosition =   1  'CenterOwner 
   Begin VB.TextBox txtPassword  
      Height          =   375 
      IMEMode         =   3  'DISABLE 
      Left            =   1200 
      PasswordChar    =   "*" 
      TabIndex        =   9 
      Text            =   "demo" 
      Top             =   1260 
      Width           =   3255 
   End 
   Begin VB.TextBox txtUserName  
      Height          =   375 
      Left            =   1200 
      TabIndex        =   8 
      Text            =   "demo" 
      Top             =   680 
      Width           =   3255 
   End 
   Begin VB.TextBox txtService  
      Height          =   375 
      Left            =   1200 
      TabIndex        =   7 
      Text            =   "MapDemo" 
      Top             =   120 
      Width           =   3255 
   End 
   Begin VB.TextBox txtSQL  
      Height          =   615 
      Left            =   1200 
      MultiLine       =   -1  'True 
      TabIndex        =   6 
      Text            =   "frmOpenOracleLayer.frx":0000 
      Top             =   1800 
      Width           =   3255 
   End 
   Begin VB.CommandButton cmdCancel  
      Caption         =   "退出" 
      Height          =   400 
      Left            =   2760 
      TabIndex        =   5 
      Top             =   2640 
      Width           =   1200 
   End 
   Begin VB.CommandButton cmdOK  
      Caption         =   "确定" 
      Height          =   400 
      Left            =   720 
      TabIndex        =   4 
      Top             =   2640 
      Width           =   1200 
   End 
   Begin VB.Label label4  
      Caption         =   "SQL语句:" 
      Height          =   255 
      Left            =   240 
      TabIndex        =   3 
      Top             =   1800 
      Width           =   915 
   End 
   Begin VB.Label Label3  
      Caption         =   "密码:" 
      Height          =   255 
      Left            =   240 
      TabIndex        =   2 
      Top             =   1320 
      Width           =   795 
   End 
   Begin VB.Label Label2  
      Caption         =   "用户名:" 
      Height          =   255 
      Left            =   240 
      TabIndex        =   1 
      Top             =   760 
      Width           =   795 
   End 
   Begin VB.Label Label1  
      Caption         =   "服务名:" 
      Height          =   255 
      Left            =   240 
      TabIndex        =   0 
      Top             =   240 
      Width           =   795 
   End 
End 
Attribute VB_Name = "frmOpenOracleLayer" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
'******************************************************************************** 
'File Name   :frmOpenOracleLayer.frm 
'Description :setting the prarameters for linked to oracle database 
'Author      :James Liu 
'Copyright   :MapInfo China 
'Create Date :2002年9月11日 
'******************************************************************************** 
 
Private Sub cmdCancel_Click() 
    frmMain.m_sServerName = "" 
    frmMain.m_sUserName = "" 
    frmMain.m_sPwd = "" 
    frmMain.m_sSQL = "" 
    Unload Me 
End Sub 
 
Private Sub cmdOK_Click() 
    frmMain.m_sServerName = Trim(txtService.Text) 
    frmMain.m_sUserName = Trim(txtUserName.Text) 
    frmMain.m_sPwd = Trim(txtPassword.Text) 
    frmMain.m_sSQL = Trim(txtSQL.Text) 
    Unload Me 
 
End Sub