تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج
#1
السلام عليكم ورحمة الله وبركاتة
اعمل على برنامج تقريبا اتممت كل شيء
واردت ان اجرب البرنامج على جهاز اخر
البرنامج معمول على vb.net 2010
وقاعدة البيانات sql 2008 r2
عملت التحزيم واضافة كل شيء لازم لتشغيل البرنامج
المشكلة بقاعدة البيانات
عند التنصيب يتم كل شيء ويتم انشاء قاعدة البيانات
انا في قاعدة البيانات عامل يوزر نيم وباسوورد
المشكلة لا استطيع الدخول الى البرنامج لعدم وجود اليوزر والباسوورد
قاعدة البيانات المستخدمة عملت لها سكربت بها 3 جداول واحد من هذة الجداول خاص يتسجيل الدخول وجدول اليوزر والباس قبل عمل الاسكربت 
يحتوي على يوزر نيم وباسوورد
لكن عند تشغيل البرنامج لاول مرة يتم انشاء قاعدة البيانت لكن جدول اليوزر والباس وورد يكون فارغ
كيف احل هذة المشكلة بحيث عند تشغيل البرنامج يتم انشاء القاعدة ويكون اليوزر والباسوورد موجودين
تحياتي لكم
الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. برأيي الشّخصي أظن أنّ هكذا أحسن و أفضل ..حتى لا تجبر المستخدم  بكلمة مرور من عندك .. المستخدم الجديد للبرنامج هو الذي يختار اليوزر نيم و الباسوورد بنفسه .. في حالة قاعدة البيانات فارغة تماما من المستخدمين يتم إظهار شاشة مدير النّظام لإنشاء اليوزر و الباسوورد .. و عكس ذلك يتم إظهار شاشة تسجيل الدخول العادية ..
تحياتي
الرد
تم الشكر بواسطة: essawq , princelovelorn , princelovelorn
#3
وعليكم السلام ورحمة الله وبركاته

لديك حلاً من اثنين
أما ان تعيد عمل الاسكربت وتضع به كود اضاة الوزر والباس للجدول
أو فى شاشة تكوين قاعدة البيانات

قم بعمل كود انشاء اسم مستخدم وكمة المرور
كما لو توم بعمل الاضاة داخل اى شاشة وهذا بعد اتمام تكوين قاعدة البيانات
ممكن تعملها كا شاشة تالى تتم ظهورها بعد الضغط على زر تكوين قاعدة البيانات
بحيث تظهر شاشة اضافة مستخدم الادارة

وبكده تكون حليت المشكلة

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: عبد العزيز البسكري , essawq
#4
السلام عليكم ورحمة الله وبركاتة
(04-09-18, 08:07 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. برأيي الشّخصي أظن أنّ هكذا أحسن و أفضل ..حتى لا تجبر المستخدم  بكلمة مرور من عندك ..  المستخدم الجديد للبرنامج هو الذي يختار اليوزر نيم و الباسوورد بنفسه .. في حالة قاعدة البيانات فارغة تماما من المستخدمين يتم إظهار شاشة مدير النّظام لإنشاء اليوزر و الباسوورد .. و عكس ذلك يتم إظهار شاشة تسجيل الدخول العادية ..
تحياتي
مشكور اخي وبارك الله فيك
اخي انا اتعلم البرمجة 
ممكن مثال او شرح للطريقة ان كانت موجودة في المنتدى وبميزان حسناتك
تحياتي لك


(04-09-18, 08:09 PM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

لديك حلاً من اثنين
أما ان تعيد عمل الاسكربت وتضع به كود اضاة الوزر والباس للجدول
أو فى شاشة تكوين قاعدة البيانات

قم بعمل كود انشاء اسم مستخدم وكمة المرور
كما لو توم بعمل الاضاة داخل اى شاشة وهذا بعد اتمام تكوين قاعدة البيانات
ممكن تعملها كا شاشة تالى تتم ظهورها بعد الضغط على زر تكوين قاعدة البيانات
بحيث تظهر شاشة اضافة مستخدم الادارة

وبكده تكون حليت المشكلة

تحياتى لك
وتمنياتى لك التوفيق

مشكور اخي لردك ومتابعتك 
بصراحة حاولت ولم انجح لاضافة اليوزر والباسوورد
هذا اسكربت قاعدة البيانات
كود :
USE [master]
GO
/****** Object:  Database [Company_2018]    Script Date: 09/04/2018 16:40:53 ******/
CREATE DATABASE [Company_2018] ON  PRIMARY
( NAME = N'Company_2018', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL10_50.SQLEXPRESS\MSSQL\DATA\Company_2018.mdf' , SIZE = 3072KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB )
LOG ON
( NAME = N'Company_2018_log', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL10_50.SQLEXPRESS\MSSQL\DATA\Company_2018_log.ldf' , SIZE = 1024KB , MAXSIZE = 2048GB , FILEGROWTH = 10%)
GO
ALTER DATABASE [Company_2018] SET COMPATIBILITY_LEVEL = 100
GO
IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))
begin
EXEC [Company_2018].[dbo].[sp_fulltext_database] @action = 'enable'
end
GO
ALTER DATABASE [Company_2018] SET ANSI_NULL_DEFAULT OFF
GO
ALTER DATABASE [Company_2018] SET ANSI_NULLS OFF
GO
ALTER DATABASE [Company_2018] SET ANSI_PADDING OFF
GO
ALTER DATABASE [Company_2018] SET ANSI_WARNINGS OFF
GO
ALTER DATABASE [Company_2018] SET ARITHABORT OFF
GO
ALTER DATABASE [Company_2018] SET AUTO_CLOSE OFF
GO
ALTER DATABASE [Company_2018] SET AUTO_CREATE_STATISTICS ON
GO
ALTER DATABASE [Company_2018] SET AUTO_SHRINK OFF
GO
ALTER DATABASE [Company_2018] SET AUTO_UPDATE_STATISTICS ON
GO
ALTER DATABASE [Company_2018] SET CURSOR_CLOSE_ON_COMMIT OFF
GO
ALTER DATABASE [Company_2018] SET CURSOR_DEFAULT  GLOBAL
GO
ALTER DATABASE [Company_2018] SET CONCAT_NULL_YIELDS_NULL OFF
GO
ALTER DATABASE [Company_2018] SET NUMERIC_ROUNDABORT OFF
GO
ALTER DATABASE [Company_2018] SET QUOTED_IDENTIFIER OFF
GO
ALTER DATABASE [Company_2018] SET RECURSIVE_TRIGGERS OFF
GO
ALTER DATABASE [Company_2018] SET  DISABLE_BROKER
GO
ALTER DATABASE [Company_2018] SET AUTO_UPDATE_STATISTICS_ASYNC OFF
GO
ALTER DATABASE [Company_2018] SET DATE_CORRELATION_OPTIMIZATION OFF
GO
ALTER DATABASE [Company_2018] SET TRUSTWORTHY OFF
GO
ALTER DATABASE [Company_2018] SET ALLOW_SNAPSHOT_ISOLATION OFF
GO
ALTER DATABASE [Company_2018] SET PARAMETERIZATION SIMPLE
GO
ALTER DATABASE [Company_2018] SET READ_COMMITTED_SNAPSHOT OFF
GO
ALTER DATABASE [Company_2018] SET HONOR_BROKER_PRIORITY OFF
GO
ALTER DATABASE [Company_2018] SET  READ_WRITE
GO
ALTER DATABASE [Company_2018] SET RECOVERY SIMPLE
GO
ALTER DATABASE [Company_2018] SET  MULTI_USER
GO
ALTER DATABASE [Company_2018] SET PAGE_VERIFY CHECKSUM
GO
ALTER DATABASE [Company_2018] SET DB_CHAINING OFF
GO
USE [Company_2018]
GO
/****** Object:  Table [dbo].[woork1]    Script Date: 09/04/2018 16:40:53 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[woork1](
    [ID] [int] IDENTITY(1,1) NOT NULL,
    [Name_Company] [nvarchar](50) NULL,
    [day] [nvarchar](50) NULL,
    [alyowm] [datetime] NULL,
    [informisen] [nvarchar](50) NULL,
    [clook] [money] NULL,
    [notes] [nvarchar](50) NULL,
CONSTRAINT [PK_woork1] PRIMARY KEY CLUSTERED
(
    [ID] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
/****** Object:  Table [dbo].[users]    Script Date: 09/04/2018 16:40:53 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[users](
    [id_eser] [int] IDENTITY(1,1) NOT NULL,
    [Username] [nvarchar](50) NULL,
    [password] [nchar](10) NULL,
    [can_useapp] [int] NULL,
CONSTRAINT [PK_users] PRIMARY KEY CLUSTERED
(
    [id_eser] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
/****** Object:  Table [dbo].[Month_Information]    Script Date: 09/04/2018 16:40:53 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[Month_Information](
    [ID] [int] IDENTITY(1,1) NOT NULL,
    [Name_Company] [nvarchar](50) NULL,
    [monthe] [datetime] NULL,
    [Number_hours] [money] NULL,
    [price_hours] [money] NULL,
    [Salary] [money] NULL,
    [Notes] [nvarchar](50) NULL,
CONSTRAINT [PK_Month_Information] PRIMARY KEY CLUSTERED
(
    [ID] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
ALTER DATABASE Company_2018
COLLATE Arabic_CI_AI_KS_WS;
GO

وهذا كود انشاء قاعدة البيانات
كود :
Public Sub createDatabase()
       If Check() = False Then
           Try
               Dim sqlConnectionString As String = "Data Source=.\SQLExpress;Integrated Security=True"
               Dim script As String = File.ReadAllText(Application.StartupPath & "\Company_Work2018.sql")
               Dim conn As SqlConnection = New SqlConnection(sqlConnectionString)
               Dim server As Server = New Server(New ServerConnection(conn))
               server.ConnectionContext.ExecuteNonQuery(script)
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       End If
   End Sub
   Private Function check() As Boolean
       Dim exist As Boolean = False
       Try
           Dim conn As SqlConnection = New SqlConnection("Data Source=.\SQLExpress;Integrated Security=True")
           Dim cmd As SqlCommand = New SqlCommand("", conn)
           Dim rdr As SqlDataReader
           cmd.CommandText = "exec sys.sp_databases"
           conn.Open()
           rdr = cmd.ExecuteReader()
           While rdr.Read()
               If rdr.GetString(0) = "Company_2018" Then
                   exist = True
                   Exit While
               End If
           End While
           conn.Close()
           rdr.Dispose()
           cmd.Dispose()
           conn.Dispose()
       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString())
           Return False
       End Try
       Return exist
   End Function
برجاء المساعدة ان امكن
تحياتي لكم جميعا
الرد
تم الشكر بواسطة:
#5
تعال فى كود الاسكربت وابحث عن السطر التالي
كود :
CREATE TABLE [dbo].[users](
   [id_eser] [int] IDENTITY(1,1) NOT NULL,
   [Username] [nvarchar](50) NULL,
   [password] [nchar](10) NULL,
   [can_useapp] [int] NULL,
CONSTRAINT [PK_users] PRIMARY KEY CLUSTERED
(
   [id_eser] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO

وقم باضافة الكود التالى اسفل منه
كود :
INSERT INTO [dbo].[users]
          ([Username]
          ,[password]
          ,[can_useapp])
    VALUES
          ('admin', 'admin', 1)
GO

ليصبح اسم المستخدم admin وكلمة المرور admin
أو يمكنك التعديل على السطر التالى كما تشاء
كود :
          ('admin', 'admin', 1)

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: princelovelorn , essawq
#6
يمكن عمل الاسكربت بيوزر افتراضى
http://vb4arb.com/vb/showthread.php?tid=25879

او عمل لينك لعمل يوزر جديد ان كانت الداتا بيز فارغة


ان شاء الله اعمل موضوع جديد لانشاء الداتا بيز بالمفاتح والعلاقات برمجيا مع فتح البرنامج
بعد ان عمل اتتاتش للداتا بيز بدون اى تدخل من العميل لعل الاعضاء يستفيدو منها بس عندى ديد لاين اخلصه وافضلكو Smile
الرد
تم الشكر بواسطة: princelovelorn , essawq , essawq , elgokr
#7
(04-09-18, 08:40 PM)elgokr كتب : تعال فى كود الاسكربت وابحث عن السطر التالي
كود :
CREATE TABLE [dbo].[users](
   [id_eser] [int] IDENTITY(1,1) NOT NULL,
   [Username] [nvarchar](50) NULL,
   [password] [nchar](10) NULL,
   [can_useapp] [int] NULL,
CONSTRAINT [PK_users] PRIMARY KEY CLUSTERED
(
   [id_eser] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO

وقم باضافة الكود التالى اسفل منه
كود :
INSERT INTO [dbo].[users]
          ([Username]
          ,[password]
          ,[can_useapp])
    VALUES
          ('admin', 'admin', 1)
GO

ليصبح اسم المستخدم admin وكلمة المرور admin
أو يمكنك التعديل على السطر التالى كما تشاء
كود :
          ('admin', 'admin', 1)

تحياتى لك
وتمنياتى لك التوفيق

مشكور اخي وبارك الله فيك
ساقوم بالتجربة واوافيك بالرد
بارك الله فيك

(04-09-18, 09:04 PM)mero5000 كتب : يمكن عمل الاسكربت بيوزر افتراضى
http://vb4arb.com/vb/showthread.php?tid=25879

او عمل لينك لعمل يوزر جديد ان كانت الداتا بيز فارغة


ان شاء الله اعمل موضوع جديد لانشاء الداتا بيز بالمفاتح والعلاقات برمجيا مع فتح البرنامج
بعد ان عمل اتتاتش للداتا بيز بدون اى تدخل من العميل لعل الاعضاء يستفيدو منها بس عندى ديد لاين اخلصه وافضلكو Smile


هلا اخي بارك الله فيك
وبانتظار موضوعك اشعرنا بة
في ميزان حسناتك
الرد
تم الشكر بواسطة: elgokr , elgokr
#8
تفضل هذا مثال قريب مما تريد .


الملفات المرفقة
.rar   AddUserNameFirstLogin.rar (الحجم : 554.53 ك ب / التحميلات : 15)
الرد
#9
مشكور اخي
حملت الملف فتح بالفيجوال لكن لا يوجد بة شيء فارغ
تحياتي لك
الرد
تم الشكر بواسطة: elgokr
#10
هذا الملف مرة أخرى


الملفات المرفقة صورة/صور
   

.zip   AddUserNameFirstLogin.zip (الحجم : 562.02 ك ب / التحميلات : 9)
الرد
تم الشكر بواسطة: essawq , elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] احتاج مساعدة في حساب رصيد اجازة لموظف algiloshy@gmail.com 0 22 منذ 8 ساعة مضت
آخر رد: algiloshy@gmail.com
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 29 565 17-10-18, 11:43 PM
آخر رد: عبد العزيز البسكري
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 81 16-10-18, 04:55 PM
آخر رد: mohamedgadain61
  عملت برنامج حظر مواقع واريد حذفها مرة أخرى ابو روضة 6 133 12-10-18, 05:49 AM
آخر رد: ابو روضة
  مساعدة في datatGridviwe DOX.1 5 138 10-10-18, 12:23 AM
آخر رد: حريف برمجة
  [VB.NET] مساعدة بخصوص كود الحفظ ay.alhaj 19 300 04-10-18, 10:22 PM
آخر رد: ay.alhaj
  [سؤال] مساعدة في كود تحديث برنامج ScreamVoice 9 157 03-10-18, 02:48 PM
آخر رد: ScreamVoice
  محتاج برنامج DOX.1 12 290 01-10-18, 02:00 AM
آخر رد: DOX.1
  مطلوب برنامج اعراب جمل عربية المبرمج الممتاز 16 358 28-09-18, 01:18 PM
آخر رد: ابراهيم ايبو
  مساعدة فى برنامج اصنعوة (مكرار) naderalkeng54 4 124 28-09-18, 10:59 AM
آخر رد: naderalkeng54

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم