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

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

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

    然後再分別雙擊【修改記錄】【刪除記錄】【插入新紀錄】個按鈕添加單擊按鈕時對數據進行相應操作的處理程序
    //修改所選取的職員的數據
    procedure TmainButtonClick(Sender: TObject);
     
    var
    intNum:integer;
    begin
    //讀取選取的職員的內部編號
    intNum:=dbgridFields[]AsInteger;
     
    //更新數據表
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(update 職員基本信息表 set 職員編號=+editText+);
    adoquerySQLAdd(姓名=+editText+);
    adoquerySQLAdd(姓名簡碼=+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(intNum)+);
    adoquerySQLAdd(select 姓名 from 職員基本信息表 where 內部編號=+inttostr(intNum)+);
    adoqueryOpen;
    //顯示更新了數據的職員名並發出更新成功的消息
    labelCaption:=adoqueryfieldbyname(姓名)asstring+的信息已經被成功修改;
    //刷新dbgrid中的數據
    adotableActive:=false;
    adotableActive:=true;
    end;
     
    //刪除記錄
    procedure TmainButtonClick(Sender: TObject);
    var
    deleteName:string;
    deleteNum:integer;
    begin

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


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