?? 學生交費特殊情況.frm
字號:
VERSION 5.00
Begin VB.Form 學生收費特殊情況
BorderStyle = 3 'Fixed Dialog
Caption = "特殊情況處理"
ClientHeight = 2940
ClientLeft = 45
ClientTop = 330
ClientWidth = 4200
Icon = "學生交費特殊情況.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2940
ScaleWidth = 4200
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 2895
Left = 60
TabIndex = 0
Top = 0
Width = 4095
Begin VB.ComboBox Combo1
Height = 300
ItemData = "學生交費特殊情況.frx":08CA
Left = 1680
List = "學生交費特殊情況.frx":08DD
TabIndex = 8
Top = 660
Width = 1755
End
Begin VB.CommandButton Command2
Caption = "確定"
Default = -1 'True
Height = 435
Left = 360
TabIndex = 6
Top = 2160
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "返回"
Height = 435
Left = 2400
TabIndex = 5
Top = 2160
Width = 1095
End
Begin VB.TextBox Text2
Height = 315
Left = 1680
TabIndex = 4
Top = 1500
Width = 1275
End
Begin VB.TextBox Text1
Height = 315
Left = 1680
TabIndex = 1
Top = 1080
Width = 1875
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "請選擇學年:"
Height = 180
Left = 660
TabIndex = 7
Top = 780
Width = 990
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "學費:"
Height = 180
Left = 1140
TabIndex = 3
Top = 1620
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請輸入學號:"
Height = 180
Left = 660
TabIndex = 2
Top = 1200
Width = 990
End
End
End
Attribute VB_Name = "學生收費特殊情況"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
Text1.SetFocus
End Sub
Private Sub Command1_Click()
學生收費情況.Enabled = True
Unload Me
End Sub
Private Sub Command2_Click()
學生收費情況.Adodc1.RecordSource = "select * from 學生收費表 where xh like '%" & Me.Text1.Text & "' and bj like '%" & 學生收費情況.Combo2.Text & "%'"
學生收費情況.Adodc1.Refresh
If Text1 <> "" And Text2 <> "" Then
Select Case Combo1.Text
Case "第一學年"
學生收費情況.Adodc1.Recordset.Fields(4) = Text2
學生收費情況.Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text1.SetFocus
Case "第二學年"
學生收費情況.Adodc1.Recordset.Fields(5) = Text2
學生收費情況.Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text1.SetFocus
Case "第三學年"
學生收費情況.Adodc1.Recordset.Fields(6) = Text2
學生收費情況.Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text1.SetFocus
Case "第四學年"
學生收費情況.Adodc1.Recordset.Fields(7) = Text2
學生收費情況.Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text1.SetFocus
End Select
Else
MsgBox "請輸入完整信息!"
End If
End Sub
Private Sub Form_Activate()
Combo1.Clear
Combo1.AddItem "第一學年"
Combo1.AddItem "第二學年"
Combo1.AddItem "第三學年"
Combo1.AddItem "第四學年"
End Sub
Private Sub Form_Unload(Cancel As Integer)
學生收費情況.Enabled = True
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -