+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب : كيفية عمل نص يحتوي تاريخ اليوم (/showthread.php?tid=13698)
الصفحات:
1
2
طلب : كيفية عمل نص يحتوي تاريخ اليوم - hamada salah90 - 02-11-15
السلام عليكم ورحمة الله وبركاته
لدي مشروع لمحل
اريد اضافة زبائن اليوم برقم كود عبارة عن
"صيغة تاريخ اليوم" + "رقم يبدأ منه البرنامج يوميا"
للتوضيح مثلا:
الزبون 1 الكود الخاص به 20151102001
الزبون 2 الكود الخاص به 20151102002
وفي اليوم التالي
الزبون 1 الكود الخاص به 20151103001
الزبون 2 الكود الخاص به 20151103002
أي بكل يوم جديد يبدأ بتاريخ اليوم ويبدأ أيضا بتسلسل 3 ارقام جديد
كما وضحت بالأعلى في الزبائن
هل الشرح مفهوم
RE: طلب : كيفية عمل نص يحتوي تاريخ اليوم + رقم العميل وعند البدء في يوم جديد يبدأ ب..... - محمد العبيدي - 02-11-15
ياريت لو ترفع الصفحة او شي مبسط من مشروعك حته نقدر نعرف طريقة ربط قاعدة البيانات واسماء الاعمدة وانواعها
RE: طلب : كيفية عمل نص يحتوي تاريخ اليوم - abulayth - 02-11-15
السلام عليكم
ان شاء الله طلبك في المرفقات
يعطيك العافية
RE: طلب : كيفية عمل نص يحتوي تاريخ اليوم - hamada salah90 - 03-11-15
اخي العزيز أبو الليث
المشروع الذي ارسلته لي هو المطلوب ولكن
لا اريد ان احدد رقم العمل يمويا ولكن اريده يبدأ كل يوم تلقائيا
بعمل هذا الشيء أوتوماتيكيا
RE: طلب : كيفية عمل نص يحتوي تاريخ اليوم - administrator - 03-11-15
ارفق مثال بقاعدة بيانات لكي يتم التعديل
RE: طلب : كيفية عمل نص يحتوي تاريخ اليوم - hamada salah90 - 03-11-15
هذا هو الكود
ومرفق مثال للتعديل
Dim dbADODB As New ADODB.Connection
Dim rsEMPL As New ADODB.Recordset
Private Sub Command1_Click()
If rsEMPL.EOF Then
Dim t
t = Format$(Date, "YYYYMMDD")
txtCode.Text = t + "1"
Exit Sub
Else
txtCode.Text = rsEMPL("code") + 1
Exit Sub
End If
End Sub
Private Sub Form_Load()
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select * from EMPL ", dbADODB, adOpenKeyset, adLockOptimistic
End Sub
RE: طلب : كيفية عمل نص يحتوي تاريخ اليوم - Ahmed_Mansoor - 04-11-15
أهلا أخي الكريم , التعديل في المرفقات .
RE: طلب : كيفية عمل نص يحتوي تاريخ اليوم - hamada salah90 - 04-11-15
(04-11-15, 10:02 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , التعديل في المرفقات .
سلم الله يداك يا اخي
RE: طلب : كيفية عمل نص يحتوي تاريخ اليوم - أبو عمر - 05-11-15
سلَّم اللهُ يديك
RE: طلب : كيفية عمل نص يحتوي تاريخ اليوم - hamada salah90 - 05-11-15
اسف لهذا الخطأ