gjq_frmfind.frm

小型超市进销存系统

VERSION 5.00
Begin VB.Form gjq_frmFind 
   Caption         =   "查找"
   ClientHeight    =   4485
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4485
   ScaleWidth      =   6000
   Begin VB.TextBox Text2 
      Height          =   315
      Left            =   2400
      TabIndex        =   5
      Top             =   1400
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   2400
      TabIndex        =   4
      Top             =   360
      Width           =   1695
   End
   Begin VB.CommandButton cmdDepartment 
      Caption         =   "按部门查找"
      Height          =   375
      Left            =   840
      TabIndex        =   3
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton cmdFindid 
      Caption         =   "按编号查找"
      Height          =   375
      Left            =   840
      TabIndex        =   2
      Top             =   1400
      Width           =   1215
   End
   Begin VB.CommandButton cmdName 
      Caption         =   "按姓名查找"
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   360
      Width           =   1215
   End
   Begin VB.ComboBox Combo3 
      Height          =   300
      Left            =   2400
      TabIndex        =   0
      Text            =   "人事部"
      Top             =   2520
      Width           =   1695
   End
End
Attribute VB_Name = "gjq_frmFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdDepartment_Click()
GJQ_strsql = "select * from t_employee where department='" & Trim(Combo3.Text) & "'"
Call Dblink.executeSQL(GJQ_strsql)
Set gjq_frmmaninfo.MSHFlexGrid1.DataSource = Dblink.rs
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 1) = "编号"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 2) = "姓名"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 3) = "性别"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 4) = "生日"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 5) = "学历"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 6) = "身份证"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 7) = "部门"
End Sub

Private Sub cmdName_Click()
GJQ_strsql = "select * from t_employee where empname='" & Trim(Text1.Text) & "'"
Call Dblink.executeSQL(GJQ_strsql)
If Dblink.rs.RecordCount > 0 Then
Set gjq_frmmaninfo.MSHFlexGrid1.DataSource = Dblink.rs
Else
MsgBox "无此姓名员工"
End If
Text1.Text = ""
Text1.SetFocus
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 1) = "编号"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 2) = "姓名"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 3) = "性别"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 4) = "生日"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 5) = "学历"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 6) = "身份证"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 7) = "部门"
End Sub


Private Sub cmdFindid_Click()
GJQ_strsql = "select * from t_employee where employeeid='" & Trim(Text2.Text) & "'"
Call Dblink.executeSQL(GJQ_strsql)
If Dblink.rs.RecordCount > 0 Then
Set gjq_frmmaninfo.MSHFlexGrid1.DataSource = Dblink.rs
Else
MsgBox "无此编号"
End If
Text2.Text = ""
Text2.SetFocus
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 1) = "编号"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 2) = "姓名"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 3) = "性别"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 4) = "生日"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 5) = "学历"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 6) = "身份证"
gjq_frmmaninfo.MSHFlexGrid1.TextMatrix(0, 7) = "部门"
End Sub