help.frm

简单的数据库系统

VERSION 5.00
Begin VB.Form help 
   Caption         =   "帮助"
   ClientHeight    =   7785
   ClientLeft      =   1155
   ClientTop       =   1440
   ClientWidth     =   10950
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   7785
   ScaleWidth      =   10950
End
Attribute VB_Name = "help"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mybookmark As Variant

Private Sub Command1_Click()
If Command1.Caption = "确定(&O)" Then
   If Combo1(0).Text = "" And Combo1(1).Text = "" And Combo1(2).Text = " " And Combo1(3).Text = " " And Combo1(4).Text = " " And Combo1(5).Text = " " And Combo1(6).Text = " " And Combo1(7).Text = " " And Combo1(8).Text = " " And Combo1(9).Text = " " And Combo1(10).Text = " " And Combo1(11).Text = " " And Combo1(12).Text = " " And Combo1(13).Text = "" Then
      MsgBox "你没有选择所开设的课程！", vbQuestion + vbOKOnly, "提示！"
   Else
     txtSQL = "select * from course "
     Set dream = ExecuteSQL(txtSQL, Msgtext)
'     dream.MoveFirst
     While (dream.EOF = False)
       If (dream.Fields(0)) = Trim(Combo1(13).Text) Then
         MsgBox "此年级课程已经添加，需要修改请点击菜单中的修改！", 48, "提示"
         Exit Sub
         Combo1(13).SetFocus
       Else
         dream.MoveNext
      End If
     'FOR用于添加成绩信息
    Wend
    dream.AddNew
    
    For i = 1 To 12
       dream.Fields(0) = Trim(Combo1(13).Text)
       dream.Fields(i) = Trim(Combo1(i).Text)
    Next i
    
    dream.UpdateBatch
    MsgBox "添加课程成功！", 48, "提示"
    
    For i = 0 To 13
       Combo1(i).Text = " "
    Next i
    
    Command1.Enabled = True
    Command2.Enabled = True
    Command3.Enabled = True
 End If
 Else
   'clean text
   For i = 0 To 13
       Combo1(i).Text = ""
   Next i
End If
End Sub

Private Sub Command13_Click()
Unload Me
End Sub

Private Sub Command2_Click()
For i = 0 To 13
  Combo1(i).Text = ""
Next
End Sub

Private Sub Command3_Click()
Unload Me
End Sub



Private Sub Command8_Click()
If Command8.Caption = "编辑(&M)" Then
   Command10.Enabled = True
    For i = 14 To 27
      Combo1(i).Enabled = True
    Next i
   ' mybookmark = dream.Bookmark  '记下当前记录位置
    End If
End Sub

Private Sub Form_Load()
addcourse.Width = 10005
addcourse.Height = 6465
Combo1(13).AddItem "一年级 "
Combo1(13).AddItem "二年级"
Combo1(13).AddItem "三年级 "
For i = 0 To 12
 Combo1(i).AddItem "是"
 Combo1(i).AddItem "否"
Next

Combo1(28).AddItem "一年级 "
Combo1(28).AddItem "二年级"
Combo1(28).AddItem "三年级 "

Combo1(14).AddItem "一年级 "
Combo1(14).AddItem "二年级"
Combo1(14).AddItem "三年级 "
For i = 15 To 27
 Combo1(i).AddItem "是"
 Combo1(i).AddItem "否"
Next
    txtSQL = "select * from course "
    Set dream = ExecuteSQL(txtSQL, Msgtext)  'excute query opertion
       
       If dream.EOF = False Then
          dream.MoveFirst   'move first
          Call viewdata     'display records
          mybookmark = dream.Bookmark
       Else
         MsgBox "没有此记录！", vbOKOnly + vbExclamation, "警告"
         Exit Sub
       End If


    For i = 14 To 27
      Combo1(i).Enabled = False
    Next i
    Command10.Enabled = False
End Sub