سلام به همه دوستان
من یه مشکلی دارم
توی یک برنامه برای جستجو در همه فرم ها یک فرم در نظر گرفتم که با ربط دادن ÷روسیجر یا جدول به دیتا بیس این فرم عمل جستجو باید انجام شود
با این کد:
[code]
with DataSetForSearch do
Locate(FieldsInDataSet[TabControl1.TabIndex+1],Values[TabControl1.TabIndex + 1],[loCaseInsensitive]) ;
[/code]
و یا بصورت کاملتر با این کد:
[code]
SearchOptions := [lopartialkey , loCaseInsensitive ] ;
If EdtSharh.Text <> '' Then
If Not DataSetForSearch.Locate(FieldsInDataSet[TabControl1.TabIndex+1],Values[TabControl1.TabIndex + 1],SearchOptions) Then
FarsiMessage1('.Çíä ãæÑÏ íÏÇ äÔÏ',mtError)
else
Begin
FoundRecord[ IndexFound ] := DataSetForSearch.RecNo ;
IndexFound := IndexFound + 1 ;
RecordNumber := DataSetForSearch.RecNo ;
End;
EdtSharh.SelectAll ;
If ( HaveStringGrid ) And ( RecordNumber > 0 ) Then
TempStringGrid.Row := RecordNumber - 1 ;
[/code]
اما فقط یکبار جستجو میکند
در ضمن من میخواهم جستجو برای قبلی و بعدی هم داشته باشد
کمکم کنید لطفا
