form1.frm

办公自动化 vb+server2

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "     密码框"
   ClientHeight    =   2880
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3945
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form1.frx":1782
   ScaleHeight     =   2880
   ScaleWidth      =   3945
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Appearance      =   0  'Flat
      Caption         =   "关闭"
      Height          =   300
      Left            =   2400
      Picture         =   "Form1.frx":2926
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   1960
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "确定"
      Height          =   300
      Left            =   840
      Picture         =   "Form1.frx":12FD4
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   1960
      Width           =   735
   End
   Begin VB.Timer Timer1 
      Interval        =   10
      Left            =   0
      Top             =   0
   End
   Begin VB.ComboBox Combo2 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFC0C0&
      Height          =   300
      Left            =   1440
      Style           =   2  'Dropdown List
      TabIndex        =   6
      Top             =   360
      Width           =   1935
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFC0C0&
      Enabled         =   0   'False
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   1500
      Width           =   1935
   End
   Begin VB.ComboBox Combo1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFC0C0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   1440
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   960
      Width           =   1935
   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            =   3480
      Picture         =   "Form1.frx":23682
      ScaleHeight     =   720
      ScaleWidth      =   9600
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   240
      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         =   "Form1.frx":39EC6
         ScaleHeight     =   150
         ScaleWidth      =   1050
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   0
         Visible         =   0   'False
         Width           =   1050
      End
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "部  门(&b)"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   7
      Top             =   420
      Width           =   855
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "用户名(&u)"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   5
      Top             =   1020
      Width           =   855
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "密  码(&p)"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   480
      TabIndex        =   4
      Top             =   1560
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim gg, ghz2, ghz3 As String
Private mc_cN As cNeoCaption

Private Sub Combo2_Click()
If Combo2.Text <> "" Then
   Combo1.Enabled = True
   Text1.Enabled = True
End If

If Combo1.Enabled = True Then
  Combo1.Clear
  hrs.CursorLocation = adUseClient
  hrs.Open "select * from 权限设置 order by 部门", hconn, adOpenKeyset, adLockPessimistic
  For i = 1 To hrs.RecordCount
   If Combo2.Text = hrs.Fields(2).Value Then
     Form1.Combo1.AddItem hrs.Fields(0).Value
   End If
    hrs.MoveNext
  Next
    hrs.Close
End If
End Sub

Private Sub Command1_Click()
Dim i, l, j As Integer
l = 0
   If Text1.Text = "" Or Combo1.Text = "" Then
     MsgBox "用户名或输入密码不能为空", vbInformation, "提示"
     Exit Sub
   End If
department = Combo2.Text
username = Combo1.Text
  hrs.CursorLocation = adUseClient
  hrs.Open "select * from 权限设置", hconn, adOpenKeyset, adLockPessimistic
For i = 1 To hrs.RecordCount
    If Combo1.Text = hrs.Fields(0).Value Then
       If Text1.Text = hrs.Fields(1).Value Then
           l = l + 1
           For j = 62 To 75
               ii(j) = hrs.Fields(j).Value
           Next
           
          Else
          MsgBox "密码不正确，请重新输入密码！", vbInformation, "提示"
          Text1.Text = ""
          hrs.Close
          Exit Sub
       End If
    End If
    hrs.MoveNext
Next
hrs.Close
hconn.Close
If l <> 0 Then
   Unload Me
   
   Form2.Show vbModal
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
    Dim sBuffer As String
    Dim lSize As Long
    Dim i, l As Integer
    Static j As Integer
    Dim m, n As Integer
    Static r As Integer

    Set mc_cN = New cNeoCaption '''漂亮窗体
    Skin Me, mc_cN
connectdata1
With Form1.Combo2
 .AddItem "院领导"
 .AddItem "经营部"
 .AddItem "财务部"
 .AddItem "行政部"
 .AddItem "档案部"
 .AddItem "人事部"
 .AddItem "技术部"
 .AddItem "信息中心"
 .AddItem "测量一所"
 .AddItem "测量二所"
 .AddItem "测量三所"
 .AddItem "勘察经营部"
 .AddItem "系统管理员"
End With

End Sub


Private Sub text1_KeyPress(KeyAscii As Integer)
Dim i, l, j As Integer
If KeyAscii = 13 Then
l = 0
   If Text1.Text = "" Or Combo1.Text = "" Then
     MsgBox "用户名或输入密码不能为空", vbInformation, "提示"
     Exit Sub
   End If
department = Combo2.Text
username = Combo1.Text
  hrs.CursorLocation = adUseClient
  hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
For i = 1 To hrs.RecordCount
    If Combo1.Text = hrs.Fields(0).Value Then
       If Text1.Text = hrs.Fields(1).Value Then
           l = l + 1
            For j = 62 To 75
               ii(j) = hrs.Fields(j).Value
           Next
          Else
          MsgBox "密码不正确，请重新输入密码！", vbInformation, "提示"
          Text1.Text = ""
          hrs.Close
          Exit Sub
       End If
    End If
    hrs.MoveNext
Next
hrs.Close
hconn.Close
If l <> 0 Then
   Unload Me
   Form2.Show vbModal
End If
End If
End Sub


Private Sub Skin(f As Form, cn As cNeoCaption)
    cn.ActiveCaptionColor = &HFFFFFF
    cn.InActiveCaptionColor = &HC0C0C0
    cn.ActiveMenuColor = &H0&
    cn.ActiveMenuColorOver = &H0
    cn.InActiveMenuColor = &H0&
    cn.MenuBackgroundColor = RGB(207, 203, 207)
    cn.CaptionFont.Name = "宋体"
    cn.CaptionFont.Size = 9
    cn.MenuFont.Name = "宋体"
    cn.MenuFont.Size = 9
    cn.Attach f, f.PicCaption.Picture, f.PicBorder.Picture, 19, 20, 90, 140, 240, 400
    f.BackColor = RGB(207, 203, 207)
End Sub