frmlogon.frm

金水区行政审批服务软件窗口系统

VERSION 5.00
Object = "{8ED8CCC1-8472-46D0-93E7-F66929B98442}#2.0#0"; "xpcmd.ocx"
Begin VB.Form frmLogOn 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "欢迎登录"
   ClientHeight    =   2670
   ClientLeft      =   3690
   ClientTop       =   2895
   ClientWidth     =   4290
   Icon            =   "frmLogOn.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2670
   ScaleWidth      =   4290
   StartUpPosition =   2  '屏幕中心
   Begin XPCmd.xpcmdbutton xpcmdbutton2 
      Height          =   375
      Left            =   2760
      TabIndex        =   7
      Top             =   1680
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   661
      Caption         =   "   取  消"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin XPCmd.xpcmdbutton xpcmdbutton1 
      Height          =   375
      Left            =   1560
      TabIndex        =   6
      Top             =   1680
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   661
      Caption         =   "   确  定"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.PictureBox PicCaption 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   720
      Left            =   4320
      Picture         =   "frmLogOn.frx":1042
      ScaleHeight     =   720
      ScaleWidth      =   9600
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   120
      Visible         =   0   'False
      Width           =   9600
      Begin VB.PictureBox PicBorder 
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   150
         Left            =   0
         Picture         =   "frmLogOn.frx":17886
         ScaleHeight     =   150
         ScaleWidth      =   1050
         TabIndex        =   5
         TabStop         =   0   'False
         Top             =   0
         Visible         =   0   'False
         Width           =   1050
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "用户登录"
      Height          =   1455
      Left            =   80
      TabIndex        =   0
      Top             =   120
      Width           =   3855
      Begin VB.TextBox Text1 
         Height          =   320
         IMEMode         =   3  'DISABLE
         Left            =   1440
         PasswordChar    =   "*"
         TabIndex        =   8
         Top             =   840
         Width           =   2175
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   1440
         TabIndex        =   3
         Top             =   360
         Width           =   2175
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "密    码(P)："
         Height          =   180
         Left            =   120
         TabIndex        =   2
         Top             =   880
         Width           =   1170
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "用户名称(U)："
         Height          =   180
         Left            =   120
         TabIndex        =   1
         Top             =   400
         Width           =   1170
      End
   End
End
Attribute VB_Name = "frmLogOn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************说明**********************************
'*此部分代码主要完成用户登录的判断以及变量的传递                        *
'*用户登录判断主要是根据用户输入的用户和密码进行判断，只有用户名和密码都*
'*正确，才是一个合法用户。否则将不是一个合法的用户。变量传递主要把这一层*
'*取出的变量传递到下一层也即收件界面部分。要传递的数据包括：单位名称，单*
'*位代码，窗口名称，工作人员姓名，密码和数据库连接字符串，注意这一层取得*
'*数据一定要保证其正确性，否则的话将影响下一层的数据，特别是数据库连接字*
'*符串                                                                  *
'*2004-04-14 dww pm17:02                                                *
'************************************************************************
'===============================特别提示2004-04-14======================
'现要对这部分程序做以下修改：
'1.这部分程序要根据登陆人员的身份取出其对应的单位简称，单位代码，窗口名称
'  窗口电话等信息，因为这部分信息原来是注册时记录在文本文件中的，但现在改
'  变了登陆的方式故需要进行修改。
'2.修改部分的信息将加特殊标记，不删除
'================================特别提示2004-04-14=====================
'定义登录用户名和密码变量
Dim loginName As String
Dim loginPassword As String
'定义单位全，简称以及单位代码以及工作人员姓名变量
Dim departmentName As String
Dim departmentabName As String
Dim departmentCode As String
Dim workerName As String
'定义窗口名称和窗口电话变量
Dim windowName As String
Dim windowTel As String
'定义服务器名称，数据库登录用户名以及登录密码变量
Dim DBServerName As String
Dim DBUserName As String
Dim DBPassWord As String
'定义数据库名变量
Dim DBName As String
'定义数据库连接字符串
Dim DBConectString As String
'定义窗体换扶对象2003-05-28
Private m_cn As cNeoCaption
Private Sub Form_Load()
'------------------------------------------------------------------------------
'此处代码将制作一个漂亮窗体用
 Set m_cn = New cNeoCaption
 Skin Me, m_cn
'------------------------------------------------------------------------------
'调整Frame控件的背景颜色使其和窗体颜色一致
'若Frame控件上有标签则应修改标签属性使其为透明
 Frame1.BackColor = RGB(207, 203, 207)
'------------------------------------------------------------------------------
'首先将注册信息读出来放入各自的变量准备传送到下一层也即收件界面
 Dim temp As String
'使用SUBMAIN中定义的全局变量tempDirectory
 Close #1
 Open txtiniFileDirectory + "\zhuce.txt" For Input As #1
'------------------------------------------------------------------------------
 Do While Not EOF(1)
  Line Input #1, temp
  If Mid(temp, 2, 8) = "数据库服务器名称" Then
     ServerName = Mid(temp, 11, Len(temp) - 11)
  End If
  If Mid(temp, 2, 8) = "数据库登录用户名" Then