[mesm23]

هذا هو class1
[Imports System.Data.SqlClient
Imports System.Globalization

Public Class Class1
Public Shared sqlcon As New SqlConnection
' دالة بناء اوامر الحذف والحفظ والتعديل
Public Function SQLExciute(ByVal SQLStatment As String) As Boolean
Try
Dim cmd As New SqlCommand
cmd.CommandText = SQLStatment
sqlcon.Open()
cmd.Connection = sqlcon
cmd.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try
End Function
'دالة جلب البيانات من قاعدة البيانات
Public Function SQLReturn(ByVal SQLStatment As String) As DataSet
Dim ds As DataSet
Try
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If
Dim sda As New SqlDataAdapter(SQLStatment, sqlcon)
sda.Fill(ds)
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try
Return ds
End Function
' دالة الترقيم التلقائى
Public Sub AutoNum(ByVal C As TextBox, ByVal SQLStatment As String)
Try
Dim sda As New SqlDataAdapter(SQLStatment, sqlcon)
Dim ds As New DataSet
sda.Fill(ds)
Dim n As Integer = ds.Tables(0).Rows.Count
If n > 0 Then
C.Text = Format(ds.Tables(0).Rows(n - 1)(0) + 1, "00000")

Else
C.Text = Format("00001")
End If

Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try
End Sub

' End Function

'دالة تعبئة الداتا قريد


Public Function filldataGrid(ByVal dg As DataGridView, ByVal SQLStatment As String) As DataSet

Dim ds As New DataSet
Dim bs As New BindingSource
Try
Dim sda As New SqlDataAdapter(SQLStatment, sqlcon)
sda.Fill(ds)
bs.DataSource = ds.Tables(0)
dg.DataSource = bs

Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try
Return ds

End Function



'دالة تعبئة الكمبوبوكس

Public Sub Fillcombobox(ByVal cbo As ComboBox, ByVal Tablename As String, ByVal Col_Name As String, ByVal Col_Value As String, ByVal WHR As String)
Try
Dim VarSQL As String
VarSQL = " "
VarSQL = " select " + Col_Name + " , " + Col_Value + " from " + Tablename + " " + WHR
Dim sda As New SqlDataAdapter(VarSQL, sqlcon)
Dim ds As New DataSet
sda.Fill(ds)
cbo.DataSource = ds.Tables(0)
cbo.DisplayMember = Col_Name
cbo.ValueMember = Col_Value

Catch ex As Exception
MsgBox(" error :" & ex.Message)
End Try
End Sub
'ترقيم خاص
Public Function ReturnAutoNum(ByVal TName As String, ByVal FldName As String, ByVal WHR As String)
Dim cmd As New SqlCommand
Dim Num As Integer
Try
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If
sqlcon.Open()
cmd.Connection = sqlcon

cmd.CommandText = " select Max (" + FldName + ") as MaxNo from " + TName + " " + WHR
If cmd.ExecuteScalar().ToString() <> " " Then
Num = Convert.ToString(Convert.ToInt32(cmd.ExecuteScalar()) + 1)
Else
Num = "1"
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try
Return Num

End Function
' تاريخ اليوم بالهجرى
Public Shared Function GetTodayHijriDate() As String
Dim todaydate As String = String.Empty
Dim hc As New UmAlQuraCalendar()
Dim day As String
day += hc.GetYear(DateTime.Now).ToString()
day += "/"
day += fixdatestring(hc.GetMonth(System.DateTime.Now).ToString())
day += "/"
day += fixdatestring(hc.GetDayOfMonth(System.DateTime.Now).ToString())
day += "/"
todaydate = day
Return todaydate
End Function
'اسم اليوم بالعربى
Public Shared Function GetTodayHijriDay() As String
Dim today As String = String.Empty
Dim hc As New UmAlQuraCalendar()
Dim day As String = hc.GetDayOfWeek(DateTime.Now).ToString().ToLower.Trim
Select Case day
Case "friday "
day = "الجمعة"
Exit Select
Case "saturday"
day = "السبت "
Exit Select
Case "sunday"
day = "الاحد "
Exit Select
Case "monday"
day = "الاثنين"
Exit Select
Case "tuesday"
day = "الثلاثاء"
Exit Select
Case "wednesday"
day = "الاربعاء"
Exit Select
Case "thursday"
day = " الخميس "
Exit Select
End Select
Return day
End Function
' إصلاح التاريخ
Public Shared Function fixdatestring(ByVal mydate As String) As String
Dim dt As Integer = Convert.ToInt32(mydate)
If dt < 10 Then
mydate = "0" & mydate
End If
Return mydate
End Function
End Class]