百货/超市行业

开发平台：
Visual Basic

frmLogin.frm：源码内容
							VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form frmLogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登录"
   ClientHeight    =   2820
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4530
   Icon            =   "frmLogin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2820
   ScaleWidth      =   4530
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Tag             =   "登录"
   Begin InetCtlsObjects.Inet Inet1 
      Left            =   240
      Top             =   2160
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin VB.CommandButton Command1 
      Caption         =   "…"
      Height          =   255
      Left            =   3960
      TabIndex        =   8
      Top             =   1080
      Width           =   255
   End
   Begin VB.TextBox txtAccount 
      Height          =   270
      Left            =   1560
      Locked          =   -1  'True
      TabIndex        =   6
      Top             =   1080
      Width           =   2415
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   320
      Left            =   2940
      TabIndex        =   5
      Tag             =   "取消"
      Top             =   2340
      Width           =   1000
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   320
      Left            =   1680
      TabIndex        =   4
      Tag             =   "确定"
      Top             =   2340
      Width           =   1000
   End
   Begin VB.TextBox txtPassword 
      Height          =   270
      IMEMode         =   3  'DISABLE
      Left            =   1545
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1845
      Width           =   2685
   End
   Begin VB.TextBox txtUserName 
      Height          =   270
      Left            =   1545
      TabIndex        =   3
      Top             =   1455
      Width           =   2685
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      Caption         =   "帐  套(&A):"
      Height          =   180
      Index           =   2
      Left            =   480
      TabIndex        =   7
      Tag             =   "用户名(&U):"
      Top             =   1095
      Width           =   900
   End
   Begin VB.Image Image1 
      Height          =   870
      Left            =   0
      Picture         =   "frmLogin.frx":000C
      Top             =   0
      Width           =   4560
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      Caption         =   "密  码(&P):"
      Height          =   180
      Index           =   1
      Left            =   465
      TabIndex        =   0
      Tag             =   "密码(&P):"
      Top             =   1860
      Width           =   900
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      Caption         =   "用户名(&U):"
      Height          =   180
      Index           =   0
      Left            =   465
      TabIndex        =   2
      Tag             =   "用户名(&U):"
      Top             =   1470
      Width           =   900
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/01/21
'描    述：汽车维修管理系统SQL2000版
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit
Public OK As Boolean
Private Sub Command1_Click()
    frmConnData.Show vbModal
End Sub
Private Sub cmdCancel_Click()
    OK = False
    Unload Me
End Sub
Private Sub cmdOK_Click()
Dim Gserver, Gsa, Gpass, Gdb As String
If g_Conn.State <> 1 Then
    Gserver = ReadIniFile(App.Path & "ConfigConfig.ini", "Connect", "ServerName")
    Gsa = ReadIniFile(App.Path & "ConfigConfig.ini", "Connect", "ServerUID")
    Gdb = ReadIniFile(App.Path & "ConfigConfig.ini", "Connect", "DBname")
    Gpass = ReadIniFile(App.Path & "ConfigConfig.ini", "Connect", "ServerUPass")
    If Not ConnectToDatabase(Gserver, Gdb, Gsa, Gpass) Then Exit Sub
End If
    If PassIsTrue(txtUserName.Text, txtPassword.Text) Then
        OK = True
        LetUser (txtUserName.Text)
        WritePrivateProfileString "Connect", "UserName", txtUserName.Text, App.Path & "ConfigConfig.ini"
        g_DBname = ReadIniFile(App.Path & "ConfigConfig.ini", "Connect", "DBname")
        g_ACCname = ReadIniFile(App.Path & "ConfigConfig.ini", "Connect", "ACCname")
        g_Admin = txtUserName.Text
        loadqx g_Admin
        Unload Me
    Else
        MsgBox "用户名或密码错误，再试一次！", , "登录"
        txtPassword.SetFocus
        txtPassword.SelStart = 0
        txtPassword.SelLength = Len(txtPassword.Text)
    g_Conn.Close
    End If
End Sub
Private Sub Form_Load()
txtAccount = ReadIniFile(App.Path & "ConfigConfig.ini", "Connect", "ACCname")
txtUserName = ReadIniFile(App.Path & "ConfigConfig.ini", "Connect", "UserName")
End Sub
Private Sub loadqx(strUname As String)
  Dim Rs As Recordset
  Dim i As Integer
  Dim qx As String
  Set Rs = g_Conn.Execute("SELECT QuanXian FROM Users Where UserName='" & strUname & "'")
  qx = ConvertDTB(Rs(0).Value)
  For i = 0 To 15
    g_QX(i) = (Mid(qx, i + 1, 1) = "1")
  Next
End Sub

						