Text1.Text = "" Text2.Text = "" 'Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Combo1.Text = "" Combo2.Text = "" End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Command3_Click() Unload Me Frm_FindGrean.Show 1 End Sub
Private Sub DataGrid1_Click() 'Frm_UpdateGrean.Adodc1.RecordSource = "select * from 课程表 where 专业 = '" & Trim(DataGrid1.Row) & "'" 'Text1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("专业") 'Text2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("年级") 'Text3.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("学期") 'Text4.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("课程名称") 'Text5.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("教材") 'Text6.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("任课老师") 'Text7.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("课时") 'Text8.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("上课地点") 'Combo1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("课程性质") 'Combo2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("考试性质") 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 = "SELECT * FROM 课程表 " SQLadd = "WHERE 专业=专业 AND 课程名称=课程名称 " SQLorder = "" If Check1.Value = 1 And Not IsNull(Text1) Then SQLadd = SQLadd + "and 专业='" + Text1 + "'" End If If Check2.Value = 1 And Not IsNull(Combo1) Then SQLadd = SQLadd + "and 课程性质='" + Combo1 + "'" End If 'If Check3.Value = 1 And Not IsNumeric(Text2) Then 'SQLadd = SQLadd + "and 课时='" + Text2 + "'" 'End If If Check4.Value = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + "and 课程名称='" + Text3 + "'" 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 = "" Text
首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/11/11
