کمک در مورد ساخت نرم افزار ساعت ورود و خروج کارگران

[morteza2006]

با سلام دوستان عزیز
کسی هست که یه نمونه برنامه کنترل ورود و خروج داشته باشه تحت اکسل
ممنون میشم

[shamsololama]

با درود فراوان

یک برنامه ورود و خروج آماده در اکسل طراحی کردم که در پالایشگاه فاز های 12 و 14 از آن استفاده می کنند که ساعت های که به وسیله دستگا های بارکد خوان ثبت می شوند را آنالیز کرده و بصورت گزارش ثبت ورود و خروج ماهانه و بصورت تایم شیت در اختیار ما قرار می دهد
برای توضیحات بیشتر می توانید تماس بگیرید
09177733411

[morteza2006]

با دتشکر آقای شمسالعلما
ولی من احتیاج به نرم افزاری دارم که دستی ورود و خروج رو ثبت کنند

[shamsololama]

با درود فراوان

خوب فرقی در در برنامه ایجاد نمیشه چون در هر صورت چه دستی و چه با دستگاه کارت خوان ساعت ها در اختیار برنامه قرار می گیرید
مهم این است که شما بعد از ورود و ثبت ساعت ها چه خروجی هایی را از آن بخواهید و چه نوع گزارشهای مورد نیاز شماست که بعد ثبت ورود خروج چه کاری را انجام دهد

[morteza2006]

خیلی ممنون از شما استاد عزیزم
من دارم رو یه برنامه حقوق و دستمزد کار میکنم ولی یه سری مشکلات دارم که فکر میکنم فقط به دست شما رفع میشن مثلا میخوام وقتی که فرم من باز شد و اطلاعات درونش ثبت کردم اگه حتی یکی از تکس باکسهام خالی بودن پیغام بده واگه پر بودن ثبت بشه و اگه تو یه ستون مثلا کد پرسنلی افراد اگه تکراری بود اصلا فرم اجازه ثبت اونو بهم نده ممنون میشم کمکم کنید.

[shamsololama]

با درود فراوان

برای اینکه اگر تکست باکسها خالی بود اجاز نده از شرط استفاده کن
که می تونی تکست باکسها رو یکی یکی برسی کنی و یا بصورت آرایه
if textbox1.text="" ortextbox2.text="" or textbox 3.text ="" then
msgbox "اطلاعات را کامل پر کنید "
exit sub
end if

و رد زیر هم دستور ثبت می نویسی که در صورت خالی بودن هر کدام از تسکت باکسها لیست ثبت نمیشه

و برای تکرارهای هم که ثبت نشه به همین صورت از ایک شرط استفاده میکنید

و برای پیدا کردن تکراری با حقله لیست را جستجو کند در صورت تکراری بودن ثبت نکند
که می توانید از حلقه
for each
استفاده کنید که در صورت تکراری بودن از دوستور خارج شود مثل بالا

[morteza2006]

خیلی خیلی ممنونم از اینکه واضح پاسخ میدین
دقیقا به جوابم رسیدم
حالا ببخشید من کدی تهیه کردم که با زدن کلید ثبت , اطلاعات تکس باکس 1و2و3در خونه های a1 , b1 , c1 ثبت میشن و دوباره اطلاعات جدیدی که در تکس باکسهای 1 و 2 و 3 نوشته میشن در خونه های a2 , b2 , c2 ثبت میشن
میشه کاری کنیم که اگر اطلاعاتی که در تکس باکس 1 نوشتیم بررسی بشه که در ستون a نباشه یعنی از ورود اطلاعات تکراری در ستون a جلوگیری بشه و با زدن کلید ثبت پیغام بده که مثلا اطلاعات تکس باکس 1 در ستون a تکراری میباشد . ممنون
[hr]
ببخشین نمیدونم جای این سوال اینجاس یا نه ولی اگه اینجا نیس توروخدا ببخشین
چطور میشه که وقتی یکی از گزینه های کمبوباکس رو انتخاب کردیم (مثلا اولین گزینه کمبوباکس) ردیف3 هیدن بشه و وقتی گزینه دیگری از کمبو باکس رو انتخاب کردیم (مثلا دومین گزینه کمبو باکس) ردیف 6 هیدن بشه و وقتی گزینه دیگری از کمبو باکس رو انتخاب کردیم (مثلا سومین گزینه کمبو باکس) ردیف 9 هیدن بشه
ممنونم

[shamsololama]

خیلی خیلی ممنونم از اینکه واضح پاسخ میدین
دقیقا به جوابم رسیدم
حالا ببخشید من کدی تهیه کردم که با زدن کلید ثبت , اطلاعات تکس باکس 1و2و3در خونه های a1 , b1 , c1 ثبت میشن و دوباره اطلاعات جدیدی که در تکس باکسهای 1 و 2 و 3 نوشته میشن در خونه های a2 , b2 , c2 ثبت میشن
میشه کاری کنیم که اگر اطلاعاتی که در تکس باکس 1 نوشتیم بررسی بشه که در ستون a نباشه یعنی از ورود اطلاعات تکراری در ستون a جلوگیری بشه و با زدن کلید ثبت پیغام بده که مثلا اطلاعات تکس باکس 1 در ستون a تکراری میباشد . ممنون

ج:
جواب این سئوال رو تو پست قبلی هم خدمت شما عرض کرده بودم

شما برای اینکار نیاز است که از یک حلقه استفاده کنید که ستون A را براتون چک کنه و اگر ایتمی برابر با تکست باکس یک پیدا کرد پیغام بده

مثال:

For Each c In Range("A1:A1000")
If c = TextBox1.Text And c <> "" Then
MsgBox "This is repetitive "
Exit Sub
End If
Next

[hr]
ببخشین نمیدونم جای این سوال اینجاس یا نه ولی اگه اینجا نیس توروخدا ببخشین
چطور میشه که وقتی یکی از گزینه های کمبوباکس رو انتخاب کردیم (مثلا اولین گزینه کمبوباکس) ردیف3 هیدن بشه و وقتی گزینه دیگری از کمبو باکس رو انتخاب کردیم (مثلا دومین گزینه کمبو باکس) ردیف 6 هیدن بشه و وقتی گزینه دیگری از کمبو باکس رو انتخاب کردیم (مثلا سومین گزینه کمبو باکس) ردیف 9 هیدن بشه
ممنونم



این کد رو می توانید در کمبوباکس مورد نظر خود بنویسید

On Error Resume Next
If ComboBox1.ListIndex = 0 Then
Rows("3:3").Select
Selection.EntireRow.Hidden = True

ElseIf ComboBox1.ListIndex = 1 Then
Rows("6:6").Select
Selection.EntireRow.Hidden = True
ElseIf ComboBox1.ListIndex = 2 Then

Rows("9:9").Select
Selection.EntireRow.Hidden = True

[morteza2006]

خیلی ممنونم از اینکه راهنمایی کردین
استاد عزیز این کدهایی رو که گفتین تو کمبو باکس کپی کردم ولی هر کدوم از آیتم های کمبو رو انتخاب میکنم فقط سطر 3 رو هیدن میکنه و والسلام
درضمن کمبو باکس من تو فرم نیستا تو صفحه اصلی اکسله

[shamsololama]

با درود فراوان

تو دستور قبلی پایان کد End if رو نگذاشتم

On Error Resume Next
If ComboBox1.ListIndex = 0 Then
Rows("3:3").Select
Selection.EntireRow.Hidden = True

ElseIf ComboBox1.ListIndex = 1 Then
Rows("6:6").Select
Selection.EntireRow.Hidden = True
ElseIf ComboBox1.ListIndex = 2 Then

Rows("9:9").Select
Selection.EntireRow.Hidden = True
End If

من کد رو توی صفحه هم تست کردم مشکلی نداشت

[morteza2006]

خیلی ممنون از راهنماییتون ولی باید بگم بازم کار نکرد
شاید مشکل از نرم افزار خودم باشه
بهر حال ممنونم از کمکتون

[morteza2006]

ببخشید آقای شمس العلما من تو رویداد chenge کمبو باکس این کدها رو کپی کردم درسته یا؟؟!!!!!!

[shamsololama]

با درود فراوان

بله برای اینکه موقع تغییر متن کمبوباکس به جواب برسیم نیاز است که در رویداد چنج قرار دهید

[mohlcd]

سلام دوستان شما میتوانید از لینک زیر برنامه حقوق و دستمزد را دریافت کنید .
دانلود کنید (http://mrmohmb.persiangig.com/other/HOGHOGH.xlsx)

[Javid Mokhtari]

سلام دوستان شما میتوانید از لینک زیر برنامه حقوق و دستمزد را دریافت کنید .
دانلود کنید (http://mrmohmb.persiangig.com/other/HOGHOGH.xlsx)


با سلام.
لینک مشکل داره.
اگه تو یک تایپیک قرار می دادین کافی بود و لزومی نداشت تو چند تا تایپیک قرار بدین.....با تشکر.....

[alisabet]

با درود فراوان

یک برنامه ورود و ---وج آماده در اکسل طراحی کردم که در پالایشگاه فاز های 12 و 14 از آن استفاده می کنند که ساعت های که به وسیله دستگا های بارکد خوان ثبت می شوند را آنالیز کرده و بصورت گزارش ثبت ورود و ---وج ماهانه و بصورت تایم شیت در اختیار ما قرار می دهد
برای توضیحات بیشتر می توانید تماس بگیرید
09177733411


سلام :
1- دستگاه ساعت اداره ما pwlan 1400 ساخت شركت دنياي پردازش هست
2- نرم افزار تحت داس داره گه اطلاعات ورود و خـروج هر روز را با نام تاريخ اون روز و پسوند dat استخـراخ و ثبت ميكنه
3- تا حالا با هيچ نرم افزار تحت داس يا ويندوز نتونستم اطلاعات اين فايلها رو مشاهده يا ويرايش كنم بجز نرم افزار خود شركت
4- ايا نرم افزار شما ميتونه با اين ساعت كار كنه
5- ايا نرم افزار شما مستقيماً اطلاعات رو از ساعت ميگيره
6-ايا براي دريافت اطلاعات از ساعت نياز به نرم افزار شركت ميباشد

[~M*E*H*D*I~]

سلام
بانک اطلاعاتی ساعت چیه ؟ دیتاها تو چه نرم افزاری ذخیره میشه؟

[alisabet]

سلام
بانک اطلاعاتی ساعت چیه ؟ دیتاها تو چه نرم افزاری ذخیره میشه؟


كل نرم افزار را در آدرس زير گذاشته ام با اين توضيحات كه :

1- نحوه اجراي برنامه در داس اين است
cd pwlan
pwlan.exe
و رمز ورود به برنامه هم pw1001

2- فايلهائي كه درفولدر برنامه هستند و بطور مثال الگوي نام گذاري انها c910324 ميباشد فايلهاي اطلاعات روزانه هستند كه توسط اين نرم افزار از دستگاه استخراج ميشود كه مشكل هم رويت ويرايش اين فايلها ميباشد

http://upfa.zxn.ir/uploads/13413908291.rar

[~M*E*H*D*I~]

گاهی نرم افزار های ساعت با فرمت های مختلف خروجی دارن و گاهی هم با اتصال به دیتا بیس میشه دیتا ستخراج کردم ، دیتابیس ساعت شما باید اوراکل اکسس sql یا یه چیز مشابه باشه در غیر اینصورت اگه بشه خروجی حتی به صورت تکست هم گرفت میشه با اکسل لینکش کرد