delphi 7 DBGrid 实现下拉选择后更新

Posted 2023-03-23

DBGrid1 通过 ADOConnection1 ADOQuery1 DataSource1 连接的数据库//SQL查询memo2.Text：= select CX.lsh AS 流水号,CX.bh AS 编号,JF.xm AS 姓名,ITEM.name AS ''※科室※'',TT.name AS ''※医生※'',from gk_ys_mzcf AS CX INNER JOIN zd_unit_code AS ITEM ON CX.sfbm=ITEM.code INNER JOIN a_employee_mi AS TT ON CX.kdys=TT.code INNER JOIN gk_mz_settle AS JF ON CX.jslsh=JF.jslsh INNER JOIN a_employee_mi AS MM ON JF.jsr=MM.codewhere .......... DBGrid1.DataSource.DataSet.Close; DBGrid1.DataSource := DataSource1; //切换数据链接 ADOQuery3.SQL.Clear; ADOQuery3.Close; ADOQuery3.SQL.Text := memo2.Text; ADOQuery3.Open;//下拉框1ADOQuery1.Close; ADOQuery1.SQL.Text := 'select name,seq from zd_unit_code where groupno = 1 order by name asc'; ADOQuery1.Open; iCount1 := ADOQuery1.RecordCount; for ii := 1 to iCount1 do begin DBGrid1.Columns[3].PickList.Add(StringReplace(ADOQuery1.FieldByName('name').AsString, ' ', '', [rfReplaceAll])); ADOQuery1.Next;end;//DBGrid1CellClick事件代码ADOQuery1.Close; ADOQuery1.SQL.Text := 'update gk_ys_mzcf SET sfbm='''+m+''',kdys='''+n+''' where cfbh = '''+o+''''; ADOQuery1.ExecSQL;显示结果如右图，想实现左图中的效果现在存在两个问题：第一DBGrid需要点击该列才会出现下拉箭头，不会像图一那样一直显示。第二我在DBGrid1CellClick添加更新数据库事件来更新数据，点当前行工作正常，但是我修改某数据后如果点非当前行就会报错“无法为更新定位行。一些值可能已在最后一次读取后已更改。”按照网上提供的方法把ADOQuery3，ADOQuery1控件的CursorLocation属性为clUseServer就不会报错了，可是我选择的数据被更新到zd_unit_code表里了，我想要更新的是DBGrid1CellClick事件里的gk_ys_mzcf 表啊。如何让这里修改后选择其它行不报错，也不更新到gk_ys_mzcf 表。---------------------------------数据描述：表里大概内容gk_ys_mzcf表cfbh gkbh jzkh xm sflb sfbm kdys201707310410 111726 20184443 NULL 1 71 470201707310411 111726 20184443 NULL 1 71 470描述：cfbh 唯一识别号，sfbm 和表zd_unit_code的seq对应，kdys和表a_employee_mi seq 对应。a_employee_mi表seq name470 张三471 李四zd_unit_code表seq name71 妇科72 男科实现目标：我查看数据是中文显示的如上面右图sfbm 的71和kdys的470显示的是妇科 张三下拉也是中文的有张三和李四，科室有妇科男科，选择后 科室更改为男科，医生更改为李四后点其它任何地方就更新数据，注意更新的是我选择文字对应的seq值，也就是变成72 471而且只改变我修改的那条，其它cfbh的不变。

参考技术A 以下是<Delphi的DBGrid的下拉列表>在用 Delphi 开发数据库应用系统时，利用数据网格DBGrid 输入数据时，有些字段只允许某几个固定的字符串，像档案案卷的保管期限，只有“永久”、“长期”和“短期”三种，可否从一个下拉列表中进行选择，从而方便输入和避免输入错误呢？还有一些字段，例如职工信息库中的单位编号（在另外的单位库中保存着单位的详细信息），在输入和显示职工数据时，能否不对单位编号进行操作，而代之于更加直观的单位库中的单位名称呢？答案是肯定的，Delphi 的数据网格控件 DBGrid，支持下拉列表和查找字段的编程，而且，编程的过程都是可视化的，不需要写一行语句。
一、DBGrid 中的下拉列表
在 DBGrid 网格中实现下拉列表，设置好 DBGrid 中该字段的 PickList 字符串列表、初始的序号值 DropDownRows 即可。以职工信息库中的籍贯字段（字符串类型）为例，具体设计步骤如下：
1、在窗体上放置Table1、DataSource1、DBGrid1、DBNavigator1 等控件对象，按下表设置各个对象的属性:
---------------------------------------
对象 属性 设定值
---------------------------------------
Table1 DataBase sy1
Tablezgk.dbf //职工信息库
DataSource1DataSetTable1
DbGrid1DataSource 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
Tablezgk.dbf //职工信息库
Table2 DataBase sy1
Tabledwk.dbf //单位信息库
DataSource1DataSetTable1
DbGrid1DataSource 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 属性设置的下拉列表，它的数据是手工输入的，虽然也可以在程序中修改，但动态特性显然不如直接由另外数据库表格提取数据的查找字段。
2、用 PickList 属性设置的下拉列表，允许输入不属于下拉列表中的数据，但查找字段中只能输入源数据库中关键字段中的数据，这样更能保证数据的完整性。
3、用 PickList 属性设置的下拉列表设计较为简单。

Delphi中点击DBGrid中某一单元格时，后面出现个按钮可以点进去，出现一个新窗体，进行选择。

选择完后，自动添加到DBGrid中。

用delphi自带的DBGrid就能很好的实现这个功能：
在DBGrid 中添加你要再Grid中显示的所有字段（columns属性),然后选择你要出现按钮的那个字段，将属性ButtonStyles 设置为cbsEllipsis，然后再 DBGrid 的 OnEditButtonClick时间中编写探出新窗口的代码即可 参考技术A 在新窗口form2里，比如有一个adoquery2数据的条目供选择，用户选择好后按‘增加’按钮，可以这样设定：
procedure TForm2.okBtnclick(Sender: TObject);
begin
mainform1.query1.insert; // 在query1里增加
mainform1.query1.fieldbyname('field1').asstring := query2.fieldbyname('field1').asstring;
mainform1.query1.fieldbyname('field2').asstring := query2.fieldbyname('field2').asstring;
mainform1.query1.fieldbyname('field3').asstring := query2.fieldbyname('field3').asstring;
// ... 根据query2设定增加的数据值
mainform1.query1.post; // 写数据库
close; // 把当前的form2关闭
end; 参考技术B 使用ehlib第三方控件，dbgrideh，你可以在dbgrideh里的某一列增加editbuttons
然后在button写click事件就可以了，如果有多列数据要显示，用逗号分开。 参考技术C 使用ehlib，dbgrideh控件可以实现，你可以在dbgrideh里的某一列增加editbuttons
然后在button写click事件就可以了