amirkazem
شنبه 08 شهریور 1393, 23:13 عصر
باسلام .
برنامه ای داریم که بانک اطلاعاتی آن اکسس می باشد.یکی ازروشهای جستجورابراساس کدملی قرارداده ایم ولی بعدازواردکردن اولین رقم ازکدملی پیغام خطامی دهد.(فایل تصویرضمیمه)
کدمربوط به جستجوهم به شرح ذیل می باشد:
procedure TForm13.Edit1Change(Sender: TObject);begin
if edit1.Text<>'' then
begin
adotable1.Filter:='cod_melli like ''%' + Trim(Edit1.Text) + '%''';
adotable1.Filtered := True;
end;
if edit1.Text='' then
adotable1.Filtered:=false;
end;
procedure TForm13.FormCreate(Sender: TObject);
begin
edit1.Color:=CLYellow;
end;
لطفاًارشادبفرمایید.
برنامه ای داریم که بانک اطلاعاتی آن اکسس می باشد.یکی ازروشهای جستجورابراساس کدملی قرارداده ایم ولی بعدازواردکردن اولین رقم ازکدملی پیغام خطامی دهد.(فایل تصویرضمیمه)
کدمربوط به جستجوهم به شرح ذیل می باشد:
procedure TForm13.Edit1Change(Sender: TObject);begin
if edit1.Text<>'' then
begin
adotable1.Filter:='cod_melli like ''%' + Trim(Edit1.Text) + '%''';
adotable1.Filtered := True;
end;
if edit1.Text='' then
adotable1.Filtered:=false;
end;
procedure TForm13.FormCreate(Sender: TObject);
begin
edit1.Color:=CLYellow;
end;
لطفاًارشادبفرمایید.