14-03-23, 06:40 PM
(13-03-23, 12:47 PM)فراس محي كتب :السلام عليكم اخوتي في اللهPHP كود :
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing.Printing
Imports PrintPraviewXT.PrintClassXT
Public Class Form2
Dim Da, daferas, damohy As OleDbDataAdapter
Dim cmd, cmdferas As OleDbCommand
Dim Dt, dtferas, dtmohy As New DataTable
Dim ds, dsferas, dsmohy, dsmosa As New DataSet
Dim Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=moistore1.accdb")
Dim sqlstr As String = " Select * from [INPUT1] "
Dim sqlstr1 As String = " Select * from [INPUT] "
Dim bind, bind1 As New BindingSource
Private Sub Button1_Click(sender As Object, e As EventArgs)
Form1.Show()
Me.Close()
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Left = (My.Computer.Screen.WorkingArea.Width / 2) - (Me.Width / 2)
Me.Top = (My.Computer.Screen.WorkingArea.Height / 2) - (Me.Height / 2)
'fullcombo3()
fullcombo1()
Timer1 = New System.Windows.Forms.Timer
Timer1.Interval = 1000
Timer1.Enabled = True
Timer1.Start()
End Sub
Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
dsferas.Clear()
daferas = New OleDbDataAdapter("select * from [INPUT] Where carnamee Like '%" + ComboBox1.Text + "%'", Con)
daferas.Fill(dsferas, "INPUT")
ComboBox3.DataSource = dsferas.Tables("INPUT")
ComboBox3.DisplayMember = "symble"
ComboBox3.ValueMember = "id"
End Sub
Sub savemyinput()
If TextBox2.Text = "" Then
MsgBox("الرجاء اختيار الكميه")
ElseIf TextBox3.Text = "" Then
MsgBox("الرجاء اختيار رقم المستند")
ElseIf TextBox4.Text = "" Then
MsgBox("الرجاء اختيار تاريخ المستند")
ElseIf TextBox5.Text = "" Then
MsgBox("الرجاء اختيار المستلم ")
ElseIf TextBox6.Text = "" Then
MsgBox("الرجاء اختيار رقم الموافقه ")
ElseIf TextBox7.Text = "" Then
MsgBox("الرجاء اختيار تاريخ الموافقه")
ElseIf TextBox9.Text = "" Then
MsgBox("الرجاء اختيار اسم المادة ")
ElseIf TextBox10.Text = "" Then
MsgBox("الرجاء اختيار رمز المادة")
ElseIf ComboBox1.Text = "" Then
MsgBox("الرجاء اختيار اسم العجلة ")
ElseIf ComboBox2.Text = "" Then
MsgBox("الرجاء اختيار الصنف")
ElseIf TextBox11.Text = "" Then
MsgBox("الرجاء اختيار الجهه المجهزه")
ElseIf TextBox13.Text = "" Then
MsgBox("الرجاء اختيار السعر")
Else
cmd = New OleDbCommand("insert into [INPUT1] (id,amount,iddoc,datesnd,resevern,acceptno,acceptdate,namess,symname,notesinpu,carname,provider,pricee)values(@id,@amount,@iddoc,@datesnd,@resevern,@acceptno,@acceptdate,@namess,@symname,@notesinpu,@carname,@provider,@pricee)", Con)
With cmd.Parameters.AddWithValue("@id", TextBox1.Text)
cmd.Parameters.AddWithValue("@amount", TextBox2.Text)
cmd.Parameters.AddWithValue("@iddoc", TextBox3.Text)
cmd.Parameters.AddWithValue("@datesnd", TextBox4.Text)
cmd.Parameters.AddWithValue("@resevern", TextBox5.Text)
cmd.Parameters.AddWithValue("@acceptno", TextBox6.Text)
cmd.Parameters.AddWithValue("@dateaccpt", TextBox7.Text)
cmd.Parameters.AddWithValue("@namess", TextBox9.Text)
cmd.Parameters.AddWithValue("@symname", TextBox10.Text)
'cmd.Parameters.AddWithValue("@classo", ComboBox2.Text)
cmd.Parameters.AddWithValue("@notesinpu", TextBox8.Text)
cmd.Parameters.AddWithValue("@carname", ComboBox1.Text)
cmd.Parameters.AddWithValue("@provider", TextBox11.Text)
cmd.Parameters.AddWithValue("@pricee", TextBox13.Text)
'cmdferas = New OleDbCommand("insert into [AOMUNTT] (id,amount,iddoc,datesnd,resevern,acceptno,acceptdate,namess,symname,notesinpu,carname,provider,pricee)values(@id,@amount,@iddoc,@datesnd,@resevern,@acceptno,@acceptdate,@namess,@symname,@notesinpu,@carname,@provider,@pricee)", Con)
MsgBox("تم حفظ المستند بنجاح")
'TextBox1.Text = ""
'TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
'ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox11.Text = ""
TextBox13.Text = ""
End With
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()
'addrelem()
End If
End Sub
Sub fullcombo3()
ComboBox3.Items.Clear()
daferas = New OleDbDataAdapter("select * from [myinput]", Con)
daferas.Fill(dsferas, "myinput")
ComboBox3.DataSource = dsferas.Tables("myinput")
ComboBox3.DisplayMember = "symble"
ComboBox3.ValueMember = "id"
End Sub
Sub fatora()
If TextBox2.Text = "" Then
MsgBox("الرجاء اختيار الكميه")
ElseIf TextBox3.Text = "" Then
MsgBox("الرجاء اختيار رقم المستند")
ElseIf TextBox4.Text = "" Then
MsgBox("الرجاء اختيار تاريخ المستند")
ElseIf TextBox5.Text = "" Then
MsgBox("الرجاء اختيار المستلم ")
ElseIf TextBox6.Text = "" Then
MsgBox("الرجاء اختيار رقم الموافقه ")
ElseIf TextBox7.Text = "" Then
MsgBox("الرجاء اختيار تاريخ الموافقه")
ElseIf TextBox9.Text = "" Then
MsgBox("الرجاء اختيار اسم المادة ")
ElseIf TextBox10.Text = "" Then
MsgBox("الرجاء اختيار رمز المادة")
ElseIf ComboBox1.Text = "" Then
MsgBox("الرجاء اختيار اسم العجلة ")
ElseIf ComboBox2.Text = "" Then
MsgBox("الرجاء اختيار الصنف")
ElseIf TextBox11.Text = "" Then
MsgBox("الرجاء اختيار الجهه المجهزه")
Else
cmd = New OleDbCommand("insert into [INPUT1] (amount,iddoc,datesnd,resevern,acceptno,dateaccpt,namem,rsim,classo,notesinpu,carname,provider)values(@amount,@iddoc,@datesnd,@resevern,@acceptno,@dateaccpt,@namem,@rsim,@classo,@notesinpu,@carname,@provider)", Con)
With cmd.Parameters.AddWithValue("@amount", TextBox2.Text)
cmd.Parameters.AddWithValue("@iddoc", TextBox3.Text)
cmd.Parameters.AddWithValue("@datesnd", TextBox4.Text)
cmd.Parameters.AddWithValue("@resevern", TextBox5.Text)
cmd.Parameters.AddWithValue("@acceptno", TextBox6.Text)
cmd.Parameters.AddWithValue("@dateaccpt", TextBox7.Text)
cmd.Parameters.AddWithValue("@namem", TextBox9.Text)
cmd.Parameters.AddWithValue("@rsim", TextBox10.Text)
cmd.Parameters.AddWithValue("@classo", ComboBox2.Text)
cmd.Parameters.AddWithValue("@notesinpu", TextBox8.Text)
cmd.Parameters.AddWithValue("@carname", ComboBox1.Text)
cmd.Parameters.AddWithValue("@provider", TextBox11.Text)
MsgBox("تم حفظ المستند بنجاح")
TextBox9.Text = ""
TextBox10.Text = ""
ComboBox2.Text = ""
End With
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()
'addrelem()
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs)
fatora()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox11.Text = ""
End Sub
Sub fulldgv1()
Con.Open()
'TextBox1.Text = ""
ds.Clear()
Dim da As New OleDbDataAdapter(sqlstr, Con)
da.Fill(ds, "INPUT1")
Con.Close()
dgv1.DataSource = ds
dgv1.DataMember = "INPUT1"
dgv1.Refresh()
dgv1.Columns(0).Visible = True
dgv1.Columns(0).HeaderText = " رقم المعرف"
dgv1.Columns(1).Visible = True
dgv1.Columns(1).HeaderText = "الكميه "
dgv1.Columns(1).Width = 180
dgv1.Columns(2).Visible = True
dgv1.Columns(2).HeaderText = " رقم المستند "
dgv1.Columns(3).Visible = True
dgv1.Columns(3).HeaderText = " تاريخ المستند "
dgv1.Columns(4).Visible = True
dgv1.Columns(4).HeaderText = " المستلم "
dgv1.Columns(5).Visible = True
dgv1.Columns(5).HeaderText = " الجهه المجهزه "
dgv1.Columns(6).Visible = True
dgv1.Columns(6).HeaderText = " رقم الموافقه "
'dgv1.Columns(5).Width = 180
dgv1.Columns(7).Visible = True
dgv1.Columns(7).HeaderText = " تاريخ الموافقه "
dgv1.Columns(8).Visible = True
dgv1.Columns(8).HeaderText = " اسم الماده "
dgv1.Columns(9).Visible = True
dgv1.Columns(9).HeaderText = " رمز الماده "
dgv1.Columns(10).Visible = True
dgv1.Columns(10).HeaderText = " الصنف "
dgv1.Columns(11).Visible = True
dgv1.Columns(11).HeaderText = " اسم العجله "
dgv1.Columns(12).Visible = True
dgv1.Columns(12).HeaderText = " الملاحظات "
End Sub
Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
If Con.State = ConnectionState.Open Then
Con.Close()
ElseIf CheckBox3.CheckState = CheckState.Checked Then
'On Error Resume Next
Con.Open()
'TextBox1.Text = ""
ds.Clear()
Dim da As New OleDbDataAdapter(sqlstr, Con)
da.Fill(ds, "INPUT1")
Con.Close()
dgv1.DataSource = ds
dgv1.DataMember = "INPUT1"
dgv1.Refresh()
dgv1.Columns(0).Visible = True
dgv1.Columns(0).HeaderText = " رقم المعرف"
dgv1.Columns(1).Visible = True
dgv1.Columns(1).HeaderText = "الكميه "
dgv1.Columns(1).Width = 180
dgv1.Columns(2).Visible = True
dgv1.Columns(2).HeaderText = " رقم المستند "
dgv1.Columns(3).Visible = True
dgv1.Columns(3).HeaderText = " تاريخ المستند "
dgv1.Columns(4).Visible = True
dgv1.Columns(4).HeaderText = " المستلم "
dgv1.Columns(5).Visible = True
dgv1.Columns(5).HeaderText = " الجهه المجهزه "
dgv1.Columns(6).Visible = True
dgv1.Columns(6).HeaderText = " رقم الموافقه "
'dgv1.Columns(5).Width = 180
dgv1.Columns(7).Visible = True
dgv1.Columns(7).HeaderText = " تاريخ الموافقه "
dgv1.Columns(8).Visible = True
dgv1.Columns(8).HeaderText = " اسم الماده "
dgv1.Columns(9).Visible = True
dgv1.Columns(9).HeaderText = " رمز الماده "
dgv1.Columns(10).Visible = True
dgv1.Columns(10).HeaderText = " الصنف "
dgv1.Columns(11).Visible = True
dgv1.Columns(11).HeaderText = " اسم العجله "
dgv1.Columns(12).Visible = True
dgv1.Columns(12).HeaderText = " الملاحظات "
'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
dgv1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
dgv1.MultiSelect = False
With Me.dgv1
.RowsDefaultCellStyle.BackColor = Color.YellowGreen
.AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
dgv1.BackgroundColor = Color.White
End With
Me.KeyPreview = True
'TextBox3.Focus()
'TextBox2.Text = ""
If Trim(TextBox6.Text) <> "" Then
da = New OleDbDataAdapter("Select * From INPUT1 Where acceptno Like '%" + TextBox6.Text + "%'", Con)
ds.Clear()
da.Fill(ds, "INPUT1")
dgv1.DataSource = ds
dgv1.DataMember = "INPUT1"
dgv1.Refresh()
End If
TextBox6.Focus()
'dgv1.Select()
End If
End Sub
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
Dim sqlstr1 As String = " Select * from INPUT1 INNER join myinput on INPUT1.id = myinput.id "
If Con.State = ConnectionState.Open Then
Con.Close()
ElseIf CheckBox1.CheckState = CheckState.Checked Then
Con.Open()
ds.Clear()
Dim da As New OleDbDataAdapter(sqlstr1, Con)
da.Fill(ds, "INPUT1,myinput")
Con.Close()
dgv1.DataSource = ds
dgv1.DataMember = "INPUT1,myinput"
dgv1.Refresh()
dgv1.Columns(0).Visible = True
dgv1.Columns(0).HeaderText = " رقم المعرف"
dgv1.Columns(1).Visible = True
dgv1.Columns(1).HeaderText = "الكميه "
dgv1.Columns(1).Width = 180
dgv1.Columns(2).Visible = True
dgv1.Columns(2).HeaderText = " رقم المستند "
dgv1.Columns(3).Visible = True
dgv1.Columns(3).HeaderText = " تاريخ المستند "
dgv1.Columns(4).Visible = True
dgv1.Columns(4).HeaderText = " المستلم "
dgv1.Columns(5).Visible = True
dgv1.Columns(5).HeaderText = " الجهه المجهزه "
dgv1.Columns(6).Visible = True
dgv1.Columns(6).HeaderText = " رقم الموافقه "
'dgv1.Columns(5).Width = 180
dgv1.Columns(7).Visible = True
dgv1.Columns(7).HeaderText = " تاريخ الموافقه "
dgv1.Columns(8).Visible = True
dgv1.Columns(8).HeaderText = " اسم الماده "
dgv1.Columns(9).Visible = True
dgv1.Columns(9).HeaderText = " رمز الماده "
dgv1.Columns(10).Visible = True
dgv1.Columns(10).HeaderText = " الصنف "
dgv1.Columns(11).Visible = True
dgv1.Columns(11).HeaderText = " اسم العجله "
dgv1.Columns(12).Visible = True
dgv1.Columns(12).HeaderText = " الملاحظات "
If Trim(TextBox9.Text) <> "" Then
da = New OleDbDataAdapter("Select * From INPUT1 Where namem Like '%" + TextBox9.Text + "%'", Con)
' Me.tableBindingSource.Filter = " [column] LIKE '" & TextBox1.Text & "%'"
ds.Clear()
da.Fill(ds, "INPUT1")
dgv1.DataSource = ds
dgv1.DataMember = "INPUT1"
dgv1.Refresh()
End If
TextBox9.Focus()
End If 'dgv1.Select()
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
addrelem()
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
If Con.State = ConnectionState.Open Then
Con.Close()
ElseIf CheckBox6.CheckState = CheckState.Checked Then
'On Error Resume Next
Con.Open()
'TextBox1.Text = ""
ds.Clear()
If Trim(TextBox3.Text) <> "" Then
da = New OleDbDataAdapter("Select * From INPUT1 Where iddoc Like '%" + TextBox3.Text + "%'", Con)
ds.Clear()
da.Fill(ds, "INPUT1")
dgv1.DataSource = ds
dgv1.DataMember = "INPUT1"
dgv1.Refresh()
End If
TextBox3.Focus()
'dgv1.Select()
End If
End Sub
Private BITMAP As Bitmap
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
End Sub
Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs)
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Me.Hide()
mainform.Show()
End Sub
Sub bindtexts()
damohy = New OleDbDataAdapter("select * from [REALAM] where ID =" & TextBox1.Text, Con)
damohy.Fill(dtmohy)
TextBox12.DataBindings.Clear()
TextBox12.DataBindings.Add(New Binding("text", dsmohy.Tables("REALAM"), "AOMUNTT"))
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Label15.BackColor = Color.Yellow Then
Label15.BackColor = Color.Red
Else
Label15.BackColor = Color.Yellow
End If
End Sub
Private Sub ComboBox3_MouseMove(sender As Object, e As MouseEventArgs) Handles ComboBox3.MouseMove
TextBox10.Text = ComboBox3.Text
End Sub
Private Sub ComboBox3_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox3.SelectionChangeCommitted
daferas = New OleDbDataAdapter("select * from [INPUT] where id =" & ComboBox3.SelectedValue, Con)
daferas.Fill(dtferas)
TextBox12.DataBindings.Clear()
TextBox9.DataBindings.Clear() 'من الضروري تفريغ البايندينغ لكل تكست حتى لاتحدث اخطاء
ComboBox2.DataBindings.Clear()
TextBox1.DataBindings.Clear()
TextBox9.DataBindings.Add(New Binding("text", dsferas.Tables("INPUT"), "name"))
ComboBox2.DataBindings.Add(New Binding("text", dsferas.Tables("INPUT"), "class"))
TextBox1.DataBindings.Add(New Binding("text", dsferas.Tables("INPUT"), "id"))
dsmohy.Clear()
damohy = New OleDbDataAdapter("select * from [REALAM] where ID =" & TextBox1.Text, Con)
damohy.Fill(dsmohy, "REALAM")
TextBox12.DataBindings.Add(New Binding("text", dsmohy.Tables("REALAM"), "AOMUNTT"))
End Sub
Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged
If Con.State = ConnectionState.Open Then
Con.Close()
ElseIf CheckBox2.CheckState = CheckState.Checked Then
Con.Open()
ds.Clear()
If Trim(TextBox9.Text) <> "" Then
da = New OleDbDataAdapter("Select * From INPUT1 Where id =" & TextBox1.Text, Con)
' Me.tableBindingSource.Filter = " [column] LIKE '" & TextBox1.Text & "%'"
ds.Clear()
da.Fill(ds, "INPUT1")
dgv1.DataSource = ds
dgv1.DataMember = "INPUT1"
dgv1.Refresh()
End If
TextBox1.Focus()
End If 'dgv1.Select()
End Sub
Sub addrelem()
Dim item As Integer
cmdferas = New OleDbCommand("UPDATE [REALAM] SET AOMUNTT = @AOMUNTT WHERE ID like '" + TextBox1.Text + "'", Con)
cmdferas.Parameters.AddWithValue("@AOMUNTT", Val(TextBox2.Text) + Val(TextBox12.Text))
MsgBox("تم حفظ المستند بنجاح")
con.Open()
item = cmdferas.ExecuteNonQuery()
TextBox1.Text = ""
TextBox2.Text = ""
con.Close()
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
savemyinput()
addrelem()
End Sub
Private Sub TextBox11_Enter(sender As Object, e As EventArgs) Handles TextBox11.Enter
If Con.State = ConnectionState.Open Then
Con.Close()
ElseIf CheckBox4.CheckState = CheckState.Checked Then
Con.Open()
Da = New OleDbDataAdapter("Select * From INPUT1 Where provider Like '%" + TextBox11.Text + "%'", Con)
ds.Clear()
Da.Fill(ds, "INPUT1")
dgv1.DataSource = ds
dgv1.DataMember = "INPUT1"
dgv1.Refresh()
End If
TextBox11.Focus()
End Sub
Private Sub TextBox11_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox11.KeyPress
End Sub
Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles TextBox11.TextChanged
End Sub
Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
If Con.State = ConnectionState.Open Then
Con.Close()
ElseIf CheckBox5.CheckState = CheckState.Checked Then
Con.Open()
ds.Clear()
da = New OleDbDataAdapter("Select * From INPUT1 Where resevern Like '%" + TextBox5.Text + "%'", Con)
' Me.tableBindingSource.Filter = " [column] LIKE '" & TextBox1.Text & "%'"
ds.Clear()
da.Fill(ds, "INPUT1")
dgv1.DataSource = ds
dgv1.DataMember = "INPUT1"
dgv1.Refresh()
End If
TextBox5.Focus()
End Sub
Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click
End Sub
Sub fullcombo1()
Try
ComboBox1.Items.Clear()
Da = New OleDbDataAdapter("select DISTINCT [carnamee] from [INPUT]", Con)
Da.Fill(Dt)
ComboBox1.DataSource = Dt
ComboBox1.DisplayMember = "carnamee"
Catch ex As Exception
End Try
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs)
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
End Sub
End Class
عملت برنامج مواد احتياطيه للعجلات المشكله في واجهه الادخال للوارد اختار اسم العجله من كومبو 1 ياتي ببيانات المواد الاحتياطيه للعجله المختاره وعند اختيار ماده من كومبو 3 وارجع للاختيار نوع عجله ثانيه يضهر رساله خطا
Invalid attempt to call NextResult when reader is closed.
البرنامج بالمرفق يرحمكم الله تعبني ه>ا الخطا
كلمه المرور للبرنامج aa
الخطا Invalid attempt to call NextResult when reader is closed يخص OleDbDataReader
والكود المرفق ليس فيه OleDbDataReader
فين المشروع المرفق
كلمه المرور للبرنامج aa
