frmunitman.frm

这是我们公司的题库管理系统,用VB实现,可以进行试题制作,编辑、试卷制作、试卷生成和试卷打印(A3/和A4)

VERSION 5.00
Begin VB.Form FrmUnitMan 
   Caption         =   "章节管理"
   ClientHeight    =   3150
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7185
   LinkTopic       =   "Form1"
   ScaleHeight     =   3150
   ScaleWidth      =   7185
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox zhangDes 
      BackColor       =   &H80000000&
      Enabled         =   0   'False
      Height          =   1815
      Left            =   2520
      TabIndex        =   10
      Top             =   480
      Width           =   4575
   End
   Begin VB.Frame Frame2 
      Height          =   735
      Left            =   0
      TabIndex        =   4
      Top             =   2400
      Width           =   7095
      Begin VB.CommandButton cmd_Cancel 
         Caption         =   "返    回"
         Height          =   375
         Left            =   5520
         TabIndex        =   8
         Top             =   240
         Width           =   1215
      End
      Begin VB.CommandButton DelUnit 
         Caption         =   "删除章节"
         Height          =   375
         Left            =   3720
         TabIndex        =   7
         Top             =   240
         Width           =   1215
      End
      Begin VB.CommandButton ModiUnit 
         Caption         =   "修改章节"
         Height          =   375
         Left            =   1920
         TabIndex        =   6
         Top             =   240
         Width           =   1215
      End
      Begin VB.CommandButton AddUnit 
         Caption         =   "添加章节"
         Height          =   375
         Left            =   240
         TabIndex        =   5
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.ListBox List1 
      Height          =   1860
      Left            =   360
      TabIndex        =   3
      Top             =   480
      Width           =   1815
   End
   Begin VB.Label Label3 
      Caption         =   "章节描述："
      Height          =   975
      Left            =   2280
      TabIndex        =   9
      Top             =   480
      Width           =   255
   End
   Begin VB.Label Label2 
      Caption         =   "章节名："
      Height          =   855
      Left            =   120
      TabIndex        =   2
      Top             =   480
      Width           =   255
   End
   Begin VB.Label LblClassN 
      Caption         =   "LblClassName"
      Height          =   255
      Left            =   1080
      TabIndex        =   1
      Top             =   120
      Width           =   4215
   End
   Begin VB.Label Label1 
      Caption         =   "课程名："
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   855
   End
End
Attribute VB_Name = "FrmUnitMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AddUnit_Click()
  '表添加章节 modify=4
   With FrmClassedit
     .UpperName = MyClass.GetName(CurClass.UpperId)
     .Caption = "添 加 章 节"
     .Label3 = "章节名："
     .Modify = 4
     .Show 1
   End With
   Form_Load
End Sub

Private Sub cmd_Cancel_Click()
  Unload Me
End Sub

Private Sub DelUnit_Click()
  If List1.Text = "" Then
     i = MsgBox("请选择要删除的章节！", vbOKOnly + 48, "警告")
     Exit Sub
  End If
  '确定删除
  If MsgBox("是否确定要删除  " + Trim(CurClass.ClassName) & "  ？", vbOKCancel + 32, "请确认") = vbCancel Then
    Exit Sub
  End If
  MyClass.Delete (CurClass.ClassId)
  i = MsgBox("章节  " & CurClass.ClassName & "   删除成功！", vbOKOnly + 64, "信息")
  Form_Load
End Sub

Private Sub Form_Load()
  Dim j As Integer
  'LblClassN.Caption = CurClass.ClassName
  '把所有章节显示到列表中去
  List1.Clear
  CurClass.Load_Class_ByUpper (CurClass.ClassId)
  j = 0
  Do While j <= FrmclassMan.Num
    List1.AddItem Arr_ClassName(j), j
    j = j + 1
  Loop
End Sub

Private Sub List1_Click()
  CurClass.GetInfo (List1.Text)
  zhangDes.Text = CurClass.Describe
End Sub

Private Sub ModiUnit_Click()
  '修改章节信息
  If List1.Text = "" Then
     i = MsgBox("请选择要修改的章节！", vbOKOnly + 48, "警告")
     Exit Sub
  End If
  With FrmClassedit
     .Caption = "修 改 章 节"
     .UpperName = MyClass.GetName(CurClass.UpperId)
     .Label3 = "章节名："
     .TxtName = CurClass.ClassName
     .TxtDes = CurClass.Describe
     .Modify = 3
     .Show 1
  End With
  Form_Load
End Sub