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

在窗體關閉時提示有未保存的數據

2013-11-23 17:39:57  來源: Delphi編程 
    ——此文章摘自《Delphi開發經驗技巧寶典》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    本例是在窗體關閉前判斷是否有未保存的數據如果有則給予提示並自動保存數據主要代碼如下
    procedure TFrmSaveFormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
      if ADODataSetState in [dsInsert dsEdit] then
      begin
       if MessageBox( 發現未保存的數據需要保存嗎? MB_YESNO +
         MB_ICONQUESTION) = IDYES then
        begin
         SaveData;
       end;
      end;
    end;
     {保存數據}
    procedure TFrmSaveSaveData;
    begin
     with ADODataSet do
      begin
       Edit;
       FieldByName(Number)AsString := Trim(EDNumberText);
       FieldByName(Name)AsString := Trim(EDNameText);
       FieldByName(Old)AsInteger := StrToIntDef(Trim(EdOldText) );
       if CBxSexText = then
        FieldByName(Sex)AsInteger :=
       else
        FieldByName(Sex)AsInteger := ;
       FieldByName(TelePhone)AsString := Trim(EdTelePhoneText);
       FieldByName(DepartMent)AsString := Trim(CBXdePartMentText);
       FieldByName(JoinDate)AsDateTime := DTPJoinDateDate;
       Post;
      end;
    end;


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