vfp表单中表格控件使用

Python中tkinter中控件的使⽤（18,表格数据）

import tkinter

from tkinter import ttk

win = ()

win.title("表格数据")

win.geometry("800x600+600+100")

#表格

tree=ttk.Treeview(win)

tree.pack()

#定义列

tree["columns"]=("姓名","年龄","⾝⾼","体重")

#设置列属性，列不显⽰

tree.column("姓名",width=100)

tree.column("年龄",width=100)

tree.column("⾝⾼",width=100)

tree.column("体重",width=100)

#设置表头

tree.heading("姓名",text="姓名（name）")

tree.heading("年龄",text="年龄（age）")

tree.heading("⾝⾼",text="⾝⾼（hieght）")

tree.heading("体重",text="体重（weight）")

#添加数据

tree.insert("",0,text="line1",values=("李磊","15","160","80"))# 0 为列的下标，第0⾏

tree.insert("",1,text="line2",values=("张3","18","168","50"))

win.mainloop()

第六章 表单的创建与使用

6.1 面向对象程序设计概述

1. 基本概念 P161-165

面向对象的程序设计是通过对类、子类和对象等的设计来体现的，类是面向对象程序设计技术的核心。

类：定义了对象特征以及对象外观和行为的模板。

类的特征：

1) 封装性：隐藏了类中对象的内部数据或操作细节，只看到外表信息。

2) 继承性：任何类都可以从其它已有的类中派生，新类保持了父类中的行为和属性，但增加了新的功能。体现了面向对象设计方法的共享机制。

3) 多态性：相同的操作可作用于多种类型的对象上，并获得不同的结果。

4) 抽象性：提取一个类或对象与众不同的特征，而不对该类或对象的所有信息进行处理。

基类：系统本身提供的类称为基类。基类包括容器类和控件类。容器类是其他对象的集合，如表格、选项按钮组；控件类是单一的对象，不包含其他对象，如命令按钮、文本框。

子类：以其他类定义为起点，对某一对象所建立的新类。新类将继承任何对父类所做的修改。

类库：存储类的文件，每一个以可视方式设计的类都存储在一个类库中。类库文件的扩展名为 .VCX 。P216

对象：是类的一个实例，包括了数据和过程。具有所在类所定义的全部属性和方法。

VFP有两种对象：容器对象和控件对象。 属性：控件、字段或数据库对象的特性。

事件：由对象识别的一个动作。

方法：与对象相联系的由程序执行的一个处理过程，即处理事件的一组代码。

用户不可以为对象创建新的事件，但可以创建新的方法程序。

2. Visual FoxPro 基类 P166

从下述 Visual FoxPro 基类中，可以派生子类或创建对象。

容器 命令组 控件 微调 标签

表单 命令按钮 复选框 OLE 容器控制 线条

表单集 选项组 列表框 OLE 绑定型控制 分隔符 #

表格 选项按钮 # 文本框 自定义 形状

标头 # 页框 组合框 工具栏 图象

列 # 页面 # 编辑框 计时器

１６２　福建电脑　２ｏ０６年第２期　

ＶＦＰ中Ｇｒｉｄ控件的应用研究　

石小云　（中南林学院现代实验与技术中心湖南株洲４１２００６）　

【摘要】Ｇｒｉｄ控件是Ｖ　中功能十分强大的常用控件之一。本文通过实例分别介绍了Ｇｒｉｄ控件的数据被修改后　如何撤消修改以及如何使表格中焦点行的背景颜色能正确显示。这些技巧在开发数据库应用系统中很有实用价值。　【关键词】ｖＦＰ；Ｇｒｉｄ；撤消；背景颜色　

１　１疴言　Ｇｒｉｄ控件是Ｖｉｓｕａｌ　Ｆｏｘｐｍ中功能强大的表格控件，主要用　来显示表、视图或查询结果，类似于浏览窗口Ｂｒｏｗｓｅ，可以显示　和操作多行数据。但当对一个表格控件中的数据进行修改时，修　改了一个数据，光标移动到另一记录，按ＥＳＣ键或用ＴＡＢＬＥＲＥ．　ＶＥＲＴ０函数都无法撤消刚才的数据修改．这是因为当光标移动　到另一记录时等于已经把数据写入了数据表中，故无法撤消；另　外，当我们利用Ｓｅｔａｌｌ方法设置Ｇｒｉｄ背景颜色来动态显示焦点　行，如果设置了Ｓｅｔ　ｄｅｌｅｔｅ　ｏｎ环境参数，则逻辑删除记录后，动　态背景的颜色显示就会出现混乱情况。这给开发者带来了诸　多不便，下面笔者通过实例来解决这两个问题。　２　Ｇｒｉｄ控件的数据撤消修改　Ｖｉｓｕａｌ　Ｆｏｘｐｍ中提供了两种缓冲：记录缓冲和表缓冲，可以　保护对单个记录或多个记录所做的数据更新以及数据维护操作　

２．１　Ｇｒｉｄ控件中几个主要属性设置　（　建一个新表单．添加学生成绩表到表单的数据环境，表　中字段有：学号、姓名、英语、高等数学、计算机。　②设置表单的ＢｕｆｅｒＭｏｄｅ属性值可为ｌ或者２：　选择ｌ为保守式：为单个记录提供记录的修改提供最安全　的工作环境，但是会降低用户的操作速度。　选择２为开放式：是更新记录的有效方法，因为锁定只在写　记录时生效，这样在多用户环境中使单个用户独占系统的时问　最少。　③设置数据环境中的ｃｕｒｓｏｒ的ＢｕｆｆｅｒＭｏｄｅＯｖｅｒｒｉｄｅ属性值　４或５：　选择４为保守式表缓冲：锁定当前记录．在发出ＴＡＢＬＥＵＰ－　ＤＡＴＥＯ命令后更新。　选择５为开放式表缓冲：一直等到发出ＴＡＢＬＥＵＰＤＡＴＥ０命　令，然后锁定并更新已编辑的记录。　在此不将数据环境中的ｃｕｒｓｏｒ的ＢｕｆｅｒＭｏｄｅＯｖｅｒｒｉｄｅ属性　设置为２或３（行缓冲），是因为当表格中的ＣＵｒＳＯｒ使用行缓冲　时，任何当前记录的修改将在记录指针移动时提交，同时，Ｇｅｔ－　ｆｌｄｓｔａｔｅ０函数将不能检查到记录的修改．　④在表单属性对话框中添加两个新的属性ＲｅｃＮｕｍ和　ＷｈａｔＲｏｗ．并设置它们的值为０．　⑤在表单中添加一个Ｇｒｉｄ控件，并设置表格的以下属性：　ＲｅｃｏｒｄＳｏｕｍｅＴｙｐｅ＝ｌ—Ａｌｉａｓ　ＲｅｃｏｒｄＳｏｕｒｃｅ：学生成绩表　２．２事件代码及说明　首先在Ｇｒｉｄｌ的Ｉｎｉｔ事件中添加以下代码：　ＴｈｉｓＦｏｒｍ．ＲｅｅＮｕｍ＝ＲＥＣＮＯ０　然后在Ｇｒｉｄ１的ＢｅｆｏｒｅＲｏｗＣｏｌＣｈａｎｇｅ事件中添加以下代码：　ＴｈｉｓＦｏｒｍ．ＲｅｅＮｕｍ＝ＲＥＣＮＯ０　最后在Ｇｒｉｄｌ的ＡｆｉｅｒＲｏｗＣｏｌＣｈａｎｇｅ事件中添加以下代码：　Ｍｏｖ＝．Ｆ．　ＩＦ　ＴｈｉｓＦｏｒｒｍＷｈａｔＲｏｗ＃Ｔｈｉｓ．ＡｃｔｉｖｅＢｏｗ＆＆判断ＷｈａｔＢｏｗ是否不等于光标　所在的行　ＴｈｉｓＦｏｒｒｍＷｈａｔＲｏｗ：Ｔｈｉｓ．ＡｅｔｉｖｅＲｏｗ　＆＆将光标所在的行赋给Ｗｈａｔｌｌｏｗ　ｎＨｏｌｄ＝ＲＥＣＮＯ０　＆＆将记录号ＲＥＣＮＯ０赋给变量ｎｈｏｌｄ　ＧＯ　ＴｈｉｓＦｏｍ．ＲｅｃＮｕｍ　＆＆将记录指针定位到ＲｅｃＮｕｍ　ｃｈａｎｇｅ＝Ｇｅｔｎｄｓｔ８ｔｅ（＿１，　学生成绩表　）＆＆Ｃ，￣ＩＦＩＣＩＳ￣Ｉｅ用于检测记录是　否被修改．若是返回２，否则返回１　ＩＦ　ＡＴ（　２　，ｃｈａｎｇｅ）＞（｝　＆＆判断ＧｅｔＦｌｄＳｔａｔｅ是否返回２　Ｔｈｉｓ．Ｒｅｆｒｅｓｈ＆＆若是．表格刷新　Ｍｏｖ：．　ＩＦ　ＭｅｓｓａｇｅＢｏｘ（”更新记录　．４）＝６　＆＆判断更新记录对话框是否按了　ＴａｂｌｅＵｉｘｌａｔｅ（，Ｔ．）　＆＆若是，将激发ＴａｂｌｅＵｉｘｌａｔｅ（更新）事　件，修改并保存　ＥＬＳＥ　ＴａｂｌｅＲｅｖｅｒｔ（．Ｔ．）　＆＆否则，激发ＴａｂｌｅＲｅｖｅｒｔ（恢复）事件．　搬消上一次修改　ＥＮＤＩＦ　ＥＮＤＩＦ　ＧＯ　ｎＨｏｌｄ＆＆将记录指针定位到ＲｅｃＴ－０ｏ　ｌＦＭＯＶ　Ｔｈｉｓ．Ｒｅｆｒｅｓｈ　ＩＭｏｖ＝．　ＥＮＤＩＦ　ＥＮＤｌＦ　保存并运行表单．当用户在表格中修改了记录并移动指针　到另一行时，将会被提示是否保存修改．如果用户选择”是”．将激　发ＴａｂｌｅＵｐｌａｔｅ（更新）事件，若选择”否，则激发　ｌｅＲｅｖｅｒｔ（恢　复１事件。　３　Ｇｄｄ中焦点行的背景颜色正确显示　在用ＶＦＰ设计一个应用系统时，信息的浏览是其中一个相　当重要的功能，开发者一般用Ｇｒｉｄ控件来显示数据信息。但当　使用者在记录之间移动焦点时．只有获得焦点的记录的某一个　字段以不同于Ｇｒｉｄ背景的颜色显示．为使整条记录均用同一种　颜色突出显示（本文示例为红色背景），即当记录指针移动时，用　颜色动态显示相对光标所在记录的位置，开发者常常在Ｇｒｉｄ控　件的ａｆｔｅｒＲｏｗＣｏｌＣｈａｎｇｅ事件中加入如下代码：ｔｈｉｓ．ｓｅｔａｌｌ　（“ｄｙｎａｍｉｃｂａｃｋｃｏｌｏｒ”，“ｉｉｆ（ｔｈｉｓ．ａｃｔｉｖｅｒｃｗ＝ｌ￣ｃｎｏ　０，ｒｇｂ（２５５，０，ｏ），ｒｇｂ　（２５５，２５５，２５５））”，“ｃｏｌｕｍｎ”）。在使用中发现：如果设置了Ｓｅｔ　ｄｅｌｅｔｅ　ｏｎ环境参数，并且有逻辑删除记录后，动态背景的颜色显　示就会出现混乱。当然我们可以先执行ｐａｃｋ命令，再重新创　建和设置Ｇｒｉｄ的各项属性：或者先将没有删除标志的记录复制　到一个临时表中，然后用ｚａｐ命令删除源表中所有记录，再将没　有删除标志的记录从临时表追加到源表中。　这两种方法都是将已逻辑删除的记录从数据表中真正删　除，缺点是两种方式都要求该表必须以独占方式打开。如果表　是以共享方式打开，那么怎么解决呢？其实，动态背景颜色不能　正确显示的原因是由于有逻辑删除记录后，使光标所在的行ａｃ．　ｔｉｖｅｒｃｗ０￣等于数据的记录号Ｄ￣ｃｎｏ０，从而导致了动态背景颜色　的显示出现混乱。下面通过两个表的关联能解决这一问题。操　作步骤如下：　①新建一个表单．添加学生成绩表到该表单的数据环境．表　中字段有：学号、姓名、英语、高等数学、计算机。注意该表要按学　号进行复合索引。　②在表单中添加一Ｇｒｉｄ控件，并设置Ｇｒｉｄ　（＂ＦＯｇ　１３７页）

表格中显示图片和说明的做法

此表格的数据源是A_.DBF（有4个字段：DC—字符型，等级—字符型，标准片—通用型，说明—备注型）

通用型字段内照片存入的方法：在“图画”（或看照片的程序）中打开要存入的照片，选 “复制”。再USE A_.DBF ,点击要存入的字段（标准片），点击“编辑”中的“粘贴”即可将照片存到通用型字段内。

要显示出如上图片和说明，表单中要做以下设置：

在表单中表格Grid1的属性要改变如下：

属 性 说 明 参数

AllowHeaderSizing 指定表格标头运行时能否改变 F

AllowRowSizing 指定能否人工调整表格行的大小 F

CloumCount 指定表格中列数

3

DeleteMark 指定表格中是否显示删除标记列 F

RecordSource 指定与表格建立联系的数据源 A_

RowHeight 指定表格中行的高度 130

ScrollBars 指定表格中滚动条的类型 2-垂直

ToolTipText 指定表格的工具提示文本 点击关闭

在表单中表格Grid1的Colum1属性要改变如下：

属 性 说 明 参数

ControlSource 指定与表格建立联系的数据源 A_.dc

CurrentControl 指定列的控件中哪个用来显示单元格的值 Text1

在表单中表格Grid1的Colum1的Head1属性要改变如下：

属 性 说 明 参数

Aligment 指定与控件相关的文本对齐方式 2-居中

Caption 指定对象标题文本 等级

由于要用第二列显示图片，需要加入Oleboundcontrol1（在Grid的默认属性中没有）。添加的方法，先把属性选为：Colum2，从表单控件工具栏里选择ActiveX绑定控件，在表单的第二列点击一下，Oleboundcontrol1就添加好了。

在表单中表格Grid1的Colum2属性要改变如下：