frmrdapullquery.ebf

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

VERSION 5.00
Begin VB.Form frmRDAPullQuery 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFC0C0&
   Caption         =   "RDA - Pull"
   ClientHeight    =   2745
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3540
   ForeColor       =   &H80000008&
   ScaleHeight     =   2745
   ScaleWidth      =   3540
   SIPBehavior     =   1  'vbSIPAutomatic
   Begin VBCE.Label Label5 
      Height          =   180
      Left            =   120
      TabIndex        =   5
      Top             =   45
      Width           =   570
      _cx             =   1005
      _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
   Begin VBCE.TextBox txtLocalTable 
      Height          =   270
      Left            =   720
      TabIndex        =   4
      Top             =   45
      Width           =   2685
      _cx             =   4736
      _cy             =   476
      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       =   0   'False
      PasswordChar    =   ""
      ScrollBars      =   0
   End
   Begin VBCE.CommandButton cmdCancel 
      Height          =   255
      Left            =   2760
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   2160
      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 cmdOK 
      Height          =   255
      Left            =   2040
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   2160
      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.Label Label3 
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   360
      Width           =   510
      _cx             =   900
      _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 txtQuery 
      Height          =   1605
      Left            =   720
      TabIndex        =   0
      Top             =   375
      Width           =   2670
      _cx             =   4710
      _cy             =   2831
      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
End
Attribute VB_Name = "frmRDAPullQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Activate()

    'Set LocalTable and Query Parameter
    txtLocalTable.Text = txtRDALocalTable
    txtQuery.Text = txtRDAQuery
End Sub

Private Sub cmdOK_Click()

    'Set LocalTable and Query Parameter
    txtRDALocalTable = txtLocalTable.Text
    txtRDAQuery = txtQuery.Text
    
    ' Invoke the RemoteDataAccess Object
    On Error Resume Next
    If RDATrackoption = TRACKINGOFF Then
        CERDA.Pull txtRDALocalTable, txtRDAQuery, txtRDAConnectString, TRACKINGOFF
    Else
        CERDA.Pull txtRDALocalTable, txtRDAQuery, txtRDAConnectString, TRACKINGON, txtRDAErrorTableName
    End If

    If CERDA.ErrorRecords.Count <> 0 Then
        ShowErrors CERDA.ErrorRecords, "Pull 失败"
    Else
        MsgBox "Pull 成功", vbOKOnly, "RDA PULL "
    End If

    Me.Hide
    'initRDADATA
    frmMain.Show
End Sub

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