Hi, 各前輩
做資料庫編輯, 常需新增/修改資料庫資料, 非常煩索, 所以想做一個公用的的編輯程式, 只要在文字檔中設定好輸入的劃面, 及欄位名稱(需與對應的資料庫欄位名稱同), 即可由此做新增修改的功能
附件即為程式碼, 功能正常, 但執行行時會不定時的出現 Access Violation XXXX 的錯誤(該修改/新增的都有完成, 錯誤不影響功能), 查了好幾天, 還是無法解決, 只好請求前輩支援, 看是錯在那, 該如何修改, 或是有更好的方式來達到此目標

謝

使用前請將 ADOConnect 設到TableName = Customer 的地方 (或修改 ADODataSet1.CommandText)
Customer的欄位名稱需有 CustCode,CustName,Address (或修改CustPanel.txt中的TEDIT資料)

附加檔案：47b3a69ea8c18_ModifyClass.rar

trace看看在那一行出錯,
這樣比較容易查問題吧!!

有用 F8(Step Over)查過, 會在執行的Procedure (ConfirmEdt,ConfirmIns,Cancel) 最後的 End 出現錯誤

按F7再追進去啊!!

這應該很明顯是你的對應設計上有出現問題, 可能是某些對應到不存在的物件, 或者字段切入時, 物件還沒有被產生所導致, 利用f9tracer可以追蹤, 有一個好工具, 下載試用版來抓你的問題, 當程式當出時, 這個工具可以測到你錯誤的line code, 更方便知道是那裡出錯, 到這裡下載安裝吧
http://www.eurekalog.com/

Hi,
感謝 Max5020及版主的指導, 終於找到問題了
為保持各呼叫主程式的各別性, 我在主程式上下了公用外的指令 如
(GroupBox1.components[GroupBox1.FindComponent('Confirm').ComponentIndex] as TBitBtn).OnClick := ConfirmInsClick;
又Procedure ConfirmInsClick中下 Destroy, 造成Component('Confirm'), 已Free了, 但ConfirmInsClick, 還未完成
呼叫主程式改為下列方式即可

非常感謝 Max5020及版主的指導

procedure TForm1.Button2Click(Sender: TObject);
begin
If BG <> Nil Then
BG.Destroy;
BG := TEditGroupBox.Create(GroupBox1,'CustPanel.txt');
(GroupBox1.components[GroupBox1.FindComponent('Confirm').ComponentIndex] as TBitBtn).OnClick := ConfirmInsClick;
(GroupBox1.components[GroupBox1.FindComponent('Cancel').ComponentIndex] as TBitBtn).OnClick := CancelClick;
end;

procedure TForm1.CancelClick(Sender: TObject);
begin
// BG.Destroy;
GroupBox1.Visible := False;
end;