設計帶記憶的數據錄入窗口[1]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    可以設計帶記憶的數據錄入窗口這樣可以很方便地修改或刪除本次錄入的記錄大大提高了工作效率本例實現單擊記憶本次錄入數據按鈕在列表中顯示本次錄入的全部數據的功能如圖所示

http://developcsaicn/delphi/images/jpg>
圖  帶記憶的數據錄入窗口

    把新增數據的編號添加到TList中單擊記憶本次錄入數據按鈕時循環Tlist中的編號通過ADO的Locate方法定位到編號所在的記錄提取相關數據顯示在列表中主要代碼如下
      private
       IDList: TStringList;
       procedure ClearItem;
       { Private declarations }
      end;
    var
      FrmSave: TFrmSave;
    implementation
    {$R *dfm}
    procedure TFrmSaveFormShow(Sender: TObject);
    begin
      ADODataSetActive := False;
      ADODataSetActive := True;
      IDList := TStringListCreate;
    end;
    procedure TFrmSaveBtnSaveClick(Sender: TObject);
    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;

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

From:http://tw.wingwit.com/Article/program/Delphi/201311/24852.html