ѧÉúÐÅÏ¢¹ÜÀíϵͳ±ÏÒµÉè¼ÆÂÛÎÄ

±ÏÒµÂÛÎÄ¡ª¡ªÑ§ÉúÐÅÏ¢¹ÜÀíϵͳ

If Check2.Value = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + \רҵ='\End If

If Check3.Value = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + \ÈËÊý='\End If

If Check4.Value = 1 And Not IsNull(Text4) Then SQLadd = SQLadd + \¸¨µ¼Ô±='\End If

strSql = SQLoriginal + SQLadd + SQLorde If Dat_Main.rsDat_Class.State = 1 Then Dat_Main.rsDat_Class.Close End If

Dat_Main.rsDat_Class.Open strSql Dat_Class.Show vbModal Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \

End Sub

Private Sub Command2_Click() Unload Me

End Sub

Private Sub Form_Load() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text3_Change()

End Sub

µµ°¸·ÖÎöͳ¼Æ£¨È磺½çÃæÈçͼÎ壩

±ÏÒµÂÛÎÄ¡ª¡ªÑ§ÉúÐÅÏ¢¹ÜÀíϵͳ

£¨Í¼Î壩

´úÂëÈçÏ£º

Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String

On Error Resume Next

SQLoriginal = \ѧÉúµµ°¸ \SQLadd = \ѧºÅ=ѧºÅ AND ÐÕÃû=ÐÕÃû \SQLorder = \

If Check1.Value = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + \ѧºÅ='\End If

If Check2.Value = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + \ÐÕÃû='\End If

If Check3.Value = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + \רҵ='\End If

If Check4.Value = 1 And IsDate(DTPicker1) Then

SQLadd = SQLadd + \³öÉúÄêÔÂ= # \End If

strSql = SQLoriginal + SQLadd + SQLorde If Dat_Main.rsDat_Strudent.State = 1 Then Dat_Main.rsDat_Strudent.Close End If

Dat_Main.rsDat_Strudent.Open strSql Dat_Strudent.Show vbModal Text1.Text = \Text2.Text = \

±ÏÒµÂÛÎÄ¡ª¡ªÑ§ÉúÐÅÏ¢¹ÜÀíϵͳ

Text3.Text = \

End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() 'Combo1.AddItem (\ÄÐ\'Combo1.AddItem (\Å®\Text1.Text = \Text2.Text = \Text3.Text = \End Sub

Private Sub Text1_Change()

End Sub

¿Î³Ìͳ¼Æ·ÖÎö£¨È磺½çÃæÈçͼÁù£©

£¨Í¼Áù£©

´úÂëÈçÏ£º

Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String

SQLoriginal = \¿Î³Ì±í \

SQLadd = \רҵ=רҵ AND ¿Î³ÌÃû³Æ=¿Î³ÌÃû³Æ \SQLorder = \

If Check1.Value = 1 And Not IsNull(Text1) Then SQLadd = SQLadd + \רҵ='\End If

±ÏÒµÂÛÎÄ¡ª¡ªÑ§ÉúÐÅÏ¢¹ÜÀíϵͳ

If Check2.Value = 1 And Not IsNull(Combo1) Then SQLadd = SQLadd + \¿Î³ÌÐÔÖÊ='\End If

'If Check3.Value = 1 And Not IsNumeric(Text2) Then 'SQLadd = SQLadd + \¿Îʱ='\'End If

If Check4.Value = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + \¿Î³ÌÃû³Æ='\End If

strSql = SQLoriginal + SQLadd + SQLorde If Dat_Main.rsDat_Grean.State = 1 Then Dat_Main.rsDat_Grean.Close End If

Dat_Main.rsDat_Grean.Open strSql Dat_Grean.Show vbModal Text1.Text = \Combo1.Text = \'Text2.Text = \

Text3.Text = \End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() Text1.Text = \'Text2.Text = \Text3.Text = \

Combo1.Text = \

Combo1.AddItem (\±ØÐÞ\Combo1.AddItem (\Ñ¡ÐÞ\Combo1.AddItem (\×Ô¿ª\End Sub

Private Sub Text3_Change()

End Sub

³É¼¨Í³¼Æ·ÖÎö£¨È磺½çÃæÈçͼÆß£©

ÁªÏµ¿Í·þ£º779662525#qq.com(#Ìæ»»Îª@)