【搞定】直接用TQuery insert数据问题**

afatdog

我在主窗体调用List_JLWJ()列出所有数据，比如说有10条，然后我用添加窗体新insert一体数据，然后再调用List_JLWJ()，显示数据还是10条，但是直接打开数据库的表，第11条数据已经在里面了。
只有当我退出系统重新登录之后，第11条数据才能出来

// 主窗体
procedure TForm_List.BizFormCreate(Sender: TObject);
begin
        List_JLWJ();
end;

procedure TForm_List.N1Click(Sender: TObject);
var
        Form_OfJLWJ:TForm_OfJLWJ;
begin
        Form_OfJLWJ:=TForm_OfJLWJ.Create(Context);
    Form_OfJLWJ.FormState:=1;
    if Form_OfJLWJ.ShowModal()=1 then
    begin
            List_JLWJ();
    end;
    Form_OfJLWJ.Free();
end;

procedure TForm_List.List_JLWJ();
var
        i:integer;
    ListItem:TListItem;
begin
        Query.CommandText:='SELECT NAME, DATETIME, REMARK FROM SB_T__JLWJ WHERE CREATOR='''+SystemCore.TSystemCore.Operator.ID+'''';
    Query.Open();
    Query.First();

    ListView_JLWJ.Items.BeginUpdate();
    ListView_JLWJ.Items.Clear();
        for i:=0 to Query.RecordCount-1 do
    begin
            ListItem:=ListView_JLWJ.Items.Add();
        ListItem.Caption:=Query.FieldByName('NAME').AsString;
        ListItem.SubItems.Add(SysUtils.FormatDateTime('YYYY-MM-DD HH:NN:SS', Query.FieldByName('DATETIME').AsDateTime));
        ListItem.SubItems.Add(Query.FieldByName('REMARK').AsString);
        Query.Next();
    end;
    ListView_JLWJ.Items.EndUpdate();
end;

procedure TForm_List.ToolButton2Click(Sender: TObject);
begin
        List_JLWJ();
end;


// 添加窗体
procedure TForm_OfJLWJ.Button_OKClick(Sender: TObject);
begin
    try
                try
        begin
                if FormState=1 then        // 添加
            begin
                Query.CommandText  :='INSERT INTO SB_T__JLWJ '
                                    +'( '
                                    +'    GUID, '
                                    +'    NAME, '
                                    +'    REMARK, '
                                    +'    CREATOR '
                                    +') '
                                    +'VALUES '
                                    +'( '
                                    +'    '''+Business.System.JSCommon.CreateGUIDStr()+''', '
                                    +'    '''+Edit_Name.Text+''', '
                                    +'    '''+Memo_Remark.Text+''', '
                                    +'    '''+SystemCore.TSystemCore.Operator.ID+''' '
                                    +') ';
                Query.Execute();
            end
            else if FormState=2 then        // 编辑
            begin
            end;

            Close();
            ModalResult:=1;
        end;
        except
                on E:Exception do
            begin
                    Dialogs.MessageDlg(E.Message, TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0);
            end;
        end;
    finally
    end;
end;

afatdog

结帖吧