知识大全职员信息维护功能的实现（一）[2]

Posted 2022-07-22 信息

篇首语：不要以为你的努力徒劳无功，权当做磨练你的意志。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全职员信息维护功能的实现（一）[2]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

( ) 控件添加和设置完毕后为DBGrid 的DBGrid CellClick事件添加处理代码添加这一事件的目的是因为我们使用的是文本框控件Edit 因此必须自己编写代码将DBGrid中的数据读入到相应的各个文本框里面代码如下 // // 职员信息管理功能的实现 // 职员信息维护 procedure Tmain DBGrid CellClick(Column: TColumn); //将用户在dbgrid上所选取的职员的全部信息添加到职员信息维护窗体中的相应文本框中 begin adotable Refresh; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; bobox Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; bobox Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; bobox Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; edit Text:=dbgrid Fields[ ] AsString; //允许修改插入删除记录 button Enabled:=true; button Enabled:=true; button Enabled:=true; end;

cha138/Article/program/Delphi/201311/24795

知识大全 职员信息维护功能的实现（一）[2]

知识大全职员信息维护功能的实现（一）[2]