开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 控制台编程 > 查看源码
frmLogin.frm
资源名称：zidongpeiliao.rar　[点击查看]
上传用户：xianglong
上传日期：2022-06-19
资源大小：1105k
文件大小：10k
源码类别：

控制台编程

开发平台：

Visual Basic

frmLogin.frm：源码内容
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Begin VB.Form frmLogin 
  4.    Caption         =   "系统登录"
  5.    ClientHeight    =   5385
  6.    ClientLeft      =   4350
  7.    ClientTop       =   2850
  8.    ClientWidth     =   4545
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   5385
  13.    ScaleWidth      =   4545
  14.    Begin MSComCtl2.MonthView MonthView 
  15.       Height          =   2220
  16.       Left            =   240
  17.       TabIndex        =   14
  18.       Top             =   3000
  19.       Width           =   4095
  20.       _ExtentX        =   7223
  21.       _ExtentY        =   3916
  22.       _Version        =   393216
  23.       ForeColor       =   -2147483630
  24.       BackColor       =   -2147483633
  25.       BorderStyle     =   1
  26.       Appearance      =   1
  27.       MultiSelect     =   -1  'True
  28.       StartOfWeek     =   25559041
  29.       CurrentDate     =   39140
  30.    End
  31.    Begin VB.CommandButton CmdNO 
  32.       Caption         =   "取消"
  33.       Height          =   375
  34.       Left            =   1920
  35.       Style           =   1  'Graphical
  36.       TabIndex        =   6
  37.       Top             =   2400
  38.       Width           =   1095
  39.    End
  40.    Begin VB.CommandButton CmdOK 
  41.       Caption         =   "确定"
  42.       Default         =   -1  'True
  43.       Height          =   375
  44.       Left            =   240
  45.       Style           =   1  'Graphical
  46.       TabIndex        =   5
  47.       Top             =   2400
  48.       Width           =   975
  49.    End
  50.    Begin VB.TextBox txtPassword 
  51.       Appearance      =   0  'Flat
  52.       ForeColor       =   &H00000000&
  53.       Height          =   330
  54.       IMEMode         =   3  'DISABLE
  55.       Left            =   1200
  56.       PasswordChar    =   "*"
  57.       TabIndex        =   8
  58.       Text            =   "11"
  59.       Top             =   960
  60.       Width           =   1455
  61.    End
  62.    Begin VB.ComboBox cmbname 
  63.       Appearance      =   0  'Flat
  64.       ForeColor       =   &H00000000&
  65.       Height          =   288
  66.       ItemData        =   "frmLogin.frx":0000
  67.       Left            =   1200
  68.       List            =   "frmLogin.frx":0002
  69.       Style           =   2  'Dropdown List
  70.       TabIndex        =   7
  71.       Top             =   600
  72.       Width           =   1455
  73.    End
  74.    Begin VB.CheckBox chkmm 
  75.       Appearance      =   0  'Flat
  76.       Caption         =   "修改密码"
  77.       ForeColor       =   &H00000000&
  78.       Height          =   375
  79.       Left            =   2760
  80.       TabIndex        =   4
  81.       Top             =   960
  82.       Width           =   1095
  83.    End
  84.    Begin VB.Data Data1 
  85.       Caption         =   "Data1"
  86.       Connect         =   "Access"
  87.       DatabaseName    =   ""
  88.       DefaultCursorType=   0  '缺省游标
  89.       DefaultType     =   2  '使用 ODBC
  90.       Exclusive       =   0   'False
  91.       Height          =   345
  92.       Left            =   2880
  93.       Options         =   0
  94.       ReadOnly        =   0   'False
  95.       RecordsetType   =   1  'Dynaset
  96.       RecordSource    =   ""
  97.       Top             =   1440
  98.       Visible         =   0   'False
  99.       Width           =   1140
  100.    End
  101.    Begin VB.TextBox txtNewPassword 
  102.       Appearance      =   0  'Flat
  103.       ForeColor       =   &H00000000&
  104.       Height          =   330
  105.       IMEMode         =   3  'DISABLE
  106.       Left            =   1200
  107.       PasswordChar    =   "*"
  108.       TabIndex        =   3
  109.       Top             =   1320
  110.       Width           =   1455
  111.    End
  112.    Begin VB.TextBox txtConPW 
  113.       Appearance      =   0  'Flat
  114.       ForeColor       =   &H00000000&
  115.       Height          =   330
  116.       IMEMode         =   3  'DISABLE
  117.       Left            =   1200
  118.       PasswordChar    =   "*"
  119.       TabIndex        =   2
  120.       Top             =   1800
  121.       Width           =   1455
  122.    End
  123.    Begin VB.TextBox txtDate 
  124.       Appearance      =   0  'Flat
  125.       ForeColor       =   &H00000000&
  126.       Height          =   375
  127.       Left            =   1200
  128.       TabIndex        =   1
  129.       Top             =   120
  130.       Width           =   1455
  131.    End
  132.    Begin VB.CommandButton Cmd 
  133.       Appearance      =   0  'Flat
  134.       Height          =   615
  135.       Left            =   2760
  136.       Picture         =   "frmLogin.frx":0004
  137.       Style           =   1  'Graphical
  138.       TabIndex        =   0
  139.       Top             =   0
  140.       Width           =   615
  141.    End
  142.    Begin VB.Label Label2 
  143.       Appearance      =   0  'Flat
  144.       BackColor       =   &H80000005&
  145.       BackStyle       =   0  'Transparent
  146.       Caption         =   "密码："
  147.       ForeColor       =   &H00000000&
  148.       Height          =   252
  149.       Left            =   240
  150.       TabIndex        =   13
  151.       Top             =   960
  152.       Width           =   972
  153.    End
  154.    Begin VB.Label Label1 
  155.       Appearance      =   0  'Flat
  156.       BackColor       =   &H80000005&
  157.       BackStyle       =   0  'Transparent
  158.       Caption         =   "用户名："
  159.       ForeColor       =   &H00000000&
  160.       Height          =   252
  161.       Left            =   240
  162.       TabIndex        =   12
  163.       Top             =   600
  164.       Width           =   972
  165.    End
  166.    Begin VB.Label Label3 
  167.       Appearance      =   0  'Flat
  168.       BackColor       =   &H80000005&
  169.       BackStyle       =   0  'Transparent
  170.       Caption         =   "日期："
  171.       ForeColor       =   &H00000000&
  172.       Height          =   252
  173.       Left            =   240
  174.       TabIndex        =   11
  175.       Top             =   120
  176.       Width           =   972
  177.    End
  178.    Begin VB.Label lbNpw 
  179.       Caption         =   "新密码："
  180.       ForeColor       =   &H00000000&
  181.       Height          =   375
  182.       Left            =   240
  183.       TabIndex        =   10
  184.       Top             =   1320
  185.       Width           =   855
  186.    End
  187.    Begin VB.Label lbCpw 
  188.       Caption         =   "确认："
  189.       ForeColor       =   &H00000000&
  190.       Height          =   252
  191.       Left            =   240
  192.       TabIndex        =   9
  193.       Top             =   1920
  194.       Width           =   972
  195.    End
  196. End
  197. Attribute VB_Name = "frmLogin"
  198. Attribute VB_GlobalNameSpace = False
  199. Attribute VB_Creatable = False
  200. Attribute VB_PredeclaredId = True
  201. Attribute VB_Exposed = False
  203. Private Sub chkmm_Click()
  204.   If chkmm.Value = 1 Then
  205.     lbNpw.Visible = True
  206.     txtNewPassword.Visible = True
  207.     lbCpw.Visible = True
  208.     txtConPW.Visible = True
  209.     
  210.     CmdOK.Move 240, 2440
  211.     CmdNO.Move 2760, 2440
  212.     
  213.     frmLogin.Height = 3210
  215.   Else
  216.     lbNpw.Visible = False
  217.     txtNewPassword.Visible = False
  218.     lbCpw.Visible = False
  219.     txtConPW.Visible = False
  220.     
  221.     CmdOK.Move 240, 1440
  222.     CmdNO.Move 2760, 1440
  223.     
  224.     frmLogin.Height = 2250
  226. End If
  227. End Sub
  229. Private Sub cmd_Click()
  230.    MonthView.Visible = True
  231. End Sub
  233. Private Sub CmdOK_Click()
  234. Dim czy As String
  235. czy = cmbname.Text
  236. filename = App.Path & "dbmaterialinfo2007.mdb"
  237. Set dbs = OpenDatabase(filename)
  238. Set rec = dbs.OpenRecordset("用户信息表")
  239. If chkmm.Value = 1 Then
  240.        If cmbname.Text = "" Then
  241.          r = MsgBox("没有选择用户！", 0 + 16, "提示")
  242.          Exit Sub
  243.          End If
  244.    rec.MoveFirst
  245.    
  246.     Do While Not rec.EOF
  247.        If rec.Fields("name") = cmbname.Text Then
  248.            Let mm = Trim(rec.Fields("password"))
  249.        End If
  250.        rec.MoveNext
  251.     Loop
  252.      If Trim(txtPassword.Text) = mm Then
  253.         If txtNewPassword.Text <> txtConPW.Text Then
  254.             r = MsgBox("新密码不一致！", 0 + 16, "提示")
  255.             txtNewPassword.Text = ""
  256.             txtConPW.Text = ""
  257.             txtNewPassword.Text = ""
  258.         Else
  259.             rec.Index = "PrimaryKey"
  260.             rec.Seek "=", cmbname.Text
  261.             rec.Edit
  262.             rec.Fields(1) = txtNewPassword.Text
  263.             rec.Update
  264.             r = MsgBox("密码修改成功！", 0 + 64, "提示")
  265.             Unload Me
  266.             frmMain.Show
  267.         End If
  268.     Else
  269.          r = MsgBox("旧密码错误！", 0 + 16, "提示")
  270.          txtPassword.Text = ""
  271.          txtPassword.SetFocus
  272.          Exit Sub
  273.     End If
  274.       
  275. Else
  276.    If cmbname.Text = "" Then
  277.       r = MsgBox("没有选择用户！", 0 + 16, "提示")
  278.       Exit Sub
  279.    End If
  280.    rec.MoveFirst
  281.     Do While Not rec.EOF
  282.        If rec.Fields("name") = cmbname.Text Then
  283.            Let mm = Trim(rec.Fields("password"))
  284.          End If
  285.        rec.MoveNext
  286.     Loop
  287.      If Trim(txtPassword.Text) = mm Then
  288.         czy = cmbname.Text
  289.         Unload Me
  290.         frmMain.Show
  291.       Else
  292.          r = MsgBox("密码错误", 0 + 16, "提示")
  293.          txtPassword.Text = ""
  294.          txtPassword.SetFocus
  295.    End If
  296.   End If
  297.   frmMain.sbrDB.Panels(1).Text = czy
  298.   dbs.Close
  299. End Sub
  301. Private Sub CmdNO_Click()
  302.   Unload Me
  303. End Sub
  305. Private Sub Form_Load()
  306. MonthView.Visible = False
  308. lbNpw.Visible = False
  309. txtNewPassword.Visible = False
  310. lbCpw.Visible = False
  311. txtConPW.Visible = False
  313. CmdOK.Move 240, 1440
  314. CmdNO.Move 2760, 1440
  316. frmLogin.Height = 2700
  318. On Error GoTo NoFind
  319.    filename = App.Path & "dbmaterialinfo2007.mdb"   '设置数据库文件路径，App.Path代表该应用程序路径
  320.    Set dbs = OpenDatabase(filename)      '打开数据库
  321.    Set rec = dbs.OpenRecordset("用户信息表")   '打开表“用户信息表”
  322.    Do While Not rec.EOF
  323.       cmbname.AddItem rec("name").Value
  324.       rec.MoveNext
  325.    Loop
  326.    txtDate.Text = Date                     '显示日期
  327.    cmbname.ListIndex = 0
  328. NoFind:
  329.    If Err.Number = 3044 Then
  330.     MsgBox "数据库文件丢失,请检查源文件！", 16, "登录"
  331.     End
  332.     End If
  333. End Sub
  335. Private Sub MonthView_DateClick(ByVal DateClicked As Date)
  336.   txtDate.Text = MonthView.Value
  337.   MonthView.Visible = False
  338. End Sub