在那些按键事件中实现,比如Keydown, keyup, keypress还有OnChange也可以。 写上类似下面的代码(我不知你的SQL怎样调用,大概差不多吧) if ADOQuery1.Active then ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select ClassName From yourquerytable Where ClassNO=' + edtClassNo.text); ADOQuery1.Open; if ADOQuery1.RecordCount>0 then edtClassName.text := ADOQuery1.FieldByName('ClassName').AsString; 或者 edtClassName.text := ADOQuery1['ClassName'] //是不是更简单呀
在EDIT1的onKeyPress里面写代码。 if key= #13 then begin //查询班级代码 end ;
还是用query 的SQL语句为好
在EDIT1的onKeyPress写 if key= #13 then begin Edit2.Text := Edit1.Text; end ;
if ADOQuery1.Active then ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select ClassName From yourquerytable Where ClassNO=''' + edtClassNo.text + ''''); ADOQuery1.Open; if ADOQuery1.RecordCount>0 then edtClassName.text := ADOQuery1.FieldByName('ClassName').AsString; 或者 edtClassName.text := ADOQuery1['ClassName'] //是不是更简单呀 ---------------- 沉沦中..........
写上类似下面的代码(我不知你的SQL怎样调用,大概差不多吧)
if ADOQuery1.Active then ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select ClassName From yourquerytable Where ClassNO=' + edtClassNo.text);
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
edtClassName.text := ADOQuery1.FieldByName('ClassName').AsString;
或者 edtClassName.text := ADOQuery1['ClassName'] //是不是更简单呀
if key= #13 then
begin
//查询班级代码
end ;
if key= #13 then
begin
Edit2.Text := Edit1.Text;
end ;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select ClassName From yourquerytable Where ClassNO=''' + edtClassNo.text + '''');
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
edtClassName.text := ADOQuery1.FieldByName('ClassName').AsString;
或者 edtClassName.text := ADOQuery1['ClassName'] //是不是更简单呀
----------------
沉沦中..........