frmperson_srchdlg.frm

智能门锁的程序,用于控制门锁发卡程序,是科布尔的

VERSION 5.00
Begin VB.Form FrmPerson_SrchDlg 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "选择查询姓名"
   ClientHeight    =   5235
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   6840
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   12
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5235
   ScaleWidth      =   6840
   ShowInTaskbar   =   0   'False
   Begin VB.ComboBox CboDept 
      Height          =   420
      Left            =   1560
      TabIndex        =   2
      Top             =   4320
      Width           =   2895
   End
   Begin VB.ListBox LstPerson_Name 
      Height          =   3060
      ItemData        =   "FrmPerson_SrchDlg.frx":0000
      Left            =   1560
      List            =   "FrmPerson_SrchDlg.frx":0002
      TabIndex        =   1
      Top             =   960
      Width           =   2895
   End
   Begin VB.TextBox TxtPerson_Name 
      Height          =   375
      Left            =   1560
      TabIndex        =   0
      Top             =   360
      Width           =   2895
   End
   Begin VB.CommandButton CmdCancel 
      Cancel          =   -1  'True
      Caption         =   "关闭"
      Height          =   495
      Left            =   4980
      TabIndex        =   5
      Top             =   4260
      Width           =   1455
   End
   Begin VB.CommandButton CmdAccept 
      Caption         =   "确认"
      Default         =   -1  'True
      Height          =   495
      Left            =   5040
      TabIndex        =   3
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label Label3 
      Caption         =   "部       门"
      Height          =   375
      Left            =   480
      TabIndex        =   7
      Top             =   4380
      Width           =   975
   End
   Begin VB.Label Label2 
      Caption         =   "姓名例表"
      Height          =   375
      Left            =   450
      TabIndex        =   6
      Top             =   1020
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "所择姓名"
      Height          =   375
      Left            =   480
      TabIndex        =   4
      Top             =   360
      Width           =   975
   End
End
Attribute VB_Name = "FrmPerson_SrchDlg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cnnDept As ADODB.Connection
Dim RSDept As ADODB.Recordset

Dim cnnPerson As ADODB.Connection
Dim RSPerson As ADODB.Recordset

Dim strCnn As String
Private Sub CboDept_Click()
  LstPerson_Name.Clear
  sSQL = "select * from Person_Base where dept='" & CboDept.Text & "'"
  strCnn = "Data Source=szjc;database=szjc;UID=sa;PWD=;"
  Set cnnPerson = New ADODB.Connection
  cnnPerson.Open strCnn      ' 打开雇员表。
  Set RSPerson = New ADODB.Recordset
  RSPerson.Open sSQL, cnnPerson, 3, 3
  With RSPerson
       If Not (.BOF And .EOF) Then
           While Not .EOF
             LstPerson_Name.AddItem .Fields("Person_Name")
             .MoveNext
           Wend
        End If
  End With
End Sub

Private Sub CmdAccept_Click()
    Hide
End Sub

Private Sub CmdCancel_Click()
  
  Hide
End Sub

Private Sub Form_Load()
    CboDept.AddItem "全体"
    CboDept.AddItem "生产部"
    CboDept.AddItem "财务部"
    CboDept.AddItem "监管仓库"
    CboDept.AddItem "业务部"
    CboDept.AddItem "仓储部"
    CboDept.AddItem "总经理办公室"
    CboDept.AddItem "品管部"
  sSQL = "select * from Person_Base"
  strCnn = "Data Source=szjc;database=szjc;UID=sa;PWD=;"
  Set cnnPerson = New ADODB.Connection
  cnnPerson.Open strCnn      ' 打开雇员表。
  Set RSPerson = New ADODB.Recordset
  RSPerson.Open sSQL, cnnPerson, 3, 3
  With RSPerson
       If Not (.BOF And .EOF) Then
           While Not .EOF
             LstPerson_Name.AddItem .Fields("Person_Name")
             .MoveNext
           Wend
        End If
  End With

End Sub

Private Sub LstPerson_Name_Click()
    TxtPerson_Name.Text = LstPerson_Name.Text
End Sub