为什么
edit1会比dbgrid慢一拍呀都在同一个form里,
用的是同一个table1,
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adotable1.Open;
edit1.Text :=adotable1.FieldByName('姓名').AsString ;
edit2.Text :=adotable1.fieldbyname('工资').AsString ;
if application.MessageBox('dd','dd',mb_yesno+mb_iconinformation)=idyes then
adotable1.Delete ;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
adotable1.Open;
edit1.Text :=adotable1.FieldByName('姓名').AsString ;
edit2.Text :=adotable1.fieldbyname('工资').AsString ;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.open;
edit1.Text :=adotable1.FieldByName('姓名').AsString ;
edit2.Text :=adotable1.fieldbyname('工资').AsString ;
adotable1.Prior
end;procedure TForm1.Button2Click(Sender: TObject);
begin
adotable1.Open ;
edit1.Text :=adotable1.FieldByName('姓名').AsString ;
edit2.Text :=adotable1.fieldbyname('工资').AsString ;
adotable1.Next;
end;
edit1会比dbgrid慢一拍呀都在同一个form里,
用的是同一个table1,
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adotable1.Open;
edit1.Text :=adotable1.FieldByName('姓名').AsString ;
edit2.Text :=adotable1.fieldbyname('工资').AsString ;
if application.MessageBox('dd','dd',mb_yesno+mb_iconinformation)=idyes then
adotable1.Delete ;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
adotable1.Open;
edit1.Text :=adotable1.FieldByName('姓名').AsString ;
edit2.Text :=adotable1.fieldbyname('工资').AsString ;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.open;
edit1.Text :=adotable1.FieldByName('姓名').AsString ;
edit2.Text :=adotable1.fieldbyname('工资').AsString ;
adotable1.Prior
end;procedure TForm1.Button2Click(Sender: TObject);
begin
adotable1.Open ;
edit1.Text :=adotable1.FieldByName('姓名').AsString ;
edit2.Text :=adotable1.fieldbyname('工资').AsString ;
adotable1.Next;
end;
不要频繁的打开,这样会影响速度的。
Edit的值可以在Table的AfterScroll事件中更新的。
与showmessage 有什么区别,
当我改成showmessage全部正常请解释一下谢谢
2。next和Prior放在第一行
我现在是问
if application.MessageBox('dd','dd',mb_yesno+mb_iconinformation)=idyes then
与showmessage 有何什么区别,
谢谢啦