نمایش اعداد بصورت currency

[maisam57]

سرچ کردم چیز بدرد بخور پیدا نشد
من میخوام اطلاعات پولی بصورت currency نمایش داده بشه یعنی بطور پیش فرض توی edit ها عدد صفر باشه و اگه فیلد رو از نوع calc معرفی کنم محاسبات جمع و تفریق و ضرب و تقسیم رو چطوری به query بنویسم و در ضمن اعداد بصورت 000/456/123 مثلا چاپ باشه که باید روی هر سیستمی که برنامه رو نصب میکنم توی regional setting تنظیمات رو درست کنم آیا راه دیگه ای وجود نداره

[babak869]

از چه بانکی استفاده میکنی؟ روی AdoTable دوبار کلیک کن و تمام فیلدهای دیتابیس رو اضافه کن . حالا روی هر فیلدی که میخوای کلیک کن و خاصیت Currency اونو True کن .ولی باید در کنترل پنل نحوه نمایش اعداد پولی رو بصورت 123.123.000 انجام بدی نه 123.123.00 و من ندیدم با کد بشه این کار رو کرد . شاید دوستان بدونند و بتونند کمکتون کنند
موفق باشید

[hedayat]

از چه بانکی استفاده میکنی؟ روی AdoTable دوبار کلیک کن و تمام فیلدهای دیتابیس رو اضافه کن . حالا روی هر فیلدی که میخوای کلیک کن و خاصیت Currency اونو True کن .ولی باید در کنترل پنل نحوه نمایش اعداد پولی رو بصورت 123.123.000 انجام بدی نه 123.123.00 و من ندیدم با کد بشه این کار رو کرد . شاید دوستان بدونند و بتونند کمکتون کنند
موفق باشید



یه راه دیگه هم من بگم
همون جا به جای اینکه خاصیت Currency اونو True کنی جلوی خاصیت Display Format اون فیلد
تایپ کن #,
و دیگه نیازی به تنظیمات کنترل پنل نیز نداری.

[arshia_]

کد هم برای این کار داریم
edit1.text:= N := StrToCurr(edit1.text);
البته باید طوری کار کنی که مقادیر غیر عددی توی برنامه وارد نشه
وگرنه خطا می ده
می تونی از این مثال استفاده کنی
http://www.4shared.com/file/8887167/900fd847/Arghaam.html
اگر نیاز به توضیح در مورد برنامه داشیت ایجا رو یه نگاه بنداز
http://delphigroup.blogfa.com/post-27.aspx