ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='SELECT * FROM dbo.Table_工卡数据 WHERE [工卡编号]='''+Form5.Edit1.Text+'''';
ADOQuery1.Open;
Edit1.Text:=ADOQuery1.FieldByName('标题').AsString;
Edit2.Text:=ADOQuery1.FieldByName('机型').AsString;
Edit3.Text:=ADOQuery1.FieldByName('机号').AsString;
Edit4.Text:=ADOQuery1.FieldByName('工卡编号').AsString;
Edit5.Text:=ADOQuery1.FieldByName('任务号').AsString;
Edit6.Text:=ADOQuery1.FieldByName('工作区域').AsString;
运行后Edit框里全是空的……
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='SELECT * FROM dbo.Table_工卡数据 WHERE [工卡编号]='''+Form5.Edit1.Text+'''';
ADOQuery1.Open;
Edit1.Text:=ADOQuery1.FieldByName('标题').AsString;
Edit2.Text:=ADOQuery1.FieldByName('机型').AsString;
Edit3.Text:=ADOQuery1.FieldByName('机号').AsString;
Edit4.Text:=ADOQuery1.FieldByName('工卡编号').AsString;
Edit5.Text:=ADOQuery1.FieldByName('任务号').AsString;
Edit6.Text:=ADOQuery1.FieldByName('工作区域').AsString;
运行后Edit框里全是空的……