Unload Frmwelcome Unload frmabout Load FrmHELP FrmHELP SE Hide Unload Frmmain End Select End sub 二学生基本情况更新窗体的设计与实现 首先在工程中添加一个标准窗体并起名为 Frmjbgx。再在基本空间上添加一个通用对话框控件, 方法是在基本控件的空白处按鼠标右键,选择部件,在部件对话框中选择 Microsoft common dialog Control60控件,按确定按钮。然后在窗体上添加各种控件,如图1-3设计屏幕,然后添加程序代 码。在图中,其主要控件、主要属性、控件说明(一些次要控件如按钮、标签,次要属性如 Height Width除非特别,否则将不特别说明,读者可以根据具体情况来设定)如表1-4所示: 基本情祝更新 基本愤况更新 添如照片 噬号 ex t2 性别Fext3 出生年月 政洽面黦Pazt6 家庭佳址ret7 电话raxt8 E_ MAIL Text9 圆上个下个」⊥一个」最后个 添加 删除 图1-3基本情况更新设计界面 表1-3控件、主要属性、控件说明表
6 Unload Frmwelcome Unload frmabout Load FrmHELP FrmHELP.Show Case 6 Frmmain.Hide Unload Frmmain End Select End Sub (二)学生基本情况更新窗体的设计与实现 首先在工程中添加一个标准窗体并起名为 Frmjbgx。再在基本空间上添加一个通用对话框控件， 方法是在基本控件的空白处按鼠标右键，选择部件，在部件对话框中选择 Microsoft Common Dialog Control 6.0 控件，按确定按钮。然后在窗体上添加各种控件，如图 1-3 设计屏幕，然后添加程序代 码。在图中，其主要控件、主要属性、控件说明（一些次要控件如按钮、标签，次要属性如 Height、 Width 除非特别，否则将不特别说明，读者可以根据具体情况来设定）如表 1-4 所示： 图 1-3 基本情况更新设计界面 表 1-3 控件、主要属性、控件说明表
控件名称主要控件属性名称属性值 功能说明 Caption 基本情况更新 frmjbgx Frmibs BorderStyle Mdichild 把此窗体作为子窗体 Windowstate Maximized 运行是最大化 名称 Frame 基本情况更新 CommonDialog名称 Commondialogl Data 选择 Access数据源 Student mdb 选择数据源的名称 Recordsource 基本情况 和数据表进行绑定 名称 Imagel Stretch rue 「调整图片大小以适应该控件 Enabled False 初始状态为不可用 名称 Textl--Text9 extI text9和数据库 Datasource Datal Student. mdb的基本情况表的各 Text Datafield 学号一EMAL 个字段进行绑定 Enabled False 名称 Command Command 放 弃 Enabled False 初始状态为不可用 名称 Command10 Command Caption 忝加照片 Enabled False 初始状态为不可用 注意:在设置 Datal的 Databasename属性时,不要 student mdb之前的路径,这样可以不限制应用 程序的路径 窗体的运行结果如图1-4所示 学生档案管理系统一[基本况更新 ,数据维护q)助0退出吧 基本憤况更新 学号「 姓名 如凰片」 理象 出先年月F 减治面貌回 家住址「 电话卩4s345 E瓶AILF4235 上一个[下一个第一1 最后一个 添加 KALA 图1-4基本情况更新窗体的运行结果 基本情况更新设计代码实现
7 注意：在设置 Data1 的 Databasename 属性时，不要 student.mdb 之前的路径，这样可以不限制应用 程序的路径。 窗体的运行结果如图 1-4 所示： 图 1-4 基本情况更新窗体的运行结果 基本情况更新设计代码实现 控件名称 主要控件属性名称 属性值 功能说明 Frmjbgx Caption 基本情况更新 名称 frmjbgx BorderStyle 2 – Sizable Mdichild True 把此窗体作为子窗体 Windowstate Maximized 运行是最大化 Frame 名称 Frame1 Caption 基本情况更新 CommonDialog 名称 Commondialog1 Data 名称 Data1 Connect Access 选择 Access 数据源 Databasename Student.mdb 选择数据源的名称 Recordsource 基本情况 和数据表进行绑定 Image 名称 Image1 Stretch True 调整图片大小以适应该控件 Enabled False 初始状态为不可用 Text 名称 Text1—Text9 text1_text9 和数据库 Student.mdb 的基本情况表的各 个字段进行绑定 Datasource Data1 Datafield 学号—E_MAIL Enabled False 初始状态为不可用 Command 名称 Command4 Caption 放弃 Enabled False 初始状态为不可用 Command 名称 Command10 Caption 添加照片 Enabled False 初始状态为不可用
添加按钮的 Click事件代码: Private Sub Commandl Click On Error resume next 点击此按钮时,除放弃和添加照片按钮外,其他均不可用 Command2 Enabled= Not Command2 Enabled Command 3. Enabled= Not Command 3. Enabled Command4 Enabled= Not Command. Enabled Commands. Enabled= Not Commands. Enabled Commando enabled= Not command. enabled Command 7 Enabled Not Command 7 Enabled Command 8 Enabled= Not Command 8 Enabled Command. Enabled= Not Command 9 Enabled Command 10 Enabled= Not Command 10 Enabled If Commandl Caption="添加"The Text1. Enabled= True Text2. Enabled True Text3 Enabled True Text4 Enabled = True Text5 Enabled= True Text6 Enabled= True Text7 Enabled= True Text 8 Enabled= true Text9. Enabled= True Image l Enabled= True Command l Caption="确定" 添加一条空白记录 Datal recordset. addNew Text1. Set Focus Else Text1 Enabled= False Text2 Enabled= False Text3 Enabled= False Text4 Enabled= False Text5 Enabled= False Text6 enabled= False Text7 Enabled= False Text 8 Enabled = False Text9 enabled= False Imagel Enabled= False 把数据真正添加到表中 Datal Recordset. Update Datal Recordset movelast
8 添加按钮的 Click 事件代码： Private Sub Command1_Click() On Error Resume Next ‘点击此按钮时，除放弃和添加照片按钮外，其他均不可用 Command2.Enabled = Not Command2.Enabled Command3.Enabled = Not Command3.Enabled Command4.Enabled = Not Command4.Enabled Command5.Enabled = Not Command5.Enabled Command6.Enabled = Not Command6.Enabled Command7.Enabled = Not Command7.Enabled Command8.Enabled = Not Command8.Enabled Command9.Enabled = Not Command9.Enabled Command10.Enabled = Not Command10.Enabled If Command1.Caption = "添 加" Then Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Image1.Enabled = True Command1.Caption = "确 定" ‘添加一条空白记录 Data1.Recordset.AddNew Text1.SetFocus Else Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Image1.Enabled = False ‘把数据真正添加到表中 Data1.Recordset.Update Data1.Recordset.MoveLast
Command l Caption="添加 End If End Sub 删除按钮的 Click事件代礓 Private Sub Command2 Click On Error resume next Datal Recordset Delete Datal Recordset MoveNext If Datal Recordset EoF Then Datal. Recordset movelast End Sub 修改按钮的 Click事件代礓: Private Sub Command3 Click On Error resume next Command. Enabled= Not Command l Enabled Command2 Enabled= Not Command2 Enabled Command. Enabled= Not Command. Enabled Commands. Enabled= Not Commands. Enabled Command 10 Enabled= not Command 10 Enabled If Command3 Caption=”修改"Then Text1 Enabled True Text2 Enabled= true Text3 Enabled= True Text4 Enabled= True Text5 Enabled= True Text6 Enabled= True Text7 Enabled= True Text8 Enabled= True Text9 Enabled= True Image l Enabled= True Datal Recordset EDIt Text1. Set Focus Command3 Caption="确定 Command3 Caption="修改 Datal Recordset. Update Text1 Enabled= False Text2 Enabled= False Text3 Enabled= False Text4 Enabled= False Texts. Enabled= False
9 Command1.Caption = "添 加" End If End Sub 删除按钮的 Click 事件代码： Private Sub Command2_Click() On Error Resume Next Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub 修改按钮的 Click 事件代码： Private Sub Command3_Click() On Error Resume Next Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled Command4.Enabled = Not Command4.Enabled Command5.Enabled = Not Command5.Enabled Command10.Enabled = Not Command10.Enabled If Command3.Caption = "修 改" Then Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Image1.Enabled = True Data1.Recordset.EDIT Text1.SetFocus Command3.Caption = "确 定" Else Command3.Caption = "修 改" Data1.Recordset.Update Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False