frmtable.frm

该信息管理系统可以在Windows 2000 Server平台上运行

VERSION 5.00
Begin VB.Form FrmTable 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Table"
   ClientHeight    =   5475
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4740
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5475
   ScaleWidth      =   4740
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   2640
      TabIndex        =   5
      Top             =   4920
      Width           =   1095
   End
   Begin VB.CommandButton CmdOK 
      Caption         =   "确认"
      Height          =   375
      Left            =   720
      TabIndex        =   4
      Top             =   4920
      Width           =   1215
   End
   Begin VB.TextBox TxtDepart 
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Top             =   4320
      Width           =   1815
   End
   Begin VB.TextBox TxtDegree 
      Height          =   375
      Left            =   360
      TabIndex        =   2
      Top             =   4320
      Width           =   1815
   End
   Begin VB.ListBox LsDepart 
      Height          =   3180
      Left            =   2520
      TabIndex        =   1
      Top             =   600
      Width           =   1815
   End
   Begin VB.ListBox LsDegree 
      Height          =   3180
      Left            =   360
      TabIndex        =   0
      Top             =   600
      Width           =   1815
   End
   Begin VB.Label Label2 
      Caption         =   "部门"
      Height          =   255
      Left            =   2520
      TabIndex        =   13
      Top             =   240
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "学历"
      Height          =   255
      Left            =   360
      TabIndex        =   12
      Top             =   240
      Width           =   1095
   End
   Begin VB.Label LbF 
      Caption         =   "删除"
      Height          =   375
      Index           =   5
      Left            =   3720
      TabIndex        =   11
      Top             =   3840
      Width           =   615
   End
   Begin VB.Label LbF 
      Caption         =   "添加"
      Height          =   375
      Index           =   4
      Left            =   3120
      TabIndex        =   10
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label LbF 
      Caption         =   "编辑"
      Height          =   375
      Index           =   3
      Left            =   2520
      TabIndex        =   9
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label LbF 
      Caption         =   "删除"
      Height          =   375
      Index           =   2
      Left            =   1560
      TabIndex        =   8
      Top             =   3840
      Width           =   615
   End
   Begin VB.Label LbF 
      Caption         =   "添加"
      Height          =   375
      Index           =   1
      Left            =   960
      TabIndex        =   7
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label LbF 
      Caption         =   "编辑"
      Height          =   375
      Index           =   0
      Left            =   360
      TabIndex        =   6
      Top             =   3840
      Width           =   495
   End
End
Attribute VB_Name = "FrmTable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Tbnam(50), Tbstr(50) As String '最大条目数 预设为100
Dim fil, tbcount, i As Integer
Dim Tbch As Boolean


Private Sub CmdCancel_Click()
    
    Me.Hide
        
End Sub

Private Sub cmdOK_Click()

 If Tbch Then '如果table条目变动 则 保存变动
    FrmMain.LsDegree.Clear
    FrmMain.LsDepart.Clear
    FrmEdit.Cmbdegree.Clear
    FrmEdit.Cmbdepart.Clear
    
     fil = FreeFile()
       
    Open App.Path + "\table.ini" For Output As #fil  '写入table条目信息
    
    For i = 0 To LsDegree.ListCount - 1
         Print #fil, "lsdegree"; ","; LsDegree.List(i)
         FrmMain.LsDegree.AddItem LsDegree.List(i)
         FrmEdit.Cmbdegree.AddItem LsDegree.List(i)
         
    Next i
    
    For i = 0 To LsDepart.ListCount - 1
         Print #fil, "lsdepart"; ","; LsDepart.List(i)
         FrmMain.LsDepart.AddItem LsDepart.List(i)
         FrmEdit.Cmbdepart.AddItem LsDepart.List(i)
    Next i
   
         Close #fil
         
         FrmMain.LsDegree.AddItem "定制"   '添加最末的 定制条目
         FrmMain.LsDepart.AddItem "定制"
         FrmEdit.Cmbdegree.AddItem "定制"
         FrmEdit.Cmbdepart.AddItem "定制"
         
         FrmEdit.Cmbdegree.ListIndex = 0
         FrmEdit.Cmbdepart.ListIndex = 0
 
 End If


    Me.Hide
    
        
End Sub

Private Sub LbF_Click(Index As Integer)
    
    Tbch = True
        
    Select Case Index
    
    Case 0   '编辑
        If TxtDegree.Text = "" Then Exit Sub
        If LsDegree.ListIndex <> -1 Then
           LsDegree.List(LsDegree.ListIndex) = TxtDegree.Text
        End If
        
    Case 1 '添加
        For i = 0 To LsDegree.ListCount - 1
            If LsDegree.List(i) = TxtDegree.Text Then
                MsgBox "该条目已经存在"
                Exit Sub
             End If
        Next i
        
        LsDegree.AddItem TxtDegree.Text
        
    Case 2 '删除
        If LsDegree.ListIndex <> -1 Then
           LsDegree.RemoveItem (LsDegree.ListIndex)
        End If
            
    Case 3 '编辑
        If TxtDegree.Text = "" Then Exit Sub
        If LsDepart.ListIndex <> -1 Then
           LsDepart.List(LsDepart.ListIndex) = TxtDepart.Text
        End If
        
    Case 4 '添加
        For i = 0 To LsDepart.ListCount - 1
            If LsDepart.List(i) = TxtDepart.Text Then
                MsgBox "该条目已经存在"
                Exit Sub
             End If
        Next i
        LsDepart.AddItem TxtDepart.Text
        
    Case 5 '删除
        If LsDepart.ListIndex <> -1 Then
           LsDepart.RemoveItem (LsDepart.ListIndex)
        End If
            
    End Select
        
End Sub

Private Sub LsDegree_Click()  '选定lsdegree条目时 在下面文本框中显示 编辑
    
    TxtDegree.Text = LsDegree.Text
    
End Sub

Private Sub LsDepart_Click() '选定lsdegree条目时 在下面文本框中显示 编辑

    TxtDepart.Text = LsDepart.Text
  
End Sub

Private Sub Form_Load()
        
    Tbch = False

            fil = FreeFile()
        Open App.Path + "\table.ini" For Input As #fil '写入table条目信息
    
            Do While Not EOF(fil)
                Input #fil, Tbnam(i), Tbstr(i)
                i = i + 1
            Loop
   
        Close #fil
         
            tbcount = i
         
        For i = 0 To tbcount
            If Tbnam(i) = "lsdegree" Then
                LsDegree.AddItem Tbstr(i)
            ElseIf Tbnam(i) = "lsdepart" Then
                LsDepart.AddItem Tbstr(i)
            End If
    
        Next i
                
End Sub

Private Sub Form_Unload(Cancel As Integer) '卸载窗体
    FrmMain.Enabled = True
    FrmMain.SetFocus
    Unload Me

End Sub