frmreplsynchronize.ebf

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

         ForeColor       =   -2147483640
         Alignment       =   0
         UseMnemonic     =   -1  'True
         WordWrap        =   0   'False
      End
      Begin VBCE.TextBox txtPublisherDatabase 
         Height          =   255
         Left            =   1095
         TabIndex        =   1
         Top             =   555
         Width           =   2340
         _cx             =   4128
         _cy             =   450
         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.Label Label3 
         Height          =   180
         Left            =   120
         TabIndex        =   9
         Top             =   600
         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
      Begin VBCE.TextBox txtPublisher 
         Height          =   255
         Left            =   1095
         TabIndex        =   0
         Top             =   255
         Width           =   2340
         _cx             =   4128
         _cy             =   450
         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.Label Label2 
         Height          =   255
         Left            =   135
         TabIndex        =   8
         Top             =   225
         Width           =   735
         _cx             =   1296
         _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
   End
   Begin VBCE.CommandButton cmdPrev 
      Height          =   255
      Left            =   1080
      TabIndex        =   16
      Top             =   2400
      Width           =   840
      _cx             =   1482
      _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 VB.Line Line2 
      X1              =   0
      X2              =   3600
      Y1              =   2280
      Y2              =   2280
   End
   Begin VBCE.CommandButton cmdOK 
      Height          =   255
      Left            =   2040
      TabIndex        =   15
      TabStop         =   0   'False
      Top             =   2385
      Width           =   840
      _cx             =   1482
      _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            =   2955
      TabIndex        =   14
      TabStop         =   0   'False
      Top             =   2385
      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
End
Attribute VB_Name = "frmReplSynchronizePub"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdPrev_Click()
Me.Hide
frmReplInternetURL.Show
End Sub

Private Sub Form_Activate()

    txtPublisher.Text = CEMerge.Publisher
    txtPublisherDatabase.Text = CEMerge.PublisherDatabase
    txtPublication.Text = CEMerge.Publication
    If CEMerge.PublisherSecurityMode = DB_AUTHENTICATION Then
        optDBAuthentication.Value = True
    Else
        optDBAuthentication.Value = False
    End If
    txtPublisherLogin.Text = CEMerge.PublisherLogin
    txtPublisherPassword.Text = CEMerge.PublisherPassword

End Sub

Private Sub optDBAuthentication_Click()
    If optDBAuthentication.Value = True Then
        txtPublisherLogin.Enabled = True
        txtPublisherPassword.Enabled = True
    Else
        txtPublisherLogin.Enabled = False
        txtPublisherPassword.Enabled = False
    End If
End Sub


Private Sub optNTAuthentication_Click()

    If optDBAuthentication.Value = True Then
        txtPublisherLogin.Enabled = True
        txtPublisherPassword.Enabled = True
    Else
        txtPublisherLogin.Enabled = False
        txtPublisherPassword.Enabled = False
    End If
End Sub


Private Sub cmdOK_Click()

Dim Str As String

 
    CEMerge.Publication = txtPublication.Text
    CEMerge.PublisherDatabase = txtPublisherDatabase.Text
    CEMerge.Publisher = txtPublisher.Text
    CEMerge.Distributor = txtPublisher.Text
    If optDBAuthentication.Value = True Then
        CEMerge.PublisherSecurityMode = DB_AUTHENTICATION
        CEMerge.DistributorSecurityMode = DB_AUTHENTICATION
    Else
        CEMerge.PublisherSecurityMode = NT_AUTHENTICATION
        CEMerge.DistributorSecurityMode = NT_AUTHENTICATION
    End If
    CEMerge.PublisherLogin = txtPublisherLogin.Text
    CEMerge.DistributorLogin = txtPublisherLogin.Text
    CEMerge.PublisherPassword = txtPublisherPassword.Text
    CEMerge.DistributorPassword = txtPublisherPassword.Text

    Me.Hide
    frmReplSynchronizeSub.Show
    
End Sub

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