frmquerydata.frm

数据库实现员工的管理

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmQueryData 
   BackColor       =   &H0080C0FF&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "员工信息列表"
   ClientHeight    =   3690
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   8325
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3690
   ScaleWidth      =   8325
   ShowInTaskbar   =   0   'False
   Begin MSFlexGridLib.MSFlexGrid msflxData 
      Height          =   3135
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   8295
      _ExtentX        =   14631
      _ExtentY        =   5530
      _Version        =   393216
      BackColor       =   8438015
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   6960
      TabIndex        =   1
      Top             =   3240
      Width           =   1215
   End
   Begin VB.CommandButton cmdPrint 
      Caption         =   "打印(&P)"
      Height          =   375
      Left            =   5400
      TabIndex        =   0
      Top             =   3240
      Width           =   1215
   End
End
Attribute VB_Name = "frmQueryData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub iniGridStyle()
    
    Dim intindex As Long
    msflxData.Cols = 6
    msflxData.Rows = 3
    msflxData.MergeCells = flexMergeFree
     
   '设置第一行
    msflxData.Row = 0
    For intindex = 1 To msflxData.Cols - 1
        msflxData.Col = intindex
        msflxData.Text = "员工信息列表"
        msflxData.ColWidth(intindex) = 1350
        msflxData.CellBackColor = &HC0FFFF
    Next intindex
    msflxData.MergeRow(0) = True
   
   '设置第二行
    msflxData.Row = 1
    msflxData.Col = 0
    msflxData.Text = "序号"
    msflxData.CellBackColor = RGB(225, 225, 225)
    msflxData.Col = 1
    msflxData.Text = "员工编号"
    msflxData.CellBackColor = RGB(225, 225, 225)
    msflxData.Col = 2
    msflxData.Text = "员工姓名"
    msflxData.CellBackColor = RGB(225, 225, 225)
    msflxData.Col = 3
    msflxData.Text = "员工年龄"
    msflxData.CellBackColor = RGB(225, 225, 225)
    msflxData.Col = 4
    msflxData.Text = "加入时间"
    msflxData.CellBackColor = RGB(225, 225, 225)
    msflxData.Col = 5
    msflxData.Text = "员工地址"
    msflxData.CellBackColor = RGB(225, 225, 225)
    
   '设置第三行
    msflxData.Row = 2
    For intindex = 1 To msflxData.Cols - 1
          msflxData.Col = intindex
          msflxData.Text = " "  'msflxDate.text的内容不能为空
    Next intindex
    msflxData.MergeRow(2) = True
   
End Sub



Private Sub LoadDataToGrid()
On Error Resume Next
    Dim intindex As Long
    Dim strTemp As String
    Dim fault As Integer
    
    Dim lngFH As Long
    lngFH = FreeFile  '使用 FreeFile 提供一个尚未使用的文件号
    
    intindex = 1
    Open App.Path & "\emp.txt" For Input As #lngFH
    Select Case Err.Number
        Case 53
            MsgBox "数据文件不存在,可能被改名或者被删除...", vbInformation + vbOKOnly, "文件不存在"
            Err.Clear
            Exit Sub
'        Case Else
'            MsgBox Err.Description & vbCrLf & Err.Number, vbCritical + vbOKOnly, "未知错误"
'            Err.Clear
'            Exit Sub
    End Select
    Do While Not EOF(lngFH)
        Line Input #lngFH, strTemp
        If strTemp = Empty Then
            Line Input #lngFH, strTemp
            If strTemp = frmEmpQuery.txtCode Then    '和数据查询窗体的员工号码对应
                msflxData.AddItem Empty
                msflxData.Col = 0
                msflxData.Row = msflxData.Rows - 1
                msflxData.Text = intindex
             
                msflxData.Col = 1
                msflxData.Text = Trim(strTemp)
            
                msflxData.Col = 2
                Line Input #lngFH, strTemp
                msflxData.Text = Trim(strTemp)
            
                msflxData.Col = 3
                Line Input #lngFH, strTemp
                msflxData.Text = Trim(strTemp)
            
                msflxData.Col = 4
                Line Input #lngFH, strTemp
                msflxData.Text = Trim(strTemp)
                                                                          
                msflxData.Col = 5
                msflxData.ColWidth(5) = 2200 '改变列宽
                Line Input #lngFH, strTemp
                msflxData.Text = Trim(strTemp)
             
                intindex = intindex + 1
                fault = 1
            End If
        End If
    Loop
    If fault = 0 Then
        MsgBox "你要查询的员工不在此库内！"
    End If
    Close #lngFH
End Sub




Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Call iniGridStyle
    Call LoadDataToGrid
End Sub