tik_tak
دوشنبه 06 آبان 1387, 21:42 عصر
با سلام
اگه بخوام تو دی بی گریدم رکوردایی رو نشون بده که فیلد STATE برابر TRUE است باید چی کار کنم
میخوام این دی بی گریدمم وصل باشه به دیتاسورس جدو لم (نمیخوام با کوئری باشه)آخه من از این خاصیت تو تیبلم استفاده کردم و دی بی گریدمم بهش وصله اگه بخواد به کوئری وصل بشه دیگه این خاصیت رو نداره :
در صورتی که تعداد داده های فیلد مورد نظر زیاد نیست (مثل مثال بالا در پست خودتون که فقط سه مقدار برای فیلد در نظر گرفته شده)، می تونید از رویداد OnGetText و OnSetText فیلد مورد نظر برای این کار استفاده کنید:
1- ابتدا بر روی جدول مورد نظر در دلفی دابل کلیک کنید .
2- در داخل Field Editor جدول راست کلیک کرده و گزینه Add All Fields را انتخاب کنید تا تمامی فیلدهای جدول بصورت استاتیک در دلفی تعریف شوند.
3- فیلد مورد نظر خود را انتخاب کرده و از داخل Object Inspector رویدادهای فوق را انتخاب و کدهای مربط به آنها را در Editor دلفی وارد کنید.
مثال:
کد:
procedure TForm1.ADOTable1ServiceGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin if Sender.Value = 1 then Text := 'خدماتی' else if sender.Value = 2 then Text := 'تولیدی' else Text := 'تعاونی';end;procedure TForm1.ADOTable1ServiceSetText(Sender: TField; const Text: String);begin if Text := 'خدماتی' then Sender.Value := 1 else if Text := 'تولیدی' then Sender.Value := 2 else Sender.Value := 3;end;
اگه بخوام تو دی بی گریدم رکوردایی رو نشون بده که فیلد STATE برابر TRUE است باید چی کار کنم
میخوام این دی بی گریدمم وصل باشه به دیتاسورس جدو لم (نمیخوام با کوئری باشه)آخه من از این خاصیت تو تیبلم استفاده کردم و دی بی گریدمم بهش وصله اگه بخواد به کوئری وصل بشه دیگه این خاصیت رو نداره :
در صورتی که تعداد داده های فیلد مورد نظر زیاد نیست (مثل مثال بالا در پست خودتون که فقط سه مقدار برای فیلد در نظر گرفته شده)، می تونید از رویداد OnGetText و OnSetText فیلد مورد نظر برای این کار استفاده کنید:
1- ابتدا بر روی جدول مورد نظر در دلفی دابل کلیک کنید .
2- در داخل Field Editor جدول راست کلیک کرده و گزینه Add All Fields را انتخاب کنید تا تمامی فیلدهای جدول بصورت استاتیک در دلفی تعریف شوند.
3- فیلد مورد نظر خود را انتخاب کرده و از داخل Object Inspector رویدادهای فوق را انتخاب و کدهای مربط به آنها را در Editor دلفی وارد کنید.
مثال:
کد:
procedure TForm1.ADOTable1ServiceGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin if Sender.Value = 1 then Text := 'خدماتی' else if sender.Value = 2 then Text := 'تولیدی' else Text := 'تعاونی';end;procedure TForm1.ADOTable1ServiceSetText(Sender: TField; const Text: String);begin if Text := 'خدماتی' then Sender.Value := 1 else if Text := 'تولیدی' then Sender.Value := 2 else Sender.Value := 3;end;