frmserver.frm

一个用VB写的财务软件源码

VERSION 5.00
Begin VB.Form frmServer 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   1800
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3990
   Icon            =   "frmServer.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1800
   ScaleWidth      =   3990
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox txtPassword 
      Height          =   270
      IMEMode         =   3  'DISABLE
      Left            =   1560
      MaxLength       =   12
      PasswordChar    =   "*"
      TabIndex        =   5
      Top             =   840
      Width           =   2205
   End
   Begin VB.TextBox txtUser 
      Height          =   270
      Left            =   1560
      TabIndex        =   3
      Top             =   480
      Width           =   2205
   End
   Begin VB.CommandButton cmdQuit 
      Cancel          =   -1  'True
      Caption         =   "终止"
      CausesValidation=   0   'False
      Height          =   345
      Left            =   2303
      TabIndex        =   7
      Top             =   1380
      Width           =   1035
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   345
      Left            =   653
      TabIndex        =   6
      Top             =   1380
      Width           =   1035
   End
   Begin VB.TextBox txtServer 
      Height          =   285
      Left            =   1560
      MaxLength       =   200
      TabIndex        =   1
      Top             =   120
      Width           =   2205
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "密码(&P):"
      Height          =   180
      Left            =   240
      TabIndex        =   4
      Top             =   915
      Width           =   720
   End
   Begin VB.Label lblUser 
      AutoSize        =   -1  'True
      Caption         =   "系统用户(&U):"
      Height          =   180
      Left            =   240
      TabIndex        =   2
      Top             =   555
      Width           =   1080
   End
   Begin VB.Label lblServer 
      AutoSize        =   -1  'True
      Caption         =   "服务器(&S):"
      Height          =   180
      Left            =   240
      TabIndex        =   0
      Top             =   180
      Width           =   900
   End
End
Attribute VB_Name = "frmServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_sServer As String
Private m_sUser As String
Private m_sPassword As String


Public OK As Boolean

Public Property Let usServer(ByVal NewValue As String)
    m_sServer = NewValue
End Property
Public Property Get usServer() As String
    usServer = m_sServer
End Property

Public Property Let usUser(ByVal NewValue As String)
    m_sUser = NewValue
End Property
Public Property Get usUser() As String
    usUser = m_sUser
End Property

Public Property Let usPassword(ByVal NewValue As String)
    m_sPassword = NewValue
End Property
Public Property Get usPassword() As String
    usPassword = m_sPassword
End Property

Private Sub Form_Load()
    Dim sTemp As String * 255
    Dim lSize As Long
    
    Select Case g_FLAT
        Case "SQL"
            Caption = "SQL Server 7.0 服务器引导"
            lblServer.AutoSize = True
            lblServer.Top = 120
            
            If m_sServer = "" Then
                lSize = 255
                Call GetComputerName(sTemp, lSize)
                txtServer.text = Left$(sTemp, lSize)
            Else
                txtServer.text = m_sServer
            End If
            If m_sUser = "" Then
                txtUser.text = "sa"
                txtPassword.text = ""
            Else
                txtUser.text = m_sUser
                txtPassword.text = m_sPassword
            End If
            
        Case "ORACLE"
            Caption = "Oracle 7.x/8.x 服务器引导"
            lblServer.AutoSize = False
            lblServer.Top = 160
            txtServer.text = m_sServer
            If m_sUser = "" Then
                txtUser.text = "system"
                txtPassword.text = "manager"
            Else
                txtUser.text = m_sUser
                txtPassword.text = m_sPassword
            End If
            
        Case Else
            Err.Raise 5
    End Select
    
End Sub


Private Sub cmdOk_Click()
    OK = True
    m_sServer = txtServer.text
    m_sUser = txtUser.text
    m_sPassword = txtPassword.text
    Me.Hide
End Sub

Private Sub cmdQuit_Click()
    OK = False
    Me.Hide
End Sub