鏈接的Acess資料庫，用的ADO，已經提前在資料源中添加了一列為行序號，想要實作在DBGrid中刪掉一條記錄后，點擊更新按鈕，行序號也能夠自動更新并連續接起來，比如序號列1,2,3,4，我刪掉第二行后，點擊更新按鈕能夠讓1,3,4變成連續的1,2,3
uj5u.com熱心網友回復：
求大家幫幫忙啊uj5u.com熱心網友回復：
你的表中，設定 一個序號（編號）的字符，型別整數。打開表時，通過回圈，將序號重新按實際排列數寫一下。
當洗掉資料行，或新增( 插入)資料行時，通過回圈，將序號重新按實際排列數寫一下。
這樣，完全達到你的要求。
uj5u.com熱心網友回復：
注意，序號（編號）應放在首列。uj5u.com熱心網友回復：
換一個角度思考就不是問題了! 其實有更優雅的作法...先去忙一下...等會兒再給 LZ 做回應......uj5u.com熱心網友回復：
1 記錄洗掉的序號，把最后一條的序號更改為被洗掉的序號，然后排序。2 洗掉記錄后把所有序號大于被洗掉記錄的資料的序號減1，一條update陳述句就可以了。
uj5u.com熱心網友回復：
方向 : 先在 DataSet 建立一個計算欄位...在將欄位指向 RecNo...不過 Delphi 數據庫一直存在潛在性的 Bug...得另外排除...先出門去......uj5u.com熱心網友回復：
錯字更正 : 再將欄位指向 RecNouj5u.com熱心網友回復：
走回圈，重新賦值：ADOQuery1.RecNo.uj5u.com熱心網友回復：
哎呀! 都幾十年了! LZ 所提出的流水號的問題也是全世界許多程式員的困擾...關於此問題...許多程式員多以 OnCalcFields 事件裡將 RecNo 取絕對值指定給 DataSet 增設的計算欄位...取絕對值是一個不得不之消極的作法...因為 RecNo 在首筆與末筆會出現 -1 的情形...打從 Delphi 與 C++Builder 第一版開始至今...在使用 RecNo 時...連接不同數據庫時...會出現潛在性 Bug!? 實際上 Help 上已明文不得在 DataSet 內使用 RecNo......一般的做法(缺點為最後一筆流水號會為1) :
Step 1 : 先將 DataSet 增設計算欄位.
Step 2 : 在 OnCalcFields 加入代碼.
procedure TForm1.ADOQuery1CalcFields(DataSet: TDataSet);
begin
ADOQuery1SerNum.AsInteger := Abs(DataSet.RecNo);
end;
以下提供合宜的解決方案 :
Step 1 : 先在數據庫裡增設一個流水號欄位.
Step 2 : 在數據庫完成增.刪之操作後加入如下的代碼.
procedure TForm1.Button1Click(Sender: TObject);
var
BK: TBookmark;
begin
with ADOQuery1 do
begin
BK := GetBookmark;
DisableControls;
try
First;
while not Eof do
begin
Edit;
ADOQuery1SerNum.AsInteger := RecNo;
Next;
end;
finally
GotoBookmark(BK);
EnableControls;
FreeBookmark(BK);
DBGrid1.SetFocus;
end;
end;
end;
uj5u.com熱心網友回復：
我覺得, 序號在洗掉了資料后, 如果回圈修改序號以下的所有資料, 會不會不現實?如果表中資料太多, 這時候洗掉前邊的資料, 如第一第二條時, 不是得全表資料的序號基本都要被修改一次么?
如果是將最后一條直接提前到洗掉的位置, 這時候, 記錄順序是不是有可能不對了? 很多用序號的, 這個序號可能也作為了排序欄位吧.
我覺得這個序號欄位, 只作為有時候記錄的排序來用就好, 而不用去糾結序號是否有跳空....
在資料顯示時, 我們可以在 DBGRID 添加一序號列, 用以代替資料庫中的序號列來顯示. 對 DBGRID 做以下處理:
procedure TfrmSongLang.DBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with DBGrid.DataSource.DataSet do
begin
if DataCol = 0 then//第一列
DBGrid.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(RecNo));
end;
end;
在生成列印報表等中, 大部分報表可以自定義個序號列來實作的.
還有一種方式, 在SQL2005及以上版本都可以的,
可以直接在select 中添加個序號欄位:
SELECT 序號= IDENTITY(INT,1,1), *
FROM 表名
的方式添加就可以了.
這樣, 我們資料庫定義的序號欄位, 就不需要每次有記錄洗掉時,都要考慮是否會出現中間出現空缺啊什么的問題了...
uj5u.com熱心網友回復：
認同 LS 的 yangb0803 觀點...非常切合實際!我習慣用於第三方控制元件的 DBGridEh...本身已內建序號(流水號)功能...但問題還是出在列印報表......
yangb0803 提出 SQL2005 可以添加序號欄位...不知 ACCESS 能否?
uj5u.com熱心網友回復：
這個很好辦，用DBGridEh控制元件（著名的EhLib控制元件包就有，別再用自帶的DBGrid了！太弱了）然后設定屬性OptionEh.dghShowRecNo:=true運行就行了，把資料庫里面ID欄位刪掉或者隱藏掉，控制元件自帶順序編號的。
給分！
uj5u.com熱心網友回復：
使用第三方控制元件 自然方便，但更新Delphi新的版本，往往來不及更新。uj5u.com熱心網友回復：
9樓代碼中：DBGrid1.SetFocus;建議不要使用，如果此代碼在OnShow事件中參考，將會引起“Cannot focus a disabled or invisible window”錯誤。
uj5u.com熱心網友回復：
實務上的確是如此!
uj5u.com熱心網友回復：
我只是給個例子...以 Button1 來觸發...所以導航游標之焦點在調試完後必須回傳 DBGrid1......
您所指的 DBGrid1.SetFocus 不能參考在 OnShow 事件無誤~
uj5u.com熱心網友回復：
朋友能不能發我一個能用的DBGridEh控制元件 我是delphi xe6 下了幾個都用不了~
我郵箱是[email protected] 先謝謝你了~！
uj5u.com熱心網友回復：
我學藝不精，用過下面的這樣的方法，不過對QUERY比較適用：Select 0 as xRecNo,* From tablename;
再將欄位的OnGetText程序指向自己寫的程序：
query.FieldByName('xRecNo').OnGetText:=MyRecNoOnGet;
TForm1.MyRecNoOnGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text:=IntToStr(Sender.DataSet.RecNo);
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91683.html
標籤：數據庫相關
上一篇：關于三層服務器程式測驗問題？
下一篇：繪圖軟體實作,請高手指教