?? modstudbad.frm
字號:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 6360
TabIndex = 4
Top = 720
Width = 3015
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 1440
TabIndex = 2
Top = 1320
Width = 2655
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 1440
TabIndex = 3
Top = 1920
Width = 2655
End
Begin VB.ComboBox Combo9
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 6360
TabIndex = 5
Top = 1320
Width = 3015
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1575
Left = 1440
TabIndex = 14
Top = 4560
Width = 7935
End
Begin VB.Label Label17
Caption = "請輸入學號查詢 "
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 46
Top = 240
Width = 2055
End
Begin VB.Label Label7
Caption = " 照 片"
Height = 375
Left = 10200
TabIndex = 36
Top = 2520
Width = 1215
End
Begin VB.Label Label25
Caption = "Label7"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3480
TabIndex = 35
Top = 3480
Width = 1215
End
Begin VB.Label Label1
Caption = "編號"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 360
TabIndex = 31
Top = 720
Width = 615
End
Begin VB.Label Label2
Caption = "學號"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5040
TabIndex = 30
Top = 720
Width = 735
End
Begin VB.Label Label3
Caption = "姓名"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 360
TabIndex = 29
Top = 1320
Width = 735
End
Begin VB.Label Label4
Caption = "性別"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5040
TabIndex = 28
Top = 1320
Width = 735
End
Begin VB.Label Label5
Caption = "班級"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 360
TabIndex = 27
Top = 1920
Width = 735
End
Begin VB.Label Label6
Caption = "詳細描述"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 26
Top = 4560
Width = 975
End
Begin VB.Label Label8
Caption = "日期"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 25
Top = 2040
Width = 735
End
End
Attribute VB_Name = "modbad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mybookmark As Variant
Private Sub Command1_Click()
Command1.Enabled = True
Command3.Enabled = False
dream.MoveFirst '移動到數據集的第一條記錄
Call viewdata '調用顯示數據的函數
MsgBox "這是條一條記錄!", 48, "注意!"
End Sub
Private Sub Command10_Click()
studentmdi.StatusBar1.Panels.Item(1).Text = " "
Unload Me
End Sub
Private Sub Command2_Click()
Command3.Enabled = True
Command2.Enabled = True
Command1.Enabled = True
dream.MoveNext '數據集向后移動一條記錄
If dream.EOF Then '判斷是否終止位置
dream.MoveFirst
End If
Call viewdata
End Sub
Private Sub Command3_Click()
Command2.Enabled = True
dream.MovePrevious '數據集向前移動一條記錄
If dream.BOF Then '判斷是否到起始位置
dream.MoveLast
End If
Call viewdata
End Sub
Private Sub Command4_Click()
Command1.Enabled = True
Command2.Enabled = False
dream.MoveLast '移動到數據集的最后一條記錄
Call viewdata
MsgBox "這是最后一條記錄!", 48, "注意!"
End Sub
Private Sub Command12_Click()
If Command12.Caption = "搜索(&Q)" Then
If Not Testtxt(Text7.Text) Then
MsgBox "請輸入學號！", 48, "提示"
Text7.SetFocus
Else
'in order to fuhe query
txtSQL = "select * from studbad where 學號 like '%" & Text7.Text & "' OR 姓名 like '" & Text7.Text & "'"
Set dream = ExecuteSQL(txtSQL, Msgtext)
Call viewdata
End If
End If
End Sub
Private Sub Command5_Click()
If Command5.Caption = "編輯(&M)" Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Combo5.Enabled = True
Combo6.Enabled = True
Combo7.Enabled = True
Combo9.Enabled = True
mybookmark = dream.Bookmark '記下當前記錄位置
End If
End Sub
Public Sub viewdata() '由于程序中各處需要顯示數據，定義函數ViewData
Text1.Text = dream.Fields(0)
Text2.Text = dream.Fields(1)
Text3.Text = dream.Fields(2)
Combo9.Text = dream.Fields(3)
Text4.Text = dream.Fields(4)
Text5.Text = dream.Fields(5)
Combo1.Text = dream.Fields(6)
Combo2.Text = dream.Fields(7)
Combo3.Text = dream.Fields(8)
Combo4.Text = dream.Fields(9)
Combo5.Text = dream.Fields(10)
Combo6.Text = dream.Fields(11)
Combo7.Text = dream.Fields(12)
Text6.Text = dream.Fields(13)
End Sub
'---------------------------------------------------------------------
Private Sub Command6_Click()
mybookmark = dream.Bookmark
str2$ = MsgBox("是否刪除當前記錄？", vbOKCancel, "刪除當前記錄")
If str2$ = vbOK Then
dream.MoveNext
If dream.EOF Then 'recordset is empty?
dream.MoveFirst
mybookmark = dream.Bookmark 'sign current position
dream.MoveLast
dream.Delete
dream.Close
txtSQL = "select * from studbad"
Set dream = ExecuteSQL(txtSQL, Msgtext)
dream.MoveLast
Call viewdata
Else
mybookmark = dream.Bookmark 'sign current position
dream.MovePrevious
dream.Delete
dream.Close
txtSQL = "select * from studbad"
Set dream = ExecuteSQL(txtSQL, Msgtext)
dream.MoveLast
Call viewdata
End If
Else
dream.Bookmark = mybookmark 'return primary position
Call viewdata
End If
End Sub
'------------------------------------------------------------------------
Private Sub Command7_Click()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
If dream.EOF = False Then
MsgBox "真的要更新嗎？", vbOKCancel + vbExclamation, "警告"
'record current position
dream.Bookmark = mybookmark 'return to current modifty position
dream.Delete
txtSQL = "select * from studbad "
Set dream = ExecuteSQL(txtSQL, Msgtext)
dream.Bookmark = mybookmark 'return to current modifty position
dream.AddNew
dream.Fields(0) = Trim(Text1.Text)
dream.Fields(1) = Trim(Text2.Text)
dream.Fields(2) = Trim(Text3.Text)
dream.Fields(3) = Trim(Combo9.Text)
dream.Fields(4) = Trim(Text4.Text)
dream.Fields(5) = Trim(Text5.Text)
dream.Fields(6) = Trim(Combo1.Text)
dream.Fields(7) = Trim(Combo2.Text)
dream.Fields(8) = Trim(Combo3.Text)
dream.Fields(9) = Trim(Combo4.Text)
dream.Fields(10) = Trim(Combo5.Text)
dream.Fields(11) = Trim(Combo6.Text)
dream.Fields(12) = Trim(Combo7.Text)
dream.Fields(13) = Trim(Text6.Text)
dream.UpdateBatch
dream.Close
MsgBox "修改學生處分信息成功！", vbOKOnly, " 提示！"
End If
End Sub
Private Sub Command9_Click()
dream.Bookmark = mybookmark
Call viewdata
End Sub
Private Sub Form_Load()
txtSQL = "select * from studbad "
Set dream = ExecuteSQL(txtSQL, Msgtext) '執行查詢操作
dream.MoveFirst '移到第一條記錄
Call viewdata '顯示記錄
mcbookmark = dream.Bookmark '記下當前記錄的位置
Combo9.AddItem "男"
Combo9.AddItem "女"
Combo1.AddItem "是"
Combo1.AddItem "否"
Combo2.AddItem "是"
Combo2.AddItem "否"
Combo3.AddItem "是"
Combo3.AddItem "否"
Combo4.AddItem "是"
Combo4.AddItem "否"
Combo5.AddItem "是"
Combo5.AddItem "否"
Combo6.AddItem "是"
Combo6.AddItem "否"
Combo7.AddItem "是"
Combo7.AddItem "否"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
Combo7.Enabled = False
Combo9.Enabled = False
modbad.Caption = "修改學生處分[" + Format(Date, "yyyy年mm月dd日") + Format(Time, "hh點mm分ss秒]")
studentmdi.StatusBar1.Panels.Item(1).Text = "修改學生處分信息"
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command12_Click
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -