VF程序设计编程问题

1、

clear

s=0

m=1

for i=1 to 10

input "请输入一个数：" to a

if a/2=int(a/2)

s=s+a

else

m=ma

endif

endfor

"奇数的积是：",m

"偶数的和是：",s

2、

clear

accept "请输入一串字符：" to x

store 0 to dyw,xyw,kg,sz,qt

m=len(x)

for i=1 to m

x1=substr(x,i,1)

k=asc(x1)

do case

case k=32

kg=kg+1

case k>=48 and k<=57

sz=sz+1

case k>=65 and k<=90

dyw=dyw+1

case k>=97 and k<=122

xyw=xyw+1

other

qt=qt+1

endcase

endfor

"其中空格有： "+alltrim(str(kg))+"个"

"大写字母有： "+alltrim(str(dyw))+"个"

"小写字母有： "+alltrim(str(xyw))+"个"

"数字有： "+alltrim(str(sz))+"个"

"其它字符有： "+alltrim(str(qt))+"个"

3、

clear

"1到100之间的素数为："

for i=2 to 100

x=0

for j=2 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

alltrim(str(i))+" "

endif

endfor

4、

clear

for i=5 to 1 step -1

space(5-i)

for j=2i-1 to 1 step -1

""

endfor

endfor

case

后边是条件语句

条件中int(x/2)的结果只有当x为偶整数的时候才可能相等，正奇数负奇数的时候都不行

int是取整数的意思，取不小于表达式的最大整数值

如-12

之后为-2

，

22为2

那么这句话意思就是当X为偶整数的时候去执行下边的语句

1 逻辑设计

设计从分析输入数据着手，输入数据中的某类相关数据可以归纳为一个表，对需要同时调用的若干表，应使它们符合关联要求。数据库设计好后，可以通过分析输出数据来验证其可用性，若发现有的输出数据不能从输入数据导出，须继续向用户征集数据。

本例根据学生信息表和课程基本信息表、教师信息表等输入单据中归纳出包括2个表的数据库，现将这些列出如下：

（1）学生单：xs （学号，姓名，性别，出生日期，是否团员，电话，通信地址，邮编，总成绩，备注）

（2）课程单：kc （课程号，课程名，学期，学分，教师，所在系）

（3）教师单：js （编号，姓名，性别，学历，职称，所授课程，****，备注）

以上括号外的符号串是表名，括号外为字段名表，有下划线的字段为关联关键字，根据系统数据处理的需要，这些表的关联情况如图11所示。

图中用矩形框表示表，需要关联的两个表用线段连接，在线的一端标出了关联关键字，表明必须在这一端的表中建立索引。

老师

学时数课程

成绩学生

图11 表间关联的设计

① 同时调用不同表中的数据，须将它们关联，故而有时要在表中补充字段。

② 数据库设计须注意合理性。若将不同类的数据放进同一个表中，可能会产生数据余。表的分拆往往能减少数据余，但表的个数增多又会增加程序的复杂性，因为须在不同的工作区打开这些表，而且为了实现数据联用定要对表进行关联。

1、物理设计

下面列出学生学籍管理系统所有表的结构与必须的索引，以便于读者理解本例系统，顺便也列出表的部分记录，详细见xs, kc，js。

1学生单（XSDBF）

字段名类型宽度字段名小数位数

学号C字符型4学号

姓名C字符型8姓名

性别C字符型2性别

出生年月D日期型8出生年月

是否党团员L逻辑型1是否党团员

电话C字符型16电话

通信地址C字符型30通信地址

邮编C字符型6邮编

总成绩N数值型6总成绩2

备注M备注型备注

2课程单（KCDBF）

字段名类型宽度索引

课程号C字符型8V

课程名C字符型30

学期C字符型2

学分D日期型2

教师C字符型30

所在系C字符型30

3教师单（JSDBF）

字段名类型宽度索引

编号C字符型4V

姓名C字符型8

性别C字符型2

职称D日期型20

学历L逻辑型10

所授课程C字符型50

****C字符型30

备注M备注型

学生学籍管理系统的运行环境是Windows 9x/Me/2000/XP+Microsoft Visual FoxPro 60。

学生学籍管理系统的具体设计如下：

1、学生学籍管理系统主程序(A:\mainprg)

功能：提供程序的主界面和进入系统各功能模块的接口，包括一个自右向左滚动的飞字程序。

源程序：

set talk off &&关闭人机对话

set escape off &&设置ESC脱离键不起作用，即误按该键不会终止程序的执行

clear all &&清屏

set colo to 0/7,7/0 &&设置VFP系统的默认颜色

clear &&清屏

@4,42 clear to 30,92

set colo to 7+/0+ &&从第4行第42列到第30行第92列产生白字黑底的色块

@4,42 clear to 30,92 &&显示色块

@3,40 clear to 29,90

set colo to 7+/4 &&从第3行第40列到第29行第90列产生白字黑底的色块

@3,40 clear to 29,90 &&显示色块

@4,42,28,88 box space(9) &&从左上角第4行第42列到右下角第28行88列产生线框

@7,52 say'==学生学籍管理系统==' &&在第7行第52列显示学生学籍管理系统的字样

@8,50 say'-------------------------------' &&在第8行第50列显示分隔线条

@9,57 say'==1录入数据==' &&在第9行第57列显示1录入数据字样

@11,57 say'==2修改数据==' &&在第11行第57列显示2修改数据字样

@13,57 say'==3查询数据==' &&在第13行第57列显示3查询数据字样

@15,57 say'==4统计数据==' &&在第15行第57列显示4统计数据字样

@17,57 say'==5显示数据==' &&在第17行第57列显示5打印数据字样

@19,57 say'==6删除数据==' &&在第19行第57列显示6退出数据字样

@21,57 say'==7退 出==' &&在第21行第57列显示7退出字样

x=1 &&设初值x=1

b1="◆欢迎您使用学生学籍管理系统，请按任意键继续◆重庆工学院吴天美、谭茂燕、袁瑶、王洪梅、曾玲研制。 &&将字符串赋给变量b1

do whilet &&当条件成立时计算机做下面的语句

hz1=substr(b1,x,29) &&取字符串b1从第1个字符到第29个字符赋给变量hz1

@25,51 say hz1 &&在第25行第51列显示字符串hz1

bb=inkey(06) &&将等待06秒击键的inkey 函数赋给bb

if bb<>0 &&变量bb不等于0，即有击键动作发生

exit &&那么，不显示字符串

endi &&与if条件判断语句相配对

x=x+2 &&将变量x的值加2赋给x

if x>83 &&如果变量x大于83个字符

x=1 &&那么，将1赋给变量x，即从头开始显示字符串

endi &&与if条件判断语句相配对

endd &&与do while循环语句相配对

@27,51 say'请选择1--7：' &&在第27行51列显示请选择1-7：的字样

wait ' ' to k &&计算机等待用户从键盘输入一个字符给变量k

do case &&做选择语句

case k='1' &&当变量k的值等于1时

do a:\input &&计算机跳转到a:\input子程序

case k='2' &&当变量k的值等于2时

do a:\modify &&计算机跳转到a:\modify子程序

case k='3' &&当变量k的值等于3时

do a:\search &&计算机跳转到a:\search子程序

case k='4' &&当变量k的值等于4时

do a:\total &&计算机跳转到a:\total子程序

case k='5' &&当变量k的值等于5时

do a:\dp &&计算机跳转到a:\dp子程序

case k='6' &&当变量k的值等于6时

do a:\del &&计算机跳转到a:\del子程序

case k='7' &&当变量k的值等于7时

set colo to 0/7,7/0 &&设置VFP系统的默认颜色

clear &&清屏

retu &&返回VFP主程序

endcase &&与do case选择语句相配对

2、环境配置

程序名称：SETTINGPRG

set sysmenu off

set sysmenu to

set status bar off

set talk off

set notify off

set clock status

set palette off

set bell on set safety off

set escape on

set keycomp to windows

set carry on

set confirm on

set exact on

set near on

set ansi off

set lock on

set exclusive off

set multilocks on

set deleted on

set optimize on

set refresh to 0,5

set collate to ‘stroke’

set default to sys(5)+curdir()

set path to sys(5)+curdir()

set sysformats off

set seconds on

set century off

set currency left

set currency to ‘nt$’

set hours to12

set date to usa

set decimals to 2

set fdow to1

set fweek to 1

set mark to ‘’

Set separator to ‘”

Set point to ‘’

环境还原

程序名称：RESETPRG

set sysmenu to default

set sysmenu on

set talk on

set notify on

set exclusive on

set safety on

modity window screen

3密码功能的设置

密码功能包括输入密码、修改密码、添加用户、删除用户。只有当用户正确输入本人的密码后才能进入系统，更改密码也只允许更改自己的密码。只有单位的主管人员才有权添加用户和删除用户。为此设置了用户等级，这也是由主管人员设定的。用户等级不同，权限就不同。如用户等级为4，仅能进行档案输出的 *** 作。

（一）设计思路：

（1）建立一个数据库：密码库，

（2）并创建表checkerdbf，

（3）其中字段公别为Cpassword（密码）、Name（合法用户名）、Rank（权限等级）。

（二）输入密码表单的设计：

<1>通过组合框(combo box)选择合法用户，并在其Interactivechange事件中编写代码令输入密码的文本框得到焦点（允许输入值了），该事件发生在当控件的value值改变时。

<2>在“确定”按钮的click事件中编程，先在表中寻找用户名（用locate for语句），再通过判断输入密码与数据库中相应值是否相等来判断密码是否正确。若错误可重新输入，但设置局部变量I来累计输入次数，可设定只能输入三次，当I大于3就释放该表单。并d出消息框说明不能进入本系统。在主程序中设有全局变量yhdj，若输入密码正确则给yhdj赋值为用户等级字段。

<3>添加“说明”标签，说明密码输入的规定。为增加美观性，可使用Active X控件Three Frame Control。

<4>Active X控件的添加方法与添加自定义类的方法相同。

<5>将标签添加其中，构成说明框。

<6>若希望当鼠标在按钮上停留一秒后有提示框，则可设置表单的Show Tips属性为T，按钮的Tooltip Text属性为希望显示在提示框中的内容。

<7>若希望鼠标在按钮上时改变形状，则可设置按钮的Mouse Pointer属性为:99-自定义，Mouse Icon属性为希望出现的图标文件。

（三）密码表单的设计

<1>修改密码部分与上一表单相同，当输入密码正确后方可输入新的密码或进入系统：若用户等级较高则还可进入增删用户表单。这些均在输入密码文本框的Lostfocus事件中编程。该事件在该文本框失去焦点时发生。

<2>输入新密码后检验密码不能为空，这在该文本框的Lostfocus事件中编程实现。

<3>还设置了确认密码框，防止偶然输入错误。当输入密码与确认密码不同时让用户重新输入。这些是按钮“确定”的Click事件中编程解决的。若无错误，单击“确定”钮后，用replace……with语句代替原来密码。设置缓冲区环境，可以通过前述的tableupdate()和tablerevert()函数真正修改或放弃修改密码。

（四）密码设置表单的设计

密码设置表单的设计，包括增加用户和删除用户。

<1>用页框分别完成这两项工作。一页增加用户，另一页删除用户。

<2>增加用户时未使用缓冲区，而用skip-1、ship代替，这样做同样可以把结果直接存入相应的表中。

4权限设置：

关于用户的权限问题，因在主程序中设置了全局变量，又在输入密码和修改密码表单中为其赋了值，故在表单 *** 作中只需判断其值就可以完成权限的配置。而在菜单中也需要限制，它也是通过这个全局变量的值，使用菜单的跳过（skip）项实现的，具体将在菜单的设计中介绍。

5、录入模块子程序(A:\inputprg)

功能：提供卡片式的录入数据界面。

源程序：set talk off

use a:\xj &&打开a:\xjdbf数据库文件

go bott &&将记录指针移到数据库的末尾

skip &&跳到下一条记录

hk=recn() &&将当前记录号赋给变量hk

hk1=str(hk,3) &&将变量hk值的前三位，由数值转换为字符串赋给hk1

c1=t &&将逻辑型变量“真”赋给变量c1

do while c1 &&当条件成立时计算机做下面的语句

a1=spac(2) &&将2个空格赋给变量a1

a2=spac(6) &&将6个空格赋给变量a2

a3=spac(2) &&将2个空格赋给变量a3

a4=spac(8) &&将8个空格赋给变量a4

a5=spac(2) &&将2个空格赋给a5

a6=spac(8) &&将8个空格赋给a6

a7=spac(30) &&将30个空格赋给a7

a8=spac(6) &&将6个空格赋给a8

a9=spac(6) &&将6个空格赋给a9

a10=spac(50) &&将50个空格赋给a10

kk=t &&将逻辑型变量“真”赋给变量kk

do while kk &&当条件成立时计算机做下面的语句

clea &&清屏

@1,5 say"输入第"+hk1+"张卡片" &&在第1行第5列显示输入第"+hk1+"张卡片的字样，其中，hk1为宏替换

hk=hk+1 &&变量hk的值增1

hk1=str(hk,3) &&将变量hk的值取3位赋给hk1

@row()+1,5 say"学号："get a1 &&在当前行的下一行第5列显示学号字样

@row(),40 say"姓名："get a2 &&在当前行第40列显示姓名字样

@row()+1,5 say"性别："get a3 &&在当前行的下一行第5列显示性别字样

@row()+1,5 say"出生年月（MM/DD/YY）："get a4 &&在当前行的下一行第5列显示出生年月字样

@row()+1,40 say"是否团员："get a5 &&在当前行的下一行第5列显示是否团员字样

@row()+1,5 say"电话："get a6 &&在当前行的下一行第5列显示电话字样

@row()+1,40 say"通信地址："get a7 &&在当前行的下一行第5列显示通信地址字样

@row()+1,5 say"邮编 ："get a8 &&在当前行的下一行第5列显示邮编字样

@row()+1,5 say"总成绩："get a9 &&在当前行第40列显示是否总成绩字样

@row()+1,5 say"备注："get a10 &&在当前行的下一行第5列显示备注字样

read &&将键盘所输内容读入内存

y="y" &&将字符y赋给变量y

@12,5 say"输入正确吗？（Y/N）"get y &&在第12行第5列显示输入正确吗字样

read &&并将输入的y或n读入内存

if y="Y"ory="y" &&如果变量y值为大写的Y或小写的y

kk=f &&那么，将逻辑否赋给变量kk

endif &&与if 相配对

enddo &&与do while相配对

appe blan &&添加新记录到空白记录

replace 学号 with a1,姓名 with a2,性别 with a3,出生年月 with ctod(a4),是否团员 with a5

replace 电话 with val(a6),通信地址 with val(a7),邮编 with val(a8),总成绩 with a9,备注with a10 &&替换键盘输入的内容到相应的字段中

y=" " &&将一空格赋给变量y

clea

@14,5 say"继续输入吗？（y/n）"get y &&在第14行第5列显示继续输入吗字样

read &&并将输入的y或n读入内存

if y="N"ory="n" &&如果变量y值为大写的N或小写的n

kk=f &&那么，将逻辑否赋给变量kk

exit &&退出输入界面

endif &&与if相配对

enddo &&与do while相配对

clear &&清屏

do a:\main &&运行A:\mainprg主程序

6、修改模块子程序(A:\modifyprg)

功能：提供卡片式的修改数据的功能。

源程序：set talk off

set delimiter off

use a:\xj &&打开数据库文件A:\xjdbf

kk=t

do while kk

clear

go top

yy=space(2)

@4,20 say"请输入学号" get yy

read

loca all for 学号=yy

if eof()

@5,5 say" "

wait"该记录不存在！请按任意键返回！"

y="y"

clea

@6,5 say"继续修改吗？（Y/N）" get y

read

if y="Y"ory="y"

loop

endi

clea

do a:\main

retu

endi

clea

kk=t

do while kk

clear

@row()+1,1 say"学号：" get 学号

@row(),40 say"姓名：" get 姓名

@row()+1,1 say"性别：" get 性别

@row()+1,1 say "出生年月：" get 出生年月

@row(),60 say"是否团员：" get 是否团员

@row()+1,1 say"电话：" get 电话

@row()+1,25 say"通信地址：" get 通信地址

@row(),25 say""邮编：" get 邮编

@row()+1,1 say"总成绩：" get 总成绩

@row(),60 say"备注（双击文本框输入内容）：" get 备注

read

y=" "

@9,15 say"修改正确吗？（Y/N）" get y

read

if y="y"ory="Y"

kk=f

else

loop

endi

enddo

clear

y=""

@5,15 say"继续修改吗？（Y/N）" get y

read

if y="n"ory="N"

kk=f

endif

enddo

clea

do a:\main

7、查询模块子程序(A:\searchprg)

功能：提供按学号检索、按姓名检索、按学号和姓名检索和按学号、姓名、性别检索三个子模块的查询数据功能。

表单上的按钮功能包括：输入查询条件、查询、显示查询条件、清除查询条件、打印预览、打印和放弃。起初，除输入查询条件、显示查询条件和放弃外按钮均是不能选择的。当单击“输入查询条件”按钮时，表单元上的字段均为空，用户可以输入任意知道的条件做为查询条件，这些条件均是“与”的关系。这时，按钮也可以被选择了，若单击查询，查询结果就显示在表单的逐条浏览页上，同时，在该页上还显示了共查询到几条记录及可用移动记录按钮逐条查看记录。

显示查询条件按钮可以查看本次查询输入的条件；清除查询条件按钮可以清除本次查询的条件以备下一次查询；打印按钮将本次查询结果输出到打印机；放弃按钮则放弃本次查询并释放本表单元。

为了方便查看，还可以在表单的浏览佤页中一次查看到全部查询到的记录；并能在浏览字段设定页中设定佤浏览时该字段的显示与否。

设计思路：

（1）利用拖放 *** 作形成标

（2）签对象和文本框对象。

（3）通过BEGIN TRANSACTION命令开始一次事务处理，

（4）通过ROLLBACK命令结束这一事务处理，

（5）并且将对表所作的各种更改存储下来。

（6）新增一条记录用于存储查询条件，

（7）并新建一个过程parsecondition，它返回一个表达式，形如“字段名所输入的值”。而后在查询按钮的Click事件中运用循环语句判断在哪个字段中输入了值，并将所有输入的备件用AND连接，作为用SET FILTER TO命令过滤记录的表达式和计算记录数的FOR语句的内容。

（8）在SET FILTER TO 语句和计算记录数的COUNT语句中都用到了宏代换符“&“，宏代换在编写代码时很有用，它返回一个变量的内容。在实时处理时都要用到。

（9）为了将自己挑选的字段显示在佤浏览表格（Grid）中，首先建立一个页框（Pageframe），将上面利用拖放 *** 作形成的标签和文本框放在第一页“逐条浏览”上，而后为每个字段名建立一个复选框，放置在页框的“浏览字段设定”页上，有对钩表示选中，无对钩，表示不选。默认状态下是全选（全部打对钩），单击后去掉对钩，表示不选。为动态反映，

（10）建立一个全局变量数组存储。并在“全局浏览”页面被激活时给表格的每个column的header1Caption和Controlsouce赋值为数组中的值即可。

源程序：set talk off

set delimiter off

set safety off &&重建索引时不提示覆盖

use a:\xj

inde on 学号 to a:\xh &&按学号建立索引文件xhidx

inde on 学号+姓名 to a:\xhxm &&按学号和姓名建立索引文件xhxmidx

inde on 姓名 to a:\xm &&按姓名建立索引文件xmidx

stortto c

do while c

clear

text

检索功能表

0---退出检索系统

1---按学号检索

2---按姓名检索

3---按学号和姓名检索

4---按学号、姓名、性别检索

endt

dd=1

@row()+1,17 say"请输入功能号" get dd pict "9" rang 0,4

read

do case

case dd=0

clear

do a:\main

retu

case dd=1

clear

n1=spac(2)

@4,20 say"请输入学号" get n1

read

use a:\xj inde a:\xh &&打开数据库文件xjdbf并打开按学号建立的索引文件xhidx

find &n1 &&查找字符串n1，&为宏替换

case dd=2

Clear

n2=spac(6)

@4,10 say"请输入姓名" get n2

read

use a:\xj inde a:\xm

find &n2

case dd=3

clear

n1=spac(2)

n2=spac(6)

@4,10 say"请输入学号" get n1

@5,10 say"请输入姓名" get n2

read

use a:\xj inde a:\xhxm

n4=n1+n2

find &n4

case dd=4

clear

n1=spac(2)

n2=spac(6)

n3=spac(2)

@3,10 say"请输入学号：" get n1

@4,10 say"姓名：" get n2

@5,10 say"性别：" get n3

read

loca for 学号=n1and姓名=n2and性别=n3 &&查找条件是学号为n1并且姓名为n2并且性别为n3的记录

other

retu

Endc

if eof() &&如果已到文件尾

clear

wait'对不起！没找到。请按任意键返回！'

loop

endif

cc=t

y=" "

do while cc

set devi to scre &&设置屏幕显示字符

clea

@row(),5 say"学号："+学号

@row(),40 say"姓名："+姓名

@row()+1,5 say"性别："+性别

@row()+1,5 say"出生年月："+dtoc(出生年月)

@row()+1,40 say"是否团员："+是否团员

@row()+1,5 say"电话："+电话

@row(),40 say"通信地址："+通信地址

@row()+1,5 say"邮编："+邮编

@row()+1,5 say"总成绩："+总成绩

@row()+1,5 say"备注："+备注

@20,20 say"不继续查找打N，否则打任一键" get y

read

if y="N"ory="n"

clear

storfto cc

loop

else

Endif

ifnoteof()

loop

Endif

storfto cc

Enddo

storfto c

Enddo

use

do a:\main

8、统计模块子程序(A:\totalprg)

功能：提供统计人数、平均成绩和党员人数的功能。

源程序：set talk off

use a:

dd=0

stortto c

do while c

clear

text

统计功能表

0---退出统计系统

1---统计人数

2---统计平均成绩

3---统计党员人数

endt

dd=1

@row()+1,17 say"请输入功能号" get dd pict "9" rang 0,3

read

do case

case dd=0

clear

do a:

case dd=1

clear

coun to aa &&计算记录数并把值赋给aa

@4,20 say"总人数："

aa &&显示变量aa的值

a=' '

@7,20 say"按任意键返回！"

read

if a=''

loop

endi

case dd=2

clear

aver 总成绩 to aa &&对总成绩求平均并把平均值分别赋给变量aa

@4,20 say"求总成绩平均成绩为："

aa

a=' '

@9,20 say"按任意键返回！"

read

if a=''

loop

endi

case dd=3

clear

coun for 是否团员="是" to aa &&统计党员数，并把值赋给aa

@4,20 say"团员人数为："

aa

a=' '

@9,20 say"按任意键返回！"

read

if a=''

loop

endi

endc

return

endd

9、显示模块子程序(A:\dpprg)

功能：提供卡片式的显示记录的功能。

源程序：set talk off

set devi to scre

use a:\xj

kk=t

do while kk

clea

hk=recn()

hk1=str(hk,3)

@row(),5 say"您现在浏览的是第"+hk1+"张卡片"

@row()+1,5 say"学号："+学号

@row()+1,5 say"姓名："+姓名

@row()+1,5 say"性别："+性别

@row()+1,5 say"出生年月："+dtoc(出生年月)

@row(),40 say"是否团员："+是否团员

@row()+1,5 say"电话："+电话

@row()+1,40 say"通信地址："+通信地址

@row()+1,5 say"邮编："+邮编

@row()+1,5 say"总成绩："+总成绩

@row()+1,5 say"备注："+备注

wait '请按n键浏览下一条记录，按l键浏览上一条记录，按y键返回主程序！' to k

do case

case k='n'

if eof() &&如果已到文件尾

go top &&将文件记录指针移到文件记录的首记录

else

skip &&否则，跳到下一条记录

endi

hk=hk+1

case k='l'

if bof() &&如果已到文件开头

go bott &&将文件记录指针移到文件记录的最后一条记录

else

skip -1 &&否则，跳到上一条记录

endi

hk=hk-1

case k='y'

clear

do a:\main

kk=f

endc

endd

10、删除模块子程序(A:\delprg)

功能：提供逻辑与物理删除的功能。

源程序：set talk off

set devi to scre

use a:\xj

yy=" "

yn=" "

de=spac(2)

clear

@4,20 say"请输入要删除记录的学号" get de

read

loca all for 学号=de

if eof()

wait"查无此卡片！击回车键退出！"

clear

do a:\xj

retu

endi

ifnoteof()

clea

hk=recn()

hk1=str(hk,3)

@row(),5 say"您现在浏览的是第"+hk1+"张卡片"

@row()+1,5 say"学号："+学号

@row()+1,5 say"姓名："+姓名

@row()+1,5 say"性别："+性别

@row()+1,5 say"出生年月："+dtoc(出生年月)

@row(),40 say"是否团员："+是否团员

@row()+1,5 say"电话："+电话

@row(),40 say"通信地址："+通信地址

@row()+1,5 say"邮编："+邮编

@row()+1,5 say"总成绩："+总成绩

@row()+1,5 say"备注："+备注

endif

@13,20 say"是这个记录吗？（Y/N）" get yn

read

if yn="n"oryn="N"

clea

do a:\xj

retu

endi

if yn="y"

@14,20 say"真要删除吗？（Y/N）" get yy

read

if yy="y"oryy="Y"

delete &&删除当前记录（逻辑删除，但不是真正将当前文件记录从VFP中删除）

endif

endi

clear

stor " " to y

@15,15 say"删除的记录从盘中彻底清除吗？（Y/N）" get y

read

if y="y"ory="Y"

pack &&真正删除当前记录（物理删除）

endif

clea

do a:\xj

护理学和临床医学有什么区别

业务培养目标：本专业培养具备人文社会科学、医学、预防保健的基本知识及护理学的基本理论知识和技能，能在护理领域内从事临床护理、预防保健、护理管理、护理教学和护理科研的高级专门人才。

业务培养要求：本专业学生主要学习相关的人文社会科学知识和医学基础、预防保健的基本理论知识，受到护理学的基本理论、基本知识和临床护理技能的基本训练，具有对服务对象实施整体护理及社区健康服务的基本能力。

主干学科：伦理学、心理学、护理学

主要课程：人体解剖学、生理学、医学伦理学、心理学、病因学、药物治疗学、诊断学基础、护理学基础、急重症护理、内外科护理学、妇儿科护理学、精神护理学、预防医学、护理管理学等

临床医学是研究疾病的病因、诊断、治疗和预后,提高临床治疗水平,促进人体健康的科学。

[编辑本段]业务培养目标

业务培养目标：本专业培养具备基础医学、临床医学的基本理论和医疗预防的基本技能；能在医疗卫生单位、医学科研等部门从事医疗及预防、医学科研等方面工作的医学高级专门人才。

业务培养要求：本专业学生主要学习医学方面的基础理论和基本知识，受到人类疾病的诊断、治疗、预防方面的基本训练．具有对人类疾病的病因、发病机制作出分类鉴别的能力。

毕业生应获得以下几方面的知识和能力：

1．掌握基础医学中临床医学的基本理论、基本知识；

2．掌握常见病名发病诊断处理的临床基本技能；

3．具有对急、难、重症的初步处理能力；

4．熟悉国家卫生工作方针、政策和法规；

5．掌握医学文献检索、资料调查的基本方法，具有一定的科学研究和实际工作能力。

[编辑本段]主干课程

主干学科：基础医学、临床医学。

主要课程：人体解剖学、组织胚胎学、生理学、生物化学、药理学、病理学、预防医学、免疫学、诊断学、内科学、外科学、妇产科学、儿科学、中医学。

主要实践性教学环节：毕业实习安排一般不少于48周。

修业年限：五年

授予学位：医学学士

相近专业：临床医学 麻醉学 医学影像学 医学检验 放射医学 视光学 康复治疗学 精神医学 医学技术 听力学 医学实验学 临床医学 医疗美容技术 医学影像技术 康复治疗技术 医学检验技术]\

护理学都要学什么？

业务培养目标 护理学专业 临床医学下的二级学科 ：本专业培养具备人文社会科学、医学、预防保健的基本知识及护理学的基本理论知识和技能，能在护理领域内从事临床护理、预防保健、护理管理、护理教学和护理科研的高级专门人才。 业务培养要求：本专业学生主要学习相关的人文社会科学知识和医学基础、预防保健的基本理论知识，受到护理学的基本理论、基本知识和临床护理技能的基本训练，具有对服务对象实施整体护理及社区健康服务的基本能力。 毕业生应获得以下几方面的知识和能力： 1．掌握相关的人文社会科学、基础医学、预防保健的基本理论知识； 2．掌握护理学基本理论、基本知识、基本技能； 3．掌握护理急、慢性和重症病人的护理原则、 *** 作技术，专科护理和监护技能，并能够应用护理程序对服务对象实施整体护理； 4．具有社区健康服务、护理管理和护理教育的基本能力； 5．熟悉国家卫生工作方针、政策及法规； 6．了解护理学的学科发展动态。[编辑本段]主干学科和主要课程 1、主干学科：基础医学、临床医学、护理学。 2、主要课程：人体解剖学、生理学、病理学、药理学、医学心理学、医学伦理学、护理学导论、护理学基础、内科护理学、外科护理学、妇产科护理学、儿科护理学、急救护理学、预防医学、精神护理学、护理管理学、护理礼仪、护理科研。 主要实践性教学环节：包括临床综合实习、社区实习、论文撰写等，一般安排不少于36周。 修业年限： 五年或四年 课程设置及学分要求 课程设置分五部分，即公共必修课、专业必修课、专业选修课、公共选修课和实践教学五部分。 成绩考核及学位授予 成绩考核按学期进行，考试合格可取得相应学分。学生修业期满，学完教学计划规定的全部课程，达到规定的学分，准予毕业 相近专业 ：护理学营养学 医学美容技术 助产 护理

参考资料：

护理学包括哪些内容

考试课程：大学英语、VF程序设计、 思想及建设有中国特色的社会主义理论概论、埂克思主义基本原理、体育、大学语文、人体解剖学、病原生物学、生理学、药理学、护理伦理学、基础护理学、内科护理学、外科护理学、妇产科护理学、儿科护理学

考查课程：英语听说、计算机文化基础、思想道德修养与法律基础、中国近现代史纲要、职业发展与就业指导、心理健康教育、医用有机化学、组织胚胎学、医学免疫学、生物化学、病理学、病理生理学、护理心理学、护理学导论、健康评估、传染病护理学、护理研究、五官科护理学、社区护理学、老年护理学、护理礼仪与美学、医学统计学及统计软件应用、中医学基础、护理管理学、急重症护理、精神病护理学、护理教育学

临床护理专业与护理专业的区别？？

就我的了解，应该是一个专业 ，学的内容都 是差不多的，只不过护理除了临床护理外还有口腔护理锭康复护理等，但后者都会说明，一般说护理，都是临床护理。

临床医学专业和护理专业有什么区别？

差别就是临床只坐诊，或者手术师什么的，完全是技术活。而护理几乎打针输液什么的，技术性不是太突出。

学临床护理有哪些课程

主干学科为伦理学、心理学、护理学。

主要课程有：人体解剖学、生理学、医学伦理学、心理学、诊断学基础、药物治疗学、护理学基础、急重症护理学、内科护理学、外科护理学、妇儿科护理学、精神护理学、预防医学、护理管理学等，必修课共开设36门，总学时数3727学时，其中两课占282学时，外语280学时，临床实习48周。学生毕业授与护理学学士学位。就业方向为各级各类医院、医药院校、康复机构、卫生行政部门。随着人民生活水平的不断提高，就业领域从医院扩展到社区、家庭等场所，就业前景十分广阔。

护理本科学制四年，根据现代医学模式的要求，培养具备人文社科、医学、预防保健知识、护理管理、护理教学和护理科研的高级专门人才。本专业学生主要学习相关的人文社会的科学知识和基础医学、预防保健的基本理论、基本知识和临床护理技能的培训，具有对服务对象实施整体护理系社区健康服务的基本能力。

1、掌握相关的人文社会科学、基础医学、预防保健的基本理论知识，掌握护理学基本理论、基本技能、基本知识，掌握护理急、慢性和重症病人的护理原则、技术 *** 作、专科护理和监护技能，并能够应用护理程序对服务对象实施整体护理；

2、具有社区健康服务、护理管理和护理教育的基本能力；

3、熟悉国家卫生工作方针、政策和法规；了解护理学的学科发展方向与动态；

4、掌握医学文献检索、资料调查的基本方法，具有一定的科学研究和实际工作能力。

什么是护理

业务培养目标：本专业培养具备人文社会科学、医学、预防保健的基本知识及护理学的基本理论知识和技能，能在护理领域内从事临床护理、预防保健、护理管理、护理教学和护理科研的高级专门人才。业务培养要求：本专业学生主要学习相关的人文社会科学知识和医学基础、预防保健的基本理论知识，受到护理学的基本理论、基本知识和临床护理技能的基本训练，具有对服务对象实施整体护理及社区健康服务的基本能力。

主干学科：伦理学、心理学、护理学

主要课程：人体解剖学、生理学、医学伦理学、心理学、病因学、药物治疗学、诊断学基础、护理学基础、急重症护理、内外科护理学、妇儿科护理学、精神护理学、预防医学、护理管理学等

大体包括以下几个方面。

（一）医院护理

1、基础护理 研究并应用护理的基本理论和基本技术，满足病人的基本生活需要和心理治疗的需要，通过临床护理工作，为疾病的诊断和治疗及时提供病性发生、发展的动态信息，有效地配合并参与治疗、检查及对危重患者的抢救，以积极的安全的护理对策，使病人处于最佳心理状态。

2、专科护理 结合临床各专科的特点，应用专科护理理论和护理技术，如强化对危重病人的监护及烧伤、显微外科、脏器移植、手术前后的专科护理等。3、护理管理 运用科学的方法组织、实施临床护理工作；为病人创造优美的休养环境；建立良好的护患关系；有效地提高护理质量等。

（二）社区护理

社区护理以预防保健为重点，包括防病、保健咨询；护理科普宣教和预防接种；心理卫生指导；计划生育，优生、优育指导；职业病防治和家庭访视护理等。

（三）护理教育

研究护理人才培养的规律、方法及模式，不断提高护理教育质量，改善护理人员的知识结构，适应护理学发展地需要。

（四）护理科研

护理学的发展需要护理科研的支持和推动。护理学理论的构建，护理理论与护理实践的结合成果，护理技术、方法的改进，护理设备、护理工具的改革，护理管理模式的建立等。都有赖于护理科学研究去探索规律、总结经验，推进护理学的不断发展。

主要实践性教学环节：包括临床综合实习、社区实习、论文撰写等，一般安排不少于36周。

修业年限：五年或四年

授予学位：医学或理学学士

相近专业：临床医学

以上就是关于VF程序设计编程问题全部的内容，包括:VF程序设计编程问题、在vf程序设计中，CASE INT(x/2)=x/2，是什么意思呀、急求VF程序设计！管理系统！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！