frmwholeteachplan.frm

智能排课系统

         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   495
         Left            =   480
         TabIndex        =   19
         Top             =   3120
         Width           =   2535
      End
      Begin VB.Label Label2 
         BackColor       =   &H00FFC0C0&
         Caption         =   "周 学 时："
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   21.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   495
         Left            =   480
         TabIndex        =   18
         Top             =   4080
         Width           =   2535
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFC0C0&
         Caption         =   "班级编号："
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   21.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   495
         Left            =   480
         TabIndex        =   17
         Top             =   2160
         Width           =   2535
      End
   End
End
Attribute VB_Name = "frmwholeteachplan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public db As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rst1 As New ADODB.Recordset
Dim temp As New ADODB.Recordset
Dim strSQL As String



'连接到数据库
Private Function ConenctToDatabase() As Boolean
  On Error GoTo ErrorHandler
  Dim DBName As String, ServerAdd As String, UserName As String, UserPwd As String
  '设置连接信息字符串的参数
  ServerAdd = "IMAGE"
  DBName = "Paike"
  UserName = ""
  UserPwd = ""
  '连接数据库
  Set db = New ADODB.Connection
  db.ConnectionTimeout = 10
  db.CursorLocation = adUseServer
  db.ConnectionString = "uid=" & UserName & ";pwd=" & UserPwd & _
                            ";driver={SQL Server};server=" & ServerAdd & _
                            ";database=" & DBName & ";dsn=''"
  db.Open
  '返回值
  ConenctToDatabase = True
  Exit Function
ErrorHandler:
  MsgBox "连接到数据库出错", vbCritical, "出现错误"
  Exit Function
End Function



Private Sub Command5_Click()
clearfield
Txtcourseid.SetFocus
Adodcteachplan.Refresh
End Sub

Private Sub Form_Load()
    strSQL = "SELECT * FROM bteachplan"
   
    ConenctToDatabase
    rst.Open strSQL, db, adOpenKeyset, adLockOptimistic
    
    If rst.RecordCount() <> 0 Then
       showbutton
       rst.MoveFirst
       Txtcourseid.Text = rst.Fields("CourseID")
       txtteacherid.Text = rst.Fields("teacherID")
       Txtweeknum.Text = rst.Fields("weeknum")
       TxtClassID.Text = rst.Fields("classid")
       
       Txttotal.Text = rst.Fields("Coursenum")

    Else
        hidebutton
        clearfield
    End If
    

    
    DataGridcourse.Visible = False
    DataGridteacher.Visible = False
    DataGridclass.Visible = False

   
End Sub








Private Sub Cmddelete_Click()
    
 
    rst.Delete
    rst.Requery
    
    If rst.RecordCount() = 0 Then
       
       clearfield
       hidebutton
       Txtcourseid.SetFocus
       Adodcteachplan.Refresh
       MsgBox "数据库中已经没有记录了！"
       Exit Sub
    End If
    
       
       
    rst.MoveNext
    If rst.EOF = True Then
        rst.MoveLast
    End If
    
    filltext
       

    

    Adodcteachplan.Refresh
    
End Sub




Private Sub Cmdexit_Click()
    db.Close
    Unload Me
    frmmain.Show vbModal
    
End Sub


Private Sub cmdfirst_Click()
    rst.MoveFirst
    filltext
End Sub

Private Sub Cmdlast_Click()
    rst.MoveLast
    filltext
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()
    Dim strtempsql As String
    strtempsql = "SELECT courseid FROM bteachplan"

    temp.Open strtempsql, db, adOpenKeyset, adLockOptimistic
   
   temp.Filter = "courseid='" & Txtcourseid.Text & "'"
   
   If temp.RecordCount <> 0 Then
      MsgBox ("这个专业本课程已存在，您输入的信息不能被保存！")
      temp.Close
      
      Exit Sub
   End If
   temp.Close
   If rst.RecordCount() <> 0 Then
      rst.MoveLast
   End If
   rst.AddNew
   fillrecord
   rst.Update
   rst.Requery
   Txtcourseid.SetFocus
   Adodcteachplan.Refresh

  
   If rst.RecordCount() <> 0 Then
   showbutton
   End If
   
 End Sub




Private Sub DataGrid1_Click()
    rst.Requery
    If rst.RecordCount() = 0 Then
        Exit Sub
    End If
    
    Txtcourseid.Text = DataGrid1.Columns(0).Text
    
    txtteacherid.Text = DataGrid1.Columns(1).Text
    Txtweeknum.Text = DataGrid1.Columns(2).Text
    Txttotal.Text = DataGrid1.Columns(3).Text
    TxtClassID.Text = DataGrid1.Columns(4).Text
    
    
End Sub

Private Sub DataGridclass_Click()
    DataGridclass.Refresh
    If DataGridclass.Columns(0).Text = "" Then
    
        Exit Sub
    End If
    
    TxtClassID.Text = DataGridclass.Text
End Sub

Private Sub DataGridcourse_Click()
    Txtcourseid.Text = DataGridcourse.Text
End Sub


Private Sub DataGridteacher_Click()
    txtteacherid.Text = DataGridteacher.Text
End Sub


Public Sub filltext()
     



    TxtClassID.Text = rst.Fields("classid")
  
    Txtweeknum = rst.Fields("weeknum")
    Txtcourseid.Text = rst.Fields("courseid")
    Txttotal.Text = rst.Fields("coursenum")
  


    txtteacherid.Text = rst.Fields("teacherid")
      
End Sub

Public Sub clearfield()
    Txtcourseid.Text = ""
    txtteacherid.Text = ""
    TxtClassID.Text = ""
    Txtweeknum.Text = ""
    Txttotal.Text = ""
    
   
End Sub



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

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

Public Sub fillrecord()
    If TxtClassID.Text = "" Then
        MsgBox "请输入班级编号！"
        Exit Sub
    
    Else
        rst.Fields("classid") = TxtClassID.Text
    End If
   
    If txtteacherid.Text = "" Then
        MsgBox "请输入教师编号！"
        Exit Sub
    Else
        rst.Fields("teacherid") = txtteacherid.Text
    End If
   
    If Txtcourseid.Text = "" Then
        MsgBox "请输入课程编号！"
        Exit Sub
    Else
        rst.Fields("courseid") = Txtcourseid.Text
    End If
    
    If Txttotal = "" Then
        MsgBox "请输入总学时！"
        Exit Sub
    Else
        rst.Fields("coursenum") = Cmbtotal.Text
    End If
        
    
   If Txtweeknum = "" Then
        MsgBox "请输入周学时！"
        Exit Sub
    Else
        rst.Fields("weeknum") = Txtweeknum.Text
    End If
    
   
   DataGridteacher.Visible = False
   DataGridcourse.Visible = False
   DataGridclass.Visible = False
   
   
End Sub




Private Sub Txtclassid_Click()
adodclass.RecordSource = "select classid,classname from bclass"
adodclass.Refresh

DataGridteacher.Visible = False

DataGridcourse.Visible = False
DataGridclass.Visible = True
End Sub

Private Sub Txtclassid_GotFocus()

DataGridteacher.Visible = False

DataGridcourse.Visible = False
DataGridclass.Visible = True
End Sub

Private Sub Txtcourseid_GotFocus()

DataGridclass.Visible = False
DataGridteacher.Visible = False
DataGridcourse.Visible = True

End Sub



Private Sub txtteacherid_Click()
DataGridcourse.Visible = False
DataGridclass.Visible = False

DataGridteacher.Visible = True

End Sub