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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
INTERFACE.frm
资源名称：dbbase.rar　[点击查看]
上传用户：xiao_xia32
上传日期：2022-07-21
资源大小：1174k
文件大小：7k
源码类别：

企业管理

开发平台：

Visual Basic

INTERFACE.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form INTERFACE 
  3.    BackColor       =   &H80000004&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   3675
  6.    ClientLeft      =   2940
  7.    ClientTop       =   2400
  8.    ClientWidth     =   6555
  9.    LinkMode        =   1  'Source
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3675
  14.    ScaleWidth      =   6555
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "退 出"
  18.       BeginProperty Font 
  19.          Name            =   "宋体"
  20.          Size            =   10.5
  21.          Charset         =   134
  22.          Weight          =   400
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   420
  28.       Left            =   5100
  29.       TabIndex        =   3
  30.       Top             =   3075
  31.       Width           =   1215
  32.    End
  33.    Begin VB.CommandButton Command1 
  34.       Caption         =   "登 录"
  35.       BeginProperty Font 
  36.          Name            =   "宋体"
  37.          Size            =   10.5
  38.          Charset         =   134
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   420
  45.       Left            =   3600
  46.       TabIndex        =   2
  47.       Top             =   3075
  48.       Width           =   1215
  49.    End
  50.    Begin VB.Frame Frame1 
  51.       BackColor       =   &H00E0E0E0&
  52.       Caption         =   "[系统注册]"
  53.       Height          =   3615
  54.       Left            =   0
  55.       TabIndex        =   4
  56.       Top             =   0
  57.       Width           =   6465
  58.       Begin VB.TextBox Text1 
  59.          BeginProperty Font 
  60.             Name            =   "MS Sans Serif"
  61.             Size            =   12
  62.             Charset         =   0
  63.             Weight          =   400
  64.             Underline       =   0   'False
  65.             Italic          =   0   'False
  66.             Strikethrough   =   0   'False
  67.          EndProperty
  68.          Height          =   375
  69.          IMEMode         =   3  'DISABLE
  70.          Left            =   2745
  71.          PasswordChar    =   "*"
  72.          TabIndex        =   0
  73.          Top             =   1650
  74.          Width           =   1575
  75.       End
  76.       Begin VB.TextBox Text2 
  77.          BeginProperty Font 
  78.             Name            =   "MS Sans Serif"
  79.             Size            =   12
  80.             Charset         =   0
  81.             Weight          =   400
  82.             Underline       =   0   'False
  83.             Italic          =   0   'False
  84.             Strikethrough   =   0   'False
  85.          EndProperty
  86.          Height          =   375
  87.          IMEMode         =   3  'DISABLE
  88.          Left            =   2745
  89.          PasswordChar    =   "*"
  90.          TabIndex        =   1
  91.          Top             =   2250
  92.          Width           =   1575
  93.       End
  94.       Begin VB.Label Label1 
  95.          Alignment       =   2  'Center
  96.          BackStyle       =   0  'Transparent
  97.          Caption         =   "E-LOOSE"
  98.          BeginProperty Font 
  99.             Name            =   "Monotype Corsiva"
  100.             Size            =   27.75
  101.             Charset         =   0
  102.             Weight          =   700
  103.             Underline       =   0   'False
  104.             Italic          =   -1  'True
  105.             Strikethrough   =   0   'False
  106.          EndProperty
  107.          ForeColor       =   &H00FF0000&
  108.          Height          =   540
  109.          Left            =   1725
  110.          TabIndex        =   7
  111.          Top             =   450
  112.          Width           =   2940
  113.       End
  114.       Begin VB.Label Label3 
  115.          Alignment       =   2  'Center
  116.          BackStyle       =   0  'Transparent
  117.          Caption         =   "员工编号"
  118.          BeginProperty Font 
  119.             Name            =   "宋体"
  120.             Size            =   10.5
  121.             Charset         =   134
  122.             Weight          =   400
  123.             Underline       =   0   'False
  124.             Italic          =   0   'False
  125.             Strikethrough   =   0   'False
  126.          EndProperty
  127.          ForeColor       =   &H00000000&
  128.          Height          =   375
  129.          Left            =   1545
  130.          TabIndex        =   6
  131.          Top             =   1695
  132.          Width           =   1095
  133.       End
  134.       Begin VB.Label 员工口令 
  135.          Alignment       =   2  'Center
  136.          BackStyle       =   0  'Transparent
  137.          Caption         =   "员工口令"
  138.          BeginProperty Font 
  139.             Name            =   "宋体"
  140.             Size            =   10.5
  141.             Charset         =   134
  142.             Weight          =   400
  143.             Underline       =   0   'False
  144.             Italic          =   0   'False
  145.             Strikethrough   =   0   'False
  146.          EndProperty
  147.          ForeColor       =   &H00000000&
  148.          Height          =   375
  149.          Left            =   1545
  150.          TabIndex        =   5
  151.          Top             =   2295
  152.          Width           =   1095
  153.       End
  154.    End
  155. End
  156. Attribute VB_Name = "INTERFACE"
  157. Attribute VB_GlobalNameSpace = False
  158. Attribute VB_Creatable = False
  159. Attribute VB_PredeclaredId = True
  160. Attribute VB_Exposed = False
  161. Private Sub Command1_Click()
  162.     KL = Text2.Text
  163.     YHM = Text1.Text
  164.     
  165.     Sql = "select * from 员工表 where 口令='" & Text2.Text & "' and 员工编号='" & Text1.Text & "'"
  166.     Set rs = ConnWZ.Execute(Sql)
  167.     
  168.     
  169.     If Not rs.EOF Then
  170.         If Text1.Text = "0" And Text2.Text = "0" Then
  171.             frmEmployees.Show
  172.             Unload Me
  173.         End If
  174.         
  175.         YGXM = rs("员工姓名")
  176.         YJBM = rs("一级部门")
  177.         GANGWEI = rs("岗位")
  178.         If IsNull(rs("二级部门")) Then
  179.             EJBM = ""
  180.           Else
  181.             EJBM = rs("二级部门")
  182.         End If
  183.         RSGL.Show
  184.         Unload Me
  185.      Else
  186.         If Text2.Text = "JAVA" Then
  187.             Form1.Show
  188.           Else
  189.             MsgBox "口令错误或没有该帐户！"
  190.             Text1.Text = ""
  191.             Text1.SetFocus
  192.         End If
  193.      End If
  194. End Sub
  196. Private Sub Command2_Click()
  197.     End
  198. End Sub
  200. Private Sub Text2_KeyPress(KeyAscii As Integer)
  201.       
  202.     If KeyAscii = 13 Then
  203.         KL = Text2.Text
  204.         YHM = Text1.Text
  205.         Sql = "select * from 员工表 where 口令='" & Text2.Text & "' and 员工编号='" & Text1.Text & "'"
  206.         Set rs = ConnWZ.Execute(Sql)
  207.         If Not rs.EOF Then
  208.             YGXM = rs("员工姓名")
  209.             YJBM = rs("一级部门")
  210.             GANGWEI = rs("岗位")
  211.         If IsNull(rs("二级部门")) Then
  212.             EJBM = ""
  213.           Else
  214.             EJBM = rs("二级部门")
  215.         End If
  216.             RSGL.Show
  217.             Unload Me
  218.         Else
  219.             MsgBox "口令错误或没有该帐户！"
  220.             Text1.Text = ""
  221.             Text2.Text = ""
  222.             Text1.SetFocus
  223.         End If
  224.     End If
  225. End Sub