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
显示全部