الوصلات:
مكتبة الاكواد و المشاريع ببلاش 7/13
مغلق
بسم الله الرحمن الرحيم
مكتبة الاكواد و المشاريع
----------------------------------------------------------------------------------------------------------------------------
فيجوال بيسك دوت نت 2003
المحاسب دوت نت
http://www.alhandasa.net/forum/showthread.php?t=61956
عرض ال PDF
عرض الموسيقى
عرض الصور
عرض الفلاش
نوادى الفيديو
النوادى الشبابية
المدرسة
المكتبة
الحوالات البنكية
البحث و الطباعة
الداتا جريد والكمبوبوكس
التفقيط
الصيد لية
النسخ الاحتياطى
مكتبة حفظ الاكواد
العمل الاضافى
شركات البرامج
المفكرة
الاوفيس
المرضى
امن المعلومات
اسم المستخدم 1
كلمة السر 1
ارسال البريد الالكترونى
----------------------------------------------------------------------------------------------------------------------------
فيجوال بيسك 6
المحاسب
http://www.cb4a.com/general/ALMOHASEB.rar
التفقيط
14/7/2005
UP
DOWN
اين الجديد , هذا الموضوع تم طرحه كثيراً جداُ فى المنتدى , الا توجد برامج جديدة <_<
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
DOWN
:blink:اقتباسالا توجد برامج جديدة
كفاية كدة
ملحوظة البرنامج بتاع امن المعلومات اتمنا يا bashmohandes انك تشوف الكود بتاع الاخ +
الوصلة الموجودة بتوقيعى مثال على صلاحيات المستخدم نفسى اعرف اية الفرق اسماء المتغيرات ؟
دة الكود المدرج فى البرنامج بتاع الاخ فى شاشة تسجيل الدخول
Dim USERNAME As String
Dim PASSWORD As String
Dim DS As New DataSet
Dim CON As New OleDbConnection
Dim ADP As OleDbDataAdapter
USERNAME = TEXTBOX1.Text
PASSWORD = TEXTBOX2.Text
CON.ConnectionString = constring
DS.Clear()
Dim Str As String = "select * from ARABTEAM2000 where PROJECTNAME='" & USERNAME & "' and PROJECTPASSWORD='" & PASSWORD & "'"
ADP = New OleDbDataAdapter(Str, CON)
ADP.Fill(DS, "ARABTEAM2000")
If DS.Tables("ARABTEAM2000").Rows.Count > 0 Then
BUTTONADD = DS.Tables("ARABTEAM2000").Rows(0).Item("PROJECTADD")
BUTTONDELETE = DS.Tables("ARABTEAM2000").Rows(0).Item("PROJECTDELETE")
BUTTONEDIT = DS.Tables("ARABTEAM2000").Rows(0).Item("PROJECTEDIT")
FILEMENU = DS.Tables("ARABTEAM2000").Rows(0).Item("PROJECTMENU1")
EDITMENU = DS.Tables("ARABTEAM2000").Rows(0).Item("PROJECTMENU2")
VIEWMENU = DS.Tables("ARABTEAM2000").Rows(0).Item("PROJECTMENU3")
TOOLSMENU = DS.Tables("ARABTEAM2000").Rows(0).Item("PROJECTMENU4")
HELPMENU = DS.Tables("ARABTEAM2000").Rows(0).Item("PROJECTMENU5")
CON.Close()
Dim F As New frmMAIN
F.Show()
Else
MessageBox.Show("تأكد من ادخال اسم المستخدم أو كلمة السر بشكل صحيح", "كلمة السر", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
Me.TEXTBOX1.Focus()
End Ifوالشاشة التانية
Me.MNUFILE.Enabled = FILEMENU Me.MNUEDIT.Enabled = EDITMENU Me.MNUVIEW.Enabled = VIEWMENU Me.MNUTOOLS.Enabled = TOOLSMENU Me.MNUHELP.Enabled = HELPMENU Me.ADDBUTTON.Enabled = BUTTONADD Me.EDITBUTTON.Enabled = BUTTONEDIT Me.DELETEBUTTON.Enabled = BUTTONDELETE
ابقا اتفرج على المثال وانتظر منك الرد
وشكرا
{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة
إن لم تستح فافعل ما شئت
بالمناسبة اى محاولة لرفع الموضوع بطرقك المتطفلة او محاولة الاعتداء على اى برنامج قام بعمله اى عضو هنا و محاولة نسبه لنفسك سيقابل بحزم
Technical Lead Developer
اللهم قنى شر الجهل و الجهلاء
( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}
هذا الموضوع مغلق.