أخي الكريم .. برأيي الشّخصي أظن أنّ هكذا أحسن و أفضل ..حتى لا تجبر المستخدم بكلمة مرور من عندك .. المستخدم الجديد للبرنامج هو الذي يختار اليوزر نيم و الباسوورد بنفسه .. في حالة قاعدة البيانات فارغة تماما من المستخدمين يتم إظهار شاشة مدير النّظام لإنشاء اليوزر و الباسوورد .. و عكس ذلك يتم إظهار شاشة تسجيل الدخول العادية ..
أخي الكريم .. برأيي الشّخصي أظن أنّ هكذا أحسن و أفضل ..حتى لا تجبر المستخدم بكلمة مرور من عندك .. المستخدم الجديد للبرنامج هو الذي يختار اليوزر نيم و الباسوورد بنفسه .. في حالة قاعدة البيانات فارغة تماما من المستخدمين يتم إظهار شاشة مدير النّظام لإنشاء اليوزر و الباسوورد .. و عكس ذلك يتم إظهار شاشة تسجيل الدخول العادية ..
تحياتي
مشكور اخي وبارك الله فيك
اخي انا اتعلم البرمجة
ممكن مثال او شرح للطريقة ان كانت موجودة في المنتدى وبميزان حسناتك
تحياتي لك
(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
او عمل لينك لعمل يوزر جديد ان كانت الداتا بيز فارغة
ان شاء الله اعمل موضوع جديد لانشاء الداتا بيز بالمفاتح والعلاقات برمجيا مع فتح البرنامج
بعد ان عمل اتتاتش للداتا بيز بدون اى تدخل من العميل لعل الاعضاء يستفيدو منها بس عندى ديد لاين اخلصه وافضلكو
او عمل لينك لعمل يوزر جديد ان كانت الداتا بيز فارغة
ان شاء الله اعمل موضوع جديد لانشاء الداتا بيز بالمفاتح والعلاقات برمجيا مع فتح البرنامج
بعد ان عمل اتتاتش للداتا بيز بدون اى تدخل من العميل لعل الاعضاء يستفيدو منها بس عندى ديد لاين اخلصه وافضلكو
لكل من يقوم بالمساهمة
