form2.frm

一个用VB做的试卷分析评估系统

VERSION 5.00
Begin VB.Form frm_mcwh 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "基本数据维护"
   ClientHeight    =   2610
   ClientLeft      =   4905
   ClientTop       =   4275
   ClientWidth     =   4410
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2610
   ScaleWidth      =   4410
   Begin VB.CommandButton cmd 
      Caption         =   "关闭"
      Height          =   375
      Left            =   3000
      TabIndex        =   6
      Top             =   1920
      Width           =   1095
   End
   Begin VB.CommandButton cmd_del 
      Caption         =   "删除"
      Height          =   375
      Left            =   3000
      TabIndex        =   5
      Top             =   1440
      Width           =   1095
   End
   Begin VB.CommandButton cmd_modify 
      Caption         =   "修改"
      Height          =   375
      Left            =   3000
      TabIndex        =   4
      Top             =   960
      Width           =   1095
   End
   Begin VB.CommandButton cmd_add 
      Caption         =   "添加"
      Height          =   375
      Left            =   3000
      TabIndex        =   3
      Top             =   480
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      Caption         =   "学院名称维护"
      Height          =   1815
      Left            =   240
      TabIndex        =   0
      Top             =   480
      Width           =   2535
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "Form2.frx":030A
         Left            =   360
         List            =   "Form2.frx":030C
         TabIndex        =   2
         Top             =   720
         Width           =   1815
      End
      Begin VB.Label Label1 
         Caption         =   "选择或输入学院名称"
         Height          =   255
         Left            =   360
         TabIndex        =   1
         Top             =   480
         Width           =   1695
      End
   End
End
Attribute VB_Name = "frm_mcwh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public tname As String    '要处理的表的名称
Public chgname As String  '被修改或删除的名称

Private Sub cmd_add_Click()
RS.FindFirst "name='" & VBA.Trim(Combo1.Text) & "'"
If Not RS.NoMatch Then
   MsgBox "已经存在名为“" + VBA.Trim(Combo1.Text) + "”的记录，请重试！", vbCritical, "错误提示！"
Else
   RS.AddNew
   RS!Name = VBA.Trim(Combo1.Text)
   RS.Update
   Call combo_in    '列表框数据初始化
End If


End Sub

Private Sub cmd_Click()
Unload Me
End Sub

Private Sub cmd_del_Click()
RS.FindFirst "name='" & VBA.Trim(Combo1.Text) & "'"
If RS.NoMatch Then
   MsgBox "没有名为“" + VBA.Trim(Combo1.Text) + "”的记录!", vbCritical, "错误提示！"
Else
   RS.Delete
End If
cmd_add.Enabled = False
cmd_modify.Enabled = False
cmd_del.Enabled = False

Call combo_in     '列表框数据初始化

End Sub

Private Sub cmd_modify_Click()
RS.FindFirst "name='" & VBA.Trim(Combo1.Text) & "'"
If Not RS.NoMatch Then
   MsgBox "已经存在名为“" + VBA.Trim(Combo1.Text) + "”的记录，请重试！", vbCritical, "错误提示！"
Else
   RS.FindFirst "name='" & chgname & "'"
   RS.Edit
   RS!Name = VBA.Trim(Combo1.Text)
   RS.Update
   cmd_add.Enabled = False
   cmd_modify.Enabled = False
   cmd_del.Enabled = False

   Call combo_in     '列表框数据初始化
End If


End Sub

Private Sub Combo1_Change()
If Combo1.Text = "" Then
   cmd_add.Enabled = False
   cmd_modify.Enabled = False
   cmd_del.Enabled = False
Else
   cmd_add.Enabled = True
   cmd_del.Enabled = True
End If

End Sub

Private Sub Combo1_Click()
cmd_modify.Enabled = True
cmd_del.Enabled = True
chgname = Combo1.Text
End Sub

Private Sub Form_GotFocus()

Call combo_in  '列表框数据初始化

End Sub

Private Sub Form_Load()
Call Frm_main.menu(False)

Me.Left = (Frm_main.Width - Me.Width) / 2
Me.Top = (Frm_main.Height - Me.Height) / 2

Call combo_in  '列表框数据初始化

If tname = "institute" Then
   Frame1.Caption = "学院名称维护"
   Label1.Caption = "选择或输入学院名称"
ElseIf tname = "classes" Then
   Frame1.Caption = "班级名称维护"
   Label1.Caption = "选择或输入班级名称"
ElseIf tname = "course" Then
   Frame1.Caption = "课程名称维护"
   Label1.Caption = "选择或输入课程名称"
ElseIf tname = "teacher" Then
   Frame1.Caption = "教师名称维护"
   Label1.Caption = "选择或输入教师名称"
End If

cmd_add.Enabled = False
cmd_modify.Enabled = False
cmd_del.Enabled = False
End Sub

Public Sub combo_in()    '列表框数据初始化
Set RS = DB.OpenRecordset("select name from " + tname + " order by ID desc")
RS.MoveFirst
Combo1.Clear
Do While Not RS.EOF
   Combo1.AddItem (RS.Fields("name").Value)
   RS.MoveNext
Loop
End Sub


Private Sub Form_Unload(Cancel As Integer)
Call Frm_main.menu(True)
RS.Close   '关闭数据库连接，可以节省系统资源
End Sub