《学生档案管理系统的设计与实现教学文稿.doc》由会员分享，可在线阅读，更多相关《学生档案管理系统的设计与实现教学文稿.doc（58页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Good is good, but better carries it.精益求精，善益求善。学生档案管理系统的设计与实现-学生档案管理系统项目应用开发数据库应用程序的开发始终算得上是VB编程中的难点，这是因为你不仅要熟悉VB中关于数据库编程方面的知识（当然这是十分简单的）还要了解数据库的知识。本系统主要用来实现学生基本情况和学生成绩的录入、修改、查询、删除和打印等功能。通过本系统，可以了解如何使用VisualBasic来开发一个比较完整的数据库应用程序。用到的数据库控件有DATA、ADO，添加的一个数据环境。一、系统结构图本系统主要包括学生基本情况更新，学生基本情况维护和学生成绩维护3个大的模
2、块，各个模块的具体功能如图所示：学生档案管理系统学生基本情况更新学生基本情况维护学生成绩维护添加删除修改查询选择专业修改添加删除打印按专业查询添加成绩查找打印按学号查找按专业查找图1-1应用程序的功能模块结构图二、数据库的建立本系统用到的数据库是用VisualBasic的外加工具VisualDataManager(可视化数据管理器)创建，名为student.mdb（是access数据库），其中用到两个表，分别为：基本情况表和学生成绩表。两表的结构如下所示：表1-1字段名类型宽度学号Text6姓名Test10性别Text2班级Text20出生年月Data/Time8政治面貌Text4家庭住址Te
3、xt20电话Text8E_mailText20照片Binary0表1-2字段名类型宽度学号Text6课程Test8成绩Long4学期Integer制作过程如下：1、 选择VB外接程序菜单中的可视化数据管理器，进入可视化数据管理器；2、 在可视化数据管理器中选择文件菜单中的新建选项建立数据库文件，然后从数据库厂家列表中选择要创建的数据库类型（本例选择MicrosoftAccess中的VersionMDB2.0版本）；3、 在选择要创建的MicrosoftAccess数据库对话框中，输入数据库名student，按确定按钮进入数据库窗口；在数据库窗口中单击鼠标右键并从弹出式菜单中选择新建表来创建st
4、udent.mdb数据库中的两个表（基本情况表和学生成绩表）。三、各个窗体的设计与实现（一） 主窗体的设计与实现首先在VB中新建一个标准工程并起名为成绩管理，在标准工程中添加一个MDI窗体并起名为Frmmain。主窗体的设计界面如图1-2所示：图1-2主窗体的设计界面在主窗体中主要应用了菜单、工具栏和状态栏。下面分别介绍这些组成部分的功能。1、 菜单的设计菜单是Windows应用程序中的重要组成部分，这里将对每个菜单项及其子菜单的功能进行简单介绍，如表1-1所示。表1-3应用程序的菜单项列表主菜单名子菜单项菜单功能数据维护（Repair）情况表更新（Edit）显示学生情况表更新窗体情况表维护（
5、Cedit）显示学生情况表维护窗体成绩表维护（Cjwh）显示学生成绩表维护窗口退出本系统（Quit1）退出应用程序帮助(Help)关于系统（Absystem）显示关于系统窗体系统帮助（Abhelp）显示系统帮助窗体退出(Exit)推出本系统（Quit）退出应用程序MID应用程序中，父窗体可以有自己的菜单，子窗体也可以有属于自己的菜单。这些菜单的创建都可以利用MenuEditor来进行创建。2、 Imagelist控件程序包括一个Imagelist控件，它用来为工具栏提供图片。在程序的基本控件中没有此项控件，添加此控件的方法是在基本控件的空白处点击鼠标右键，在出现的快捷菜单中选择部件，之后在部件
6、对话框中的部件选项卡中选择MicrosoftWindowscommoncontrols6.0控件，确定即可。在窗体中添加一个Imagelist控件，名为默认的Imagelist1，再为此控件添加几个图标。3、工具栏设计工具栏提供了便捷的操作方式来完成应用程序常用的操作。在现在的Windows应用程序中，工具栏已经成为非常主要的组成部分。本例工具栏的设计步骤为：首先在窗体中添加一个toolbar控件，之后为此控件添加6个按钮，并把每个按钮分别和Imagelist1控件的图片绑定。4、状态栏设计在主窗体上添加一个Statusbar控件，用鼠标右键点击此控件，在属性页的对话框中为窗体添加6个窗格，分
7、别放置窗口信息和显示当前日期和时间。5、主窗体界面的代码实现菜单的Click事件代码：PrivateSubCEDIT_Click()UnloadFrmjbgxUnloadfrmcjUnloadFrmHELPUnloadFrmwelcomeUnloadfrmaboutLoadFrmjbwhFrmjbwh.ShowEndSubPrivateSubcjwh_Click()UnloadFrmjbgxUnloadFrmjbwhUnloadFrmHELPUnloadFrmwelcomeUnloadfrmaboutLoadfrmcjfrmcj.ShowEndSubPrivateSubEDIT_Click()
8、UnloadFrmjbwhUnloadfrmcjUnloadFrmHELPUnloadFrmwelcomeUnloadfrmaboutLoadFrmjbgxFrmjbgx.ShowEndSubPrivateSubAbsystem_Click()UnloadFrmjbgxUnloadfrmcjUnloadFrmjbwhUnloadFrmwelcomeUnloadfrmaboutLoadFrmHELPFrmHELP.ShowEndSubPrivateSubAhelp_Click()UnloadFrmjbgxUnloadfrmcjUnloadFrmHELPUnloadFrmwelcomeUnload
9、FrmjbwhLoadfrmaboutfrmabout.ShowEndSubPrivateSubquit_Click()Frmmain.HideUnloadFrmmainEndSubPrivateSubquit1_Click()Frmmain.HideUnloadFrmmainEndSub窗体的Load事件代码：PrivateSubMDIForm_Load()LoadFrmwelcomeFrmwelcome.ShowEndSub工具栏的Buttonclick事件代码：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)S
10、electCaseButton.IndexCase1UnloadFrmjbwhUnloadfrmcjUnloadFrmHELPUnloadFrmwelcomeUnloadfrmaboutLoadFrmjbgxFrmjbgx.ShowCase2UnloadFrmjbgxUnloadfrmcjUnloadFrmHELPUnloadFrmwelcomeUnloadfrmaboutLoadFrmjbwhFrmjbwh.ShowCase3UnloadFrmjbgxUnloadFrmjbwhUnloadFrmHELPUnloadFrmwelcomeUnloadfrmaboutLoadfrmcjfrmcj.
11、ShowCase4UnloadFrmjbgxUnloadfrmcjUnloadFrmHELPUnloadFrmwelcomeUnloadFrmjbwhLoadfrmaboutfrmabout.ShowCase5UnloadFrmjbgxUnloadfrmcjUnloadFrmjbwhUnloadFrmwelcomeUnloadfrmaboutLoadFrmHELPFrmHELP.ShowCase6Frmmain.HideUnloadFrmmainEndSelectEndSub(二)学生基本情况更新窗体的设计与实现首先在工程中添加一个标准窗体并起名为Frmjbgx。再在基本空间上添加一个通用对话
12、框控件，方法是在基本控件的空白处按鼠标右键，选择部件，在部件对话框中选择MicrosoftCommonDialogControl6.0控件，按确定按钮。然后在窗体上添加各种控件，如图1-3设计屏幕，然后添加程序代码。在图中，其主要控件、主要属性、控件说明（一些次要控件如按钮、标签，次要属性如Height、Width除非特别，否则将不特别说明，读者可以根据具体情况来设定）如表1-4所示：图1-3基本情况更新设计界面表1-3控件、主要属性、控件说明表控件名称主要控件属性名称属性值功能说明FrmjbgxCaption基本情况更新名称frmjbgxBorderStyle2SizableMdichild
13、True把此窗体作为子窗体WindowstateMaximized运行是最大化Frame名称Frame1Caption基本情况更新CommonDialog名称Commondialog1Data名称Data1ConnectAccess选择Access数据源DatabasenameStudent.mdb选择数据源的名称Recordsource基本情况和数据表进行绑定Image名称Image1StretchTrue调整图片大小以适应该控件EnabledFalse初始状态为不可用Text名称Text1Text9text1_text9和数据库Student.mdb的基本情况表的各个字段进行绑定Datas
14、ourceData1Datafield学号E_MAILEnabledFalse初始状态为不可用Command名称Command4Caption放弃EnabledFalse初始状态为不可用Command名称Command10Caption添加照片EnabledFalse初始状态为不可用注意：在设置Data1的Databasename属性时，不要student.mdb之前的路径，这样可以不限制应用程序的路径。窗体的运行结果如图1-4所示：图1-4基本情况更新窗体的运行结果基本情况更新设计代码实现添加按钮的Click事件代码：PrivateSubCommand1_Click()OnErrorResu
15、meNext点击此按钮时，除放弃和添加照片按钮外，其他均不可用Command2.Enabled=NotCommand2.EnabledCommand3.Enabled=NotCommand3.EnabledCommand4.Enabled=NotCommand4.EnabledCommand5.Enabled=NotCommand5.EnabledCommand6.Enabled=NotCommand6.EnabledCommand7.Enabled=NotCommand7.EnabledCommand8.Enabled=NotCommand8.EnabledCommand9.Enabled=
16、NotCommand9.EnabledCommand10.Enabled=NotCommand10.EnabledIfCommand1.Caption=添加ThenText1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText5.Enabled=TrueText6.Enabled=TrueText7.Enabled=TrueText8.Enabled=TrueText9.Enabled=TrueImage1.Enabled=TrueCommand1.Caption=确定添加一条空白记录Data1.Reco
17、rdset.AddNewText1.SetFocusElseText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseText5.Enabled=FalseText6.Enabled=FalseText7.Enabled=FalseText8.Enabled=FalseText9.Enabled=FalseImage1.Enabled=False把数据真正添加到表中Data1.Recordset.UpdateData1.Recordset.MoveLastCommand1.Caption=添加EndI
18、fEndSub删除按钮的Click事件代码：PrivateSubCommand2_Click()OnErrorResumeNextData1.Recordset.DeleteData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndSub修改按钮的Click事件代码：PrivateSubCommand3_Click()OnErrorResumeNextCommand1.Enabled=NotCommand1.EnabledCommand2.Enabled=NotCommand2.EnabledComm
19、and4.Enabled=NotCommand4.EnabledCommand5.Enabled=NotCommand5.EnabledCommand10.Enabled=NotCommand10.EnabledIfCommand3.Caption=修改ThenText1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText5.Enabled=TrueText6.Enabled=TrueText7.Enabled=TrueText8.Enabled=TrueText9.Enabled=TrueImage1.
20、Enabled=TrueData1.Recordset.EDITText1.SetFocusCommand3.Caption=确定ElseCommand3.Caption=修改Data1.Recordset.UpdateText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseText5.Enabled=FalseText6.Enabled=FalseText7.Enabled=FalseText8.Enabled=FalseText9.Enabled=FalseImage1.Enabled=Fals
21、eEndIfEndSub放弃按钮的Click事件代码：PrivateSubCommand4_Click()OnErrorResumeNextCommand1.Caption=添加Command3.Caption=修改Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueCommand9.Enabled=TrueData1.UpdateControlsDat
22、a1.Recordset.MoveLastText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseText5.Enabled=FalseText6.Enabled=FalseText7.Enabled=FalseText8.Enabled=FalseText9.Enabled=FalseImage1.Enabled=FalseEndSub查询按钮的Click事件代码：PrivateSubCommand5_Click()DimMNOAsStringMNO=InputBox$(请输入学号,查询窗)Dat
23、a1.Recordset.FindFirst学号=&MNO&IfData1.Recordset.NoMatchThenMsgBox无此学号,提示EndSub上一个按钮的Click事件代码：PrivateSubCommand6_Click()OnErrorResumeNextData1.Recordset.MovePreviousIfData1.Recordset.BOFThenData1.Recordset.MoveFirstEndSub下一个按钮的Click事件代码：PrivateSubCommand7_Click()OnErrorResumeNextData1.Recordset.Move
24、NextIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndSub第一个按钮的Click事件代码：PrivateSubCommand8_Click()Data1.Recordset.MoveFirstEndSub最后一个按钮的Click事件代码：PrivateSubCommand9_Click()Data1.Recordset.MoveLastEndSub添加照片按钮的Click事件代码：PrivateSubCommand10_Click()调用通用对话框CommonDialog1=1OnErrorResumeNextIfCommonDial
25、og1.FileName=ThenExitSubImage1.Picture=LoadPicture(CommonDialog1.FileName)返回应用程序所在路径ChDriveMid(App.Path,1,1)EndSub窗体的Load事件代码：PrivateSubForm_Load()是Frame1框架在窗体加载时水平居中Frame1.Left=Frmjbgx.Width/2-Frame1.Width/2初始化通用对话框CommonDialog1.FileName=*.bmpCommonDialog1.Filter=pictures(*.bmp)|*.bmp|pictures(*.jp
26、g)|*.jpg|allfiles(*.*)|*.*CommonDialog1.FilterIndex=1EndSub窗体的Resize事件代码：PrivateSubForm_Resize()窗体的尺寸改变是，Frame1始终水平居中Frame1.Left=Frmjbgx.Width/2-Frame1.Width/2EndSub(三)学生基本情况维护窗体的设计与实现首先在工程中添加一个标准窗体并起名为Frmjbwh。再在工程中添加一个数据环境，数据环境设计器为创建编程的运行时数据访问提供了一个交互的、设计时环境。在设计时，您可以设置Connection和Command对象的属性值、编写代码响应
27、ActiveX(R)DataObject(ADO)事件、执行Command、创建合计和层次结构。您也可以将DataEnvironment对象拖动到窗体或报表中来创建数据绑定控件。使用数据环境设计器，您可以完成下面的工作： 添加一个数据环境设计器到一个VisualBasic工程中。 创建Connection对象。 基于存储过程、表、视图、同义词和SQL语句创建Command对象。 基于Command对象的一个分组，或通过与一个或多个Command对象相关来创建command的层次结构。 为Connection和Recordset对象编写和运行代码。 从数据环境设计器中拖动一个Command对象中
28、的字段到一个VisualBasic窗体或数据报表设计器。本例设置数据环境的方法是：选择工程菜单中的添加DataEnvironment，出现数据环境对话框如图1-5所示。图1-5数据环境对话框在图1-5中，用鼠标右键单击Dataenvironment1下的Connection1选择属性，出现数据连接属性对话框，如图1-6所示。图1-6数据连接属性对话框在图1-6中，在提供程序选项卡中选择数据引擎MicrosoftJet3.51OLEDBProvider,按下一步按钮，进入连接选项卡如图1-7所示。图1-7数据连接属性的连接选项卡在图1-7中，在选择和输入数据库名称下边的文本框中，选择数据库Stu
29、dent.mdb,注意把student.mdb前边的路径删除掉，这样可以不限制应用程序的路径。按确定按钮后，回到数据环境对话框，再用鼠标右键单击Connection1，在弹出的快捷菜单中选择添加命令选项，结果如图1-8所示。图1-8添加一个命令后的窗口在图1-8中，用鼠标右键单击Command1，在弹出的快捷菜单中选择属性，出现Command1属性对话框，如图1-9所示。图1-9Command1属性对话框在入1-9中，在数据源下边数据库对象后的下拉表中选择表，在对象名称后的下拉表中选择基本情况。再在高级选项卡中，把锁定类型设成3-开放式，以便数据环境可以进行修改和删除操作。之后，按确定按钮，回
30、到数据环境对话框。在用鼠标右键点击Command1，在出现的快捷菜单中选择添加子命令，结果如图1-10所示。图1-10添加子命令后窗口在图1-10中，再设置command2的属性，方法同设置Command1属性，把Command2的数据对象设为学生成绩表。在关联选项卡中设置用学号同父命令对象相关联。结果如图1-11所示。图1-11和父命令对象关联窗口数据环境建立完成后，回到Frmjbwh窗体中，在基本控件中添加一个DataGrid控件，方法是在基本控件的空白处按鼠标右键，选择部件，在部件对话框中选择MicrosoftDataGridControl6.0(OLEDB)控件，按确定按钮。DataG
31、rid控件是一种类似于电子数据表的绑定控件，可以显示一系列行和列来表示Recordset对象的记录和字段。可以使用DataGrid来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid控件可以在设计时快速进行配置，只需少量代码或无需代码。当在设计时设置了DataGrid控件的DataSource属性后，就会用数据源的记录集来自动填充该控件，以及自动设置该控件的列标头。然后您就可以编辑该网格的列；删除、重新安排、添加列标头、或者调整任意一列的宽度。在窗体上添加各种控件，如图1-12设计屏幕。在图中，其主要控件、主要属性、控件说明如表1-4所示：图1-12学生基本情况维护设计
32、界面表1-4控件、主要属性、控件说明表控件名称主要控件属性名称属性值功能说明FrmjbwhCaption基本情况维护名称FrmjbwhBorderStyle2SizableMdichildTrue把此窗体作为子窗体WindowstateMaximized运行是最大化Datagrid名称Datagrid1DatasourceDataenvironment1把数据环境设成数据源DatamemberCommand1数据成员设成数据环境中的Command1命令窗体的运行结果如图1-13所示：图1-13学生基本情况维护的运行结果基本情况维护设计代码实现在通用区域声明一个全局变量key，以便在选择专业时使
33、用：PublickeyAsString选择班级按钮的Click事件代码：PrivateSubselzy_Click()Me.key=把对话框窗体Dialog设置成显示模式Dialog.ShowvbModal按Dialog窗体的key变量的返回值进行筛选IfMe.keyThenDataEnvironment1.rsCommand1.Filter=班级=&key&Adodc1.RefreshDataGrid1.AllowUpdate=FalseEndIfUnloadDialogEndSub修改按钮的Click事件代码：PrivateSubComup_Click()DataGrid1.AllowUp
34、date=TrueDataGrid1.SetFocusEndSub添加按钮的Click事件代码：PrivateSubComadd_Click()DataGrid1.AllowUpdate=True添加操作DataEnvironment1.rsCommand1.AddNewDataGrid1.SetFocusEndSub删除按钮的Click事件代码：PrivateSubComdel_Click()设置DataGrid1为可删除状态DataGrid1.AllowDelete=TrueDataEnvironment1.rsCommand1.DeleteDataEnvironment1.rsComma
35、nd1.MoveNextIfDataEnvironment1.rsCommand1.EOF=TrueThenDataEnvironment1.rsCommand1.MoveLastDataGrid1.SetFocusEndSub打印按钮的Click事件代码：PrivateSubComprint_Click()显示并打印报表DataReport1.ShowEndSub窗体的Resize事件代码：PrivateSubForm_Resize()使frame1始终居中Frame1.Left=Frmjbwh.Width/2-Frame1.Width/2Frame1.Top=Frmjbwh.Height/
36、2-Frame1.Height/2EndSub窗体的Unload事件代码：PrivateSubForm_Unload(CancelAsInteger)恢复数据环境的筛选DataEnvironment1.rsCommand1.Filter=adFilterNoneEndSub（四）学生基本情况维护中班级选择对话框的设计与实现：首先，在工程中添加一个对话框起名为Dialog.frm，再在基本控件中添加一个ADOData控件，方法是在基本控件的空白处按鼠标右键，选择部件，在部件对话框中选择MicrosoftADODataControl6.0控件，按确定按钮。这时，基本控件上就出现了ADOData控件
37、。ADOData控件使用MicrosoftActiveX数据对象(ADO)来快速建立数据绑定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控件。数据提供者可以是任何符合OLEDB规范的数据源。使用VisualBasic的类模块也可以很方便地创建子集的数据提供者。它还有作为一个图形控件的优势（具有“向前”和“向后”按钮），以及一个易于使用的界面，使您可以用最少的代码创建数据库应用程序。然后，在窗体上添加各种控件，如图1-14设计屏幕。在图中，其主要控件、主要属性、控件说明如表1-5所示：图1-14班级选择窗体设计图表1-5控件、主要属性、控件说明表控件名称主要控件属性名称属
38、性值功能说明DialogCaption班级选择对话框名称DialogAdodc名称Adodc1ConnectionstringStudent.mdb和数据表进行绑定Recordsourceselect*from基本情况groupby班级用SQL语句设置记录原并按班级分组VisibleFalse运行时不可见Datagrid名称Datagrid1DatasourceAdodc1把Adodc1设成数据源代码实现:选择按钮的Click事件代码：PrivateSubCommand1_Click()获取key值Frmjbwh.key=Me.DataGrid1.TextMe.HideEndSub取消按钮的C
39、lick事件代码：PrivateSubCommand2_Click()Frmjbwh.key=Me.HideEndSub（五）学生成绩维护窗体的设计与实现：首先在工程中添加一个标准窗体并起名为Frmcjwh。再在窗体上添加一个Frame控件，并使用默认名称Frame1。之后用鼠标双击工程资源管理器中的数据环境Dataenvironment1，用鼠标把Command1拖到窗体的Frame1中来，因为默认Command2默认使用的是MSflexGrid网格不适用本例中，所以把它替换成DataGrid网格，DataGrid网格的使用如前。再把照片字段去掉，添加一个Image控件，并和Command1
40、中的照片字段绑定。最后，添加几个命令按钮。窗体的设计如图1-15所示。在图中，其主要控件、主要属性、控件说明如表1-6所示：图1-15学生成绩维护窗体设计图表1-5控件、主要属性、控件说明表控件名称主要控件属性名称属性值功能说明FrmcjwhCaption学生成绩维护名称FrmcjwhBorderStyle2SizableMdichildTrue把此窗体作为子窗体WindowstateMaximized运行是最大化Datagrid名称Datagrid1DatasourceDataenvironment1把数据环境设成数据源DatamemberCommand2数据成员设成数据环境中的Comman
41、d2命令Image名称Image1StretchTrue调整图片大小以适应该控件EnabledFalse初始状态为不可用窗体的运行结果如图1-16所示：图1-16学生成绩维护运行窗体学生成绩维护设计代码实现：在通用区域声明两个全局变量findxhstr和findbjstr，以便查找时使用：PublicfindxhstrAsStringPublicfindbjstrAsString第一个按钮的Click事件代码：PrivateSubCommand1_Click()DataEnvironment1.rsCommand1.MoveFirstEndSub上一个按钮的Click事件代码：PrivateS
42、ubCommand2_Click()DataEnvironment1.rsCommand1.MovePreviousIfDataEnvironment1.rsCommand1.BOFThenDataEnvironment1.rsCommand1.MoveFirstEndIfEndSub下一个按钮的Click事件代码：PrivateSubCommand3_Click()DataEnvironment1.rsCommand1.MoveNextIfDataEnvironment1.rsCommand1.EOFThenDataEnvironment1.rsCommand1.MoveLastEndIfE
43、ndSub最后一个按钮的Click事件代码：PrivateSubCommand4_Click()DataEnvironment1.rsCommand1.MoveLastEndSub添加成绩按钮的Click事件代码：PrivateSubCommand5_Click()DataGrid1.AllowAddNew=TrueEndSub查找按钮的Click事件代码：PrivateSubCommand6_Click()Me.findxhstr=Me.findbjstr=Dialog1.ShowvbModal用Dialog1窗体的返回值还过滤数据环境IfMe.findxhstrThenDataEnviro
44、nment1.rsCommand1.Filter=学号=&findxhstr&EndIfIfMe.findbjstrThenDataEnvironment1.rsCommand1.Filter=班级=&findbjstr&EndIfUnloadDialog1EndSub打印按钮的Click事件代码：PrivateSubCommand7_Click()DataReport2.ShowEndSubDataGrid1的LostFocus事件代码：PrivateSubDataGrid1_LostFocus()在DataGrid1失去焦点时，使其进入不添加状态DataGrid1.AllowAddNew=FalseEndSub窗体的Load事件代码：PrivateSubForm_Load()使Frame1在窗体装载时就处于水平居中Frame1.Left=frmcj.Width/2-Frame1.Width/2EndSub窗体的Resize事件代码：PrivateSubForm_Resize()使Frame1在窗体的大小发生改变时处于水平居中Frame1.