prog_2005
سه شنبه 16 اسفند 1384, 09:50 صبح
من برای ورود اطاعات یکسری اطلاعات تکرای دارم که برای اینکه کاربر دوباره آنها را تایپ نکند از کد های زیر برای انتخاب موضوعات مورد نظر استفاده می کنم ولی سرعت خیلی کند است چه کنم برای سریع شده برنامه ؟
procedure TForm5.Edit5Change(Sender: TObject);
begin
adoquery1.Active:=false;
adoquery1.sql.Clear;
cod:='SELECT * FROM leter where sub like '+#39+'%'+edit5.text+'%'+#39;
adoQuery1.SQL.Add(cod);
ADOQuery1.Active:=true;
end;
procedure TForm5.DBLookupComboBox2CloseUp(Sender: TObject);
begin
edit5.text:=DBLookupComboBox2.text
end;
procedure TForm5.Edit5Change(Sender: TObject);
begin
adoquery1.Active:=false;
adoquery1.sql.Clear;
cod:='SELECT * FROM leter where sub like '+#39+'%'+edit5.text+'%'+#39;
adoQuery1.SQL.Add(cod);
ADOQuery1.Active:=true;
end;
procedure TForm5.DBLookupComboBox2CloseUp(Sender: TObject);
begin
edit5.text:=DBLookupComboBox2.text
end;