[essawq]

السلام عليكم ورحمة الله وبركاتة

(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

برجاء المساعدة ان امكن

تحياتي لكم جميعا