if (you.回答=true) and (第一个回答) then you.总分=you.现有分+50 end.

Question

我用LISTVIEW显示数据库的内容，在增加一个记录、后，怎么能马上在LISTVIEW上显示 出来啊，下面是增加的代码
procedure TForm1.SpeedButton1Click(Sender: TObject);
beginif (LabeledEdit1.text='') then
begin
 messagebox(application.Handle,'姓名,'提示',mb_iconerror+mb_ok);
 exit;
 end;
 if form1.Caption ='增加' then
 begin
ADOTable1.Append;
ADOTable1 .FieldByName('姓名').AsString:=LabeledEdit1.text;
ADOTable1.post;
end;

Answer 1

你在添加到数据库的同时也添加到 LISTVIEW 就 OK 了嘛：）
删除、更新时也一样啊：）

Answer 2

用LISTVIEW显示数据库的内容...............那就把listView的内容重新加载一遍吧

Answer 3

"if (you.回答=true) and (第一个回答) then you.总分=you.现有分+50 end."
你没发现写错了吗? 少了一个begin!
if not (You.标题=Right) then I.吹水

Answer 4

是的，不少了一个begin,也少了事件过程

Answer 5

if (you.回答=true) and (第一个回答) then you.总分=you.现有分+50 end. 这个标题，有创意，乍一看，还以为送you.现有分+50这么多

Answer 6

procedure TForm1.SpeedButton1Click(Sender: TObject);
var item: TListItem;
beginif (LabeledEdit1.text='') then
begin
 messagebox(application.Handle,'姓名,'提示',mb_iconerror+mb_ok);
 exit;
 end;
 if form1.Caption ='增加' then
 begin
ADOTable1.Append;
ADOTable1 .FieldByName('姓名').AsString:=LabeledEdit1.text;
ADOTable1.post;item := ListView1.Items.Add;
item.Caption := LabeledEdit1.Text;
item.MakeVisible(False);
end;