问题描述
我尝试了两种方法
首先,我尝试仅使用 ADOTable1.Fieldbyname 来填充 ms access db 中 First_Class 字段的 tedit,但没有显示任何内容
procedure TForm5.btnzaprosClick(Sender: TObject);
var
vremia: string;
sysTime: tdatetime;
begin
dbeTime.text:=vremia;
dbeClass1.Text:=ADOTable1.FieldByName('First_Class').Asstring;
end;
我也试过通过这个复杂的代码来做到这一点
procedure TForm1.btnzaprosClick(Sender: TObject);
// Процедура определения количества билетов по выбранному рейсу
var
vremia: string;
sysTime: tdatetime;
begin
if edDate.Text = datamodule2.ADOTable1DSDesigner.Text then
begin
{ showmessage ('Нашел дату'); }
datamodule2.ADOTable1.First;
while datamodule2.ADOTable1.Eof <> true do
begin
if cmbNumber.Text = datamodule2.ADOTable1_.Text then
begin
{ showmessage ('Нашел рейс'); }
vremia:
= datamodule2.ADOTable1_2.Text;
delete(vremia,1,11);
sysTime:
= time;
{ showmessage (timetostr (sysTime)); }
if sysTime < strtotime(vremia) then
begin
dbeTime.Text: = vremia;
dbeClass1.Text: = datamodule2.ADOTable1_3.Text;
dbeClass2.Text: = datamodule2.ADOTable1_4.Text;
exit;
end
else
showmessage('Данный рейс уже улетел в ' + vremia);
dbeTime.Text: = '';
dbeClass1.Text: = '';
dbeClass2.Text: = '';
exit;
end
else
datamodule2.ADOTable1.Next;
end;
end
else if edDate.Text = datamodule2.ADOTable2DSDesigner.Text then
begin
datamodule2.ADOTable2.First;
while datamodule2.ADOTable2.Eof <> true do
begin
if cmbNumber.Text = datamodule2.ADOTable2_.Text then
begin
vremia:
= datamodule2.ADOTable2_2.Text;
delete(vremia,11);
dbeTime.Text: = vremia;
dbeClass1.Text: = datamodule2.ADOTable2_3.Text;
dbeClass2.Text: = datamodule2.ADOTable2_4.Text;
exit;
end
else
datamodule2.ADOTable2.Next;
end;
end
else if edDate.Text = datamodule2.ADOTable3DSDesigner.Text then
begin
datamodule2.ADOTable3.First;
while datamodule2.ADOTable3.Eof <> true do
begin
if cmbNumber.Text = datamodule2.ADOTable3_.Text then
begin
vremia:
= datamodule2.ADOTable3_2.Text;
delete(vremia,11);
dbeTime.Text: = vremia;
dbeClass1.Text: = datamodule2.ADOTable3_3.Text;
dbeClass2.Text: = datamodule2.ADOTable3_4.Text;
exit;
end
else
datamodule2.ADOTable3.Next;
end;
end
else
begin
showmessage('Билетов на данный рейс нет');
dbeTime.Text: = '';
dbeClass1.Text: = '';
dbeClass2.Text: = '';
end;
end;
但这会立即引发大量错误,所以我选择不使用它
那么我将如何在单击按钮时填充 tdbedit?
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)