frmkcdw.frm

网上教务管理系统 包括（教师

VERSION 5.00
Begin VB.Form FRMKCDW 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "依课程定位"
   ClientHeight    =   5910
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3270
   Icon            =   "FRMKCDW.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5910
   ScaleWidth      =   3270
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   1980
      TabIndex        =   2
      Top             =   5400
      Width           =   1065
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   900
      TabIndex        =   1
      Top             =   5400
      Width           =   1065
   End
   Begin VB.ListBox List1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   5100
      Left            =   30
      TabIndex        =   0
      Top             =   30
      Width           =   3195
   End
End
Attribute VB_Name = "FRMKCDW"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DAT As Database
Dim SQLDWKC, SQLKCCX As String
Dim RECDWKC As Recordset
Dim I As Integer

Private Sub Command1_Click()
DWKECMC = Trim(List1.List(List1.ListIndex))
SQLKCCX = "SELECT * FROM " + FRMMARKIN_LIST1_TEMP + " WHERE 课程名称='" + DWKECMC + "'"
Set RECDWKC = DAT.OpenRecordset(SQLKCCX, dbOpenSnapshot)
If RECDWKC.NoMatch Then MsgBox "无相关信息": Exit Sub
If DWKECMC = "" Then Exit Sub
FRMMARKIN.Combo3.Text = RECDWKC.Fields(1).Value
FRMMARKIN.Combo2.Text = RECDWKC.Fields(3).Value
FRMMARKIN.Text2.Text = RECDWKC.Fields(2).Value
For I = 0 To RECDWKC.Fields.Count - 5
FRMMARKIN.TXTMARK(I).Text = RECDWKC.Fields(I + 4)
Next I
FRMKCDW_ID = True
 Unload Me
       
End Sub

Private Sub Command2_Click()
FRMKCDW_ID = True
Unload Me
End Sub

Private Sub Form_Load()
Set DAT = OpenDatabase(App.Path + "\DATABASE\MARK.MDB", , False)
SQLDWKC = "SELECT DISTINCT 课程名称 FROM " + FRMMARKIN_LIST1_TEMP + " ORDER BY 课程名称  "
Set RECDWKC = DAT.OpenRecordset(SQLDWKC, dbOpenSnapshot)
If Not RECDWKC.BOF Then RECDWKC.MoveFirst
For I = 0 To RECDWKC.RecordCount - 1
List1.AddItem RECDWKC.Fields(0).Value
If Not RECDWKC.EOF Then RECDWKC.MoveNext
Next I

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Cancel = 1
End Sub

Private Sub List1_Click()
Call Command1_Click
End Sub