VFP实验医院管理系统有详细的步骤模板

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。实验一 建立项目管理器、建立数据库和表、输入部分数据一、实验目的1．熟悉VisualFoxpro项目管理器的使用;2．熟悉数据库的概念和VisualFoxpro数据表的概念;3．掌握数据表的建立方法,数据直接输入的方法;4．熟练掌握表文件的打开、浏览、关闭。二、实验内容1．建立项目管理器”hospital”;2．建立数据库”hospital,并创立4个与医院管理系统工作密切相关的数据表”apparatus”bed””patient”potion;三、实验步骤(一)VisualFoxpro基本操作1.VisualFoxpro的启动开始→程序→VisualFoxpro6.0,或:双击桌面VisualFoxpro6.0快捷方式图标。2.VisualFoxpro的退出在VisualFoxpro的命令窗口中键入quit或选VisualFoxpro菜单中文件→退出。3.工作目录及表单区域的设置·在机房的学生数据盘(例如D:盘)上建一目录,命名为”成绩管理。·进入VisualFoxpro,选菜单中的工具→选项→”文件位置”选项卡,找到”默认目录,·点击”修改”按钮,进入图1-2,再单击按钮,按图1-2设置后,单击”确定”按钮。·单击”表单”选项卡,将”最大设计区”选为1024×768。·单击”设置为默认值”按钮,再单击”确定”按钮。注意如果学生机房安装了还原卡则每次上机或重新启动后都要重新进行以上第3步”工作目录及表单区域的设置”(二)项目管理器和数据库的建立1.项目管理器(1)什么是项目管理器项目管理器是VisualFoxpro开发应用系统的综合性平台,在这里能够建立数据库、表单、菜单、程序、编译等。几乎每一个VFP6.0的应用程序都是由数据库、查询、表单、报表、菜单、工具栏以及程序等大量的文件组成的这些文件的集合叫”项目在VFP6.0里这些文件是由项目管理器来实现管理和维护的,而且最终保存为具有扩展名PJX的项目文件。项目管理器是VFP6.0的”控制中心”和应用程序运行的驱动器。项目管理器有6个选项卡分别是全部数据文档类代码和其它每个选项卡包含某一类文件如”数据选项卡包含了一个项目中的所有数据如数据库自由表查询和视图等”文档选项卡中包含了处理数据时的所有文档如表单报表和标签等表单用于显示和编辑表的内容;报表是一种文件,它告诉VFP6.0如何设置查询,以从表中提取结果以及如何将它们打印出来;标签是打印在纸上的带有特殊格式的报表。其余选项卡主要用于为最终用户创立应用程序。(2)建立项目管理器”文件菜单下”新建”新建对话框中”项目单选按钮再单”新建文件按钮给文件命名”Hospital并保存在D盘”医院管理文件夹下。2.数据库的建立单”Hospital项目管理器”数据卡单”数据库然后点”新建”按钮·单击”新建数据库”按钮,将数据库命名为”hospital,并保存在D盘的”医院管理”文件夹下,对随后出现的”数据库设计器,直接关闭。(三)创立数据表和输入部分数据数据库是有关联的数据表的集合,一般经过公共字段彼此关联。使用”数据库设计器”能够创立一个数据库。数据库文件的扩展名为.dbc。数据库由多个相关联的数据表构成,数据表是整个系统的基础。数据表文件的扩展名为.dbf。查询被保存为带有.qpr后缀的文件。1.创立数据表·单击上图”hospital”左侧的”＋”号,展开后出现”表”本地视图”远程视图”等,单击”表,并单击右侧的”新建”按钮。·按以下表名和结构建立四个”表,不要使用”向导”功能。表1:apparatus.dbf字段名类型宽度小数位数apparatus_id30apparatus_name10apparatus_price102appaeatus_quantity30Apparatus_rem40索引的设置:apparatus.dbf按”apparatus_name”和”apparatus_id”升序普通索引表2:bed.dbf字段名类型宽度room_number字符型3Bed_number字符型2Patient_name字符型10索引的设置:bed.dbf”bed_number升序并设置为普通索引字段”patient_name”后NULL选项打钩。表3:学生选课.dbf字段名类型宽度patient_name-字符型10patient_gender字符型2Patient_data_start字符型10Patient_dept字符型10Patient_satate字符型20Patient_doc字符型12Patient_room字符型3Patient_bed字符型2索引的设置:patient.dbf按”patient_room”、”patient_doc”、”patient_dept”、”patient_gender”、”patient_name”、”patient_data_start”升序普通索引。4:potion.dbf字段名类型宽度小数位数Potion_id-数值型30Potion_name字符型10Potion_price数值型52Potion_quantity数值型30Potion_rem字符型40索引的设置:potion.dbf按”potion_id”、”potion_name”升序普通索引2.部分表输入数据(1)为”apparatus.dbf”输入数据能够在创立该表时,当提示”是否输入数据?”时回答”Y,然后输入;也能够按以下步骤输入:·单击上图中的”apparatus”表,单击右侧的”浏览”按钮,进入浏览窗口。·将”显示”菜单下的”追加方式”打上√,然后就可输入数据了。实验二 建立主表单一、实验目的1.熟悉表单的概念、常见控件的用途、对象的属性等基础知识;2.掌握VisualFoxpro数据输入表单的建立过程:首先是打开表单设计器,无论是新建表单还是修改已有的表单,均能够经过菜单操作或专用的命令,或单击常见工具栏中的有关按钮来打开表单设计器;接着是进行对象的操作与编码,可利用表单设计工具来完成;最后是保存表单以及运行表单。二、实验内容1．建立一个”医院管理系统”表单;2．在表单上根据需要设计各控件,并为有关控件建立相应的应用程序;3．在表单运行状态下输入数据。三、实验步骤(一)打开项目管理器1.按实验一的方法启动VisualFoxpro。2.打开项目管理器”Hosptial”·文件→打开→找到文件”hosptial.PJX,选中并按”确定”键。·或:双击桌面VisualFoxpro6.0快捷方式图标。(二)建立主表单·基础知识回顾1．表单的概念、常见控件的用途、对象的属性等表单一词译自英文的FORM表单在图形界面的应用软件中大量地获得应用是人和程序进行交互的重要界面。在软件中出现的对话框、向导、设计器等各类窗口,在VFP系统中均能够经过创立表单来实现。表单是一个容器,能够在其中包含多个控件或菜单,还能够捆绑数据环境。运行表单时,它所包含的所有控件都将被加载,同时数据环境中的表和视图等也自动打开如果一个程序要同时运行多个表单这时能够创立表单集表单集也是一个容器,它能够包含一个或多个表单,这些表单在表单集运行时,将自动加载,它们共享一个数据环境,并能够根据需要显示、隐藏、移动或切换其中的某个或某些表单。VFP提供三种表单设计工具——表单向导、表单设计器和快速表单。在本实验教材中,我们用表单设计器来创立表单。对象是构成程序的基本单位和运行实体,就是软件中所看到的表单、文本框、按钮、标签等可放在表单内的对象如按钮文本框等常被称为控件常见的控件有组合框标签、文本框、列表框、形状、复选框、线条、图像、命令按钮、编辑框等。对象的属性用来表示它的特征,对于属性的设置,有些必须在属性窗口中进行,有些只需作适当的拖动即可,比如长、宽、位置。2．数据输入表单的建立过程VisualFoxpro数据输入表单的建立过程,首先是打开表单设计器,无论是新建表单还是修改已有的表单,均能够经过菜单操作或专用的命令,或单击常见工具栏中的有关按钮来打开表示设计器,接着是进行对象的操作与编码,可利用表单设计工具来完成,最后是保存表单以及运行表单。3．VFP提供的表单设计工具VFP提供下列表单设计工具供程序员选择使(如图2-1所示表单设计器窗口及其表单窗口:其中表单设计器窗口中的Form1即表单对象,称为表单窗口。多数设计工作将在表单窗口进行包括往窗口内添加对(控件并对各种对象进行操作与编码属性窗口用于设置修改表单及其包含的对象属性。代码编辑窗口:可为对象添加各种事件代码和方法程序代码表单工具栏包括如下四种表单设计工具栏(1)表单控件工具栏用于在表单上添加文本框或按钮等各类控件(2)表单设计器工具栏该工具栏包括的按钮用于打开或关闭数据环境对话框、设置tab键次序、属性窗口、代码窗口、表单控件工具栏、调色板工具栏、布局工具栏、表单生成器和自动格式工具栏等(3)布局工具栏:用于对齐、放置控件以及调整控件大小等(4)调色板工具栏:用于指定某个控件的前景色或背景色等。数据环境设计器窗口:用于设计表单的数据环境。工具栏的显示可在系统”显示”菜单中设置,也能够直接单击”表单设计器工具栏”中相应的按钮。·利用表单设计器设计”医院管理系统”表单1.进入表单设计界面·单击项目管理器上方的”文档”选项卡。·单击”表单,再单击右边的”新建,进入表单设计界面。·单击窗口右上角最大化按钮,使”表单设计－main.SCX”窗口最大化。·移动鼠标,适当放大表单窗口。·激活”属性－main.SCX”窗口,找到属性”CAPTION,将原来的名字”Form1”改名为”医院管理系统”。2.标题设置·单击”表单控件”中的标签按钮,使其凹下去,此时鼠标变成十字形状,按住鼠标左键在表单上方拖放,松开鼠标后,出现”Label1”标签。·在”属性”窗口中找到对象”Label1”的”Caption”属性,改名为”欢迎进入医院管理系统。设置字体字号”属性窗口中找到对”Label1”FontName属性将其设置为”楷体,同时将”FontSize”属性设置为24(号字。·适当设置其背景色”BackColor”属性的值和前景色”ForeColor”属性的值。方法为找”BackColor属性单击属性设置窗口右边的按钮在打开”颜色窗口任意自选一种颜色即可”ForeColor”属性的设置方法相同。在表单中用鼠标适当拖”学生基本数据输入使其居于上部中间。3.命令按钮设置单击表单控件中的命令按钮然后再在表单中画一按钮,在属性窗口中,将命令按钮的CAPTION属性由员俩的”command”改为”住院部”同时将FontSize属性改为16,用同样的方法设置其它2个命令按钮:”药品仪器”、”退出”,适当调整各命令按钮的位置4.过程代码编辑双击”住院部”按钮,进入对象与过程的代码编辑窗口。保证对象是Command2,过程是Click,在屏幕上键入doformhospital\form\zyb然后关闭窗口,回到表单编辑状态。用同样的方法设计另外6个命令按”药品仪器”、”退出”各命令按钮的click过程命令如下:药品仪器doformhospital\form\ypyq退出:thisform.releaseclearevents关闭窗口,主表单设计完成。实验三 建立住院部表单一、实验目的1.熟悉表单的概念、常见控件的用途、对象的属性等基础知识;2.掌握VisualFoxpro数据输入表单的建立过程:首先是打开表单设计器,无论是新建表单还是修改已有的表单,均能够经过菜单操作或专用的命令,或单击常见工具栏中的有关按钮来打开表单设计器;接着是进行对象的操作与编码,可利用表单设计工具来完成;最后是保存表单以及运行表单。二、实验内容1．建立一个”住院部”表单;2．在表单上根据需要设计各控件,并为有关控件建立相应的应用程序;3．在表单运行状态下输入数据。三、实验步骤(一)进入项目管理器1．按实验一的方法启动VisualFoxpro2．打开项目管理器”Hosptial”·文件→打开→找到文件”Hosptial.PJX,选中并按”确定”键。(二)建立成绩输入表单1．进入表单设计界面·单击项目管理器上方的”文档”选项卡。·单击”表单,再单击右边的”新建,进入表单设计界面。·按”Ctrl+S”键保存表单,取名为”住院部。·单击窗口右上角最大化按钮,使”表单设计－住院部.SCX”窗口最大化。·移动鼠标,适当放大表单窗口。·激活”属性－住院部.SCX”窗口,找到属性”CAPTION,将原来的名字”Form1”改名为”住院部。2．输入标题签·单击表单控件中的标按钮,使其凹下去,此时鼠标变成十字形状,用鼠标在表单上方拖放,松开鼠标后,出现”Label1”标签。签”属性窗口中找到对”Label1”Caption属性改名”学生成绩输入。·设置字体、字号:在”属性”窗口中找到对象”Label1”的”FontName”属性,将其设置为”楷体,同时将”FontSize”属性设置为24(号字。3建立选项按钮组单击表单控件中的选项按钮组,使其凹下去,此时鼠标变成十字形状,用鼠标在表单上方拖放,松开鼠标后,出现option按钮组。单击”optiongroup1”对象,在属性窗口中为此对象设置属性值如下:Value-1Autosize-FBackstyle-1-不透明Borderstyle-固定单线Bottoncount-2Height-84Left-72Top-84Width-145单击”option1”对象,在属性窗口中为此对象设置属性caption为病床管理,单击”option2”对象,在属性窗口中为此对象设置属性caption为病人管理4.命令按钮设置单击表单控件中的命令按钮然后再在表单中画一按钮,在属性窗口中,将命令按钮的CAPTION属性由员俩的”command”改为”确定”同时将FontSize属性改为16,用同样的方法设置其它2个命令按钮:”退出”,适当调整各命令按钮的位置5.过程代码编辑双击”确定”按钮,进入对象与过程的代码编辑窗口。保证对象是Command1,过程是Click,在屏幕上键入selename=thisform.optiongroup1.valueifselename=1 doformhospital\form\bcglelse doformhospital\form\brglendif然后关闭窗口,回到表单编辑状态。用同样的方法设计另外”退出”各命令按钮的click过程命令如下:thisform.release关闭窗口,住院部表单设计完成。实验三 建立病床管理表单一、实验目的1．熟悉表格在输入数据方面的应用;2掌握VisualFoxpro表(Grid的编辑方法表单或页框中的页面均能够添加表格(Grid控件主要用于显示后台数据表中的字段用户能够修改表格中的数据表(Grid)控件由若干行和列组成,能够经过数据环境创立,也能够利用表格生成器创立;3．掌握表格与数据表对应关系的建立方法。二、实验内容1．建立一个”病床管理”表单,为表单设计输入数据所需的控件;2．为表单设计应用所需的数据环境;3．经过数据环境在表单上创立表格,并为有关控件建立相应的应用程序;三、实验步骤(一)进入项目管理器1．按实验一的方法启动VisualFoxpro2．打开项目管理器”Hosptial”·文件→打开→找到文件”Hosptial.PJX,选中并按”确定”键。(二)建立病床管理表单1.设置表格在属性窗口选择form1再单击表单控件中的容器按钮,在叶框中画一个容器在属性窗口选择form1再单击表单控件中的表格按钮

在容器中画一表格该表格名为Grid1,立即在属性窗口中将其ColumnCount属性改为4。·接着对Grid1下的各部分作如下修改:Column1下的Header1的Caption属性改为”房间号;Column2下的Header1的Caption属性改为”病床名;Column3下的Header1的Caption属性改为”病人姓名;Column1下的text1的Enabled属性改为”F–假;Column2下的text1的Enabled属性改为”F–假;Column3下的text1的Enabled属性改为”F–假;2.建立组合框单击表单控件中的容器按钮,使其凹下去,此时鼠标变成十字形状,用鼠标在表单中上方拖放,松开鼠标后,出现”container”容器。单击表单控件中的组合框按钮,使其凹下去,此时鼠标变成十字形状,用鼠标在表单中上方拖放,松开鼠标后,出现”combo1”。以此类推。建立如图:4．为组合框Combo1、2、3设置属性·单击”Combo1”对象,在属性窗口中为此对象设置属性,设置如下:RowSource 101,102Rowsourcetype1–默认值·单击”Combo2”对象,在属性窗口中为此对象设置属性,设置如下:RowSource 1,2,3Rowsourcetype1–值·单击”Combo3”对象,在属性窗口中为此对象设置属性,设置如下:RowSource patient.patient_nameRowsourcetype6–字段5.过程代码编辑双击”确定”按钮,进入对象与过程的代码编辑窗口。保证对象是Command1,过程是Click,在屏幕上键入inroom=alltrim(bo1.value)inbed=alltrim(bo2.value)inpatient=alltrim(bo3.value)ifempty(inroom)orempty(inbed)orempty(inpatient)messagebox('资料不足',48,'错误')else selebed setordertopatient_na seekinpatient iffound() cMessageTitle='管理系统' cMessageText='该病人已经分配过病床,要修改吗?' nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) docase casenAnswer=6 updatebedsetpatient_name=''wherepatient_name=inpatient selepatient locateforpatient_room=inroomandpatient_bed=inbed replacepatient.patient_roomwith''patient.patient_bedwith'' updatebedsetpatient_name=inpatientwhereroom_number=inroomandbed_number=inbed updatepatientsetpatient_room=inroom,patient_bed=inbedwherepatient_name=inpatient casenAnswer=7 endcase else updatebedsetpatient_name=inpatientwhereroom_number=inroomandbed_number=inbed updatepatientsetpatient_room=inroom,patient_bed=inbedwherepatient_name=inpatient endifendifthisform.container3.grid1.refresh然后关闭窗口,回到表单编辑状态。用同样的方法设计另外”确定清空”、”退出”各命令按钮的click过程命令如下:确定清空inroom=alltrim(bo1.value)inbed=alltrim(bo2.value)ifempty(inroom)orempty(inbed)messagebox('资料不足',48,'错误')else cMessageTitle='管理系统' cMessageText='确定要清空该病床的病人吗?' nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) docase casenAnswer=6 updatebedsetpatient_name=''whereroom_number=inroomandbed_number=inbed updatepatientsetpatient_room='',patient_bed=''wherepatient_room=inroomandpatient_bed=inbed casenAnswer=7 endcaseendifthisform.container3.grid1.refresh退出thisform.release实验三 建立病人管理表单一、实验目的1.熟悉表单在查询方面的应用;2.掌握页框的使用方法;3.掌握查询全体病人概况的方法;4.掌握按班级、按姓名、按入院时间、所属科室、主治医生、病房号查询学生成绩的方法。5.掌握病人增加、修改、删除的方法二、实验内容建立一个有多页面页框的表单使表单运行时经过页面的选择能分别浏览、查询、增加、修改、删除病人三、实验步骤(一)进入项目管理器1.启动VisualFoxpro。2.打开项目管理器”Hoptial”从”文件”→”打开”→找到文件”hosptial.PJX,选中并按”确定”键。(二)建立成绩输入表单1．进入表单设计界面·单击项目管理器上方的”文档”选项卡。·单击”表单,再单击右边的”新建,进入表单设计界面。·按”Ctrl+S”键保存表单,取名为”病人管理。·单击窗口右上角最大化按钮,使”表单设计－病人管理.SCX”窗口最大化。·移动鼠标,适当放大表单窗口。·激活”属性－病人管理.SCX”窗口,找到属性”CAPTION,将原来的名字”Form1”改名为”病人管理。2．输入标题签·单击表单控件中的标按钮,使其凹下去,此时鼠标变成十字形状,用鼠标在表单上方拖放,松开鼠标后,出现”Label1”标签。签”属性窗口中找到对”Label1”Caption属性改名”病人管理。·设置字体、字号:在”属性”窗口中找到对象”Label1”的”FontName”属性,将其设置为”楷体,同时将”FontSize”属性设置为24(号字。3.建立含五个页面的页框在表单控件中单击页框按钮在表单上画页框然后经过拖动页框边缘的8个小黑方块,放大或缩小页框,使其充满整个表单,将PageCount的值修改为5。·单击Page1在属性窗口中将Page1的Caption属性改”浏览单击Page2,在属性窗口中将Page2的Caption属性改”查询单击Page3在属性窗口中将Page3的Caption属性改增加,单击Page4在属性窗口中将Page4的Caption属性改为修改。单击Page5,在属性窗口将Page5的Caption属性改成删除然后适当修改每一个Page的FontName,FontSize,ForeColor,使字体、字号、颜色美观。如图:4.设计”浏览”页面页面组成”浏览”的页面如图。在”属性”窗口选择对象”Page1,然后按图设计页面。利用实验二中对表格的学习,对照图进行设置。4.设计”查询”页面页面组成”查询”的页面如图。在”属性”窗口选择对象”Page2,然后按图设计页面。(1)建立标签”设计”请选择查询字段”病人姓名”入院时间”会所属科室”等使用表单控”标签只需按图示文字分别将标签的Caption属性修改即可设计Text1～Text6使用表单控”文本框””(2)建立选项按钮组单击表单控件中的选项按钮组,使其凹下去,此时鼠标变成十字形状,用鼠标在表单上方拖放,松开鼠标后,出现option按钮组。单击”option1”对象,在属性窗口中为此对象设置属性caption为病人姓名,单击”option2”对象,在属性窗口中为此对象设置属性caption为入院时间,以此类推。(3)建立文本框设计Text1～Text5使用表单控”文本框”,布局如图。各个文本框Enabled属性设置成F–假(4)设置命令按钮计”返回”使用表单控件”命令按钮”。各控件的字型、字体、字号、颜色自行设定(以下各页面均同此。5.过程代码编辑双击”进入查询”按钮,进入对象与过程的代码编辑窗口。保证对象是Command1,过程是Click,在屏幕上键入ifthisform.pageframe1.page1.optiongroup1.option1.value=1 thisform.pageframe1.page1.text1.enabled=.T. thisform.pageframe1.page1.text1.setfocusendififthisform.pageframe1.page1.optiongroup1.option2.value=1 thisform.pageframe1.page1.text2.enabled=.T. thisform.pageframe1.page1.text2.setfocusendififthisform.pageframe1.page1.optiongroup1.option3.value=1 thisform.pageframe1.page1.text3.enabled=.T. thisform.pageframe1.page1.text3.setfocusendififthisform.pageframe1.page1.optiongroup1.option4.value=1 thisform.pageframe1.page1.text4.enabled=.T. thisform.pageframe1.page1.text4.setfocusendififthisform.pageframe1.page1.optiongroup1.option5.value=1 thisform.pageframe1.page1.text5.enabled=.T. thisform.pageframe1.page1.text5.setfocusendifthisform.pageframe1.page1.optiongroup1.option1.enabled=.F.thisform.pageframe1.page1.optiongroup1.option2.enabled=.F.thisform.pageframe1.page1.optiongroup1.option3.enabled=.F.thisform.pageframe1.page1.optiongroup1.option4.enabled=.F.thisform.pageframe1.page1.optiongroup1.option5.enabled=.F.mand1.enabled=.F.mand2.enabled=.T.mand3.enabled=.T.双击”显示查询结果”按钮,进入对象与过程的代码编辑窗口。保证对象是Command2,过程是Click,在屏幕上键入inname=alltrim(thisform.pageframe1.page1.text1.value)indate=alltrim(thisform.pageframe1.page1.text2.value)indept=alltrim(thisform.pageframe1.page1.text3.value)indoct=alltrim(thisform.pageframe1.page1.text4.value)inroom=alltrim(thisform.pageframe1.page1.text5.value)selectpatient_nameas病人姓名,;patient_genderas性别,;patient_date_startas入院时间,;patient_deptas科室,;patient_stateas病症,;patient_docas主治医生,;patient_roomas病房号,;patient_bedas病床号;frompatient;wherepatient_name=inname; andpatient_date_start=indate; andpatient_dept=indept; andpatient_doc=indoct; andpatient_room=inroom双击”重新查询”按钮,进入对象与过程的代码编辑窗口。保证对象是Command3,过程是Click,在屏幕上键入thisform.pageframe1.page1.optiongroup1.option1.value=1thisform.pageframe1.page1.optiongroup1.option2.value=0thisform.pageframe1.page1.optiongroup1.option3.value=0thisform.pageframe1.page1.optiongroup1.option4.value=0thisform.pageframe1.page1.optiongroup1.option5.value=0thisform.pageframe1.page1.optiongroup1.option1.enabled=.T.thisform.pageframe1.page1.optiongroup1.option2.enabled=.T.thisform.pageframe1.page1.optiongroup1.option3.enabled=.T.thisform.pageframe1.page1.optiongroup1.option4.enabled=.T.thisform.pageframe1.page1.optiongroup1.option5.enabled=.T.mand1.enabled=.T.thisform.pageframe1.page1.text1.value=''thisform.pageframe1.page1.text2.value=''thisform.pageframe1.page1.text3.value=''thisform.pageframe1.page1.text4.value=''thisform.pageframe1.page1.text5.value=''thisform.pageframe1.page1.text1.enabled=.F.thisform.pageframe1.page1.text2.enabled=.F.thisform.pageframe1.page1.text3.enabled=.F.thisform.pageframe1.page1.text4.enabled=.F.thisform.pageframe1.page1.text5.enabled=.F.mand2.enabled=.F.mand3.enabled=.F.增加页面设置(1)建立标签”设计”请填入要添加记录的信息”病人姓名入院时间”性别”等使用表单控”标签只需按图示文字分别将标签的Caption属性修改即可设计Text1～Text8使用表单控”文本框”,布局如图:”(2)设置命令按钮计”确定”使用表单控件”命令按钮”。控件的字型、字体、字号、颜色自行设定(以下各页面均同此。过程代码编辑双击”确定”按钮,进入对象与过程的代码编辑窗口。保证对象是Command1,过程是Click,在屏幕上键入inname=alltrim(thisform.pageframe1.page4.text1.value)ingend=alltrim(thisform.pageframe1.page4.text2.value)indate=alltrim(thisform.pageframe1.page4.text3.value)indept=alltrim(thisform.pageframe1.page4.text4.value)instat=alltrim(thisform.pageframe1.page4.text5.value)indoct=alltrim(thisform.pageframe1.page4.text6.value)inroom=alltrim(thisform.pageframe1.page4.text7.value)inbedd=alltrim(thisform.pageframe1.page4.text8.value)cMessageTitle='管理系统'cMessageText='确定要添加吗?'nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) docase casenAnswer=6 setordertopatient_na seekinname if!found() insertintopatientvalues(inname,ingend,indate,indept,instat,indoct,inroom,inbedd) messagebox("添加完毕",48,"操作成功") else messagebox("病人名重复",48,"错误") endif thisform.pageframe1.page4.text1.value='' thisform.pageframe1.page4.text2.value='' thisform.pageframe1.page4.text3.value='' thisform.pageframe1.page4.text4.value='' thisform.pageframe1.page4.text5.value='' thisform.pageframe1.page4.text6.value='' thisform.pageframe1.page4.text7.value='' thisform.pageframe1.page4.text8.value='' thisform.pageframe1.page4.text1.setfocus casenAnswer=7 endcase修改页面设置(1)建立标签”设计”请填入要添加记录的信息”病人姓名入院时间”性别”等使用表单控”标签只需按图示文字分别将标签的Caption属性修改即可设计Text1～Text8使用表单控”文本框”,布局如图:”(2)设置命令按钮设计”确定”、”重新修改”使用表单控件”命令按钮”。控件的字型、字体、字号、颜色自行设定(以下各页面均同此。过程代码编辑双击”确定”按钮,进入对象与过程的代码编辑窗口。保证对象是Command1,过程是Click,在屏幕上键入inname=alltrim(thisform.pageframe1.page5.text1.value)ingend=alltrim(thisform.pageframe1.page5.text2.value)indate=alltrim(thisform.pageframe1.page5.text3.value)indept=alltrim(thisform.pageframe1.page5.text4.value)instat=alltrim(thisform.pageframe1.page5.text5.value)indoct=alltrim(thisform.pageframe1.page5.text6.value)inroom=alltrim(thisform.pageframe1.page5.text7.value)inbedd=alltrim(thisform.pageframe1.page5.text8.value)cMessageTitle='管理系统'cMessageText='确定要修改吗?'nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) docase casenAnswer=6 setordertopatient_na seekinname iffound() updatepatientsetpatient_gender=ingend,; patient_date_start=indate,; patient_dept=indept,; patient_state=instat,; patient_doc=indoct,; patient_room=inroom,; patient_bed=inbeddwherepatient_name=inname messagebox("资料更新完毕",48,"操作成功") else messagebox("该病人不存在",48,"错误") thisform.pageframe1.page5.text1.value='' thisform.pageframe1.page5.text2.value='' thisform.pageframe1.page5.text3.value='' thisform.pageframe1.page5.text4.value='' thisform.pageframe1.page5.text5.value='' thisform.pageframe1.page5.text6.value='' thisform.pageframe1.page5.text7.value='' thisform.pageframe1.page5.text8.value='' thisform.pageframe1.page5.text1.setfocus endif casenAnswer=7 endcase双击”重新修改”按钮,进入对象与过程的代码编辑窗口。保证对象是Command2,过程是Click,在屏幕上键入thisform.pageframe1.page5.text1.value=''thisform.pageframe1.page5.text2.value=''thisform.pageframe1.page5.text3.value=''thisform.pageframe1.page5.text4.value=''thisform.pageframe1.page5.text5.value=''thisform.pageframe1.page5.text6.value=''thisform.pageframe1.page5.text7.value=''thisform.pageframe1.page5.text8.value=''thisform.pageframe1.page5.text1.setfocus删除页面设置(1)建立标签”设计”请填入要添加记录的信息”请填入要删除记录的信息”病人姓名”使用表单控”标签只需按图示文字分别将标签的Caption属性修改即可设计Text1使用表单控”文本框”,布局如图:”(2)设置命令按钮设计”确定”、”删除空白记录”使用表单控件”命令按钮”。控件的字型、字体、字号、颜色自行设定(以下各页面均同此。过程代码编辑双击”确定”按钮,进入对象与过程的代码编辑窗口。保证对象是Command1,过程是Click,在屏幕上键入inname=alltrim(thisform.pageframe1.page6.text1.value)cMessageTitle='管理系统'cMessageText='确定要删除吗?'nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) docase casenAnswer=6 setordertopatient_na seekinname if!found() messagebox("该记录不存在",48,"错误") else thisform.pageframe1.page2.grdpatient.recordsource='' usepatientexclusive deletefrompatientwherepatient_name=inname pack thisform.pageframe1.page2.grdpatient.recordsource='patient' thisform.pagefra