?? 成績查詢.frm
字號:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7200
TabIndex = 14
Text = "Text2"
Top = 1200
Width = 1935
End
Begin VB.ComboBox Combo4
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4920
TabIndex = 12
Text = "Combo4"
Top = 1200
Width = 855
End
Begin VB.ComboBox Combo3
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1680
TabIndex = 10
Text = "Combo3"
Top = 1200
Width = 1815
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7200
TabIndex = 8
Text = "Text1"
Top = 480
Width = 1935
End
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4920
TabIndex = 6
Text = "Combo2"
Top = 480
Width = 855
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1680
TabIndex = 4
Text = "Combo1"
Top = 480
Width = 1815
End
Begin VB.Label Label6
Caption = "條件2："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6360
TabIndex = 13
Top = 1320
Width = 855
End
Begin VB.Label Label5
Caption = "運算符："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4080
TabIndex = 11
Top = 1320
Width = 855
End
Begin VB.Label Label4
Caption = "查詢類別2："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 9
Top = 1320
Width = 1215
End
Begin VB.Label Label3
Caption = "條件1："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6360
TabIndex = 7
Top = 600
Width = 855
End
Begin VB.Label Label2
Caption = "運算符："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4080
TabIndex = 5
Top = 600
Width = 855
End
Begin VB.Label Label1
Caption = "查詢類別1："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 3
Top = 600
Width = 1215
End
End
Begin VB.CommandButton Command3
Caption = "退出"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8280
TabIndex = 1
Top = 5040
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "查詢"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6600
TabIndex = 0
Top = 5040
Width = 1215
End
End
Attribute VB_Name = "Frm_FindChengJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a As String
Dim CJCX1 As String
Dim CJCX2 As String
Dim str1 As String
Dim str2 As String
If Option3.Value = True Then
a = Trim(Combo2)
Select Case a
Case "="
CJCX1 = "" & Combo1.Text & " " & Combo2.Text & " '" & Trim(Text1) & "'"
' Case "like"
' CJCX1 = "Instr(1," & Combo1.Text & ",'" & Trim(Text1.Text) & "')<>0 "
End Select
a = Trim(Combo4)
Select Case a
Case "="
CJCX2 = "" & Combo3.Text & " " & Combo4.Text & " '" & Trim(Text2) & "'"
' Case "like"
' CJCX2 = "Instr(1," & Combo3.Text & ",'" & Trim(Text2.Text) & "')<>0 "
End Select
If Option1.Value = True Then
If CJCX1 = "" Then
strTiaoJian = "select * from 成績表 where " & CJCX2
ElseIf CJCX2 = "" Then
strTiaoJian = "select * from 成績表 where " & CJCX1
Else
strTiaoJian = "select * from 成績表 where " & CJCX1 & "and " & CJCX2
End If
ElseIf Option2.Value = True Then
If CJCX1 = "" Then
strTiaoJian = "select * from 成績表 where " & CJCX2
ElseIf CJCX2 = "" Then
strTiaoJian = "select * from 成績表 where " & CJCX1
Else
strTiaoJian = "select * from 成績表 where " & CJCX1 & "or " & CJCX2
End If
Else
If CJCX1 = "" Then
strTiaoJian = "select * from 成績表 where " & CJCX2
ElseIf CJCX2 = "" Then
strTiaoJian = "select * from 成績表 where " & CJCX1
Else
MsgBox "請選擇連接方式！", vbOKOnly, "警告"
Exit Sub
End If
End If
If (CJCX1 & CJCX2) = "" Then
MsgBox "請輸入查詢類別！", vbOKOnly, "警告"
Exit Sub
Else
Unload Me
Frm_UpdateChengJ.Show 1
End If
End If
If Option4.Value = True Then
If Val(Combo6) > Val(Combo9) Then
MsgBox "請正確選擇年份！", vbOKOnly + vbExclamation, "信息提示"
Combo6.SetFocus
Exit Sub
Else
If Val(Combo6) = Val(Combo9) Then
If Val(Combo7) > Val(Combo10) Then
MsgBox "請正確選擇月份！", vbOKOnly + vbExclamation, "信息提示"
Combo7.SetFocus
Exit Sub
Else
If Val(Combo7) = Val(Combo10) Then
If Val(Combo8) > Val(Combo11) Then
MsgBox "請正確選擇日期！", vbOKOnly + vbExclamation, "信息提示"
Combo8.SetFocus
Exit Sub
End If
End If
End If
End If
End If
If Combo6.Text = "" Or Combo7.Text = "" Or Combo8.Text = "" Or Combo9.Text = "" Or Combo10.Text = "" Or Combo11.Text = "" Then
MsgBox "請輸入完整的日期", vbOKOnly, "警告"
Exit Sub
End If
str1 = Trim(Combo6) & "-" & Trim(Combo7) & "-" & Trim(Combo8)
str2 = Trim(Combo9) & "-" & Trim(Combo10) & "-" & Trim(Combo11)
str1 = Format(str1, "yyyy-mm-dd")
str2 = Format(str2, "yyyy-mm-dd")
If sqlstr = "" Then
sqlstr = "" & Trim(Combo5.Text) & ">=#" & Format(str1, "yyyy-mm-dd") & "# and " & Trim(Combo5.Text) & "<= #" & Format(str2, "yyyy-mm-dd") & "#"
Else
sqlstr = sqlstr & " and " & Trim(Combo5.Text) & ">=#" & Format(str1, "yyyy-mm-dd") & "# and " & Trim(Combo5.Text) & "<= #" & Format(str2, "yyyy-mm-dd") & "#"
End If
If sqlstr = "" Then
MsgBox "請先輸入查找時間！"
Exit Sub
End If
strTiaoJian = "select * from 課程表 where " & sqlstr
Unload Me
Frm_UpdateChengJ.Show 1
End If
If Option3.Value <> True And Option4.Value <> True Then
MsgBox "請選擇查詢方式！", vbOKOnly, "警告"
Exit Sub
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;Persist Security Info=False"
Dim i, j As Integer
For i = 1999 To 2010
Combo6.AddItem i
Combo9.AddItem i
Next i
Combo6.ListIndex = 0
Combo9.ListIndex = 0
For i = 1 To 12
Combo7.AddItem i
Combo10.AddItem i
Next i
Combo7.ListIndex = 0
Combo10.ListIndex = 0
For i = 1 To 31
Combo8.AddItem i
Combo11.AddItem i
Next i
Combo8.ListIndex = 0
Combo11.ListIndex = 0
Combo1.AddItem ("學號")
Combo1.AddItem ("姓名")
Combo1.AddItem ("年級")
Combo1.AddItem ("專業")
Combo1.AddItem ("考試科目")
Combo1.AddItem ("考試地點")
Combo1.AddItem ("課程性質")
Combo1.AddItem ("科目分數")
Combo2.AddItem ("=")
Combo3.AddItem ("學號")
Combo3.AddItem ("姓名")
Combo3.AddItem ("年級")
Combo3.AddItem ("專業")
Combo3.AddItem ("考試科目")
Combo3.AddItem ("考試地點")
Combo3.AddItem ("課程性質")
Combo3.AddItem ("科目分數")
Combo4.AddItem ("=")
Combo5.AddItem ("學期")
Combo5.AddItem ("考試時間")
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Text2.Text = ""
Combo5.Text = ""
Combo6.Text = ""
Combo7.Text = ""
Combo8.Text = ""
Combo9.Text = ""
Combo10.Text = ""
Combo11.Text = ""
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -