熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

職員信息維護功能的實現(二)[3]

2013-11-23 17:37:23  來源: Delphi編程 
    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

        [姓名]) values(+inttostr(MaxIntNum+)+++editText++
        +editText+);
        adocommandExecute;
        adoqueryClose;
        adoquerySQLClear;
        //更新新插入的數據項完成插入的功能
        adoquerySQLAdd(update 職員基本信息表 set 姓名簡碼=+editText+);
        adoquerySQLAdd(性別=+comboboxtext+);
        adoquerySQLAdd(出生日期=+editText+);
        adoquerySQLAdd(年齡=+editText+);
        adoquerySQLAdd(籍貫=+editText+);
        adoquerySQLAdd(民族=+comboboxText+);
        adoquerySQLAdd(文化程度=+editText+);
        adoquerySQLAdd(畢業學校=+editText+);
        adoquerySQLAdd(健康狀況=+editText+);
        adoquerySQLAdd(婚姻狀況=+comboboxText+);
        adoquerySQLAdd(身份證號碼=+editText+);
        adoquerySQLAdd(家庭電話=+editText+);
        adoquerySQLAdd(辦公電話=+editText+);
        adoquerySQLAdd(手機=+editText+);
        adoquerySQLAdd(電子郵件地址=+editText+);
        adoquerySQLAdd(職工帳號=+editText+);
        adoquerySQLAdd(單位編號=+editText+);
        adoquerySQLAdd(備注=+editText+);
        adoquerySQLAdd( where 內部編號=+inttostr(MaxIntNum+)+);
        adoquerySQLAdd(select 姓名 from 職員基本信息表 where 內部編號
        =+inttostr(MaxIntNum+)+);
        adoqueryOpen;
     
       adoqueryFieldByName(姓名)AsString;
    //刷新dbgrid的數據並發送插入成功的消息
    //label就是放入的那個caption為空用來顯示消息的label控件
       labelCaption:=adoqueryfieldbyname(姓名)asstring+的信息已經被成功插入;
        adotableActive:=false;
        adotableActive:=true;
    //別忘了關掉插入許可
            adocommandCommandText:=set IDENTITY_insert 職員基本信息表 off;
            adocommandExecute;
     
       end;
    end;   

    至此我們完成了職員信息維護的功能可以單擊頁面下方的個按鈕執行對數據表的插入修改和刪除操作程序運行的實際結果如圖所示

http://developcsaicn/delphi/images/jpg>
  職員信息維護功能

right>[http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/24779.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.