frm_alterinfofind.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form Frm_AlterInfoFind 
   Caption         =   "显示调动信息查询结果"
   ClientHeight    =   7845
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11040
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7845
   ScaleWidth      =   11040
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame2 
      Height          =   7755
      Left            =   90
      TabIndex        =   0
      Top             =   0
      Width           =   10845
      Begin MSFlexGridLib.MSFlexGrid Grid1 
         Height          =   7455
         Left            =   90
         TabIndex        =   1
         Top             =   180
         Width           =   10665
         _ExtentX        =   18812
         _ExtentY        =   13150
         _Version        =   393216
         Cols            =   11
         FixedCols       =   0
         AllowUserResizing=   1
         Appearance      =   0
      End
   End
End
Attribute VB_Name = "Frm_AlterInfoFind"
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 = " 职工编号 |^职工姓名|^  原部门名称  |^  原职务  |^   新部门名称   |^  新职务  |^   调出时间   |^   调入时间   |^     调出原因     |^  领导签字  |^     备   注    "
    Set m_Rs = ExecuteSQL(AlterInfoSql, "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("AID")
          Grid1.TextMatrix(i, 1) = m_Rs("AName")
          Grid1.TextMatrix(i, 2) = m_Rs("AOldDept")
          Grid1.TextMatrix(i, 3) = m_Rs("AOldPosition")
          Grid1.TextMatrix(i, 4) = m_Rs("ANewDept")
          Grid1.TextMatrix(i, 5) = m_Rs("ANewPosition")
          Grid1.TextMatrix(i, 6) = m_Rs("AOutTime")
          Grid1.TextMatrix(i, 7) = m_Rs("AInTime")
          Grid1.TextMatrix(i, 8) = m_Rs("AOutReason")
          Grid1.TextMatrix(i, 9) = m_Rs("ADirection")
          Grid1.TextMatrix(i, 10) = m_Rs("ARemark")
          
          
          m_Rs.MoveNext
          i = i + 1
       Loop
    End If
   
End Sub