28-11-22, 05:04 PM
السلام عليكم اخوتي
قبل وقت قليل طلبت هذا الموضوع وهو اتصال قاعدة البيانات على شبكة محلية او خارجية
وبعد بحث قمت بالتوصل الى هذه الطريقة وتمت بالفعل
هذا مبدأيا فتح البورت من شرح احد الاخوة
http://vb4arb.com/vb/thread-21117.html
ومن عندي واجهة الاتصال
هي واجهة تحتاج الى بعض التعديلات
لكنها تفي بالغرض
اذا في احد يقدر يطور منها الى الافضل
انشاء فورم بهذا الاسم frmSqlServerSetting
وهذي الصورة شرح الادوات واسمائها
وهذه اكواد الفورم
اسم الفورم frmSqlServerSetting
تحت اسم الفورم نضع هذا الكود
تحت هذا الكود مباشرة نضع هذا الكود لتحميل القاعدة او التحقق
في حدث ( البحث عن خوادم نضع هذا الكود )
وفي حدث اسم قاعدة البيانات
نضع هذا الكود
في حدث نوع الاتصال
في زر الاغلاق
في زر انشاء قاعدة البيانات او الاتصال
في هذا الكود تضع تفاصيل قاعدة البيانات الخاصة بك كما هو موضح
ارجو من الاخوة المساعدة في استخراج هذا الكود
في زر فحص الاتصال
في التايمر
اتمنى اذا حدث اي اخطاء تحديد نوع الخطأ
او احد من الاخوة يساعد معناوفي المرفقات ملف الاتصال
وايضا يجب فتح بورت 58808 في الجدار الناري
وايضا عمل مستخدم داخل sql server
وايضا الصلاحيات
قبل وقت قليل طلبت هذا الموضوع وهو اتصال قاعدة البيانات على شبكة محلية او خارجية
وبعد بحث قمت بالتوصل الى هذه الطريقة وتمت بالفعل
هذا مبدأيا فتح البورت من شرح احد الاخوة
http://vb4arb.com/vb/thread-21117.html
ومن عندي واجهة الاتصال
هي واجهة تحتاج الى بعض التعديلات
لكنها تفي بالغرض
اذا في احد يقدر يطور منها الى الافضل
انشاء فورم بهذا الاسم frmSqlServerSetting
وهذي الصورة شرح الادوات واسمائها
وهذه اكواد الفورم
اسم الفورم frmSqlServerSetting
كود :
Imports System.Data.SqlClient
Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Imports System.Data.Sql
Imports System.Data
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common
Imports Microsoft.Win32كود :
Dim st As String
Dim SqlConnStr As Stringتحت هذا الكود مباشرة نضع هذا الكود لتحميل القاعدة او التحقق
كود :
Public Sub CreateSQlServerTables_vb(ByVal SQLstr As String)
Try
Dim con As New SqlConnection
con = New SqlConnection("server=" & cmbServerName.Text & ";database='New_Smart_DB';trusted_connection=yes")
If con.State = 1 Then con.Close()
con.Open()
Dim dt As New DataTable
Dim da As New SqlDataAdapter
dt.Clear()
da = New SqlDataAdapter(SQLstr, con)
da.Fill(dt)
con.Close()
Catch ex As Exception
End Try
End Sub
Public Sub CreateDBViews(ByVal SQLstr As String)
Try
Dim con As New SqlConnection("Data Source='" & cmbServerName.Text & "';Initial Catalog='New_Smart_DB';Integrated Security=True")
Dim cmd As New SqlCommand
cmd = con.CreateCommand
cmd.CommandText = SQLstr
If con.State = 1 Then con.Close()
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch ex As Exception
End Try
End Sub
Sub CreateDB(ByVal dbName As String)
Try
'************************************************************
' Add connection string to start app path (sqlsetting.dat)
'************************************************************
Using sw As StreamWriter = New StreamWriter(Application.StartupPath & "\SQLSettings.dat")
sw.WriteLine("Data Source=" & cmbServerName.Text.Trim & ";Initial Catalog=New_Smart_DB;Integrated Security=True")
sw.Close()
End Using
'************************************************************
' Create data base in sql server
'************************************************************
Dim con As New SqlConnection("Data Source='" & cmbServerName.Text & "';Initial Catalog=;Integrated Security=True")
Dim cmd As New SqlCommand
cmd = con.CreateCommand
cmd.CommandText = "create database " & dbName & " COLLATE Arabic_100_CI_AI"
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MsgBox("تم انشاء قاعدة البيانات")
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "Error")
End Try
End Subفي حدث ( البحث عن خوادم نضع هذا الكود )
كود :
Try
Dim localmachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
Dim rk = localmachine.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
Dim instances = CType(rk.GetValue("InstalledInstances"), String())
If instances.Length > 0 Then
For Each element As String In instances
If element = "MSSQLSERVER" Then
cmbServerName.Items.Add(System.Environment.MachineName)
Else
cmbServerName.Items.Add(System.Environment.MachineName + "\" + element)
End If
Next element
End If
Catch ex As Exception
MsgBox(ex.Message)
End Tryوفي حدث اسم قاعدة البيانات
نضع هذا الكود
كود :
cmbAuthentication.Enabled = True
End Sub
Sub Reset()
txtPassword.Text = ""
txtUserName.Text = ""
cmbServerName.Text = ""
cmbAuthentication.SelectedIndex = 0في حدث نوع الاتصال
كود :
If cmbAuthentication.SelectedIndex = 0 Then
txtUserName.ReadOnly = True
txtPassword.ReadOnly = True
txtUserName.Text = ""
txtPassword.Text = ""
End If
If cmbAuthentication.SelectedIndex = 1 Then
txtUserName.ReadOnly = False
txtPassword.ReadOnly = False
End Ifفي زر الاغلاق
كود :
If lblSet.Text = "Main Form" Then
Me.Close()
Else
If MsgBox("هل تريد إغلاق البرنامج", MsgBoxStyle.YesNo + MsgBoxStyle.Information) = MsgBoxResult.Yes Then
End
End If
End Ifفي زر انشاء قاعدة البيانات او الاتصال
في هذا الكود تضع تفاصيل قاعدة البيانات الخاصة بك كما هو موضح
ارجو من الاخوة المساعدة في استخراج هذا الكود
كود :
Try
If cmbServerName.Text = "" Then
MsgBox("من فضلك اختار/اسم الاتصال", MsgBoxStyle.Information)
cmbServerName.Focus()
Exit Sub
End If
If cmbAuthentication.SelectedIndex = 1 Then
If txtUserName.Text.Length = 0 Then
MsgBox("من فضلك ادخل اسم المستخدم", MsgBoxStyle.Information)
txtUserName.Focus()
Exit Sub
End If
If txtPassword.Text.Length = 0 Then
MsgBox("من فضلك ادخل كلمة المرور", MsgBoxStyle.Information)
txtPassword.Focus()
Exit Sub
End If
End If
Cursor = Cursors.WaitCursor
Timer2.Enabled = True
If cmbAuthentication.SelectedIndex = 0 Then
con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
End If
If cmbAuthentication.SelectedIndex = 1 Then
con = New SqlConnection("Data Source=" & cmbServerName.Text.Trim & ";Initial Catalog=master;User ID=" & txtUserName.Text.Trim & ";Password=" & txtPassword.Text & "")
End If
con.Open()
If (con.State = ConnectionState.Open) Then
CreateDB("New_Smart_DB")
'Create Tables
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Bank_Tbl] ( [Bank_ID] [int] IDENTITY(1,1) NOT NULL , [BankCode] [nvarchar] (50) NULL , [BankName] [nvarchar] (150) NULL , [Balance] [decimal] (18 , 2) NULL , CONSTRAINT [PK_Bank_Tbl] PRIMARY KEY CLUSTERED ([Bank_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Buy_Details_Tbl] ( [Buy_Details_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Product_ID] [int] NOT NULL , [Qty] [int] NULL , [BuyPrice] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL , CONSTRAINT [PK_Buy_Details_Tbl] PRIMARY KEY CLUSTERED ([Buy_Details_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Buy_Tbl] ( [Buy_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Imp_Inv_No] [nvarchar] (50) NULL , [Inv_Type] [nvarchar] (50) NULL , [Importer_ID] [int] NOT NULL , [ItemCount] [int] NULL , [Total] [decimal] (18 , 2) NULL , [Tax_Value] [decimal] (18 , 2) NULL , [Discount_Value] [decimal] (18 , 2) NULL , [FinalTotal] [decimal] (18 , 2) NULL , [MoneyText] [nvarchar] (150) NULL , [EmpName] [nvarchar] (80) NULL , [Qr_Code] [nvarchar] (250) NULL , [Qr_Pic] [image] NULL , CONSTRAINT [PK_Buy_Tbl] PRIMARY KEY CLUSTERED ([Buy_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[CashSave_Tbl] ( [Cash_ID] [int] NOT NULL , [CashName] [nvarchar] (150) NULL , [MainBalance] [decimal] (18 , 2) NULL , CONSTRAINT [PK_CashSave_Tbl] PRIMARY KEY CLUSTERED ([Cash_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Cat_Tbl] ( [Cat_ID] [int] NOT NULL , [CatName] [nvarchar] (100) NULL, [Dep_ID] [int] NOT NULL , CONSTRAINT [PK_Cat_Tbl] PRIMARY KEY CLUSTERED ([Cat_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Company_Info] ( [Company_ID] [int] IDENTITY(1,1) NOT NULL , [CompanyName] [nvarchar] (150) NULL , [Vat_No] [nvarchar] (50) NULL , [Phone1] [nvarchar] (50) NULL , [Phone2] [nvarchar] (50) NULL , [City] [nvarchar] (50) NULL , [Country] [nvarchar] (50) NULL , [Address] [nvarchar] (150) NULL , [Logo] [image] NULL , CONSTRAINT [PK_Company_Info] PRIMARY KEY CLUSTERED ([Company_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Currancy_Tbl] ( [Currancy_ID] [int] IDENTITY(1,1) NOT NULL , [SingleName] [nvarchar] (50) NULL , [MultiName] [nvarchar] (50) NULL , CONSTRAINT [PK_Currancy_Tbl] PRIMARY KEY CLUSTERED ([Currancy_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Customer_Move_Tbl] ( [Cus_Move_ID] [int] IDENTITY(1,1) NOT NULL , [Customer_ID] [int] NOT NULL , [Move_Date] [date] NULL , [Move_type] [nvarchar] (50) NULL , [Move_Code] [nvarchar] (50) NULL , [Move_Value] [decimal] (18 , 2) NULL , [CustomerBlanceBefore] [decimal] (18 , 2) NULL , [CustomerBlanceAfter] [decimal] (18 , 2) NULL , CONSTRAINT [PK_Customer_Move_Tbl] PRIMARY KEY CLUSTERED ([Cus_Move_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Customer_Tbl] ( [Customer_ID] [int] NOT NULL , [CustomerName] [nvarchar] (100) NULL , [Phone] [nvarchar] (50) NULL , [Address] [nvarchar] (250) NULL , [Balance] [decimal] (18 , 2) NULL , [VatCust] [nvarchar] (50) NULL , CONSTRAINT [PK_Customer_Tbl] PRIMARY KEY CLUSTERED ([Customer_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Employee_Tbl] ( [Emp_ID] [int] NOT NULL , [EmpFullname] [nvarchar] (100) NULL , [Emp_Bod] [date] NULL , [EmpGender] [nvarchar] (10) NULL , [EmpSocialState] [nvarchar] (10) NULL , [EmpEmail] [nvarchar] (70) NULL , [Emp_Salary] [decimal] (18 , 2) NULL , [EmpPersonalID] [nvarchar] (50) NULL , [EmpPhone] [nvarchar] (50) NULL , [EmpMobile] [nvarchar] (50) NULL , [EmpAddress] [nvarchar] (150) NULL , [EmpJob] [nvarchar] (100) NULL , [EmpJobDate] [date] NULL , [EmpNotes] [nvarchar] (50) NULL , [Emp_Pic] [image] NULL , CONSTRAINT [PK_Employee_Tbl] PRIMARY KEY CLUSTERED ([Emp_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Expense_Tbl] ( [Expense_ID] [int] NOT NULL , [Expense_Date] [date] NULL , [Expense_Des] [nvarchar] (250) NULL , [ExpenseValue] [decimal] (18 , 2) NULL , [UserName] [nvarchar] (50) NULL , CONSTRAINT [PK_Expense_Tbl] PRIMARY KEY CLUSTERED ([Expense_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Imorter_Move_Tbl] ( [Imp_Move_ID] [int] IDENTITY(1,1) NOT NULL , [Importer_ID] [int] NOT NULL , [Move_Date] [date] NULL , [Move_type] [nvarchar] (50) NULL , [Move_Code] [nvarchar] (50) NULL , [Move_Value] [decimal] (18 , 2) NULL , [ImporterBlanceBefore] [decimal] (18 , 2) NULL , [ImporterBlanceAfter] [decimal] (18 , 2) NULL , CONSTRAINT [PK_Imorter_Move_Tbl] PRIMARY KEY CLUSTERED ([Imp_Move_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Importer_Shik_Tbl] ( [Shik_ID] [int] IDENTITY(1,1) NOT NULL , [Send_ID] [nvarchar] (50) NOT NULL , [SendType] [nvarchar] (50) NULL , [DueDate] [date] NULL , CONSTRAINT [PK_Importer_Shik_Tbl] PRIMARY KEY CLUSTERED ([Shik_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Importer_Tbl] ( [Importer_ID] [int] NOT NULL , [ImporterName] [nvarchar] (100) NULL , [Phone] [nvarchar] (50) NULL , [Address] [nvarchar] (250) NULL , [Balance] [decimal] (18 , 2) NULL , CONSTRAINT [PK_Importer_Tbl] PRIMARY KEY CLUSTERED ([Importer_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Logs] ( [ID] [int] IDENTITY(1,1) NOT NULL , [EmpName] [nvarchar] (100) NULL , [Operation] [nvarchar] (150) NOT NULL , [Date] [datetime] NOT NULL , CONSTRAINT [PK_Logs] 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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Move_Tbl] ( [Move_ID] [int] IDENTITY(1,1) NOT NULL , [Move_Type] [nvarchar] (50) NULL , [Move_Code] [nvarchar] (50) NULL , [Move_Date] [date] NULL , [Move_Value] [decimal] (18 , 2) NULL , [UserName] [nvarchar] (50) NULL , CONSTRAINT [PK_Move_Tbl] PRIMARY KEY CLUSTERED ([Move_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Paid_Tbl] ( [Paid_Send_ID] [int] IDENTITY(1,1) NOT NULL , [Paid_Order] [nvarchar] (50) NULL , [Importer_ID] [int] NOT NULL , [Paid_Date] [date] NULL , [Paid_Type] [nvarchar] (50) NULL , [Paid_Value] [decimal] (18 , 2) NULL , [MoneyText] [nvarchar] (150) NULL , [UserName] [nvarchar] (50) NULL , [Shik_No] [nvarchar] (50) NULL , [BankName] [nvarchar] (50) NULL , [About] [nvarchar] (Max) NULL , CONSTRAINT [PK_Paid_Tbl] PRIMARY KEY CLUSTERED ([Paid_Send_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Product_Tbl] ( [Product_ID] [int] NOT NULL , [ProductCode] [nvarchar] (50) NULL , [ProductName] [nvarchar] (100) NULL , [Cat_ID] [int] NULL , [Unit_ID] [int] NULL , [ProductLimit] [int] NULL , [ProductBuy] [decimal] (18 , 2) NULL , [ProductSale] [decimal] (18 , 2) NULL , [ProductOpenStock] [int] NULL , [ProductImage] [image] NULL , CONSTRAINT [PK_Product_Tbl] PRIMARY KEY CLUSTERED ([Product_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Rbh_Tbl] ( [Rbh_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [FinalTotal] [decimal] (18 , 2) NULL , [Rbh_Total] [decimal] (18 , 2) NULL , CONSTRAINT [PK_Rbh_Tbl] PRIMARY KEY CLUSTERED ([Rbh_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[ReBuy_Details_Tbl] ( [ReBuy_Details_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Product_ID] [int] NOT NULL , [Qty] [int] NULL , [BuyPrice] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL , CONSTRAINT [PK_ReBuy_Details_Tbl] PRIMARY KEY CLUSTERED ([ReBuy_Details_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[ReBuy_Tbl] ( [ReBuy_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Inv_Type] [nvarchar] (50) NULL , [Importer_ID] [int] NOT NULL , [ItemCount] [int] NULL , [Total] [decimal] (18 , 2) NULL , [Tax_Value] [decimal] (18 , 2) NULL , [Discount_Value] [decimal] (18 , 2) NULL , [FinalTotal] [decimal] (18 , 2) NULL , [MoneyText] [nvarchar] (150) NULL , [EmpName] [nvarchar] (80) NULL , CONSTRAINT [PK_ReBuy_Tbl] PRIMARY KEY CLUSTERED ([ReBuy_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Receipt_Tbl] ( [Receipt_Send_ID] [int] IDENTITY(1,1) NOT NULL , [Receipt_Order] [nvarchar] (50) NULL , [Customer_ID] [int] NOT NULL , [Receipt_Date] [date] NULL , [Receipt_Type] [nvarchar] (50) NULL , [Receipt_Value] [decimal] (18 , 2) NULL , [MoneyText] [nvarchar] (150) NULL , [UserName] [nvarchar] (50) NULL , [Shik_No] [nvarchar] (50) NULL , [BankName] [nvarchar] (80) NULL , [About] [nvarchar] (max) NULL , CONSTRAINT [PK_Receipt_Tbl] PRIMARY KEY CLUSTERED ([Receipt_Send_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[ReSale_Details_Tbl] ( [ReSale_Details_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Product_ID] [int] NOT NULL , [Qty] [int] NULL , [SalePrice] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL , CONSTRAINT [PK_ReSale_Details_Tbl] PRIMARY KEY CLUSTERED ([ReSale_Details_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[ReSale_Tbl] ( [ReSale_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Inv_Type] [nvarchar] (50) NULL , [Customer_ID] [int] NOT NULL , [ItemCount] [int] NULL , [Total] [decimal] (18 , 2) NULL , [Tax_Value] [decimal] (18 , 2) NULL , [Discount_Value] [decimal] (18 , 2) NULL , [FinalTotal] [decimal] (18 , 2) NULL , [MoneyText] [nvarchar] (150) NULL , [EmpName] [nvarchar] (80) NULL , CONSTRAINT [PK_ReSale_Tbl] PRIMARY KEY CLUSTERED ([ReSale_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Sale_Details_Tbl] ( [Sale_Details_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Product_ID] [int] NOT NULL , [Qty] [int] NULL , [SalePrice] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL , CONSTRAINT [PK_Sale_Details_Tbl] PRIMARY KEY CLUSTERED ([Sale_Details_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Sale_Hold] ( [Sale_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Inv_Type] [nvarchar] (50) NULL , [Customer_ID] [int] NOT NULL , CONSTRAINT [PK_Sale_Hold] PRIMARY KEY CLUSTERED ([Sale_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Sale_Tbl] ( [Sale_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Inv_Type] [nvarchar] (50) NULL , [Customer_ID] [int] NOT NULL , [ItemCount] [int] NULL , [Total] [decimal] (18 , 2) NULL , [Tax_Value] [decimal] (18 , 2) NULL , [Discount_Value] [decimal] (18 , 2) NULL , [FinalTotal] [decimal] (18 , 2) NULL , [MoneyPaid] [decimal] (18 , 2) NULL , [Unpaid] [decimal] (18 , 2) NULL , [MoneyText] [nvarchar] (150) NULL , [EmpName] [nvarchar] (80) NULL , [Qr_Code] [nvarchar] (250) NULL , [Qr_Pic] [image] NULL , CONSTRAINT [PK_Sale_Tbl] PRIMARY KEY CLUSTERED ([Sale_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Sale_temporary_Tbl] ( [Sale_Details_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [Product_ID] [int] NOT NULL , [ProductCode] [nvarchar] (50) NULL , [ProductName] [nvarchar] (100) NULL , [Qty] [int] NULL , [SalePrice] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL , CONSTRAINT [PK_Sale_temporary_Tbl] PRIMARY KEY CLUSTERED ([Sale_Details_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Tax_Tbl] ( [Tax_ID] [int] IDENTITY(1,1) NOT NULL , [Tax_Value] [decimal] (18 , 1) NULL , CONSTRAINT [PK_Tax_Tbl] PRIMARY KEY CLUSTERED ([Tax_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[TaxBuy_Tbl] ( [TaxBuy_ID] [int] IDENTITY(1,1) NOT NULL , [Tax_Value] [decimal] (18 , 1) NULL , CONSTRAINT [PK_TaxBuy_Tbl] PRIMARY KEY CLUSTERED ([TaxBuy_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Trnsfer_Tbl] ( [Trnsfer_ID] [int] IDENTITY(1,1) NOT NULL , [Transfer_From] [nvarchar] (150) NULL , [Transfer_To] [nvarchar] (150) NULL , [Transfer_Value] [decimal] (18 , 2) NULL , [Transfer_Date] [date] NULL , [Transfer_Type] [nvarchar] (50) NULL , [UserName] [nvarchar] (50) NULL , CONSTRAINT [PK_Trnsfer_Tbl] PRIMARY KEY CLUSTERED ([Trnsfer_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Unit_Tbl] ( [Unit_ID] [int] NOT NULL , [UnitName] [nvarchar] (100) NULL , CONSTRAINT [PK_Unit_Tbl] PRIMARY KEY CLUSTERED ([Unit_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Users_Tbl] ( [User_ID] [int] NOT NULL , [UserName] [nvarchar] (50) NULL , [UserPassword] [nvarchar] (50) NULL , [UserFullName] [nvarchar] (50) NULL , [Category] [bit] NULL , [Units] [bit] NULL , [AddProduct] [bit] NULL , [Products] [bit] NULL , [Customers] [bit] NULL , [Importers] [bit] NULL , [AddBuy] [bit] NULL , [Buys] [bit] NULL , [AddReBuy] [bit] NULL , [ReBuys] [bit] NULL , [AddSale] [bit] NULL , [Sales] [bit] NULL , [AddReSale] [bit] NULL , [ReSales] [bit] NULL , [AddEmployee] [bit] NULL , [Employees] [bit] NULL , [AddExpense] [bit] NULL , [Expenses] [bit] NULL , [Paids] [bit] NULL , [Recipets] [bit] NULL , [Moves] [bit] NULL , [Settings] [bit] NULL , [BuyReport] [bit] NULL , [ReBuyReport] [bit] NULL , [SaleReport] [bit] NULL , [ReSaleReport] [bit] NULL , [Bank] [bit] NULL , [Users] [bit] NULL , [UsersLogs] [bit] NULL , [DailyMove] [bit] NULL , [RbhReprt] [bit] NULL , [TaxReport] [bit] NULL , CONSTRAINT [PK_Users_Tbl] PRIMARY KEY CLUSTERED ([User_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Quick_Dtails_Tbl] ( [Sale_Details_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [ProductName] [nvarchar] (150) NOT NULL , [Qty] [int] NULL , [SalePrice] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL,[discount] [decimal](18, 2) NULL,[Tax] [decimal](18, 1) NULL , CONSTRAINT [PK_Quick_Dtails_Tbl] PRIMARY KEY CLUSTERED ([Sale_Details_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[QuickSale_Tbl] ( [Sale_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Inv_Type] [nvarchar] (50) NULL , [CustomerName] [nvarchar] (150) NOT NULL , [Phone] [nvarchar] (50) NULL , [ItemCount] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL , [Tax_Value] [decimal] (18 , 2) NULL , [Discount_Value] [decimal] (18 , 2) NULL , [FinalTotal] [decimal] (18 , 2) NULL , [MoneyPaid] [decimal] (18 , 2) NULL , [Unpaid] [decimal] (18 , 2) NULL , [MoneyText] [nvarchar] (150) NULL , [EmpName] [nvarchar] (80) NULL , [Qr_Code] [nvarchar] (250) NULL , [Qr_Pic] [image] NULL ,[Above] [nvarchar] (max) NULL ,[VatCust] [nvarchar] (50) NULL , CONSTRAINT [PK_QuickSale_Tbl] PRIMARY KEY CLUSTERED ([Sale_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Dep_Tbl] ( [Dep_ID] [int] IDENTITY(1,1) NOT NULL , [DepName] [nvarchar] (50) NULL , [PrinterName] [nvarchar] (50) NULL , [Active] [bit] NULL , CONSTRAINT [PK_Dep_Tbl] PRIMARY KEY CLUSTERED ([Dep_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Offer_Tbl] ( [Sale_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [Inv_Type] [nvarchar] (50) NULL , [CustomerName] [nvarchar] (150) NOT NULL , [Phone] [nvarchar] (50) NULL , [ItemCount] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL , [Tax_Value] [decimal] (18 , 2) NULL , [Discount_Value] [decimal] (18 , 2) NULL , [FinalTotal] [decimal] (18 , 2) NULL , [MoneyPaid] [decimal] (18 , 2) NULL , [Unpaid] [decimal] (18 , 2) NULL , [MoneyText] [nvarchar] (150) NULL , [EmpName] [nvarchar] (80) NULL , [Qr_Code] [nvarchar] (250) NULL , [Qr_Pic] [image] NULL ,[Above] [nvarchar] (max) NULL ,[VatCust] [nvarchar] (50) NULL , CONSTRAINT [PK_Offer_Tbl] PRIMARY KEY CLUSTERED ([Sale_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Offer_Dtails_Tbl] ( [Sale_Details_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [ProductName] [nvarchar] (150) NOT NULL , [Qty] [int] NULL , [SalePrice] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL,[discount] [decimal](18, 2) NULL,[Tax] [decimal](18, 1) NULL , CONSTRAINT [PK_Offer_Dtails_Tbl] PRIMARY KEY CLUSTERED ([Sale_Details_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Custm_Record_Tbl] ( [Sale_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [CustomerName] [nvarchar] (150) NOT NULL , [Phone] [nvarchar] (50) NULL , [ItemCount] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL , [Tax_Value] [decimal] (18 , 2) NULL , [Discount_Value] [decimal] (18 , 2) NULL , [FinalTotal] [decimal] (18 , 2) NULL , [MoneyPaid] [decimal] (18 , 2) NULL , [Unpaid] [decimal] (18 , 2) NULL ,[VatCust] [nvarchar] (50) NULL , CONSTRAINT [PK_Offer_Tbl] PRIMARY KEY CLUSTERED ([Sale_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];")
CreateSQlServerTables_vb("USE [New_Smart_DB] CREATE TABLE [dbo].[Custm_Record__Dtails_Tbl] ( [Sale_Details_ID] [int] IDENTITY(1,1) NOT NULL , [Order_ID] [nvarchar] (50) NULL , [OrderDate] [date] NULL , [ProductName] [nvarchar] (150) NOT NULL , [Qty] [int] NULL , [SalePrice] [decimal] (18 , 2) NULL , [Total] [decimal] (18 , 2) NULL,[discount] [decimal](18, 2) NULL,[Tax] [decimal](18, 1) NULL ,[PriceDof3a] [decimal](18, 1) NULL , CONSTRAINT [PK_Offer_Dtails_Tbl] PRIMARY KEY CLUSTERED ([Sale_Details_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];")
'Create Views
CreateDBViews("CREATE VIEW dbo.View_Sale_Print AS SELECT dbo.Sale_Details_Tbl.Sale_Details_ID, dbo.Sale_Details_Tbl.Order_ID, dbo.Sale_Details_Tbl.OrderDate, dbo.Sale_Details_Tbl.Product_ID, dbo.Product_Tbl.ProductCode, dbo.Product_Tbl.ProductName, dbo.Product_Tbl.Cat_ID, dbo.Cat_Tbl.CatName, dbo.Cat_Tbl.Dep_ID, dbo.Dep_Tbl.DepName, dbo.Dep_Tbl.PrinterName, dbo.Dep_Tbl.Active, dbo.Sale_Details_Tbl.Qty, dbo.Sale_Details_Tbl.SalePrice, dbo.Sale_Details_Tbl.Total FROM dbo.Cat_Tbl INNER JOIN dbo.Dep_Tbl ON dbo.Cat_Tbl.Dep_ID = dbo.Dep_Tbl.Dep_ID INNER JOIN dbo.Product_Tbl ON dbo.Cat_Tbl.Cat_ID = dbo.Product_Tbl.Cat_ID INNER JOIN dbo.Sale_Details_Tbl ON dbo.Product_Tbl.Product_ID = dbo.Sale_Details_Tbl.Product_ID ")
CreateDBViews("CREATE VIEW dbo.View_Cat AS SELECT dbo.Cat_Tbl.Cat_ID, dbo.Cat_Tbl.CatName, dbo.Cat_Tbl.Dep_ID, dbo.Dep_Tbl.DepName FROM dbo.Cat_Tbl INNER JOIN dbo.Dep_Tbl ON dbo.Cat_Tbl.Dep_ID = dbo.Dep_Tbl.Dep_ID ")
CreateDBViews("CREATE VIEW dbo.View_SaleHold AS SELECT dbo.Sale_Hold.Sale_ID, dbo.Sale_Hold.Order_ID, dbo.Sale_Hold.OrderDate, dbo.Sale_Hold.Inv_Type, dbo.Sale_Hold.Customer_ID, dbo.Customer_Tbl.CustomerName, dbo.Customer_Tbl.Phone, dbo.Customer_Tbl.Address, dbo.Customer_Tbl.Balance FROM dbo.Customer_Tbl INNER JOIN dbo.Sale_Hold ON dbo.Customer_Tbl.Customer_ID = dbo.Sale_Hold.Customer_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_Buy] AS SELECT dbo.Buy_Tbl.Buy_ID, dbo.Buy_Tbl.Order_ID, dbo.Buy_Tbl.OrderDate, dbo.Buy_Tbl.Imp_Inv_No, dbo.Buy_Tbl.Inv_Type, dbo.Buy_Tbl.Importer_ID, dbo.Importer_Tbl.ImporterName, dbo.Buy_Tbl.ItemCount, dbo.Buy_Tbl.Total, dbo.Buy_Tbl.Tax_Value, dbo.Buy_Tbl.Discount_Value, dbo.Buy_Tbl.FinalTotal, dbo.Buy_Tbl.MoneyText, dbo.Buy_Tbl.EmpName FROM dbo.Buy_Tbl INNER JOIN dbo.Importer_Tbl ON dbo.Buy_Tbl.Importer_ID = dbo.Importer_Tbl.Importer_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_Buy_Details] AS SELECT dbo.Buy_Details_Tbl.Buy_Details_ID, dbo.Buy_Details_Tbl.Order_ID, dbo.Buy_Details_Tbl.OrderDate, dbo.Buy_Details_Tbl.Product_ID, dbo.Product_Tbl.ProductCode, dbo.Product_Tbl.ProductName, dbo.Buy_Details_Tbl.Qty, dbo.Buy_Details_Tbl.BuyPrice, dbo.Buy_Details_Tbl.Total FROM dbo.Buy_Details_Tbl INNER JOIN dbo.Product_Tbl ON dbo.Buy_Details_Tbl.Product_ID = dbo.Product_Tbl.Product_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_Paid] AS SELECT dbo.Paid_Tbl.Paid_Send_ID, dbo.Paid_Tbl.Paid_Order, dbo.Paid_Tbl.Importer_ID, dbo.Importer_Tbl.ImporterName, dbo.Importer_Tbl.Phone, dbo.Importer_Tbl.Address, dbo.Importer_Tbl.Balance, dbo.Paid_Tbl.Paid_Date, dbo.Paid_Tbl.Paid_Type, dbo.Paid_Tbl.Paid_Value, dbo.Paid_Tbl.UserName, dbo.Paid_Tbl.MoneyText FROM dbo.Importer_Tbl INNER JOIN dbo.Paid_Tbl ON dbo.Importer_Tbl.Importer_ID = dbo.Paid_Tbl.Importer_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_Prd] AS SELECT dbo.Product_Tbl.Product_ID, dbo.Product_Tbl.ProductCode, dbo.Product_Tbl.ProductName, dbo.Product_Tbl.Cat_ID, dbo.Cat_Tbl.CatName, dbo.Product_Tbl.Unit_ID, dbo.Unit_Tbl.UnitName, dbo.Product_Tbl.ProductLimit, dbo.Product_Tbl.ProductBuy, dbo.Product_Tbl.ProductSale, dbo.Product_Tbl.ProductOpenStock, dbo.Product_Tbl.ProductImage FROM dbo.Cat_Tbl INNER JOIN dbo.Product_Tbl ON dbo.Cat_Tbl.Cat_ID = dbo.Product_Tbl.Cat_ID INNER JOIN dbo.Unit_Tbl ON dbo.Product_Tbl.Unit_ID = dbo.Unit_Tbl.Unit_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_ReBuy] AS SELECT dbo.ReBuy_Tbl.ReBuy_ID, dbo.ReBuy_Tbl.Order_ID, dbo.ReBuy_Tbl.OrderDate, dbo.ReBuy_Tbl.Inv_Type, dbo.ReBuy_Tbl.Importer_ID, dbo.Importer_Tbl.ImporterName, dbo.Importer_Tbl.Phone, dbo.Importer_Tbl.Address, dbo.Importer_Tbl.Balance, dbo.ReBuy_Tbl.ItemCount, dbo.ReBuy_Tbl.Total, dbo.ReBuy_Tbl.Tax_Value, dbo.ReBuy_Tbl.Discount_Value, dbo.ReBuy_Tbl.FinalTotal, dbo.ReBuy_Tbl.MoneyText, dbo.ReBuy_Tbl.EmpName FROM dbo.Importer_Tbl INNER JOIN dbo.ReBuy_Tbl ON dbo.Importer_Tbl.Importer_ID = dbo.ReBuy_Tbl.Importer_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_ReBuyDetails] AS SELECT dbo.ReBuy_Details_Tbl.ReBuy_Details_ID, dbo.ReBuy_Details_Tbl.Order_ID, dbo.ReBuy_Details_Tbl.OrderDate, dbo.ReBuy_Details_Tbl.Product_ID, dbo.Product_Tbl.ProductCode, dbo.Product_Tbl.ProductName, dbo.ReBuy_Details_Tbl.Qty, dbo.ReBuy_Details_Tbl.BuyPrice, dbo.ReBuy_Details_Tbl.Total FROM dbo.Product_Tbl INNER JOIN dbo.ReBuy_Details_Tbl ON dbo.Product_Tbl.Product_ID = dbo.ReBuy_Details_Tbl.Product_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_Receipt] AS SELECT dbo.Receipt_Tbl.Receipt_Send_ID, dbo.Receipt_Tbl.Receipt_Order, dbo.Receipt_Tbl.Customer_ID, dbo.Customer_Tbl.CustomerName, dbo.Customer_Tbl.Phone, dbo.Customer_Tbl.Address, dbo.Customer_Tbl.Balance, dbo.Receipt_Tbl.Receipt_Date, dbo.Receipt_Tbl.Receipt_Type, dbo.Receipt_Tbl.Receipt_Value, dbo.Receipt_Tbl.MoneyText, dbo.Receipt_Tbl.UserName FROM dbo.Customer_Tbl INNER JOIN dbo.Receipt_Tbl ON dbo.Customer_Tbl.Customer_ID = dbo.Receipt_Tbl.Customer_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_ReSale] AS SELECT dbo.ReSale_Tbl.ReSale_ID, dbo.ReSale_Tbl.Order_ID, dbo.ReSale_Tbl.OrderDate, dbo.ReSale_Tbl.Inv_Type, dbo.ReSale_Tbl.Customer_ID, dbo.Customer_Tbl.CustomerName, dbo.Customer_Tbl.Phone, dbo.Customer_Tbl.Address, dbo.Customer_Tbl.Balance, dbo.ReSale_Tbl.ItemCount, dbo.ReSale_Tbl.Total, dbo.ReSale_Tbl.Tax_Value, dbo.ReSale_Tbl.Discount_Value, dbo.ReSale_Tbl.FinalTotal, dbo.ReSale_Tbl.MoneyText, dbo.ReSale_Tbl.EmpName FROM dbo.Customer_Tbl INNER JOIN dbo.ReSale_Tbl ON dbo.Customer_Tbl.Customer_ID = dbo.ReSale_Tbl.Customer_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_ReSale_Details] AS SELECT dbo.ReSale_Details_Tbl.ReSale_Details_ID, dbo.ReSale_Details_Tbl.Order_ID, dbo.ReSale_Details_Tbl.OrderDate, dbo.ReSale_Details_Tbl.Product_ID, dbo.Product_Tbl.ProductCode, dbo.Product_Tbl.ProductName, dbo.ReSale_Details_Tbl.Qty, dbo.ReSale_Details_Tbl.SalePrice, dbo.ReSale_Details_Tbl.Total FROM dbo.Product_Tbl INNER JOIN dbo.ReSale_Details_Tbl ON dbo.Product_Tbl.Product_ID = dbo.ReSale_Details_Tbl.Product_ID ")
CreateDBViews("CREATE VIEW dbo.View_Sale AS SELECT dbo.Sale_Tbl.Sale_ID, dbo.Sale_Tbl.Order_ID, dbo.Sale_Tbl.OrderDate, dbo.Sale_Tbl.Inv_Type, dbo.Sale_Tbl.Customer_ID, dbo.Customer_Tbl.CustomerName, dbo.Customer_Tbl.Phone, dbo.Customer_Tbl.Address, dbo.Customer_Tbl.Balance, dbo.Customer_Tbl.VatCust, dbo.Sale_Tbl.ItemCount, dbo.Sale_Tbl.Total, dbo.Sale_Tbl.Tax_Value, dbo.Sale_Tbl.Discount_Value, dbo.Sale_Tbl.FinalTotal, dbo.Sale_Tbl.MoneyText, dbo.Sale_Tbl.EmpName, dbo.Sale_Tbl.Qr_Pic, dbo.Sale_Tbl.MoneyPaid, dbo.Sale_Tbl.Unpaid FROM dbo.Customer_Tbl INNER JOIN dbo.Sale_Tbl ON dbo.Customer_Tbl.Customer_ID = dbo.Sale_Tbl.Customer_ID ")
CreateDBViews("CREATE VIEW [dbo].[View_Sale_Details] AS SELECT dbo.Sale_Details_Tbl.Sale_Details_ID, dbo.Sale_Details_Tbl.Order_ID, dbo.Sale_Details_Tbl.OrderDate, dbo.Sale_Details_Tbl.Product_ID, dbo.Product_Tbl.ProductCode, dbo.Product_Tbl.ProductName, dbo.Sale_Details_Tbl.Qty, dbo.Sale_Details_Tbl.SalePrice, dbo.Sale_Details_Tbl.Total FROM dbo.Product_Tbl INNER JOIN dbo.Sale_Details_Tbl ON dbo.Product_Tbl.Product_ID = dbo.Sale_Details_Tbl.Product_ID ")
CreateDBViews("CREATE VIEW dbo.View_Cus_Account AS SELECT dbo.Customer_Move_Tbl.Cus_Move_ID, dbo.Customer_Move_Tbl.Customer_ID, dbo.Customer_Tbl.CustomerName, dbo.Customer_Tbl.Phone, dbo.Customer_Tbl.Address, dbo.Customer_Tbl.Balance, dbo.Customer_Move_Tbl.Move_Date, dbo.Customer_Move_Tbl.Move_type, dbo.Customer_Move_Tbl.Move_Code, dbo.Customer_Move_Tbl.Move_Value, dbo.Customer_Move_Tbl.CustomerBlanceBefore, dbo.Customer_Move_Tbl.CustomerBlanceAfter FROM dbo.Customer_Move_Tbl INNER JOIN dbo.Customer_Tbl ON dbo.Customer_Move_Tbl.Customer_ID = dbo.Customer_Tbl.Customer_ID ")
CreateDBViews("CREATE VIEW dbo.View_Imp_Account AS SELECT dbo.Imorter_Move_Tbl.Imp_Move_ID, dbo.Imorter_Move_Tbl.Importer_ID, dbo.Importer_Tbl.ImporterName, dbo.Importer_Tbl.Phone, dbo.Importer_Tbl.Address, dbo.Importer_Tbl.Balance, dbo.Imorter_Move_Tbl.Move_Date, dbo.Imorter_Move_Tbl.Move_type, dbo.Imorter_Move_Tbl.Move_Code, dbo.Imorter_Move_Tbl.Move_Value, dbo.Imorter_Move_Tbl.ImporterBlanceBefore, dbo.Imorter_Move_Tbl.ImporterBlanceAfter FROM dbo.Imorter_Move_Tbl INNER JOIN dbo.Importer_Tbl ON dbo.Imorter_Move_Tbl.Importer_ID = dbo.Importer_Tbl.Importer_ID ")
MsgBox("تم تمت عملية الاتصال بالسيرفر بنجاح وتم انشاء قاعدة البيانات والجداول والاستعلامات بنجاح", MsgBoxStyle.Information, "حفظ")
MessageBox.Show("تم إنشاء قاعدة البيانات والإتصال بنجاح" & vbCrLf & "سنقوم بالإغلاق الآن الرجاء فتح البرنامج من جديد", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show("خطأ الإتصال " + vbCrLf + Err.Description, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
If (con.State = ConnectionState.Open) Then
con.Close()
End If
End Tryكود :
If cmbServerName.Text = "" Then
MsgBox("من فضلك اختار/اسم الاتصال", MsgBoxStyle.Information)
cmbServerName.Focus()
Exit Sub
End If
If cmbAuthentication.SelectedIndex = 1 Then
If txtUserName.Text.Length = 0 Then
MsgBox("من فضلك ادخل اسم المستخدم", MsgBoxStyle.Information)
txtUserName.Focus()
Exit Sub
End If
If txtPassword.Text.Length = 0 Then
MsgBox("من فضلك ادخل كلمة المرور", MsgBoxStyle.Information)
txtPassword.Focus()
Exit Sub
End If
End If
Cursor = Cursors.WaitCursor
Timer2.Enabled = True
Dim SqlConn As New SqlConnection
If cmbAuthentication.SelectedIndex = 0 Then
SqlConnStr = "Data Source=" & cmbServerName.Text.Trim & ";Initial Catalog=master;Integrated Security=True"
End If
If cmbAuthentication.SelectedIndex = 1 Then
SqlConnStr = "Data Source=" & cmbServerName.Text.Trim & ";Initial Catalog=master;User ID=" & txtUserName.Text.Trim & ";Password=" & txtPassword.Text & ""
End If
If SqlConn.State = ConnectionState.Closed Then
SqlConn.ConnectionString = SqlConnStr
Try
SqlConn.Open()
MessageBox.Show("تم الاتصال بنجاح", "تجربة الاتصال", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("تم تغيير الاتصال" + vbCrLf + Err.Description, "تجربة الاتصال", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Ifفي التايمر
كود :
Cursor = Cursors.Default
Timer2.Enabled = Falseاتمنى اذا حدث اي اخطاء تحديد نوع الخطأ
او احد من الاخوة يساعد معناوفي المرفقات ملف الاتصال
وايضا يجب فتح بورت 58808 في الجدار الناري
وايضا عمل مستخدم داخل sql server
وايضا الصلاحيات