摘要： procedure TdmlSBWXJL_R.qryDataBeforePost(DataSet: TDataSet);var BookMark: TBookmark; fYLJE, fYGJE : Extended;begin inherited; fYLJE := 0; fYGJE := 0; BookMark := qryJXYL.GetBookmark; qryJXYL.DisableControls; try qryJXYL.First; while not qryJXYL.Eof do begin fYLJE := fYLJE + tvDetailJXYLSBWXYL_SL.AsF 阅读全文

摘要： function NewID(sYWID: string; sID: string; iInc: Integer; bUseNewConn: Boolean): String;var qryTmp: TRSQuery; fValue, fOldValue: Extended; NewDB: TADOConnection;begin fValue := 1; if Trim(sYWID) = '' then sYWID := ' '; if Trim(sID) = '' then sID := ' '; NewDB := TADOC 阅读全文

摘要： 有序类型包括:.integer(整型).character(字符型).boolean(布尔型).enumerated(枚举型).subrange(子界型)有序类型定义了一组被排序的值.每个相异值都有唯一的一个后继和唯一的一个前趋.每个相异值的后继都不相同,同样他们的前趋也不同.另外,每个值都有个序号.如果一个值的序号是n,那么它的前趋序号就是n-1,后继的序号就是n+1. 阅读全文

摘要： Delphi中平常使用的消息框有四种形式，有ShowMessage、MessageDlg、Application.MessageBox、MessageBox。下面来深入了解下这四种形式的实现和使用。1.ShowMessage 显示一个带"OK"按钮的消息框 使用这个函数可以显示一个简单的带"OK"按钮的消息框，消息框的标题是应用程序的标题名，参数Msg字符串显示在消息框上。其源码如下：procedureShowMessage(constMsg:string);beginShowMessagePos(Msg,-1,-1);end;可以看到它调用了ShowM 阅读全文