2005年2月11日

最新推荐文章于 2024-06-17 06:17:13 发布

sumsky

最新推荐文章于 2024-06-17 06:17:13 发布

阅读量1.3k

点赞数

分类专栏：项目实习日记文章标签： table delphi dataset database 数据库 object

本文链接：https://blog.csdn.net/sumsky/article/details/286191

版权

项目实习日记专栏收录该内容

5 篇文章 0 订阅

订阅专栏

一发现原软件的问题：

1 不能对光盘名进行模糊查找；
2 结算栏目中一次只能查看一个用户；
3 报表功能太弱；
4 不太明白[用户还碟]-[结帐]到底有什么用；(已解决)
   将费用写入“收入信息表”内;

5 [管理员信息维护]总是没有反应；(已解决)
    不是没反应,是软件的设置问题,只有第一号的管理员才能对管理员进行“添加”、“修改”和“删除”，其他管理员都无权对这个页面进行操作。

二已解决问题：

1 光碟类型号只能显示字母代号而不能显示文字：
Delphi 的DBGrid 中的下拉列表和查找字段编程方法
　　数据网格是非常流行的数据输入和显示形式，像大家熟悉的Excel、VFP 中的功能强大的BROWS 等，为广大程序员乐于采用。在用 Delphi 开发数据库应用系统时，利用数据网格DBGrid 输入数据时，有些字段只允许某几个固定的字符串，像档案案卷的保管期限，只有“永久”、“长期”和“短期”三种，可否从一个下拉列表中进行选择，从而方便输入和避免输入错误呢？还有一些字段，例如职工信息库中的单位编号（在另外的单位库中保存着单位的详细信息），在输入和显示职工数据时，能否不对单位编号进行操作，而代之于更加直观的单位库中的单位名称呢？答案是肯定的，Delphi 的数据网格控件 DBGrid，支持下拉列表和查找字段的编程，而且，编程的过程都是可视化的，不需要写一行语句。

DBGrid 中的下拉列表
    在 DBGrid 网格中实现下拉列表，设置好 DBGrid 中该字段的 PickList 字符串列表、初始的序号值 DropDownRows 即可。以职工信息库中的籍贯字段（字符串类型）为例，具体设计步骤如下：
1、在窗体上放置Table1、DataSource1、DBGrid1、DBNavigator1 等控件对象，按下表设置各个对象的属性:

---------------------------------------
对象       属性         设定值
---------------------------------------
Table1       DataBase     sy1
             Table        zgk.dbf   file://职工信息库
DataSource1 DataSet      Table1
DbGrid1      DataSource   DataSource1
DBNavigator1 DataSource   Datasource1
-------------------------------------------
2、双击Table1, 在弹出的Form1.Table1 窗口中，用右键弹出快捷菜单，单击Add Fields 菜单项；选择所有的字段后，按OK 按钮。

3、修改第2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例，在 Object Inspector 窗口中选择 Table1ZGBH, 修改属性 DisplayLabel= 职工编号，其余字段类似。

4、双击 DBGrid1, 在弹出的 Editing DBGrid1.Columns 窗口中，单击 Add all Fields 按钮，增加Table1 的所有字段。

5、在 Editing DBGrid1.Columns 窗口，选择 jg 这一行，切换到 Object Inspector 窗口，修改它的 PickList.Strings 为“湖北枝江市（换行）北京市（换行）河南平顶山市（换行）浙江德清市”

6、在 Form1.Oncreate 事件中写入语句：

Table1.Open;

7、F9 运行，用鼠标点击某个记录的籍贯字段，右边即出现一个按钮，点击这个按钮，可出现一个下拉列表，包含第5 步中输入的四行字符串，可用鼠标进行选择。当然也可以自行输入一个并不属下拉列表中的字符串。

DBGrid 中的查找字段
所谓查找字段 (LookUp Field)，即 DBGrid 中的某个关键字段的数值来源于另外一个数据库的相应字段。运用查找字段技术，不仅可以有效的避免输入错误，而且 DBGrid 的显示方式更为灵活，可以不显示关键字段，而显示源数据库中相对应的另外一个字段的数据。
---- 例如，我们在 DBGrid 中显示和编辑职工信息，包括职工编号、职工姓名、籍贯、所在单位编号，而单位编号来源于另一个数据库表格——单位库，称“单位编号”为关键字段。如果我们直接显示和编辑单位编号的话，将会面对1、2、3 等非常不直观的数字，编辑时极易出错。但是如果显示和编辑的是单位库中对应的单位名称话，将非常直观。这就是DBGrid 的所支持的查找字段带来的好处。

实现DBGrid 的查找字段同样不需要任何语句，具体设计步骤如下：
1、在窗体上放置 Table1、Table2、DataSource1、DBGrid1、DBNavigator1 等控件对象，按下表设置各个对象的属性:

---------------------------------------
对象       属性         设定值
---------------------------------------
Table1       DataBase     sy1
             Table        zgk.dbf   file://职工信息库
Table2       DataBase     sy1
             Table        dwk.dbf   file://单位信息库
DataSource1 DataSet      Table1
DbGrid1      DataSource   DataSource1
DBNavigator1 DataSource   Datasource1
------------------------------------------
2、双击 Table1, 在弹出的 Form1.Table1 窗口中，用右键弹出快捷菜单，单击 Add Fields 菜单项；选择所有的字段后，按OK 按钮。

3、修改第2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例，在 Object Inspector 窗口中选择 Table1ZGBH, 修改属性 DisplayLabel= 职工编号，其余字段类似。

4、设置 Table1DWBH.Visible=False。

5、在 Form1.Table1 窗口，用右键弹出快捷菜单，单击 New Field 菜单项，新增一个查找字段DWMC，在弹出的窗口设置相应的属性, 按 OK 按钮确认；在 Object Inspector 窗口，设置 Table1DWMC.DisplayLabel= 单位名称。

6、在 Form1.Oncreate 事件中写入语句：

Table1.Open;

7、按 F9 运行，当光标移至某个记录的单位名称字段时，用鼠标点击该字段，即出现一个下拉列表，点击右边的下箭头，可在下拉列表中进行选择。在这里可以看出，下拉列表的内容来自于单位信息库，并且不能输入其他内容。

DBGrid 中的下拉列表和查找字段的区别
虽然 DBGrid 中的下拉列表和查找字段，都是以下拉列表的形式出现的，但两者有很大的差别。
1、用 PickList 属性设置的下拉列表，它的数据是手工输入的，虽然也可以在程序中修改，但动态特性显然不如直接由另外数据库表格提取数据的查找字段