- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
一、寝室管理信息输入系统在桌面创建新文件夹打开VF系统,选择文件—新建—项目—新建文件夹—保存至桌面文件夹内点击数据,选择数据库:新建—新建数据库—保存至桌面文件夹内在数据库设计器内,单击右键选择新建表—保存至桌面文件夹内表设计器:现在是否输入记录:选择否或者直接叉掉点击文件—新建—表单—新建文件8、在表单控件中选择A(标签),按下该按钮,再在表单窗口中拖出一个适当大小的位置,在“属性”将“label1”改名为“成绩信息输入系统”,9、点击属性中的布局,点击FontSize(修改字体大小)—Autsize(变假为真)—点击backstly(透明)—将文本复制粘贴,将文本下移一部分—选择下方的文本,点击ForeColor(字体颜色)—将文本上移与上方文本重叠10、在表单控件中选择 (线条),按下该按钮,画一条直线,点击属性栏中的borderwith(线宽)调整线宽—将线条复制粘贴。(一共画同宽的四条线将文本包围,步骤同上)—点击bordercolor(线条颜色)将四条线进行调整,颜色为灰白搭配。在表单控件中选择(容器),按下该按钮,将之前操作的部分框住,—点击backstly(透明)—borderwith(线宽)调整线宽—specialeffect(选择凹下或凸起)在表单设计器中单击右键,打开数据环境,选定“字段”,准备添加所有字段,按住鼠标左键不松,将“字段”拖进表单的适当位置。自行调整格式,可利用height(高)、width(宽)、left(左)、FontSize(字体大小)在“表单控件”选择(命令按钮),在表单中拖出合适的位置,改名为“增加记录”,并调整字体大小(FontSize)点击并输入命令如下:append blank(新增一条空记录)thisform.Refresh(刷新表单)然后点击(运行),在运行的系统中添加基本的信息。16、将“增加记录”的按钮复制粘贴,拖过来将第二个名字改为“上一记录”,点击将命令改为:skip-1(向上移动一个指针)Tmand3.Enabled=.t.(指对象可用)(Thisform指当前表单)IF BOF()(如果记录指针位于文件头(注意文件头就是第一条记录的前面,而不是第一条记录))=MESSAGEBOX(*已到第一条记录!,48,信息提示窗口) {MESSAGEBOX:弹出模式对话框}GO 1Tmand2.Enabled= .F.(指对象不可用)ENDIFthisform.Refresh(刷新表单)点击运行,一直到第一个记录之后,界面会自动弹出,一个信息提示窗口,写着“已到第一条记录”。关闭窗口,第二个按钮将会失效。17、同理,将第三个按钮的名字改为“下一记录”,其命令改为:skip+1(向下移动一个指针)Tmand2.Enabled=.t.IF EOF()(如果记录指针位于文件尾(注意文件头就是最后一条记录的前面,而不是最后一条记录))=MESSAGEBOX(*已到最后一条记录!,48,信息提示窗口)GO bottom(记录指针转到末尾记录)Tmand3.Enabled= .F.ENDIFthisform.Refresh 点击运行,要最后一个信息提示窗口则提示的是“最后一条记录”,关闭窗口,此时失效的是最后一个记录的按钮。18、最后一个也就是第四个按钮,改名为“返回”。将其命令设为:thisform.release(退出或关闭表单)寝室管理信息查询系统将“成绩信息输入系统”中的两重标题复制,然后在文档下新建表单。把复制的标题进行粘贴,然后改名为“成绩信息修改系统”(在lable1与lable2中更改)。加入标签改名为“请输入查询的学号”,点击FontSize(修改字体大小)—Autsize(变假为真)—点击backstly(透明),再在后面加一个(文本框),调整到适当的大小。在文本框中点击右键生成器中,在值中的字段名设置为xh,在后面加一个“确定”的按钮,将其命令设为LOCATE for ALLTRIM(学号)=ALLTRIM(xh)IF not FOUND() =MESSAGEBOX(查无此人,请核准后重新查询,48,信息提示窗口)ENDIF thisform.Refresh在form1中单击右键,点击生成器:将“寝室管理信息输入系统”中的字段复制粘贴到下方。最后也就是跟上一程序一样,添加一个命令按钮键,建立一个返回键,命令为:thisform.release选定字段所有文本框,点击属性栏中的全部,选择readonly(变假为真)。寝室管理信息修改系统将“成绩信息输入系统”中的两重标题复制,然后在文档下新建表单。把复制的标题进行粘贴,然后改名为“成绩信息修改系统”(在lable1与lable2中更改)。加入标签改名为“请输入查询的学号”,点击FontSize(修改字体大小)—
文档评论(0)