社区
VB基础类
帖子详情
如何将Text中的文字添加到Combo中?
liuyi3000
2003-09-16 03:52:34
如何将Text中的文字添加到Combo中?
...全文
186
7
打赏
收藏
如何将Text中的文字添加到Combo中?
如何将Text中的文字添加到Combo中?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
northwolves
2003-09-16
打赏
举报
回复
combo1.AddItem (text1.Text)
combo1.text=text1.text
kmzs
2003-09-16
打赏
举报
回复
cbo.AddItem (txt.Text)
NotReady
2003-09-16
打赏
举报
回复
combo1.additem text1.text
如果让他在combo1中显示则可以这样:
加入项的index
comno1.listindex=[index]
qqyong
2003-09-16
打赏
举报
回复
combo1.text=text1.text
combo1.AddItem (text1.Text)
wszf
2003-09-16
打赏
举报
回复
combo1.AddItem (text1.Text)
iwillgo2
2003-09-16
打赏
举报
回复
or
cbo.insert
NoReady
2003-09-16
打赏
举报
回复
只需如下在某个事件中写
Private Sub cmd_Click()
cbo.AddItem (txt.Text)
End Sub
combo
-select-master.zip
combo
-select是一款拉下插件。基本可以满足前端用户对于输入下拉查询的需求
Python Tkinter Entry和
Text
的
添加
与使用详解
主要介绍了Python Tkinter Entry和
Text
的
添加
与使用详解,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧
COMBO
_TEST.rar_VS2010 MFC_
combo
test是什么_mfc
combo
x
combo
x控件测试,工程基于vs2010 mfc,值得参考
vb学生成绩管理系统
课程设计题目 学生成绩管理系统 课程设计的目的 理解面向对象的软件设计基本理论,学习VB软件设计的基本方法,熟悉一般软件项目开发的基本步骤,培养运用VB解决实际问题的能力和技巧。 课程设计的主要内容和要求(包括原始数据、技术参数、设计要求、工作量要求等) 四、工作进度安排 2011-2012学年第19周。 五、主要参考文献 Visual Basic程序设计教程 审核批准意见 系主任(签字) 年 月 日 指导教师评语及成绩 指 导 教 师 评 语 成 绩 导师签字: 年 月 日 设计思路及其创建过程 一、任务概述 简易学生成绩管理系统主要完成学生成绩的管理,包括: 1)、
添加
信息模块:主要完成学生记录、课程记录、学生成绩和用户记录的
添加
工作。 2)、删除信息模块:主要完成学生记录、课程记录、学生成绩和用户记录的删除工作。 3)、修改成绩模块:主要完成学生成绩的修改工作。 4)、查询模块:主要完成学生成绩的查询工作。 1.进行数据库设计 要编写一个实用的数据库程序,必须系统地学习过数据库原理的知识,并首先设计出符合用户业务需求的数据库体系,然后才能利用某种语言,开发出针对这个数据库的交互程序:数据库应用程序。 2. 程序的主要功能 利用SQL语句完成对学生成绩表的插入、修改、删除和查询操作。比如: (1)插入记录: Insert Into 学生成绩表(学号,课程号,成绩) Values(‘001’,’001’,85) (2)删除记录 Delete From 学生成绩表 Where 学号=‘001’ And 课程号=‘001’ (3)修改记录 Update 学生成绩表 set 成绩 =90 Where 学号=‘001’ And 课程号=‘001’ (4)按学号查询 Select * From 学生成绩表 Where 学号=‘001’ 二、界面设计 1.创建工程 新建一“标准EXE”工程.工程名为“成绩查询”. 2.创建主窗体(frmMain)-MDI主窗体 设计菜单: 增加 删除 修改 查询 退出 增加学生记录 删除学生记录 修改成绩 增加课程记录 删除课程记录 增加成绩 删除成绩记录 增加用户 删除用户 3.创建新增学生记录窗体(frmAddStudent)-MDI子窗体 4、建新增课程记录窗体(frmAddCourse)-MDI子窗体 5.创建新增成绩记录窗体(frmAddGrade)-MDI子窗体 6.创建新增用户记录窗体(frmAddUser)-MDI子窗体 7. 创建修改记录窗体( frmUpdate )-MDI子窗体 8.创建删除学生记录窗体(frmDeleteStudent)-MDI子窗体 9.创建删除课程记录窗体(frmDeleteCourse)-MDI子窗体 10.创建删除成绩记录窗体(frmDeleteGrade)-MDI子窗体 11.创建删除用户窗体(frmDelete)-MDI子窗体 12.创建查询记录窗体(frmQuery)-MDI子窗体 13.创建身份验证窗体-MDI子窗体 1.3 代码设计 1. 连接数据库代码 步骤: (1)通过“工程—引用”菜单
添加
对象库: Microsoft Activex Data Objects 2.7 Library (Ado数据对象)。 (2)通过工程菜单
添加
一个标准模块(Module),并设计代码。 (3) 通过“工程—工程1属性”菜单,将主窗体(frmMain)MDIform1设置为启动对象。
添加
标准模块代码: '声明全局对象变量ABOcn,用于创建于数据库的连接 Public ADOcn As New ADODB.Connection
添加
主窗体初始化过程代码: Private Sub MDIForm_Initialize() ADOcn.ConnectionString = "Provider=SQLOLEDB.1;Password=;User ID=sa;Initial Catalog=成绩;Data Source= localhost;" If ADOcn.State = adStateClosed Then ADOcn.Open '打开到数据库的连接 End Sub 完成本项工作后,就创建了一个全局变量ADOcn,但它是一个特殊的变量,其数据类型是数据连接对象(Connection对象)。可以把ADDcn理解成是一个虚拟的数据库。或者称为VB程序
中
的逻辑数据库,通过它可以非常方便地访问其
中
的数据。换句话说,ADOcn是VB程序的后台数据库交互的通道。 2.设置窗体间的调用关系 2.设置窗体间的调用关系 ’调用增加课程窗体 Private Sub AddCourse_Click(Index As Integer) frmAddCourse.Show End Sub ’调用增加成绩窗体 Private Sub AddGrade_Click(Index As Integer) FrmAdd.Show End Sub ’调用增加学生窗体 Private Sub AddStudent_Click(Index As Integer) FrmAddStudent.Show End Sub ’调用增加用户窗体 Private Sub AddUser_Click() FrmAddUser.Show End Sub ’调用删除课程窗体 Private Sub DeleteCourse_Click() frmDeleteCourse.Show End Sub ’调用删除成绩窗体 Private Sub DeleteGrade_Click() frmDelete.Show End Sub ’调用删除学生窗体 Private Sub DeleteStudent_Click() frmDeleteStudent.Show End Sub ’调用删除用户窗体 Private Sub DeleteUser_Click() frmDeleteUser.Show End Sub ’调用学生基本信息查询窗体 Private Sub Querystudent_Click() frmQuerystudent.Show End Sub ’调用学生成绩查询窗体 Private Sub QueryGrade_Click() frmQueryGrade.Show End Sub’调用修改成绩窗体 Private Sub Update_Click() FrmUpdate.Show End Sub 调用退出程序 Private Sub Exit_Click() End End Sub 3.frmAddStudent (增加学生)窗体的代码设计: Private Sub Command1_Click() Dim ADOrs As New Recordset '声明一个记录集对象 Dim strSQL As String ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 If
Text
1.
Text
= "" Then MsgBox "未输入学号,请重新输入数据!", vbCritical + vbOKOnly
Text
1.SetFocus '定位光标 Exit Sub End If If
Text
2.
Text
= "" Then MsgBox "未输入姓名,请重新输入数据!", vbCritical + vbOKOnly
Text
2.SetFocus '定位光标 Exit Sub End If '首先查询表
中
是否存在关键字相同的记录 strSQL = "select * from 学生情况表" strSQL = strSQL & " Where 学号='" +
Text
1.
Text
+ " '" strSQL = strSQL & " and 姓名='" +
Text
2.
Text
+ "'" ADOrs.Open strSQL '如果关键字重复,则退出 If Not ADOrs.EOF Then MsgBox "该记录已经存在,不能继续增加", vbCritical + vbOKOnly Exit Sub End If '拼写Insert插入语句 strSQL = "Insert Into 学生情况表(学号,姓名)" strSQL = strSQL + " Values('" +
Text
1.
Text
+ "'," strSQL = strSQL + "'" +
Text
2.
Text
+ "'" + ")" ADOcn.Execute strSQL '执行Insert语句
Text
1.
Text
= "“ '初始化文本框控件
Text
2.
Text
= ""
Text
1.SetFocus '定位光标 MsgBox "已成功
添加
新记录", vbQuestion + vbOKOnly ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub Private Sub Command2_Click() Unload Me End Sub 4.frmAddCourse (增加课程)窗体的代码设计: (1)在Load事件
中
,进行初始化工作,代码如下: Private Sub Form_Load() '初始化文本框控件
Text
1.
Text
= ""
Text
2.
Text
= "" End Sub (2)’Command1_Click()(”确定”按钮)事件代码 Private Sub Command1_Click() Dim ADOrs As New Recordset '声明一个记录集对象 Dim strSQL As String '与ADOcn连接对象关联 ADOrs.ActiveConnection = ADOcn If
Text
1.
Text
= "" Then MsgBox "未输入课程号,请重新输入数据!", vbCritical + vbOKOnly
Text
1.SetFocus '定位光标 Exit Sub End If If
Text
2.
Text
= "" Then MsgBox "未输入课程名,请重新输入数据!", vbCritical + vbOKOnly
Text
2.SetFocus '定位光标 Exit Sub End If ’Command1_Click()(”确定”按钮)事件代码 '首先查询表
中
是否存在关键字相同的记录 strSQL = "select * from 课程情况表" strSQL = strSQL & " Where 课程号='" +
Text
1.
Text
+ " '" strSQL = strSQL & " and 课程名='" +
Text
2.
Text
+ "'" ADOrs.Open strSQL '如果关键字重复,则退出 If Not ADOrs.EOF Then MsgBox "该记录已经存在,不能继续增加", vbCritical + vbOKOnly Exit Sub End If ’Command1_Click()(”确定”按钮)事件代码 '拼写Insert插入语句 strSQL = "Insert Into 学生情况表(学号,姓名)" strSQL = strSQL + " Values('" +
Text
1.
Text
+ "'," strSQL = strSQL + "'" +
Text
2.
Text
+ "'" + ")" ADOcn.Execute strSQL '执行Insert语句
Text
1.
Text
= "“ '初始化文本框控件
Text
2.
Text
= ""
Text
1.SetFocus '定位光标 MsgBox "已成功
添加
新记录", vbQuestion + vbOKOnly ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (3)’Command2_Click()(”返回”按钮)事件代码 Private Sub Command2_Click() Unload Me End Sub 5.frmAddGrade(增加成绩)窗体的代码设计: (1)在Load事件
中
,进行初始化工作,代码如下: Private Sub Form_Load() Dim ADOrs As New Recordset '声明记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '对
Combo
1组合框进行初始化 ADOrs.Open "Select 学号 From 学生情况表 Order By 学号"
Combo
1.Clear Do While Not ADOrs.EOF
Combo
1.AddItem Trim(ADOrs.Fields("学号")) '
添加
"学号"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 (1)Load事件代码 '对
Combo
2组合框进行初始化 ADOrs.Open "select 课程号 from 课程情况表 Order By 课程号"
Combo
2.Clear Do While Not ADOrs.EOF
Combo
2.AddItem Trim(ADOrs.Fields("课程号")) '
添加
"课程号"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 '初始化文本框控件
Text
1.
Text
= ""
Text
2.
Text
= ""
Text
3.
Text
= "0" End Sub (2)
Combo
1_Click 事件代码 Private Sub
Combo
1_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '如果输入了学号,则把姓名显示在
Text
1.
Text
strSQL = "select * from 学生情况表" strSQL = strSQL + " Where 学号='" +
Combo
1.
Text
+ " '" ADOrs.Open strSQL
Text
1.
Text
= ADOrs.Fields("姓名") ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (3)
Combo
2_Click 事件代码 Private Sub
Combo
2_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '如果输入了课程号,则把课程名显示在
Text
2.
text
strSQL = "select * from 课程情况表" strSQL = strSQL + " Where 课程号='" +
Combo
2.
Text
+ " '" ADOrs.Open strSQL
Text
2.
Text
= ADOrs.Fields("课程名") ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (4) Command1_Click(确认) 事件代码 Private Sub Command1_Click() Dim strSQL As String Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '检查学号与课程号是否输入 If
Combo
1.
Text
= "" Or
Combo
2.
Text
= "" Then MsgBox "输入数据不全,请重新输入数据!", vbCritical + vbOKOnly Exit Sub End If '首先查询表
中
是否存在关键字相同的记录 strSQL = "select * from 学生成绩表" strSQL = strSQL & " Where 学号='" +
Combo
1.
Text
+ " '" strSQL = strSQL & " and 课程号='" +
Combo
2.
Text
+ "'" ADOrs.Open strSQL '如果关键字重复,则退出 If Not ADOrs.EOF Then MsgBox "该记录已经存在,不能继续增加", vbCritical + vbOKOnly Exit Sub End If (4) Command1_Click(确认) 事件代码 '拼写Insert插入语句 strSQL = "Insert Into 学生成绩表(学号,课程号,成绩)" strSQL = strSQL + "Values('" +
Combo
1.
Text
+ "','" strSQL = strSQL +
Combo
2.
Text
+ "'," + Str(Val(
Text
3.
Text
)) + ")" ADOcn.Execute strSQL '执行Insert语句 MsgBox "已成功
添加
新记录", vbQuestion + vbOKOnly '初始化文本框控件
Text
1.
Text
= ""
Text
2.
Text
= ""
Text
3.
Text
= "0" ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (5) Command2_Click(返回) 事件代码 Private Sub Command2_Click() Unload Me End Sub 6.frmAddUser(增加用户)代码设计 (1)在Load事件
中
,进行初始化工作,代码如下: Private Sub Form_Load() '初始化文本框控件
Text
1.
Text
= ""
Text
2.
Text
= ""
Text
3.
Text
= "" End Sub (2) Command1_Click(确认) 事件代码 Private Sub Command1_Click() Dim strSQL As String Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '记录已输入的用户信息 UserName =
Text
1.
Text
PaasWord =
Text
2.
Text
PaasWord1 =
Text
3.
Text
'若
Text
1.
Text
或
Text
2.
Text
或
Text
3.
Text
为空则提示用户重新输入 If
Text
1.
Text
= "" Or
Text
2.
Text
= "" Or
Text
3.
Text
= "" Then MsgBox "未输入用户名、密码或密码确认,请重新输入!", vbCritical + vbOKOnly Exit Sub End If '若 两此输入密码不一致则提示用户重新输入 If PaasWord PaasWord1 Then MsgBox "两次输入的密码不一致,请重新输入!", vbCritical + vbOKOnly
Text
2.
Text
= ""
Text
3.
Text
= ""
Text
2.SetFocus Exit Sub End If '首先查询用户
中
是否存在相同的记录 strSQL = "Select * From 用户" strSQL = strSQL + " Where 用户名='" + UserName + "'" ADOrs.Open strSQL If Not ADOrs.EOF Then '如果关键字重复,则退出 MsgBox "该用户已经存在,请重新注册", vbCritical + vbOKOnly Exit Sub End If '拼写Insert插入语句 strSQL = "Insert Into 用户(用户名,密码)" strSQL = strSQL + " Values('" + UserName + "','" + PaasWord + "')" ADOcn.Execute strSQL '执行Insert语句 MsgBox "已成功
添加
新记录", vbQuestion + vbOKOnly ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (3) Command2_Click(返回) 事件代码 Private Sub Command2_Click() Unload Me End Sub 7.frmUpdata (修改成绩)窗体代码设计 (1)、在Load事件
中
,进行初始化工作,代码如下: Private Sub Form_Load() Dim ADOrs As New Recordset '声明记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '对
Combo
1组合框进行初始化 ADOrs.Open "Select 学号 From 学生情况表 Order By 学号"
Combo
1.Clear Do While Not ADOrs.EOF
Combo
1.AddItem Trim(ADOrs.Fields("学号")) '
添加
"学号"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 (1)、Form_Load()事件代码 '对
Combo
2组合框进行初始化 ADOrs.Open "select 课程号 from 课程情况表 Order By 课程号"
Combo
2.Clear Do While Not ADOrs.EOF
Combo
2.AddItem Trim(ADOrs.Fields("课程号")) '
添加
"课程号"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 '初始化文本框控件
Text
1.
Text
= ""
Text
2.
Text
= ""
Text
3.
Text
= "0" End Sub (2)
Combo
1_Click 事件代码 Private Sub
Combo
1_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '如果输入了学号,则把姓名显示在
Text
1.
Text
strSQL = "select * from 学生情况表" strSQL = strSQL + " Where 学号='" +
Combo
1.
Text
+ " '" ADOrs.Open strSQL
Text
1.
Text
= ADOrs.Fields("姓名") ADOrs.Close '关闭记录集 (2)
Combo
1_Click 事件代码 If
Combo
2 "" Then '输入完毕则显示成绩信息 '查询学生成绩表
中
是否有指定指定学号与课程号的记录 strSQL = "select * from 学生成绩表" strSQL = strSQL & " Where 学号='" +
Combo
1.
Text
+ " '" strSQL = strSQL & " and 课程号='" +
Combo
2.
Text
+ "'" ADOrs.Open strSQL If ADOrs.EOF Then MsgBox "学生成绩表在不存在学号为" +
Combo
1.
Text
+ "课程号为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbCritical + vbOKOnly
Text
1.
Text
= ""
Text
3.
Text
= "" Exit Sub Else
Text
3.
Text
= ADOrs.Fields("成绩") End If End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (3)
Combo
2_Click 事件代码 Private Sub
Combo
2_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '如果输入了课程号,则把课程名显示在
Text
2.
text
strSQL = "select * from 课程情况表" strSQL = strSQL + " Where 课程号='" +
Combo
2.
Text
+ " '" ADOrs.Open strSQL
Text
2.
Text
= ADOrs.Fields("课程名") ADOrs.Close '关闭记录集 (3)
Combo
2_Click 事件代码 If
Combo
1 "" Then '输入完毕则显示成绩信息 '查询学生成绩表
中
是否有指定指定学号与课程号的记录 strSQL = "select * from 学生成绩表" strSQL = strSQL & " Where 学号='" +
Combo
1.
Text
+ " '" strSQL = strSQL & " and 课程号='" +
Combo
2.
Text
+ "'" ADOrs.Open strSQL If ADOrs.EOF Then MsgBox "学生成绩表在不存在学号为" +
Combo
1.
Text
+ "课程号为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbCritical + vbOKOnly
Text
2.
Text
= ""
Text
3.
Text
= "" Exit Sub Else
Text
3.
Text
= ADOrs.Fields("成绩") End If End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (4)、 Command1_Click()(修改/确认按钮)事件代码 Private Sub Command1_Click() Dim strSQL As String Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '检查学号与课程号是否输入 If
Combo
1.
Text
= "" Or
Combo
2.
Text
= "" Then MsgBox "输入数据不全,请重新输入数据!", vbCritical + vbOKOnly Exit Sub End If (4)、 Command1_Click()(修改/确认按钮)事件代码 '根据当前按钮
文字
的不同进行相关处理 If Command1.Caption = "修改" Then Command1.Caption = "确认" Command2.Caption = "放弃" Else Command1.Caption = "修改" Command2.Caption = "返回" '拼写Update语句,以便进行修改 strSQL = "Update 学生成绩表" strSQL = strSQL + " Set 成绩=" +
Text
3.
Text
strSQL = strSQL + " Where 学号='" +
Combo
1.
Text
+ "'" strSQL = strSQL + " And 课程号='" +
Combo
2.
Text
+ " '" ADOcn.Execute strSQL '执行Updata语句 MsgBox "修改成功!", vbQuestion + vbOKOnly End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (5) Command2_Click(返回/放弃) 事件代码 Private Sub Command2_Click() If Command2.Caption = "返回" Then Unload Me Else Command2.Caption = "返回" Command1.Caption = "修改" End If End Sub 8.frmDeleteStudent (删除学生)窗体的代码设计 (1)、Form_Load()事件代码 Private Sub Form_Load() Dim ADOrs As New Recordset '声明记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '对
Combo
1组合框进行初始化 ADOrs.Open "select 学号 from 学生情况表 Order By 学号"
Combo
1.Clear Do While Not ADOrs.EOF
Combo
1.AddItem Trim(ADOrs.Fields("学号")) '
添加
"学号"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 '对
Combo
2组合框进行初始化 ADOrs.Open "select 姓名 from 学生情况表 Order By 学号"
Combo
2.Clear Do While Not ADOrs.EOF
Combo
2.AddItem Trim(ADOrs.Fields("姓名")) '
添加
"姓名"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 End Sub (2)
Combo
1_Click 事件代码 Private Sub
Combo
1_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '若选择了学号则将姓名自动填写到
Combo
2.
Text
ADOrs.Open "Select 姓名 From 学生情况表 Where 学号 ='" +
Combo
1.
Text
+ "'" If ADOrs.EOF Then MsgBox "学生情况表
中
没有学号为" +
Combo
1.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
1.
Text
= "" Exit Sub Else
Combo
2.
Text
= ADOrs.Fields("姓名") End If ADOrs.Close '关闭记录集 End Sub (3)
Combo
2_Click 事件代码 Private Sub
Combo
2_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '若选择了姓名则将学号自动填写到
Combo
1.
Text
ADOrs.Open "Select 学号 From 学生情况表 Where 姓名 ='" +
Combo
2.
Text
+ "'" If ADOrs.EOF Then MsgBox "学生情况表
中
没有姓名为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
1.
Text
= "" Exit Sub Else
Combo
1.
Text
= ADOrs.Fields("学号") End If ADOrs.Close '关闭记录集 End Sub (4)、 Command1_Click()(确定按钮)事件代码 Private Sub Command1_Click() Dim ADOrs As New Recordset '声明记录集对象 Dim ADOrs1 As New Recordset '声明记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 ADOrs1.ActiveConnection = ADOcn '与ADOcn连接对象关联 '若学号和姓名同时为空则提示用户重新输入 If
Combo
1.
Text
= "" And
Combo
2.
Text
= "" Then MsgBox "学号和姓名不能同时为空,请重新输入!", vbQuestion + vbOKOnly Exit Sub End If (4)、 Command1_Click()(确定按钮)事件代码 '若输入了学号则将姓名自动填写到
Combo
2.
Text
If
Combo
1.
Text
"" And
Combo
2.
Text
= "" Then ADOrs.Open "Select 姓名 From 学生情况表 Where 学号 ='" +
Combo
1.
Text
+ "'" If ADOrs.EOF Then MsgBox "学生情况表
中
没有学号为" +
Combo
1.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
1.
Text
= "" Exit Sub Else
Combo
2.
Text
= ADOrs.Fields("姓名") End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 End If (4)、 Command1_Click()(确定按钮)事件代码 '若输入了号姓名则将学号自动填写到
Combo
1.
Text
If
Combo
2.
Text
"" And
Combo
1.
Text
= "" Then ADOrs1.Open "Select 学号 From 学生情况表 Where 姓名='" +
Combo
2.
Text
+ "'" If ADOrs1.EOF Then MsgBox "学生情况表
中
没有姓名为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
2.
Text
= "" Exit Sub Else
Combo
1.
Text
= ADOrs1.Fields("学号") End If If ADOrs1.State = adStateOpen Then ADOrs1.Close '关闭记录集 End If '查询学生情况表
中
是否有指定学号和指定姓名的记录 If
Combo
1.
Text
"" And
Combo
2.
Text
"" Then ADOrs.Open "Select * From 学生情况表 Where 学号='" +
Combo
1.
Text
+ "'" + " And 姓名='" +
Combo
2.
Text
+ "'" If ADOrs.EOF Then MsgBox "学生情况表
中
没有学号为" +
Combo
1.
Text
+ "且姓名为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
1.
Text
= ""
Combo
2.
Text
= "" Exit Sub Else
Combo
1.
Text
= ADOrs.Fields("学号")
Combo
2.
Text
= ADOrs.Fields("姓名") End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 End If End Sub (5)、 Command2_Click()(确认按钮)事件代码 Private Sub Command2_Click() Dim xm As String Dim xh As String Dim strSQL As String Dim ADOrs As New Recordset '声明记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '如果学号与姓名同时为空则提示重新输入/选择 If
Combo
1.
Text
= "" Or
Combo
2.
Text
= "" Then MsgBox "学号和姓名不能为空,请重新输入!", vbQuestion + vbOKOnly Else xh =
Combo
1.
Text
xm =
Combo
2.
Text
If MsgBox("删除学号为" + xh + "姓名为" + xm + "的学生记录,该学生在学生成绩表
中
的全部记录也将一起删除,是否继续?", vbQuestion + vbYesNo) = vbYes Then '拼写Delete学生成绩表指定记录语句 strSQL = "Delete From 学生成绩表" strSQL = strSQL + " Where 学号='" +
Combo
1.
Text
+ "'" ADOcn.Execute strSQL '执行Delete语句 '拼写Delete学生情况表指定记录语句 strSQL = "Delete From 学生情况表" strSQL = strSQL + " Where 学号='" +
Combo
1.
Text
+ "'" ADOcn.Execute strSQL '执行Delete语句 MsgBox "删除成功!", vbQuestion + vbOKOnly
Combo
1.
Text
= ""
Combo
2.
Text
= "" End If End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 End Sub (6)、 Command3_Click()(返回按钮)事件代码 Private Sub Command3_Click() Unload Me End Sub 9. frmDeleteCourse(删除课程)窗体代码设计 (1)、Form_Load()事件代码 Private Sub Form_Load() Dim ADOrs As New Recordset '声明记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '对
Combo
1组合框进行初始化 ADOrs.Open "select 课程号 from 课程情况表 Order By 课程号"
Combo
1.Clear Do While Not ADOrs.EOF
Combo
1.AddItem Trim(ADOrs.Fields("课程号")) '
添加
"课程号"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 '对
Combo
2组合框进行初始化 ADOrs.Open "select 课程名 from 课程情况表 Order By 课程号"
Combo
2.Clear Do While Not ADOrs.EOF
Combo
2.AddItem Trim(ADOrs.Fields("课程名")) '
添加
"课程名"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 End Sub (2)
Combo
1_Click 事件代码 Private Sub
Combo
1_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '若选择了课程号则将课程名自动填写到
Combo
2.
Text
ADOrs.Open "Select 课程名 From 课程情况表 Where 课程号 ='" +
Combo
1.
Text
+ "'" If ADOrs.EOF Then MsgBox "课程情况表
中
没有课程号为" +
Combo
1.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
1.
Text
= "" Exit Sub Else
Combo
2.
Text
= ADOrs.Fields("课程名") End If ADOrs.Close '关闭记录集 End Sub (3)
Combo
2_Click 事件代码 Private Sub
Combo
2_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '若选择了课程名则将课程号自动填写到
Combo
1.
Text
ADOrs.Open "Select 课程号 From 课程情况表 Where 课程名 ='" +
Combo
2.
Text
+ "'" If ADOrs.EOF Then MsgBox "课程情况表
中
没有课程名为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
1.
Text
= "" Exit Sub Else
Combo
1.
Text
= ADOrs.Fields("课程号") End If ADOrs.Close '关闭记录集 End Sub (4)、 Command1_Click()(确定按钮)事件代码 Private Sub Command1_Click() Dim ADOrs As New Recordset '声明记录集对象 Dim ADOrs1 As New Recordset '声明记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 ADOrs1.ActiveConnection = ADOcn '与ADOcn连接对象关联 '若课程号和课程名同时为空则提示用户重新输入 If
Combo
1.
Text
= "" And
Combo
2.
Text
= "" Then MsgBox "课程号和课程名不能同时为空,请重新输入!", vbQuestion + vbOKOnly Exit Sub End If (4)、 Command1_Click()(确定按钮)事件代码 '若输入了课程号则将课程名自动填写到
Combo
2.
Text
If
Combo
1.
Text
"" And
Combo
2.
Text
= "" Then ADOrs.Open "Select 课程名 From 课程情况表 Where 课程号 ='" +
Combo
1.
Text
+ "'" If ADOrs.EOF Then MsgBox "课程情况表
中
没有课程号为" +
Combo
1.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
1.
Text
= "" Exit Sub Else
Combo
2.
Text
= ADOrs.Fields("课程名") End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 End If (4)、 Command1_Click()(确定按钮)事件代码 '若输入了课程名则将课程号自动填写到
Combo
1.
Text
If
Combo
2.
Text
"" And
Combo
1.
Text
= "" Then ADOrs1.Open "Select 课程号 From 课程情况表 Where 课程名='" +
Combo
2.
Text
+ "'" If ADOrs1.EOF Then MsgBox "课程情况表
中
没有课程名为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
2.
Text
= "" Exit Sub Else
Combo
1.
Text
= ADOrs1.Fields("课程号") End If If ADOrs1.State = adStateOpen Then ADOrs1.Close '关闭记录集 End If (4)、 Command1_Click()(确定按钮)事件代码 '查询课程情况表
中
是否有指定课程号和指定课程名的记录 If
Combo
1.
Text
"" And
Combo
2.
Text
"" Then ADOrs.Open "Select * From 课程情况表 Where 课程号='" +
Combo
1.
Text
+ "'" + " And 课程名='" +
Combo
2.
Text
+ "'" If ADOrs.EOF Then MsgBox "课程情况表
中
没有课程号为" +
Combo
1.
Text
+ "且课程名为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
1.
Text
= ""
Combo
2.
Text
= "" Exit Sub Else
Combo
1.
Text
= ADOrs.Fields("课程号")
Combo
2.
Text
= ADOrs.Fields("课程名") End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 End If End Sub (5)、 Command2_Click()(确认按钮)事件代码 Private Sub Command2_Click() Dim xm As String Dim xh As String Dim strSQL As String Dim ADOrs As New Recordset '声明记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '如果课程号与课程名同时为空则提示重新输入/选择 If
Combo
1.
Text
= "" Or
Combo
2.
Text
= "" Then MsgBox "课程号和课程名不能为空,请重新输入!", vbQuestion + vbOKOnly Else xh =
Combo
1.
Text
xm =
Combo
2.
Text
If MsgBox("删除课程号为" + xh + "课程名为" + xm + "的课程记录,该课程在学生成绩表
中
的全部记录也将一起删除,是否继续?", vbQuestion + vbYesNo) = vbYes Then (5)、 Command2_Click()(确认按钮)事件代码 '拼写Delete学生成绩表指定记录语句 strSQL = "Delete From 学生成绩表" strSQL = strSQL + " Where 课程号='" +
Combo
1.
Text
+ "'" ADOcn.Execute strSQL '执行Delete语句 '拼写Delete课程情况表指定记录语句 strSQL = "Delete From 课程情况表" strSQL = strSQL + " Where 课程号='" +
Combo
1.
Text
+ "'" ADOcn.Execute strSQL '执行Delete语句 MsgBox "删除成功!", vbQuestion + vbOKOnly
Combo
1.
Text
= ""
Combo
2.
Text
= "" End If End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 End Sub (6)、 Command3_Click()(返回按钮)事件代码 Private Sub Command3_Click() Unload Me End Sub 10. frmDeleteGrade (删除成绩)窗体代码设计 (1)、Form_Load()事件代码 Private Sub Form_Load() Dim ADOrs As New Recordset '声明记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '对
Combo
1组合框进行初始化 ADOrs.Open "Select 学号 From 学生情况表 Order By 学号"
Combo
1.Clear Do While Not ADOrs.EOF
Combo
1.AddItem Trim(ADOrs.Fields("学号")) '
添加
"学号"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 '对
Combo
2组合框进行初始化 ADOrs.Open "select 课程号 from 课程情况表 Order By 课程号"
Combo
2.Clear Do While Not ADOrs.EOF
Combo
2.AddItem Trim(ADOrs.Fields("课程号")) '
添加
"课程号"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集 'End Sub (2)
Combo
1_Click 事件代码 Private Sub
Combo
1_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '如果输入了学号,则把姓名显示在
Text
1.
Text
strSQL = "select * from 学生情况表" strSQL = strSQL + " Where 学号='" +
Combo
1.
Text
+ " '" ADOrs.Open strSQL
Text
1.
Text
= ADOrs.Fields("姓名") ADOrs.Close '关闭记录集 (2)
Combo
1_Click 事件代码(续) If
Combo
2 "" Then '输入完毕则显示成绩信息 '查询学生成绩表
中
是否有指定指定学号与课程号的记录 strSQL = "select * from 学生成绩表" strSQL = strSQL & " Where 学号='" +
Combo
1.
Text
+ " '" strSQL = strSQL & " and 课程号='" +
Combo
2.
Text
+ "'" ADOrs.Open strSQL If ADOrs.EOF Then MsgBox "学生成绩表在不存在学号为" +
Combo
1.
Text
+ "课程号为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbCritical + vbOKOnly
Text
1.
Text
= ""
Text
3.
Text
= "" Exit Sub Else
Text
3.
Text
= ADOrs.Fields("成绩") End If End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (3)
Combo
2_Click 事件代码 Private Sub
Combo
2_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '如果输入了课程号,则把课程名显示在
Text
2.
text
strSQL = "select * from 课程情况表" strSQL = strSQL + " Where 课程号='" +
Combo
2.
Text
+ " '" ADOrs.Open strSQL
Text
2.
Text
= ADOrs.Fields("课程名") ADOrs.Close '关闭记录集 (3)
Combo
2_Click 事件代码(续) If
Combo
1 "" Then '输入完毕则显示成绩信息 '查询学生成绩表
中
是否有指定指定学号与课程号的记录 strSQL = "select * from 学生成绩表" strSQL = strSQL & " Where 学号='" +
Combo
1.
Text
+ " '" strSQL = strSQL & " and 课程号='" +
Combo
2.
Text
+ "'" ADOrs.Open strSQL If ADOrs.EOF Then MsgBox "学生成绩表在不存在学号为" +
Combo
1.
Text
+ "课程号为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbCritical + vbOKOnly
Text
2.
Text
= ""
Text
3.
Text
= "" Exit Sub Else
Text
3.
Text
= ADOrs.Fields("成绩") End If End If If ADOrs.State = adStateOpen Then ADOrs.Close '关闭记录集 Set ADOrs = Nothing End Sub (4)、 Command1_Click()(确定按钮)事件代码 Private Sub Command1_Click() Dim strSQL As String Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 Dim ADOrs1 As New Recordset '声明一个记录集对象 ADOrs1.ActiveConnection = ADOcn '与ADOcn连接对象关联 Dim ADOrs2 As New Recordset '声明一个记录集对象 ADOrs2.ActiveConnection = ADOcn '与ADOcn连接对象关联 ‘如果学号为空则提示用户重新输入 If
Combo
1.
Text
= "" Then MsgBox "学号不能为空,请重新输入!", vbQuestion + vbOKOnly
Combo
1.
Text
= ""
Text
1.
Text
= "" Exit Sub End If (4)、 Command1_Click()(确定按钮)事件代码---续 '如果课程号为空则提示拥护重新输入 If
Combo
2.
Text
= "" Then MsgBox "课程号不能为空,请重新输入!", vbQuestion + vbOKOnly
Combo
2.
Text
= ""
Text
2.
Text
= "" Exit Sub End If '查询学生情况表
中
是否有指定学号的记录 If
Combo
1.
Text
"" Then ADOrs1.Open "Select 姓名 From 学生情况表 Where 学号='" +
Combo
1.
Text
+ "'" If ADOrs1.EOF Then MsgBox “学生情况表
中
没有学号为” +
Combo
1.
Text
+ “的记录,请重新输入!”, vbQuestion + vbOKOnly
Combo
1.
Text
= ""
Text
1.
Text
= "" Exit Sub Else '若有指定学号的学生记录,则将姓名字段值填写到
text
1
Text
1.
Text
= ADOrs1.Fields("姓名") End If End If '查询课程情况表
中
是否有指定课程号的记录 If
Combo
2.
Text
"" Then ADOrs2.Open "Select 课程名 From 课程情况表 Where 课程号='" +
Combo
2.
Text
+ "'" If ADOrs2.EOF Then MsgBox "课程情况表
中
没有课程号为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Combo
2.
Text
= ""
Text
2.
Text
= "" Exit Sub Else '若有指定课程号的课程记录,则将课程名字段值填写到
text
2
Text
2.
Text
= ADOrs2.Fields("课程名") End If End If '查询学生表
中
是否有指定学号与课程号的记录 If
Combo
1 "" And
Combo
1 "" Then strSQL = "select * from 学生成绩表" strSQL = strSQL & " Where 学号='" +
Combo
1.
Text
+ " '" strSQL = strSQL & " and 课程号='" +
Combo
2.
Text
+ "'" ADOrs.Open strSQL If ADOrs.EOF Then MsgBox "学生成绩表在不存在学号为" +
Combo
1.
Text
+ "课程号为" +
Combo
2.
Text
+ "的记录,请重新输入!", vbCritical + vbOKOnly
Combo
1.
Text
= ""
Combo
2.
Text
= ""
Text
1.
Text
= ""
Text
2.
Text
= ""
Text
3.
Text
= "" Exit Sub Else
Text
3.
Text
= Val(ADOrs.Fields("成绩")) End If End If End Sub 5)、 Command2_Click()(确认按钮)事件代码 Private Sub Command2_Click() If MsgBox("是否要删除学号为" +
Combo
1.
Text
+ "课程号为" +
Combo
2.
Text
+ "的成绩记录?", vbQuestion + vbYesNo) = vbYes Then '拼写Delete语句 strSQL = "Delete From 学生成绩表" strSQL = strSQL + " Where 学号='" +
Combo
1.
Text
+ "'" strSQL = strSQL + " And 课程号='" +
Combo
2.
Text
+ "'" ADOcn.Execute strSQL '执行Delete语句
Combo
1.
Text
= ""
Combo
2.
Text
= ""
Text
1.
Text
= ""
Text
2.
Text
= ""
Text
3.
Text
= "" MsgBox "删除成功!", vbQuestion + vbOKOnly End If End Sub (6)、 Command3_Click()(返回按钮)事件代码 Private Sub Command3_Click() Unload Me End Sub 11. frmDeleteUser(删除用户)窗体代码设计 (1)、 Command1_Click()(确定按钮)事件代码 Private Sub Command1_Click() '定义变量,建立与数据库的连接 Dim strSQL As String Dim ADOrs2 As New Recordset ADOrs2.ActiveConnection = ADOcn If Trim(
Text
1.
Text
) = "" Then MsgBox "请输入用户名!", , "删除用户"
Text
1.SetFocus Exit Sub End If If Trim(
Text
2.
Text
) = "" Then MsgBox "请输入用户密码!", , "删除用户"
Text
2.SetFocus Exit Sub End If '查询是否有指定用户名和密码的记录 ADOrs2.Open "Select * From 用户 Where 用户名='" +
Text
1.
Text
+ "'" + " And 密码='" +
Text
2.
Text
+ "'" If ADOrs2.EOF Then MsgBox "用户
中
没有名为:" +
Text
1.
Text
+ " 密码为:" +
Text
2.
Text
+ "的记录,请重新输入!", vbQuestion + vbOKOnly
Text
1.
Text
= ""
Text
2.
Text
= ""
Text
1.SetFocus Else If MsgBox("是否删除用户名为“" +
Text
1.
Text
+ "”密码为“" +
Text
2.
Text
+ "”的用户记录?", vbQuestion + vbYesNo) = vbYes Then '拼写Delete用户指定记录语句 strSQL = "Delete From 用户 Where 用户名='" +
Text
1.
Text
+ "'" + " And 密码='" +
Text
2.
Text
+ "'" ADOcn.Execute strSQL '执行Delete语句 MsgBox "删除成功!", vbQuestion + vbOKOnly
Text
1.
Text
= ""
Text
2.
Text
= ""
Text
1.SetFocus End If End If End Sub (2)、 Command2_Click()(返回按钮)事件代码 Private Sub Command2_Click() Unload Me End Sub 12. frmQuerystudent(学生基本信息查询)窗体代码设计 使用ado数据控件与DataGrid数据绑定控件实现 (1)、Form_Load()事件代码 Private Sub Form_Load()
Combo
1.
Text
= "全部学生" '默认查询全部学生 Label2.Caption = "全部学生数据浏览表格:" Label1.Visible = False
Text
1.Visible = False End Sub 说明:这里使用ado数据控件adodc1与DataGrid数据绑定控件DataGrid1,并已设置好adodc属性---查询数据库
中
的表格(学生情况表)。 (2)
Combo
1_Click 事件代码 Private Sub
Combo
1_Click() Select Case
Combo
1.ListIndex '根据选择的组合框项进行处理 Case 0 '选择“全部学生”时隐藏提示信息 strSQL = "select * from 学生情况表" Adodc1.CommandType = adCmd
Text
Adodc1.RecordSource = strSQL Adodc1.Refresh Label2.Caption = "全部学生数据浏览表格:“ DataGrid1.Visible = True Label1.Visible = False
Text
1.Visible = False Case 1 '选择“按学号查询”时给出提示并定位光标 Label1.Visible = True
Text
1.Visible = True
Text
1.SetFocus Label1.Caption = "请输入学号并按回车键确认:" Case 2 '选择“按姓名查询”时给出提示并定位光标 Label1.Visible = True
Text
1.Visible = True
Text
1.SetFocus Label1.Caption = "请输入姓名并按回车键确认:" End Select End Sub (3)
Text
1_KeyPress 事件代码 Private Sub
Text
1_KeyPress(KeyAscii As Integer) Dim atrsql As String If KeyAscii = 13 Then Select Case
Combo
1.ListIndex '根据选择的组合框项进行处理 Case 1 '选择“按学号查询”时 strSQL = "select * from 学生情况表 where 学号='" & Trim(
Text
1.
Text
) & "'" Adodc1.CommandType = adCmd
Text
Adodc1.RecordSource = strSQL Adodc1.Refresh If Adodc1.Recordset.EOF Then '没有找到时 Label2.Caption = "" DataGrid1.Visible = False MsgBox "没有该生记录信息,请检查你输入的学号是否正确!" Else '找到时 Label2.Caption = "学号为" &
Text
1.
Text
& "的学生数据浏览表格:" DataGrid1.Visible = True End If
Text
1.
Text
= "" Case 2 '选择“按姓名查询”时 strSQL = "select * from 学生情况表 where 姓名='" & Trim(
Text
1.
Text
) & "'" Adodc1.CommandType = adCmd
Text
Adodc1.RecordSource = strSQL Adodc1.Refresh If Adodc1.Recordset.EOF Then '没有找到时 Label2.Caption = "" DataGrid1.Visible = False MsgBox "没有该生记录信息,请检查你输入的姓名是否正确!" Else '找到时 Label2.Caption = "姓名为" &
Text
1.
Text
& "的学生数据浏览表格:" DataGrid1.Visible = True End If
Text
1.
Text
= "" End Select End If End Sub (4) Command1_Click(返回按钮)事件代码 Private Sub Command1_Click() Unload Me End Sub 13. frmQueryGrade(学生成绩查询)窗体代码设计 使用MSFlexGrid1控件(编程模型)实现 (1)、Form_Load()事件代码 Private Sub Form_Load() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 MSFlexGrid1.Visible = False '隐藏MSFlexGrid1控件 '对
Combo
1组合框进行初始化 ADOrs.Open "select 学号 from 学生情况表 Order By 学号"
Combo
1.Clear Do While Not ADOrs.EOF
Combo
1.AddItem Trim(ADOrs.Fields("学号")) '
添加
"学号"字段值 ADOrs.MoveNext '取下一条记录 Loop ADOrs.Close '关闭记录集对象
Text
1.
Text
= "" End Sub (2)
Combo
1_Click 事件代码 Private Sub
Combo
1_Click() Dim ADOrs As New Recordset '声明一个记录集对象 ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 '若选择了学号则将姓名自动填写到
text
1 ADOrs.Open "Select 姓名 From 学生情况表 Where 学号 ='" &
Combo
1.
Text
& "'" If ADOrs.EOF Then MsgBox "学生情况表
中
没有学号为" &
Combo
1.
Text
& "的记录,请重新输入!", vbQuestion & vbOKOnly
Text
1.
Text
= "" Else
Text
1.
Text
= ADOrs.Fields("姓名") End If ADOrs.Close '关闭记录集 End Sub (3) Command1_Click(确定按钮)事件代码 Private Sub Command1_Click() Dim strSQL As String, strSQL2 As String Dim strRecord As String Dim ADOrs As New Recordset '声明记录集对象 Dim ADOrs2 As New Recordset ADOrs.ActiveConnection = ADOcn '与ADOcn连接对象关联 ADOrs2.ActiveConnection = ADOcn strSQL = "select * from 学生情况表 Where 学号='" &
Combo
1.
Text
& " '" ADOrs.Open strSQL If ADOrs.EOF Then MsgBox ("数据库
中
找不到学号为" &
Combo
1.
Text
& "的记录,请重新输入!")
Combo
1.
Text
= ""
Text
1.
Text
= "" Else
Text
1.
Text
= ADOrs.Fields("姓名") End If '拼写Select语句 strSQL2 = "Select 学生成绩表.学号,学生成绩表.课程号,学生成绩表.成绩," strSQL2 = strSQL2 & "学生情况表.姓名,课程情况表.课程名" strSQL2 = strSQL2 & " From 学生成绩表,学生情况表,课程情况表" strSQL2 = strSQL2 & " Where 学生成绩表.学号=学生情况表.学号" strSQL2 = strSQL2 & " And 学生成绩表.课程号=课程情况表.课程号" strSQL2 = strSQL2 & " And 学生成绩表.学号= '" &
Combo
1.
Text
& "'" ADOrs2.Open strSQL2 '执行Select语句 If ADOrs2.EOF = True Then MSFlexGrid1.Visible = False '隐藏MSFlexGrid1控件 MsgBox "没有该生成绩!" Else '初始化MSFlexGrid表格 MSFlexGrid1.Rows = 0 '行数 MSFlexGrid1.Cols = 5 '列数 MSFlexGrid1.ColWidth(3) = 1500 '调节第4列宽度 MSFlexGrid1.Visible = True '显示MSFlexGrid1控件 '设置表格标题栏 strRecord = "学号" & vbTab & "姓名" & vbTab & "课程号" strRecord = strRecord & vbTab & "课程名" & vbTab & "成绩" MSFlexGrid1.AddItem strRecord '从第一条记录开始循环,直至表尾,填写表格内容 Do While Not ADOrs2.EOF '拼写表格内容 strRecord = Trim(ADOrs2.Fields("学号")) & vbTab & Trim(ADOrs2.Fields("姓名")) & vbTab strRecord = strRecord & Trim(ADOrs2.Fields("课程号")) & vbTab & Trim(ADOrs2.Fields("课程名")) strRecord = strRecord & vbTab & Trim(Str(ADOrs2.Fields("成绩"))) MSFlexGrid1.AddItem strRecord '向表格内
添加
行 ADOrs2.MoveNext '取下一条记录 Loop End If ADOrs.Close '关闭记录集对象 ADOrs2.Close '释放记录集对象 Set ADOrs = Nothing Set ADOrs2 = Nothing End Sub (4) Command2_Click(返回按钮)事件代码 Private Sub Command2_Click() Unload Me End Sub 14.身份验证窗体(frmlogin)代码设计 1)、Form_Initialize()事件代码 Private Sub Form_Initialize() ADOcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=成绩.MDB" If ADOcn.State = adStateClosed Then ADOcn.Open '打开到数据库的连接 End Sub 2)、Command1_Click()事件代码—登录按钮 Private Sub Command1_Click() Dim ADOrs As New Recordset '声明记录集对象 Dim strSQL As String ADOrs.ActiveConnection = ADOcn '与连接对象adocn关联 If Trim(
Text
1.
Text
) = "" Or Trim(
Text
2.
Text
) = "" Then '检验用户名与密码为空否 MsgBox "帐号和密码不能为空,请重新填写", vbOKOnly + vbInformation Exit Sub End If strSQL = "select * from 用户 where 用户名='" + Trim(
Text
1.
Text
) + "'" ADOrs.Open strSQL '按用户名查询 If ADOrs.EOF Then '找不到该用户 MsgBox "用户不存在", vbCritical + vbOKOnly
Text
1.
Text
= ""
Text
1.SetFocus Exit Sub ElseIf Trim(
Text
2.
Text
) ADOrs.Fields(“密码”) Then ‘找到用户后检验密码 MsgBox "密码不正确", vbOKOnly + vbInformation
Text
2.
Text
= ""
Text
2.SetFocus Exit Sub End If '用户登录成功,记录用户类型参数 usertype = ADOrs.Fields("用户类型") Unload Me MDIForm1.Show '登录成功,打开MDI主窗体 ADOrs.Close Set ADOrs = Nothing End Sub 3)、Command2_Click()事件代码—退出按钮 Private Sub Command2_Click() ADOcn.Close Set ADOcn = Nothing Unload Me End Sub 4)、登录成功并打开MDI主窗体后,应根据人员类型设置菜单权限 Private Sub MDIForm_Load() '根据人员类型设置菜单权限 Select Case usertype 'Case "管理员" Case "查询人员" addmenu.Enabled = False deletemenu.Enabled = False Updata.Enabled = False End Select End Sub 1.4 其他 一、用户自定义函数的使用 1、初始化窗体大小及显示座标函数 Public Sub init(frmname As Object, X As Integer, Y As Integer) frmname.Width = X frmname.Height = Y frmname.Left = (MDIForm1.Width - frmname.Width) / 2 frmname.Top = (MDIForm1.Height - frmname.Height) / 2 End Sub 2、校验输入的文本框字符是否为数字或backspace回格键函数 ,’如果是则返回true,否则返回false Public Function in_int(KeyAscii As Integer) As Boolean Dim Accept_int(10) As String '可接受的字符数组 Accept_int(0) = "0" Accept_int(1) = "1" Accept_int(2) = "2" Accept_int(3) = "3" Accept_int(4) = "4" Accept_int(5) = "5" Accept_int(6) = "6" Accept_int(7) = "7" Accept_int(8) = "8" Accept_int(9) = "9" Accept_int(10) = Chr(8) 'Chr(8)是backspace键对应的字符 in_int = False For i = 1 To 10 '检查输入的字符是否在数组
中
If Chr(KeyAscii) = Accept_int(i) Then in_int = True End If Next i End Function
MFC
中
Combo
Box使用方法_用法_手册
MFC
中
Combo
Box使用方法_用法_手册
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章