另外20分在:
http://expert.csdn.net/Expert/topic/1659/1659313.xml?temp=.4837152等谁帮我解决了问题谁再去接分吧:)我在做一个收费系统的过程中遇到了如下问题:在一个窗口上:ADOTable1,DBGrid1,DataSource1,DBNavigator1四个数据库控件与表table1相连。其中DBGrid1中有一列字段为"经办人"(jinbanren)。经办人的增加采用下拉列表框的方式实现,其数据从表table_jinbanren中提取。我写了如下的代码实现了这个功能:procedure TfrmSaleKaFeiLuRu.FormCreate(Sender: TObject);
var
i:Integer;
begin
ADOTable1.Refresh; for i:=0 to ADOTable1.RecordCount-1 do
begin
DBGrid2.Columns.Items[11].PickList.add(ADOTable1.Fields[1].Value);
ADOTable1.Next;
end;
end;现在我又想增加如下的功能:就是当用户通过DBNavigator1来增加一条记录时,"经办人"(jinbanren)这一字段的值默认为其下拉列表的第一项的值。。就是说不需要用户再用鼠标再下拉一下了。应该怎么实现呢?
http://expert.csdn.net/Expert/topic/1659/1659313.xml?temp=.4837152等谁帮我解决了问题谁再去接分吧:)我在做一个收费系统的过程中遇到了如下问题:在一个窗口上:ADOTable1,DBGrid1,DataSource1,DBNavigator1四个数据库控件与表table1相连。其中DBGrid1中有一列字段为"经办人"(jinbanren)。经办人的增加采用下拉列表框的方式实现,其数据从表table_jinbanren中提取。我写了如下的代码实现了这个功能:procedure TfrmSaleKaFeiLuRu.FormCreate(Sender: TObject);
var
i:Integer;
begin
ADOTable1.Refresh; for i:=0 to ADOTable1.RecordCount-1 do
begin
DBGrid2.Columns.Items[11].PickList.add(ADOTable1.Fields[1].Value);
ADOTable1.Next;
end;
end;现在我又想增加如下的功能:就是当用户通过DBNavigator1来增加一条记录时,"经办人"(jinbanren)这一字段的值默认为其下拉列表的第一项的值。。就是说不需要用户再用鼠标再下拉一下了。应该怎么实现呢?
解决方案 »
- Delphi 如何才能更进一步 本人1年半工作经验
- 字体的问题, 谢谢诸位了。不知道的帮忙UP一下!
- jpyc (九品御厨-进军嵌入式) 请进
- 100分在线等待:拷屏老不成功,请大侠 指点
- Delphi 8 什么时候出来?
- 为什么我编译好的客户端执行文件,拿到没有装bcb的机器上执行就报需要什么bpl文件,这是怎么回事啊?
- 在delphi里怎么调用c的函数
- 请问Zlib单元怎么用,谢谢!!!!
- 你好,请问你现在有时间么?能请你帮我解决个问题么?
- 我在crob.net下载的Delphi6 SP1还是有问题,ADO错误依然没有解决。求各位大虾再上!
- "学","血"等的拼音码?
- 怎样才能往listview控件里加数据啊?急
想给什么值就随你的便了,然后表格自动就选到这个值上了