德爾福：TDBGrid沒有更新

Question

我有一個表格，它有一個DataSource,AdoQuery,AdoConnection,DBgrid加上幾個edit和memo。 用戶輸入他的用戶名，街道地址等。然後點擊'保存'按鈕。在那段時間，應用程序將詳細信息寫入逗號分隔的txt文件，該文件連接到Access鏈接表。當用戶點擊「保存」按鈕時，它會立即寫入備忘錄，但不會實時更新dbgrid數據庫，只有在重新打開應用程序時纔會更新。

我搜索了很多，但每個人都有不同的建議：做一個dbgrid refresh, adorequery, post, append, showmodal, open and close the database等

我的問題是，爲什麼在DBGrid中的LiveUpdate不起作用？

源碼如下：

---

單元測試;

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, StrUtils, Grids, Buttons, pngimage, ExtCtrls, 
    ComCtrls, DBGrids, DB, DBTables, ColorGrd, DirOutln, ADODB, 
    FMTBcd, SqlExpr, DBCtrls, DBClient, jpeg; 

    type 
     TForm1 = class(TForm) 
     Memo1: TMemo; 
     exit: TButton; 
     resetbtn: TButton; 
     Label3: TLabel; 
     GroupBox1: TGroupBox; 
     Label7: TLabel; 
     Label8: TLabel; 
     GroupBox2: TGroupBox; 
     Label1: TLabel; 
     Edit1: TEdit; 
     Edit2: TEdit; 
     Edit3: TEdit; 
     Generate: TButton; 
     GroupBox3: TGroupBox; 
     Label5: TLabel; 
     Label6: TLabel; 
     CheckBox1: TCheckBox; 
     Image1: TImage; 
     Image2: TImage; 
     Button6: TButton; 
     DateTimePicker1: TDateTimePicker; 
     GroupBox4: TGroupBox; 
     Label10: TLabel; 
     Label9: TLabel; 
     dellastentry: TButton; 
     ADOConnection1: TADOConnection; 
     ADOQuery1: TADOQuery; 
     DataSource1: TDataSource; 
     DBGrid1: TDBGrid; 
     Label13: TLabel; 
     Label14: TLabel; 
     Label16: TLabel; 
     Label17: TLabel; 
     Label18: TLabel; 
     Label2: TLabel; 
     Label4: TLabel; 
     Label11: TLabel; 
     Label15: TLabel; 
     ADOQuery1Username: TWideStringField; 
     ADOQuery1RequestedNumber: TWideStringField; 
     ADOQuery1AllocatedNumber: TWideStringField; 
     ADOQuery1DateofRequest: TWideStringField; 
     procedure exitClick(Sender: TObject); 
     procedure resetbtnClick(Sender: TObject); 
     procedure FormCreate(Sender: TObject); 
     procedure dellastentryClick(Sender: TObject); 
     procedure GenerateClick(Sender: TObject); 
     procedure CheckBox1Click(Sender: TObject); 
     procedure FormShow(Sender: TObject); 
     procedure Button6Click(Sender: TObject); 
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 



     private 
     { Private declarations } 
     public 
     { Public declarations } 
     end; 

    var 
     Form1: TForm1; 

    implementation 


    {$R *.dfm} 

    function GetCurrentUserName: string; 
    const 
     cnMaxUserNameLen = 50; 
    var 
     sUserName: string; 
     dwUserNameLen: DWORD; 
    begin 
     dwUserNameLen := cnMaxUserNameLen - 1; 
     SetLength(sUserName, cnMaxUserNameLen); 
     GetUserName(PChar(sUserName), dwUserNameLen); 
     SetLength(sUserName, dwUserNameLen); 
     Result := sUserName; 
    end; 


    procedure TForm1.exitClick(Sender: TObject); 
    begin 
    Memo1.Lines.SaveToFile('C:\Numbergen\NumberDB.txt'); 
    form1.Close; 

    end; 

    procedure TForm1.resetbtnClick(Sender: TObject); 
    begin 
    edit1.Clear; 
    edit2.Clear; 
    end; 


    procedure TForm1.FormCreate(Sender: TObject); 
    begin 
     Memo1.Lines.LoadFromFile('C:\Numbergen\NumberDB.txt'); 
     Memo1.WordWrap := true; 
    end; 

    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
     Shift: TShiftState); 
    begin 
     form1.ShowModal; 
     form1.Free; 
    end; 

    procedure TForm1.FormShow(Sender: TObject); 
     var lStrings: TStringList; 
    begin 
    DataSource1.DataSet.Append; 
    Label6.Caption :=GetCurrentUserName; 

     lStrings := TStringList.Create; 
     LStrings.Delimiter := ','; 
     lStrings.DelimitedText := Memo1.Lines[Memo1.Lines.Count-1]; 
     Label8.Caption:= lStrings.Strings[0]; 
     Label13.Caption:= lStrings.Strings[1]; 
     Label14.Caption:= lStrings.Strings[2]; 
     Label15.Caption:= lStrings.Strings[3]; 
    end; 

    procedure TForm1.dellastentryClick(Sender: TObject); 
    begin 
    Memo1.Lines.Delete(Memo1.Lines.Count-1); 
    end; 

    procedure TForm1.Button6Click(Sender: TObject); 
    var val2, sum: Integer; 
    begin 
     val2 := StrToInt(Edit3.Text); 
     sum := val2; 
     Edit3.Text := (IntToStr(sum+1)); 
    end; 

    procedure TForm1.CheckBox1Click(Sender: TObject); 
    begin 
    if checkbox1.Checked 
     then 
     Edit1.Text := Label6.Caption 
     else Edit1.Text :=''; 
    end; 

    procedure TForm1.GenerateClick(Sender: TObject); 
    var val1, val2, sum: Integer; 
    begin 
    val1 := StrToInt(Edit2.Text); 
    val2 := StrToInt(Edit3.Text); 
    sum := val1 + val2; 
    Edit3.Text := IntToStr(sum); 
    Memo1.Lines.SaveToFile('C:\Numbergen\NumberDB.txt'); 

     if edit1.Text =('') 
     then MessageDlg('Invalid/Blank Username! Please enter one!',mtError, mbOKCancel, 0) 
     else 
     memo1.Lines.Add(edit1.Text+',' +edit2.Text+','+IntToStr(sum-val1)+'-'+edit3.text+ ','+formatdatetime('yyyy/mm/dd', datetimepicker1.date)); 
    end; 
    end. 

謝謝

Answer 1

這不是一個TDBGrid中的責任，將更改保存到數據，你需要做的是自己。換句話說，你的數據沒有得到保存的原因是你實際上沒有調用AdoQuery1的「保存」方法。這種方法實際上叫做Post，所以在你的代碼中的某處，例如子虛烏有的「保存」按鈕的OnClick處理程序，你應該做的

if AdoQuery1.State in [dsEdit, dsInsert] then 
    AdoQuery1.Post; 

順便說一句，你的數據會保存與您現有的代碼在所有的原因是，某些數據集操作（不DBGRID的）造成的任何變化數據集編號爲Post ed。這些包括使數據集的邏輯光標滾動，例如，通過單擊DBGrid中的不同行或關閉數據集。但依賴於此非常糟糕的做法 - 您的表單應該始終爲用戶提供一種明確的方式來保存和取消對數據集的更改。

也btw，從來沒有寫代碼就像你在你的FormKeyDown - 這是一個意外等待發生。

Answer 2

正如你可以在這裏看到：

procedure TForm1.FormShow(Sender: TObject); 
     var lStrings: TStringList; 
    begin 
    DataSource1.DataSet.Append; 
    Label6.Caption :=GetCurrentUserName; 

的DataSet是dsInsert這裏，所以你必須保存更改。

有兩種方法可以做到這一點：

• 檢查DataSet狀態MartynA答案

• 添加一行DataSource.DataSet.Post;在你的代碼。

btw，我沒有在你的代碼中看到你將數據保存在數據庫中。