?? 掛科學生信息表.frm
字號:
VERSION 5.00
Begin VB.Form 掛科學生信息表
Caption = "掛科學生信息表"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 6060
LinkTopic = "Form2"
ScaleHeight = 3195
ScaleWidth = 6060
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command5
Caption = "關閉"
Height = 495
Left = 4800
TabIndex = 18
Top = 2640
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "刷新"
Height = 495
Left = 3840
TabIndex = 17
Top = 2640
Width = 855
End
Begin VB.CommandButton Command3
Caption = "刪除"
Height = 495
Left = 2400
TabIndex = 16
Top = 2640
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 495
Left = 1200
TabIndex = 15
Top = 2640
Width = 855
End
Begin VB.CommandButton Command1
Caption = "更新"
Height = 495
Left = 120
TabIndex = 14
Top = 2640
Width = 735
End
Begin VB.TextBox Text7
Height = 375
Left = 840
TabIndex = 13
Top = 1440
Width = 1335
End
Begin VB.TextBox Text6
Height = 270
Left = 4200
TabIndex = 11
Top = 960
Width = 1215
End
Begin VB.TextBox Text5
Height = 270
Left = 840
TabIndex = 9
Top = 960
Width = 1335
End
Begin VB.TextBox Text4
Height = 270
Left = 4200
TabIndex = 7
Top = 600
Width = 1215
End
Begin VB.TextBox Text3
Height = 270
Left = 840
TabIndex = 5
Top = 480
Width = 1335
End
Begin VB.TextBox Text2
Height = 270
Left = 4200
TabIndex = 3
Top = 120
Width = 1215
End
Begin VB.TextBox Text1
Height = 270
Left = 840
TabIndex = 1
Top = 0
Width = 1335
End
Begin VB.Label Label8
Caption = "元"
Height = 255
Left = 2280
TabIndex = 19
Top = 1560
Width = 375
End
Begin VB.Label Label7
Caption = "應交重修費用"
Height = 495
Left = 120
TabIndex = 12
Top = 1440
Width = 615
End
Begin VB.Label Label6
Caption = "學分"
Height = 255
Left = 3600
TabIndex = 10
Top = 960
Width = 495
End
Begin VB.Label Label5
Caption = "科目"
Height = 255
Left = 240
TabIndex = 8
Top = 960
Width = 375
End
Begin VB.Label Label4
Caption = "性別"
Height = 255
Left = 3600
TabIndex = 6
Top = 600
Width = 495
End
Begin VB.Label Label3
Caption = "姓名"
Height = 255
Left = 240
TabIndex = 4
Top = 480
Width = 375
End
Begin VB.Label Label2
Caption = "學號"
Height = 255
Left = 3600
TabIndex = 2
Top = 120
Width = 375
End
Begin VB.Label Label1
Caption = "系別"
Height = 255
Left = 240
TabIndex = 0
Top = 120
Width = 495
End
End
Attribute VB_Name = "掛科學生信息表"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Dim WithEvents adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Private Sub Command1_Click()
On Error GoTo UpdateErr
adoPrimaryRS.UpdateBatch adAffectAll
If mbAddNewFlag Then
adoPrimaryRS.MoveLast '移到新記錄
End If
mbEditFlag = False
mbAddNewFlag = False
SetButtons True
mbDataChanged = False
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub
Private Sub Command2_Click()
On Error Resume Next
SetButtons True
mbEditFlag = False
mbAddNewFlag = False
adoPrimaryRS.CancelUpdate
If mvBookMark > 0 Then
adoPrimaryRS.Bookmark = mvBookMark
Else
adoPrimaryRS.MoveFirst
End If
mbDataChanged = False
End Sub
Private Sub Command5_Click()
Unload 掛科學生信息表
End Sub
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=學生信息數據庫.mdb;"
' 我們假設鏈接到sql-server采用下列方式進行鏈接
' "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Health;Data Source=DIAO"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select 系別,學號，姓名，性別，科目，學分，應交重修費用 from 掛科學生信息表表", db, adOpenStatic, adLockOptimistic
Dim oText As TextBox
'綁定文本框到數據提供者
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next
mbDataChanged = False
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -