?? resultfrm.frm
字號(hào):
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Resultfrm
Caption = "選課情況"
ClientHeight = 5340
ClientLeft = 60
ClientTop = 345
ClientWidth = 7050
LinkTopic = "Form1"
ScaleHeight = 5340
ScaleWidth = 7050
StartUpPosition = 3 '窗口缺省
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid
Height = 4815
Left = 0
TabIndex = 0
Top = 0
Width = 6975
_ExtentX = 12303
_ExtentY = 8493
_Version = 393216
FixedCols = 0
End
End
Attribute VB_Name = "Resultfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
Dim sqlstr As Recordset
Dim i, j As Integer
Dim courseID As String
'初始化控件大小和位置
With MSFlexGridl
.Top = 0
.Left = 0
.width = Resultfrm.ScaleWidth
.Height = Resultfrm.ScaleHeight
End With
courseID = InputBox("請(qǐng)輸入課程編號(hào)")
sql = "select 課程編號(hào),課程名稱 from 課程 where 課程編號(hào)='" & courseID& '"
Set courseRD = courseDB.OpenRecordset(sql, dbOpenSnapshot, ReadOnly)
If courseRD.RecordCount = 0 Then
MsgBox "您輸入的課程編號(hào)有誤", vbOKOnly
Resultfrm .Hide
Else
Resultfrm.Caption = courseRD.Fields("課程名稱").Value & "選課情況"
sql = "SELECT 課程.課程名稱,學(xué)生信息.學(xué)號(hào),學(xué)生信息.姓名,學(xué)生信息.性別,_學(xué)生信息.省份 , 學(xué)生信息.專業(yè), 學(xué)生信息.出生日期, "
學(xué)生信息.年級(jí) ""
sql = sql & "FROM 學(xué)生信息 INNER JOIN(課程INNER JOIN 學(xué)號(hào)課程 ON_課程.課程編號(hào)=學(xué)號(hào)課程.課程編號(hào))ON 學(xué)生信息.學(xué)號(hào)=學(xué)號(hào)課程."
學(xué)號(hào) ""
sql = sql & "WHERE 學(xué)號(hào)課程.課程編號(hào)='" & courseID& '""
Set courseRD = courseDB.OpenRecordset(sql, dbOpenSnapshot, ReadOnly)
courseRD.MoveLast
If courseRD.RecordCount > 0 Then
With MSFlexGridl
.Cols = courseRD.Fields.Count - 1
.Rows = courseRD.RecordCount + 1
courseRD.MoveFirst
For i = 1 To .Cols - 1
.TextMatrix(0, i) = courseRD.Fields(i + 1).Name
Next i
For i = 1 To .Rows - 1
For j = 0 To .Cols - 1
.TextMatrix(i, j) = courseRD.Fields(j + 1).Value
Next i
End With
End If
End If
courseRD.Close
End Sub
'調(diào)節(jié)控件大小
Private Sub Form_Resize()
With MSFlexGirdl
.Top = 0
.Left = 0
.width = Resultfrm.ScaleWidth
.Height = Resultfrm.ScaleHeight
End With
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -