المشاركات : 6
المواضيع 2
الإنتساب : Mar 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
ان اعمل الان فى برنامج مبيعات اريد كود عند دخولى مثلا على فاوتير البيع او نقطة البيع الكاشير ومثلا كتبيت الباركود بتاع الصنف ثم عدد القطع اريد بعدها البرنامج يحفظ الصنف فى قاعدة البيانات اتومتيك بدون تدخل منى بالضغط على زر الحفظ علشان احفظ وبردة عاوز البرنامج ميحفظش خانات فاضية
منتظر الرد واريد ان لا تبخلو عليا بالرد
المشاركات : 13
المواضيع 0
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
اعطيني زر كود الحفظ خاصتك و ان شاء الله اعطيك الحل
المشاركات : 6
المواضيع 2
الإنتساب : Mar 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
اخى الكريم للاسف انا حتى الان لم اكود زر الحفظ لانى فكرت فى هذة الفكرة الحفظ الاتوماتيك معرفتش اعملها قلت اسئل الاعضاء هنا يمكن حد يفدنى
المشاركات : 609
المواضيع 23
الإنتساب : Sep 2012
السمعة :
43
الشكر: 2709
تم شكره 2810 مرات في 181 مشاركات
نحمده ونصلي على رسوله الكريم
الفكره بسيطه وتطبيقها ابسط، لكنها خاطئة تماما، اجعل المستخدم يتفحص بيانات الادخال فبل الحفظ، فتعديل البيانات يحتاج وقت وجهد اخر....
المشاركات : 6
المواضيع 2
الإنتساب : Mar 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
اخى اشكرك على الرد ولكن فكرت فى الفكرة دية لتفادى انقطاع الكهرباء اثناء العمل على شاشة الكاشير
المشاركات : 13
المواضيع 0
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
[HTML]
Imports System
Imports System.IO.Ports
Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.Data.SqlClient
Imports System.Data.Sql
Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Shared low_addr, hi_addr, addr, data As UInt32
Shared service As String
رقم الكود بار Shared code_barre As Integer
Public Event DataReceived As SerialDataReceivedEventHandler
Private Sub Receiver(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Try
Do
low_addr = SerialPort1.ReadByte()
hi_addr = SerialPort1.ReadByte()
data = SerialPort1.ReadByte()
addr = (hi_addr << 24) Or low_addr
Loop Until (SerialPort1.BytesToRead() = 1)
Me.Invoke(New MethodInvoker(AddressOf Display)) ' Start "Display" on the UI thread
Catch ex As Exception
End Try
End Sub
Private Sub Display()
If data = &HF Then
service = "Commande"
Else
service = ""
End If
code_barre = CStr(addr)
u()
end sub
Sub u()
Try
Dim SavInto3 As New SqlCommand
Dim Conn1 As New SqlConnection(prov1)
SavInto3.Connection = Conn1
SavInto3.CommandType = CommandType.Text
SavInto3.CommandText = "INSERT INTO db3(ide,nome,obs,time)" & _
"values ('" & LabelX14.Text & "','" & LabelX15.Text & "','" & LabelX22.Text & "','" & LabelX2.Text & "') "
Conn1.Open()
SavInto3.ExecuteNonQuery()
Conn1.Close()
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles ButtonX1.Click
Try
Me.ButtonX3.Enabled = False
Me.ButtonX2.Enabled = True
Me.ButtonX1.Enabled = False
Me.LabelX1.Text = "Appareille Connecté"
Me.LabelX1.ForeColor = Color.Green
SerialPort1.Open()
Catch ex As Exception
End Try
End Sub
[/HTML]
بتوفيق
المشاركات : 183
المواضيع 63
الإنتساب : Feb 2013
السمعة :
0
الشكر: 0
تم شكره 3 مرات في 3 مشاركات
انقطاع التيار مشكلة بس الاكواد دية عبارة عن اية حفظ وتخزين قيمة مثلا بعد العملية ولااية بالظبط
المشاركات : 6
المواضيع 2
الإنتساب : Mar 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
اشكركم جميعا على روددكم المشجعة جدا لى وبالفعل اقتنعت بفكرة أبو رائد واشكر كل من ساعدنى لانجاح هذا العمل اكن لة كل الجزيل والشكر