nafise حق آبو گِل داره! وضعيت: آفلاين 19 خرداد ماه ، 1382 تعداد ارسالها: 380 امتياز: تشکر کرده: 0 تشکر شده 0 بار در 0 پست
محل سكونت: مشهد
ارسال شده در: پنجشنبه، 9 بهمن ماه ، 1382 19:00:46 موضوع مطلب: جستجو در دیتا بیس
سلام به همه دوستان
من یه مشکلی دارم
توی یک برنامه برای جستجو در همه فرم ها یک فرم در نظر گرفتم که با ربط دادن ÷روسیجر یا جدول به دیتا بیس این فرم عمل جستجو باید انجام شود
با این کد:
[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]
اما فقط یکبار جستجو میکند
در ضمن من میخواهم جستجو برای قبلی و بعدی هم داشته باشد
کمکم کنید لطفا _________________ در تاریخ زندگی خوانده ام : دوستی یک اتفاق،جدایی یک قانون، و تنهایی یک رسم است.
سوالات رايج مربوط به تالارهاي گفتمان
جستجو
گروههاي كاربري
مشخصات
ورود به سيستم و كنترل پيغامهاي شخصي
ورود به سيستم
