UC知道delphi高手帮我看看这段代码
来源：百度知道 编辑：UC知道 时间：2024/06/03 14:13:20
begin
if (Trim(Edit1.Text)<>'')and( Trim(edit2.Text)<>'') then
SpeedButton1.Enabled := True
else
SpeedButton1.Enabled := False;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_Return) or(Key = vk_Down) then
Edit2.SetFocus;
end;
procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down))and (SpeedButton1.Enabled = True) then
SpeedButton1.SetFocus
else
Edit2.SetFocus;
if Key = vk_Up then
Edit1.SetFocus;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with data.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from TABLE1 where (username= :a)and(password= :b)');
Parameters.ParamByName('a').Value := Trim(E
delphi高手帮我看看这段代码
悬赏分：10 - 离问题结束还有 14 天 16 小时
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Trim(Edit1.Text)<>'')and( Trim(edit2.Text)<>'') then
SpeedButton1.Enabled := True
else
SpeedButton1.Enabled := False;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_Return) or(Key = vk_Down) then
Edit2.SetFocus;
end;
procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down))and (SpeedButton1.Enabled = True) then
SpeedButton1.SetFocus
else
Edit2.SetFocus; //;去除
if Key = vk_Up then
Edit1.SetFocus;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
with data.ADOQuery1 do //ADoquery 1有没有建好？？
begin
Close;
SQL.Clear;
SQL.Add(