frm_infofind.frm

一个vb开发的人事信息管理软件,提供基本的人事信息管理

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form Frm_InfoFind 
   Caption         =   "基本信息查询"
   ClientHeight    =   7935
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11025
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7935
   ScaleWidth      =   11025
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame2 
      Height          =   7755
      Left            =   60
      TabIndex        =   0
      Top             =   90
      Width           =   10845
      Begin MSFlexGridLib.MSFlexGrid Grid1 
         Height          =   7515
         Left            =   30
         TabIndex        =   1
         Top             =   150
         Width           =   10755
         _ExtentX        =   18971
         _ExtentY        =   13256
         _Version        =   393216
         Cols            =   18
         FixedCols       =   0
         AllowUserResizing=   1
         Appearance      =   0
      End
   End
End
Attribute VB_Name = "Frm_InfoFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Dim m_Rs As New ADODB.Recordset
    Dim strSql As String
    Dim i As Integer
     ''''''添加标题'''''''''''''''''
     Grid1.FormatString = " 职工编号 |^职工姓名|^  所在部门  |^性别|^   籍 贯   |^年龄|^   出 生 日 期   |^  学 历  |^  专 业  |^  家庭住址  |^ 邮政编码 |^  电 话  |^  E-Mail  |^  参加工作时间 |^进入本单位时间|^ 起薪时间  |^ 职务  |^ 备注 "
     
    Set m_Rs = ExecuteSQL(InfoSql, "Person.mdb")
    If m_Rs.RecordCount <> 0 Then
       
       '''''''初始化表格行数''''''''''''
       Grid1.Rows = 2
       For i = 1 To Grid1.Cols - 1
           Grid1.TextMatrix(1, i) = ""
       Next
       '''''''''''''''''''''''''''''''''''
       i = 1
       Do While Not m_Rs.EOF
          Grid1.Rows = i + 2
          Grid1.TextMatrix(i, 0) = m_Rs("SID")
          Grid1.TextMatrix(i, 1) = m_Rs("SName")
          Grid1.TextMatrix(i, 2) = m_Rs("SDept")
          Grid1.TextMatrix(i, 3) = m_Rs("SGender")
          Grid1.TextMatrix(i, 4) = m_Rs("SPlace")
          Grid1.TextMatrix(i, 5) = m_Rs("SAge")
          Grid1.TextMatrix(i, 6) = m_Rs("SBirthday")
          Grid1.TextMatrix(i, 7) = m_Rs("SDegree")
          Grid1.TextMatrix(i, 8) = m_Rs("SSpecial")
          Grid1.TextMatrix(i, 9) = m_Rs("SAddress")
          Grid1.TextMatrix(i, 10) = m_Rs("SCode")
          Grid1.TextMatrix(i, 11) = m_Rs("STel")
          Grid1.TextMatrix(i, 12) = m_Rs("SEmail")
          Grid1.TextMatrix(i, 13) = m_Rs("SWorkTime")
          Grid1.TextMatrix(i, 14) = m_Rs("SInTime")
          Grid1.TextMatrix(i, 15) = m_Rs("SPayTime")
          Grid1.TextMatrix(i, 16) = m_Rs("Sposition")
          Grid1.TextMatrix(i, 17) = m_Rs("SRemark")
          
          m_Rs.MoveNext
          i = i + 1
       Loop
    End If
     
End Sub