frmrdasubmitsql.ebf

Windows CE 应用程序设计随书源码

VERSION 5.00
Begin VB.Form frmRDASubmitSQL 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFC0C0&
   Caption         =   "RDA - Submit SQL"
   ClientHeight    =   3240
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3540
   ForeColor       =   &H80000008&
   ScaleHeight     =   3240
   ScaleWidth      =   3540
   SIPBehavior     =   1  'vbSIPAutomatic
   Begin VBCE.CommandButton cmdOK 
      Height          =   255
      Left            =   2160
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   2640
      Width           =   600
      _cx             =   1058
      _cy             =   450
      BackColor       =   12632256
      Caption         =   "确定"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Style           =   0
   End
   Begin VBCE.CommandButton cmdCancel 
      Height          =   255
      Left            =   2880
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   2640
      Width           =   600
      _cx             =   1058
      _cy             =   450
      BackColor       =   12632256
      Caption         =   "取消"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Style           =   0
   End
   Begin VBCE.TextBox txtQuery 
      Height          =   1320
      Left            =   960
      TabIndex        =   1
      Top             =   1200
      Width           =   2535
      _cx             =   4471
      _cy             =   2328
      BackColor       =   -2147483643
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      Text            =   ""
      Alignment       =   0
      HideSelection   =   -1  'True
      Locked          =   0   'False
      MaxLength       =   0
      MultiLine       =   -1  'True
      PasswordChar    =   ""
      ScrollBars      =   2
   End
   Begin VBCE.Label Label3 
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   1200
      Width           =   630
      _cx             =   1111
      _cy             =   450
      AutoSize        =   0   'False
      BackColor       =   16761024
      BackStyle       =   1
      BorderStyle     =   0
      Caption         =   "查询"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      Alignment       =   0
      UseMnemonic     =   -1  'True
      WordWrap        =   0   'False
   End
   Begin VBCE.TextBox txtConnectString 
      Height          =   1170
      Left            =   960
      TabIndex        =   0
      Top             =   0
      Width           =   2535
      _cx             =   4471
      _cy             =   2064
      BackColor       =   -2147483643
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      Text            =   ""
      Alignment       =   0
      HideSelection   =   -1  'True
      Locked          =   0   'False
      MaxLength       =   0
      MultiLine       =   -1  'True
      PasswordChar    =   ""
      ScrollBars      =   0
   End
   Begin VBCE.Label Label2 
      Height          =   180
      Left            =   0
      TabIndex        =   4
      Top             =   30
      Width           =   930
      _cx             =   1640
      _cy             =   318
      AutoSize        =   -1  'True
      BackColor       =   16761024
      BackStyle       =   1
      BorderStyle     =   0
      Caption         =   "连接字符串"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      Alignment       =   0
      UseMnemonic     =   -1  'True
      WordWrap        =   0   'False
   End
End
Attribute VB_Name = "frmRDASubmitSQL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Activate()

    'Set ConnectString
    txtConnectString.Text = txtRDAConnectString
    
    'Set Query
    txtQuery.Text = txtRDAQuery
End Sub

Private Sub cmdOK_Click()

    'Set ConnectString
    txtRDAConnectString = txtConnectString.Text
    
    'Set Query
    txtRDAQuery = txtQuery.Text
    
    ' Invoke the RemoteDataAccess Object
    On Error Resume Next
    CERDA.SubmitSQL txtRDAQuery, txtRDAConnectString
    If CERDA.ErrorRecords.Count <> 0 Then
        ShowErrors CERDA.ErrorRecords, "提交失败"
    Else
        MsgBox "提交SQL成功！", vbOKOnly, " 提交SQL命令"
    End If
    
    Me.Hide
    frmMain.Show
End Sub

Private Sub cmdCancel_Click()
    Me.Hide
    frmMain.Show
End Sub