像下面的代码应该怎么弄呢?它老出错我查不出。还有我添加了个timer,不知道该怎么去控制它啊。望有仙人指路啊。可以不加数据库,只需有范围的选择就行。大伙帮帮忙啦。谢谢了。
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
Edit1: TEdit;
open: TButton;
stop: TButton;
procedure openClick(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure stopClick(Sender: TObject);
procedure stopClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
var
ADOQuery1;
implementation {$R *.dfm} procedure TForm1.openClick(Sender: TObject);
begin
ADOQuery1->open();
ADOQuery1->first();
while(!stop)
{
if (ADOQuery1->eof)
{
ADOQuery1->First();
}
else
{
edit1->text=ADOQuery1->filedByName("id_CONE")->Asstring;
application->processmessage();
ADOQuery1->next();
}
}
end; procedure TForm1.Edit1Change(Sender: TObject);
begin
Tstringlist *plist:new Tstring list();
void_fastcall Tform1::(Tobject *sender)
{
stop=false;
ADOQuery1->close();
ADOQuery1->SQL->clear();
ADOQuery1->SQL->add("select id_COODE from 手机号码 where flag='0'");
end; end.
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
Edit1: TEdit;
open: TButton;
stop: TButton;
procedure openClick(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure stopClick(Sender: TObject);
procedure stopClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
var
ADOQuery1;
implementation {$R *.dfm} procedure TForm1.openClick(Sender: TObject);
begin
ADOQuery1->open();
ADOQuery1->first();
while(!stop)
{
if (ADOQuery1->eof)
{
ADOQuery1->First();
}
else
{
edit1->text=ADOQuery1->filedByName("id_CONE")->Asstring;
application->processmessage();
ADOQuery1->next();
}
}
end; procedure TForm1.Edit1Change(Sender: TObject);
begin
Tstringlist *plist:new Tstring list();
void_fastcall Tform1::(Tobject *sender)
{
stop=false;
ADOQuery1->close();
ADOQuery1->SQL->clear();
ADOQuery1->SQL->add("select id_COODE from 手机号码 where flag='0'");
end; end.
解决方案 »
- 中文乱码了,请问如何解决
- 我不记得在delphi下,如何使用链表了。请高手帮忙,我只有20分。倾禳相送。
- 大家能否给我一些建议。让我少走些弯路呢?
- 有谁知道报这个错是什么出错了?
- 用DecisionQuery+Datasetprovider构成com+,用socketconnection+clientDataset+DecisionCube+DataSource构成client
- 谁能提供《中小企业客户管理系统》的资料!---帮朋友做的毕业设计!(高分求助500)
- 如何使远程的可视ActiveX加载到本地并显示出来(比如TEDITX)?
- Delphi中哪个函数和VB中的Right函数等价!
- 大家有没有写过服务程序,请给小弟一些建议
- 三层架构开发问题 d7 +sql2008 +TSocketConnection+ScktSrvr.exe 客户端断网后怎样才能重新连接
- 如果修改密码
- Undeclared identifier: 'TAboutBox'
“=”变“:=”
“{”变“begin”
“}”变“end”
if后加then
真牛!