كود :
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Form_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Informload(Me)
End Sub
Private Sub Form_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Resizeform(Me)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Application.Exit()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Conn.Close()
Sql = "add"
Dim savein As New OleDb.OleDbCommand
savein.CommandText = Sql
savein.CommandType = CommandType.StoredProcedure
savein.Connection = Conn
Try
Conn.Open()
savein.Parameters.Add("@Nomber", OleDbType.Integer)
savein.Parameters("@Nomber").Value = Trim(TextBox1.Text)
savein.Parameters.Add("@Date_Joine", OleDbType.Date)
savein.Parameters("@Date_Joine").Value = Trim(DateTimePicker1.Value)
savein.Parameters.Add("@Name", OleDbType.VarChar, 50)
savein.Parameters("@Name").Value = Trim(TextBox2.Text)
savein.Parameters.Add("@Markz", OleDbType.VarChar, 20)
savein.Parameters("@Markz").Value = ComboBox1.SelectedItem
savein.Parameters.Add("@Adress", OleDbType.VarChar, 70)
savein.Parameters("@Adress").Value = TextBox3.Text
savein.Parameters.Add("@Job", OleDbType.VarChar, 30)
savein.Parameters("@Job").Value = TextBox4.Text
savein.Parameters.Add("@Takhsoss", OleDbType.VarChar, 30)
savein.Parameters("@Takhsoss").Value = TextBox5.Text
savein.Parameters.Add("@Date-berth", OleDbType.Date)
savein.Parameters("@Date-berth").Value = Trim(DateTimePicker2.Value)
savein.Parameters.Add("@Code", OleDbType.Integer)
savein.Parameters("@Code").Value = TextBox6.Text
savein.Parameters.Add("@Phone", OleDbType.Integer)
savein.Parameters("@Phone").Value = TextBox7.Text
savein.Parameters.Add("@Hezb_Dor", OleDbType.VarChar, 50)
savein.Parameters("@Hezb_Dor").Value = TextBox8.Text
savein.ExecuteNonQuery()
Conn.Close()
Conn.Dispose()
Conn = Nothing
MsgBox("A new hardware has been added successfully.Do you want to add software concerning this device.", MsgBoxStyle.OkCancel + MsgBoxStyle.Information, "Hardware Manager")
Catch ex As Exception
MsgBox(savein.CommandText)
End Try
End Sub
End Class
الباقي
كود :
Imports System.Data.OleDb
Module Module1
Public Cmd As OleDbCommand
Public cnnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
Application.StartupPath & "\ELNour.mdb"
Public Conn As New OleDbConnection(cnnString)
Public Dr As OleDbDataReader
Public Sql As String
Public Ds As DataSet
Public dt As DataTable
Private Structure CtrlProportions
Dim HeightProportions As Single
Dim WidthProportions As Single
Dim TopProportions As Single
Dim LeftProportions As Single
Dim FontProportions As Font
Dim FontSizeScaleProportions As Single
End Structure
Private ProportionsArray() As CtrlProportions
Private ctrl As New List(Of Control)
Public Sub Informload(ByVal frm As Form)
On Error Resume Next
Application.DoEvents()
ctrl = GetControls(frm)
For i = 0 To ctrl.Count - 1
If TypeOf (ctrl(i)) Is Form Then ctrl.Remove(ctrl(i))
Next
ReDim ProportionsArray(0 To ctrl.Count - 1)
For I As Integer = 0 To ctrl.Count - 1
With ProportionsArray(I)
.HeightProportions = ctrl(I).Height / frm.Height
.WidthProportions = ctrl(I).Width / frm.Width
.TopProportions = ctrl(I).Top / frm.Height
.LeftProportions = ctrl(I).Left / frm.Width
.FontProportions = ctrl(I).Font
.FontSizeScaleProportions = ctrl(I).Font.Size / frm.Height
End With
Next
End Sub
Private Function GetControls(ByVal Ctrl As Control) As List(Of Control)
GetControls = New List(Of Control)
GetControls.Add(Ctrl)
For Each c As Control In Ctrl.Controls
GetControls.AddRange(GetControls(c))
Next
End Function
Public Sub Resizeform(ByVal frm As Form)
On Error Resume Next
For I As Integer = 0 To ctrl.Count - 1
ctrl(I).Left = ProportionsArray(I).LeftProportions * frm.Width
ctrl(I).Top = ProportionsArray(I).TopProportions * frm.Height
ctrl(I).Width = ProportionsArray(I).WidthProportions * frm.Width
ctrl(I).Height = ProportionsArray(I).HeightProportions * frm.Height
ctrl(I).Font = New Font(ProportionsArray(I).FontProportions.FontFamily _
, ProportionsArray(I).FontSizeScaleProportions * frm.Height _
, ProportionsArray(I).FontProportions.Style)
Next
End Sub
End Module
الخطا عندي في جملة الاضافة وانا استخدم استعلامات اكسس 2003