dastiary
03-12-2005, 15:41
سلام دوستان
من يك برنامه حضور وغياب با تعداد 100 ركورد دارم تمام اين 100 نفربنا به نياز ميتوانند روزانه دوساعت مرخصي بگيرند.برنامه ساعت خروج هر فردرا با مقدار 2ساعت جمع كرده
Text1.Text = DateAdd("h", 2, Time )
وبه عنوان TheTime در يك فايل متني بصورت forwritingذخيره ميكند. براي اينكه مقدار تاخير را حساب كنيم برنامه ساعت سيستم را از TheTime كم ميكند
( Label6.Caption = Format(Str(Time - TheTime), "hh:mm:ss
وهر بار پس ازبازگشت فرد.متغير TheTimeاز داخل فايل متني خوانده ودر كد بالا استفاده وسپس پاك ميشود.مشكل اينه كه به 100فايل متني نيازه.آيا راهي وجود داره كه متغيرTheTime
تمام افراد در يك فايل ذخيره شود؟ وآيا راه بهتري هست؟
متشكرم
_________________
حضرت علي(ع):هركه بمن حرفي بياموزد.مرا بنده خود ساخته است.
من يك برنامه حضور وغياب با تعداد 100 ركورد دارم تمام اين 100 نفربنا به نياز ميتوانند روزانه دوساعت مرخصي بگيرند.برنامه ساعت خروج هر فردرا با مقدار 2ساعت جمع كرده
Text1.Text = DateAdd("h", 2, Time )
وبه عنوان TheTime در يك فايل متني بصورت forwritingذخيره ميكند. براي اينكه مقدار تاخير را حساب كنيم برنامه ساعت سيستم را از TheTime كم ميكند
( Label6.Caption = Format(Str(Time - TheTime), "hh:mm:ss
وهر بار پس ازبازگشت فرد.متغير TheTimeاز داخل فايل متني خوانده ودر كد بالا استفاده وسپس پاك ميشود.مشكل اينه كه به 100فايل متني نيازه.آيا راهي وجود داره كه متغيرTheTime
تمام افراد در يك فايل ذخيره شود؟ وآيا راه بهتري هست؟
متشكرم
_________________
حضرت علي(ع):هركه بمن حرفي بياموزد.مرا بنده خود ساخته است.