frm_alterchange.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form Frm_AlterChange 
   Caption         =   "调动信息修改"
   ClientHeight    =   7485
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10350
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7485
   ScaleWidth      =   10350
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   1035
      Left            =   150
      TabIndex        =   2
      Top             =   60
      Width           =   10095
      Begin VB.ComboBox Combo1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   1500
         TabIndex        =   5
         Top             =   360
         Width           =   1965
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   4890
         TabIndex        =   4
         Top             =   360
         Width           =   2325
      End
      Begin VB.CommandButton Cmd_OK 
         Caption         =   " 查  询"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   435
         Left            =   8250
         TabIndex        =   3
         Top             =   300
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "选择查询字段"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Index           =   0
         Left            =   180
         TabIndex        =   7
         Top             =   420
         Width           =   1335
      End
      Begin VB.Label Label1 
         Caption         =   "选择查询内容"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Index           =   1
         Left            =   3570
         TabIndex        =   6
         Top             =   420
         Width           =   1335
      End
   End
   Begin VB.Frame Frame2 
      Height          =   6165
      Left            =   150
      TabIndex        =   0
      Top             =   1200
      Width           =   10095
      Begin MSFlexGridLib.MSFlexGrid Grid1 
         Height          =   5985
         Left            =   30
         TabIndex        =   1
         Top             =   120
         Width           =   10005
         _ExtentX        =   17648
         _ExtentY        =   10557
         _Version        =   393216
         Cols            =   11
         FixedCols       =   0
         AllowUserResizing=   1
         Appearance      =   0
      End
   End
End
Attribute VB_Name = "Frm_AlterChange"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_FieldName As String

Private Sub Cmd_OK_Click()
   Dim m_Rs As New ADODB.Recordset
    Dim strSql As String
    Dim i As Integer
    If (Combo1.Text = "") And (Text1.Text = "") Then
       strSql = "SELECT * FROM  AlterationInfo Order By ID"
    Else
       strSql = "SELECT * FROM  AlterationInfo  WHERE  " & Trim(m_FieldName) & " like '%" & Trim(Text1.Text) & "%'"
    End If
    ''''MsgBox strSql
    Set m_Rs = ExecuteSQL(strSql, "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

Private Sub Combo1_Click()
    Select Case Trim(Combo1.Text)
    Case "职工编号"
         m_FieldName = "AID"
    Case "职工姓名"
         m_FieldName = "AName"
    Case "调出时间"
         m_FieldName = "AOutTime"
    Case "调入时间"
         m_FieldName = "AInTime"
    Case "原部门名称"
         m_FieldName = "AOldDept"
    Case "新部门名称"
         m_FieldName = "ANewDept"
   
    End Select
End Sub

Private Sub Form_Load()
      '''''''添加字段名称''''''''''
     Combo1.AddItem "职工编号"
     Combo1.AddItem "职工姓名"
     Combo1.AddItem "调出时间"
     Combo1.AddItem "调入时间"
     Combo1.AddItem "原部门名称"
     Combo1.AddItem "新部门名称"
     
     ''''''添加标题'''''''''''''''''
     Grid1.FormatString = " 职工编号 |^职工姓名|^  原部门名称  |^  原职务  |^   新部门名称   |^  新职务  |^   调出时间   |^   调入时间   |^     调出原因     |^  领导签字  |^     备   注    "
End Sub

Private Sub Grid1_DblClick()
     iAFlag = 1 ''''代表修改记录''''''''''
    Dim i As Integer
    For i = 0 To Grid1.Cols - 1
        sAData(i) = Grid1.TextMatrix(Grid1.Row, i)
    Next
    Frm_AddAlter.Show 1
End Sub

Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   If Button = 2 Then
       PopupMenu Frm_PopMenu.Apopmenu
    End If
End Sub