frmcourse.frm

学校排课管理系统 科目的查询

            BeginProperty Column02 
               ColumnWidth     =   1440
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   2085.166
            EndProperty
         EndProperty
      End
      Begin VB.TextBox Txtcourseid 
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   705
         Left            =   3480
         TabIndex        =   0
         Top             =   600
         Width           =   3495
      End
      Begin VB.ComboBox Cmbcoursetype 
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   645
         Left            =   3480
         TabIndex        =   2
         Top             =   3000
         Width           =   3495
      End
      Begin VB.TextBox Txtcoursename 
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   705
         Left            =   3480
         TabIndex        =   1
         Top             =   1800
         Width           =   3495
      End
      Begin VB.TextBox Txtmajorname 
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   795
         Left            =   3480
         TabIndex        =   3
         Top             =   4140
         Width           =   3495
      End
      Begin VB.Label Label5 
         BackColor       =   &H00FFC0C0&
         Caption         =   "专业名称："
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   735
         Left            =   720
         TabIndex        =   9
         Top             =   4320
         Width           =   2895
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "课程名称："
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   855
         Left            =   660
         TabIndex        =   8
         Top             =   1800
         Width           =   3015
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFC0C0&
         Caption         =   "课程类别："
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   735
         Left            =   720
         TabIndex        =   7
         Top             =   3000
         Width           =   2895
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "课程编号："
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   855
         Left            =   660
         TabIndex        =   6
         Top             =   720
         Width           =   3015
      End
   End
End
Attribute VB_Name = "frmcourse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim temp As DAO.Recordset
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qry As DAO.QueryDef

Private Sub Cmddelete_Click()
    Set rst = db.OpenRecordset("select * from course")
    rst.Filter = "courseid='" & Txtcourseid.Text & "'"
    Set rst = rst.OpenRecordset()
    rst.Delete
    Set rst = db.OpenRecordset("select * from course")
    If rst.RecordCount() <> 0 Then
       If rst.EOF = True Then
        rst.MoveFirst
       Else
        rst.MoveNext
       End If
        filltext
    Else
       MsgBox "数据库中已经没有记录了！"
       clearfield
       Txtcourseid.SetFocus
    End If
    Adodc1.Refresh
    
End Sub

Private Sub Cmdexit_Click()
    db.Close
    frmcourse.Hide
    frmmain.Show vbModal

End Sub



Private Sub Cmdfind_Click()
    Dim findstr As String
   
   findstr = InputBox("请输入您要查找的课程名称：")
    rst.FindFirst "coursename='" & findstr & "'"
   If rst.NoMatch Then
         MsgBox "没有找到您所要查找的课程"
       Exit Sub
  End If
   filltext
    '以上封存的查找方法也可以使用
End Sub

Private Sub cmdfirst_Click()
    rst.MoveFirst
    filltext
End Sub

Private Sub Cmdlast_Click()
    rst.MoveLast
    filltext
End Sub

Private Sub Cmdmodify_Click()
   Set rst = db.OpenRecordset("select * from course")
   rst.Filter = "courseid='" & Txtcourseid.Text & "'"
   Set rst = rst.OpenRecordset()
   rst.edit
   fillrecord
   rst.Update
   Adodc1.Refresh
   Txtcourseid.SetFocus
   Set rst = db.OpenRecordset("select * from course")
    End Sub

Private Sub Cmdnext_Click()
    rst.MoveNext
    If rst.EOF Then
      MsgBox "这是最后一个记录了！"
      rst.MoveLast
    End If
    filltext
End Sub

Private Sub Cmdprevious_Click()
    rst.MovePrevious
    If rst.BOF Then
        MsgBox "这是第一个记录了!"
        rst.MoveFirst
    End If
    filltext
End Sub






    Private Sub Cmdadd_Click()
   Set temp = db.OpenRecordset("select * from course")
   temp.Filter = "courseid='" & Txtcourseid.Text & "'"
   Set temp = temp.OpenRecordset()
   If temp.RecordCount <> 0 Then
      MsgBox ("这个课程编号已存在，您输入的信息不能被保存！")
      Exit Sub
   End If
   temp.Close
   If rst.RecordCount() <> 0 Then
      rst.MoveLast
   End If
   rst.AddNew
   fillrecord
   rst.Update
   Adodc1.Refresh
   Txtcourseid.SetFocus
    
 End Sub


Private Sub Command1_Click()
clearfield
Txtcourseid.SetFocus
Adodc1.Refresh
End Sub

Private Sub DataGrid1_Click()
Txtcourseid.Text = DataGrid1.Columns(0)
Txtcoursename.Text = DataGrid1.Columns(1)
Cmbcoursetype.Text = DataGrid1.Columns(2).Text
Txtmajorname.Text = DataGrid1.Columns(3).Text
End Sub

Private Sub Form_Activate()
    Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
    Set rst = db.OpenRecordset("select * from course")
    If rst.RecordCount() = 0 Then
        clearfield
        hidebutton
    Else
        showbutton
        rst.MoveFirst
        filltext
    End If
    
    Txtcourseid.SetFocus
End Sub



Public Sub filltext()
    Txtcourseid.Text = rst.Fields("courseid")
    Txtcoursename.Text = rst.Fields("coursename")
    Cmbcoursetype.Text = rst.Fields("coursetype")
    If rst.Fields("majorname") = "" Then
        Txtmajorname.Text = ""
    Else
        Txtmajorname.Text = rst.Fields("majorname")
    End If
    
End Sub

Public Sub clearfield()
   Txtcourseid.Text = ""
   Txtcoursename.Text = ""
   Cmbcoursetype.Text = ""
   Txtmajorname.Text = ""
End Sub

Private Sub Form_Load()
    Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
    Set rst = db.OpenRecordset("select * from course")
    If rst.RecordCount() = 0 Then
        clearfield
        hidebutton
    Else
        showbutton
        rst.MoveFirst
        filltext
    End If
    Cmbcoursetype.AddItem "1"
    Cmbcoursetype.AddItem "2"
    Cmbcoursetype.AddItem "3"
          
End Sub












Public Sub hidebutton()
     Cmddelete.Enabled = False
     Cmdnext.Enabled = False
     cmdfind.Enabled = False
     cmdfirst.Enabled = False
     Cmdlast.Enabled = False
     Cmdmodify.Enabled = False
     Cmdprevious.Enabled = False
End Sub

Public Sub showbutton()
    Cmddelete.Enabled = True
     Cmdnext.Enabled = True
     cmdfind.Enabled = True
     cmdfirst.Enabled = True
     Cmdlast.Enabled = True
     Cmdmodify.Enabled = True
     Cmdprevious.Enabled = True
End Sub

Public Sub fillrecord()
    rst.Fields("courseid") = Txtcourseid.Text
   rst.Fields("coursename") = Txtcoursename.Text
   rst.Fields("coursetype") = Cmbcoursetype.Text
   If Txtmajorname.Text = "" Then
      rst.Fields("majorname") = ""
   Else
       rst.Fields("majorname") = Txtmajorname.Text
   End If
   
End Sub




Private Sub Txtcourseid_Click()
Adodc1.Refresh
End Sub

Private Sub Txtcourseid_GotFocus()
    If rst.RecordCount <> 0 Then
        showbutton
    Else
        hidebutton
    End If
    Adodc1.Refresh
End Sub