delphi数据库的增删改查.doc

查询： Var strSQL:String; begin strSQL:=Select Checkupid,CustomCode,CustomName,CheckupDate,LeftMoney,CurrMoney,OperatorName,Note from T_Fee_CheckupRecord Where ; strSQL:=strSQL+ CheckupDate between ++FormatDateTime(yyyy-mm-dd, DateTPbegin.DateTime)++ and ++FormatDateTime(yyyy-mm-dd, DateTPend.DateTime+1)+; if not (Trim(edtCustomCode.Text)=) then begin strSQL:=strSQL+ and CustomCode like ++Trim(edtCustomCode.Text)+ end; if not (Trim(edtCustomName.Text)=) then begin strSQL:=strSQL+ and CustomName like ++Trim(edtCustomName.Text)+ end; //ShowMessage(strSQL); RefleshGrid(strSQL); end; 其中自定义的函数： procedure RefleshGrid(strSQL:String); begin with DataMD.ADOQuery1 do begin Close; SQL.Clear ; SQL.add(strSQL); Open; end; end; procedure ExeSQL(strSQL:String); 增： procedure TfrmImport.sButton1Click(Sender: TObject); begin frmInportAdd.Showmodal; RefleshGrid(Select * from T_Stock_ImportRecord Order by CreateDate DESC); end; 自定义的函数： procedure RefleshGrid(strSQL:String); begin with DataMD.ADOQuery1 do begin Close; SQL.Clear; SQL.add(strSQL); Open; end; end; var frmInportAdd: TfrmInportAdd; function TCustomForm.ShowModal: Integer; var WindowList: Pointer; SaveFocusCount: Integer; SaveCursor: TCursor; SaveCount: Integer; ActiveWindow: HWnd; begin CancelDrag; if Visible or not Enabled or (fsModal in FFormState) or (FormStyle = fsMDIChild) then raise EInvalidOperation.Create(SCannotShowModal); if GetCapture 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0); ReleaseCapture; Application.ModalStarted; try Include(FFormState, fsModal); ActiveWindow := GetActiveWindow; SaveFocusCount := FocusCount; Screen.FSaveFocusedList.Insert(0, Screen.FFocusedForm); Screen.FFocusedForm := Self; SaveCursor := Screen.Cursor; Screen.Cursor := crDefault; SaveCount := Screen.FCursorCount; WindowList := DisableTaskWindows(0); try