نمایش شمارنده سطر(اورژانسی) [بایگانی]

View Full Version : نمایش شمارنده سطر(اورژانسی)

پادشاه اسمان

یک شنبه 02 شهریور 1393, 06:03 صبح

سلام

DataGrid1و Adodc1 پروژه ای طراحی کردم. می خواستم وقتی ثبت را زدم به صورت خودکار شمارنده سطر یکی زیاد بشه واگر سطر پاکش کردم شمارنده سطر کم بشه.چه راه حلی دارید؟؟

ایلیا آخوندزاده

یک شنبه 02 شهریور 1393, 16:42 عصر

از کد زیر استفاده کن
Label.Caption = Adodc1.Recordset.RecordCount
دراینصورت روی یک لیبل نشان داده میشه و اگه ردیفی نباشه 0 نشون میده.
ولی این بحث تو تالار vb6 موجود هست جستجو میکردی پیدا میکردی

پادشاه اسمان

یک شنبه 02 شهریور 1393, 17:20 عصر

فقط یک لیبل بذارم این که اجرا نمی شه؟؟

ایلیا آخوندزاده

یک شنبه 02 شهریور 1393, 17:25 عصر

چرا اجرا نمیشه؟

پادشاه اسمان

یک شنبه 02 شهریور 1393, 17:35 عصر

چیزی داخل لیبل نشون نمی ده.

یه لیبل ساختم داخلش این کد را نوشتم ئ datasource=Adodc1

ایلیا آخوندزاده

یک شنبه 02 شهریور 1393, 17:37 عصر

یک تایمر با اینتروال 1 + کد مذکور در داخل تایمر + لیبل با نام دلخواه + ado + datagrid

ایلیا آخوندزاده

یک شنبه 02 شهریور 1393, 17:40 عصر

خودتون به adodc آدرس دهی کنید :
در صورتی که مشکلتون حل شد اطلاع بدید

پادشاه اسمان

یک شنبه 02 شهریور 1393, 18:03 عصر

تشکر درست شد.

حالا می خوام وقتی اسم و فامیل را وارد نکرده پیغام خطا را در یک کادر پیام نشون بده. هر کاری می کنم در 2 کادر جدانشون می ده.

سوال 2:چرا موقعی که اجرا می کنم حرف ک را می نویسم به صورت ...... هست؟

سوال 3:موقعی که می خوام تایپ فارسی کنم چی کار کنم شروع تایپ از راست باشه. چون در حالت عتدی از چپ شروع می شه.

ایلیا آخوندزاده

یک شنبه 02 شهریور 1393, 18:11 عصر

3 = قابلیت right to left رو در textbox به حالت true ببر. قابلیت alignment رو به 1-right justify تغییر بده
2 = فونت textbox رو عوض کن و به سری b مثلا b titr تغییر بده.
1 = از دستورات if و and استفاده کن

پادشاه اسمان

یک شنبه 02 شهریور 1393, 18:25 عصر

کد به این صورت نوشتم اجرا نشد.

در command:
if text1.text="" and text2.text=" "
then
confirm = MsgBox("ÝíáÏ äÇã ÑÇ Ñ ˜äíÏ", vbOKOnly + vbCritical, "ÎØÇ")

ایلیا آخوندزاده

یک شنبه 02 شهریور 1393, 18:31 عصر

از else استفاده نکردی؟

پادشاه اسمان

یک شنبه 02 شهریور 1393, 18:38 عصر

مگه else می خواد؟ کجا اضافه کنم؟

این شمارنده وقتی تعداد رکورد زیاد می شه نا مرتب می شه. به صورت زیر:
8
5
4
2
1
7
..

ایلیا آخوندزاده

یک شنبه 02 شهریور 1393, 18:45 عصر

command:
if text1.text="" and text2.text=" "
then
confirm = MsgBox("ÝíáÏ äÇã ÑÇ Ñ ˜äíÏ", vbOKOnly + vbCritical, "ÎØÇ")
else
دستور ثبت رو بنویس
end if

ایلیا آخوندزاده

یک شنبه 02 شهریور 1393, 18:46 عصر

کد شمارنده رو کپی کن و بعد از end if بنویس ببین درست میشه یا نه؟
تکرار میکنم کپی کن و از تایمر حذف نکن.در ضمن اینتروال تایمرت رو 1 باشه

والا من با 8411 تا رکورد تو شمارنده مشکلی نداشتم تو چطور با 8 تا رکورد شمارندت قاطی کرد

پادشاه اسمان

یک شنبه 02 شهریور 1393, 19:14 عصر

این عکس کد مربوط به شمارنده.

ایلیا آخوندزاده

یک شنبه 02 شهریور 1393, 19:17 عصر

اگه میشه پروژتونو ضمیمه کنید تا درستش کنم