Form2.frm
上传用户:vtryaojia
上传日期:2020-04-18
资源大小:1214k
文件大小:8k
源码类别:

SCSI/ASPI

开发平台:

Others

  1. VERSION 5.00
  2. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  3. Begin VB.Form login 
  4.    Caption         =   "管理员登陆"
  5.    ClientHeight    =   4845
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   8385
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   4845
  11.    ScaleWidth      =   8385
  12.    StartUpPosition =   3  '窗口缺省
  13.    Begin MSAdodcLib.Adodc Adodc1 
  14.       Height          =   375
  15.       Left            =   6000
  16.       Top             =   4200
  17.       Visible         =   0   'False
  18.       Width           =   1695
  19.       _ExtentX        =   2990
  20.       _ExtentY        =   661
  21.       ConnectMode     =   0
  22.       CursorLocation  =   3
  23.       IsolationLevel  =   -1
  24.       ConnectionTimeout=   15
  25.       CommandTimeout  =   30
  26.       CursorType      =   3
  27.       LockType        =   3
  28.       CommandType     =   8
  29.       CursorOptions   =   0
  30.       CacheSize       =   50
  31.       MaxRecords      =   0
  32.       BOFAction       =   0
  33.       EOFAction       =   0
  34.       ConnectStringType=   1
  35.       Appearance      =   1
  36.       BackColor       =   -2147483643
  37.       ForeColor       =   -2147483640
  38.       Orientation     =   0
  39.       Enabled         =   -1
  40.       Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zzu.mdb;Persist Security Info=False"
  41.       OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zzu.mdb;Persist Security Info=False"
  42.       OLEDBFile       =   ""
  43.       DataSourceName  =   ""
  44.       OtherAttributes =   ""
  45.       UserName        =   ""
  46.       Password        =   ""
  47.       RecordSource    =   ""
  48.       Caption         =   "Adodc1"
  49.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  50.          Name            =   "宋体"
  51.          Size            =   9
  52.          Charset         =   134
  53.          Weight          =   400
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       _Version        =   393216
  59.    End
  60.    Begin VB.CommandButton Command1 
  61.       Caption         =   "LOGIN SYSTEM"
  62.       BeginProperty Font 
  63.          Name            =   "幼圆"
  64.          Size            =   10.5
  65.          Charset         =   134
  66.          Weight          =   700
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       Height          =   495
  72.       Left            =   6000
  73.       TabIndex        =   7
  74.       Top             =   2640
  75.       Width           =   1575
  76.    End
  77.    Begin VB.TextBox Text2 
  78.       BeginProperty Font 
  79.          Name            =   "宋体"
  80.          Size            =   9
  81.          Charset         =   134
  82.          Weight          =   700
  83.          Underline       =   0   'False
  84.          Italic          =   -1  'True
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       Height          =   495
  88.       IMEMode         =   3  'DISABLE
  89.       Left            =   2760
  90.       PasswordChar    =   "*"
  91.       TabIndex        =   6
  92.       Top             =   3120
  93.       Width           =   2175
  94.    End
  95.    Begin VB.TextBox Text1 
  96.       Height          =   495
  97.       Left            =   2760
  98.       TabIndex        =   4
  99.       Top             =   2280
  100.       Width           =   2175
  101.    End
  102.    Begin VB.Label Label9 
  103.       Caption         =   "EXIT"
  104.       BeginProperty Font 
  105.          Name            =   "幼圆"
  106.          Size            =   7.5
  107.          Charset         =   134
  108.          Weight          =   400
  109.          Underline       =   0   'False
  110.          Italic          =   -1  'True
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       Height          =   255
  114.       Left            =   6840
  115.       TabIndex        =   11
  116.       Top             =   600
  117.       Width           =   495
  118.    End
  119.    Begin VB.Label Label8 
  120.       Caption         =   "HELP"
  121.       BeginProperty Font 
  122.          Name            =   "幼圆"
  123.          Size            =   7.5
  124.          Charset         =   134
  125.          Weight          =   400
  126.          Underline       =   0   'False
  127.          Italic          =   -1  'True
  128.          Strikethrough   =   0   'False
  129.       EndProperty
  130.       Height          =   255
  131.       Left            =   6360
  132.       TabIndex        =   10
  133.       Top             =   600
  134.       Width           =   495
  135.    End
  136.    Begin VB.Label Label7 
  137.       Caption         =   "退出"
  138.       Height          =   255
  139.       Left            =   6840
  140.       TabIndex        =   9
  141.       Top             =   360
  142.       Width           =   375
  143.    End
  144.    Begin VB.Label Label6 
  145.       Caption         =   "帮助"
  146.       Height          =   255
  147.       Left            =   6360
  148.       TabIndex        =   8
  149.       Top             =   360
  150.       Width           =   495
  151.    End
  152.    Begin VB.Label Label5 
  153.       Caption         =   "PASSWORD"
  154.       BeginProperty Font 
  155.          Name            =   "幼圆"
  156.          Size            =   10.5
  157.          Charset         =   134
  158.          Weight          =   700
  159.          Underline       =   0   'False
  160.          Italic          =   -1  'True
  161.          Strikethrough   =   0   'False
  162.       EndProperty
  163.       Height          =   375
  164.       Left            =   1560
  165.       TabIndex        =   5
  166.       Top             =   3240
  167.       Width           =   1095
  168.    End
  169.    Begin VB.Label Label4 
  170.       Caption         =   "Name"
  171.       BeginProperty Font 
  172.          Name            =   "幼圆"
  173.          Size            =   10.5
  174.          Charset         =   134
  175.          Weight          =   700
  176.          Underline       =   0   'False
  177.          Italic          =   -1  'True
  178.          Strikethrough   =   0   'False
  179.       EndProperty
  180.       Height          =   375
  181.       Left            =   1560
  182.       TabIndex        =   3
  183.       Top             =   2400
  184.       Width           =   1095
  185.    End
  186.    Begin VB.Label Label3 
  187.       Caption         =   $"Form2.frx":0000
  188.       BeginProperty Font 
  189.          Name            =   "幼圆"
  190.          Size            =   9
  191.          Charset         =   134
  192.          Weight          =   400
  193.          Underline       =   0   'False
  194.          Italic          =   -1  'True
  195.          Strikethrough   =   0   'False
  196.       EndProperty
  197.       Height          =   255
  198.       Left            =   2880
  199.       TabIndex        =   2
  200.       Top             =   1440
  201.       Width           =   2415
  202.    End
  203.    Begin VB.Label Label2 
  204.       Caption         =   "后台管理系统"
  205.       BeginProperty Font 
  206.          Name            =   "隶书"
  207.          Size            =   14.25
  208.          Charset         =   134
  209.          Weight          =   400
  210.          Underline       =   0   'False
  211.          Italic          =   0   'False
  212.          Strikethrough   =   0   'False
  213.       EndProperty
  214.       Height          =   375
  215.       Left            =   3000
  216.       TabIndex        =   1
  217.       Top             =   840
  218.       Width           =   2175
  219.    End
  220.    Begin VB.Label Label1 
  221.       Caption         =   "Computer Sale   "
  222.       BeginProperty Font 
  223.          Name            =   "隶书"
  224.          Size            =   12
  225.          Charset         =   134
  226.          Weight          =   700
  227.          Underline       =   0   'False
  228.          Italic          =   -1  'True
  229.          Strikethrough   =   0   'False
  230.       EndProperty
  231.       Height          =   375
  232.       Left            =   840
  233.       TabIndex        =   0
  234.       Top             =   840
  235.       Width           =   1815
  236.    End
  237. End
  238. Attribute VB_Name = "login"
  239. Attribute VB_GlobalNameSpace = False
  240. Attribute VB_Creatable = False
  241. Attribute VB_PredeclaredId = True
  242. Attribute VB_Exposed = False
  243. Private Sub Command1_Click()
  244.     Adodc1.RecordSource = "select * from Admin where name='" + Trim(Text1.Text) + "' and password='" + Trim(Text2.Text) + "'"
  245.     Adodc1.Refresh
  246.     If Adodc1.Recordset.EOF Then
  247.         MsgBox (" 错误的用户名或密码")
  248.         Text1.Text = ""
  249.         Text2.Text = ""
  250.     Else
  251.         main.Show
  252.         Unload login
  253.     End If
  254. End Sub
  255. Private Sub Label7_Click()
  256. End
  257. End Sub