تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية عمل بنل ازرار كبنل برامج نقاط البيع .
#1
في هذا المثال نتعلم كيفية عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة و سهلة :


PHP كود :
   'تعريف داتا تيبل لتعبئ من الجدول المطلوب'
 
   Dim dt As New DataTable
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        
'استعلام لجلب المعلومات من جدول الازرار'
 
       Dim StrSQL As String "Select * From ButtonCellPoint1 where MasterButtom='false'"
 
       'كود الاتصال بقاعدة البيانات'
 
       Dim cn As New SqlConnection("Server =(local);database=ALASEM4;integrated security=True")
 
       'تعريف داتا ادبتر'
 
       Dim da As New SqlDataAdapter(StrSQLcn)
 
       'تنظيف الداتا تيبل'
 
       dt.Clear()
 
       'تعبئة الداتا تيبل بالجدول المطلوب'
 
       da.Fill(dt)
 
       'تعريف متغيير رقمي لاسم الزر'
 
       Dim x As Integer 0
        
'عمل لووب على السجدلات بالجدول المطلوب'
 
       For Each row As DataRow In dt.Rows
            
'اضافة 1 مع كل دورة'
 
           x += 1
            
'اضافة زر جديد مع كل دورة في اللوب'
 
           Dim btn As New ButtonXT
            
'اسم الزر'
 
           btn.Name "Button" x
            
'تسمية الزر'
 
           btn.Text row("ButtonName").ToString
            
'خاصية الباركود المضافة للزر'
 
           btn.Barcode row("ButtonBarcode").ToString
            
'خاصية السعر المضافة للزر'
 
           btn.Price row("ButtonType").ToString
            
'وضع مكان الصورة و عمل تحجيم لها لتتناسب مع الزر'
 
           btn.Image sizeimage(Image.FromFile(row("ImageLocation").ToString))
 
           'محاذاة الصورة ضع الرقم 2 تعطيك محاذاة للاعلى'
 
           btn.ImageAlign row("ImageAlignment").ToString
            
'محاذاة النض ضع الرقم 512 تعطيك محاذاة للاسفل'
 
           btn.TextAlign row("FontAlignment").ToString
            
'ضع الرقم 1'
 
           btn.FlatStyle row("FlatStyle").ToString
            
'طول الزر لنفرض 80'
 
           btn.Height row("ButtonHeight").ToString
            
'عرض الزر لنفرض 100'
 
           btn.Width row("ButtonWidth").ToString
            
'بعد اضافة الاداة فلو بانل الى الفورم'
 
           'نقوم باضافة اداة الزر اليها'
 
           FlowLayoutPanel1.Controls.Add(btn)
 
           'اضافة الاحداث عند الضغط على الزر المولد'
 
           AddHandler btn.ClickAddressOf ClickButton
        Next
    End Sub
    
'حدث الضغط على الزر المولد'
 
   Private Sub ClickButton(sender As ObjectAs EventArgs)
 
       'اخذ نسخة من سيندر كزر'
 
       Dim d As ButtonXT sender
        
'إضافة معلومات السلعة الى الداتا غريد'
 
       DgvCellPoint.Rows.Add(d.Barcoded.Textd.Price)
 
   End Sub
    
'تحجيم الصورة لتتناسب مع حجم الزر'
 
   Private Function sizeimage(img As Image) As Image
        
'تحجيم الصورة لتتناسب مع حجم الزر'
 
       Return New Bitmap(img, New Size(4848))
 
   End Function 


سكربت جدول قاعدة البيانات :

PHP كود :
/****** Object:  Table [dbo].[ButtonCellPoint1]    Script Date: 10/08/2020 11:47:07 ص ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE 
[dbo].[ButtonCellPoint1](
    [
ButtonID] [intNULL,
    [
MasterButtom] [bitNULL,
    [
ButtonBarcode] [nvarchar](255NULL,
    [
ButtonName] [nvarchar](255NULL,
    [
ButtonType] [intNULL,
    [
ButtonSource] [nvarchar](255NULL,
    [
ButtonShow] [bitNULL,
    [
UserNameXT] [nvarchar](255NULL,
    [
ImageAlignment] [nvarchar](255NULL,
    [
FontAlignment] [nvarchar](255NULL,
    [
ImageLocation] [nvarchar](255NULL,
    [
ForeColor] [nvarchar](255NULL,
    [
BackColor] [nvarchar](255NULL,
    [
FlatStyle] [nvarchar](255NULL,
    [
ButtonWidth] [intNULL,
    [
ButtonHeight] [intNULL,
    [
ButtonTop] [intNULL,
    [
ButtonLeft] [intNULL,
    [
ButtonTopPadding] [intNULL
ON [PRIMARY]

GO
INSERT 
[dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (10N'20052225'N'بيتزا صغيرة'4N'وجبات سريعة'1N'1'N'2'N'512'N'Image\Question4.png'N'-1'N'16777215'N'1'10080555)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (20N'20052226'N'بيتزا وسط'4N'وجبات سريعة'1N'1'N'2'N'512'N'Image\RistoranteMatera.png'N'-1'N'16777215'N'1'10080555)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (30N'20052227'N'بيتزا كبيرة'4N'وجبات سريعة'1N'1'N'2'N'512'N'Image\Question5.png'N'-1'N'16777215'N'1'10080555)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (41N'0'N'بيتزا'0N'الوجبات'1N'1'N'2'N'512'N'Image\Question5.png'N'-1'N'16777215'N'1'10080550)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (51N'0'N'الساندويش'0N'الوجبات'1N'1'N'2'N'512'N'Image\Question5.png'N'-1'N'16777215'N'1'10080550)
INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (61N'0'N'الوجبات'0N'الوجبات'1N'1'N'2'N'512'N'Image\RistoranteMatera.png'N'-1'N'16777215'N'1'10080550

تم وضع خاصيتان للزر الاولى الباركود و الثانية السعر كود الزر و الخصائص :

PHP كود :
Public Class ButtonXT
    Inherits Button
    
'اضافة خاصية جديدة للزر و هي باركود'
 
   Private BarcodeXT As String
    Public Property Barcode
() As String
        Get
            Return BarcodeXT
        End Get
        Set
(ByVal value As String)
 
           BarcodeXT value
        End Set
    End Property
    
'اضافة خاصية جديدة للزر و هي السعر'
 
   Private PriceXT As String
    Public Property Price
() As String
        Get
            Return PriceXT
        End Get
        Set
(ByVal value As String)
 
           PriceXT value
        End Set
    End Property
End 
Class 


   


الملفات المرفقة
.zip   CellPointButton.zip (الحجم : 631.15 ك ب / التحميلات : 89)
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
#2
بارك الله فيك و لك و جزاك خير الجزاء
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5 , ابراهيم ايبو
#3
كتب الله اجرك وانار الله دربك
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#4
و كتب الله لك المثل و اكثر .
و الحمد الله و الشكر لله رب العالمين .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
السيد الفاضل. عايز اعمل زر ارقام. للعدد. وايضا كيفية حذف صنف تم اضافته
الرد
تم الشكر بواسطة: asemshahen5
#6
المهم عمل ازرار العدد
يعني مطوب ١٤ سندوتش
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#7
جزاك الله خيرا
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#8
المهم عمل ازرار العدد
يعني مطوب ١٤ سندوتش
الرد
تم الشكر بواسطة: asemshahen5
#9
فشلت في عمل لوحة الة حاسبة للاعداد
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#10
مثال الاخ عبد العزيز بعد التعديل .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] كيفية تشغيل صوت او اكثر كخلفية لشرح سترفعه على اليوتيوب سعود 5 1,288 25-09-20, 12:24 PM
آخر رد: سعود
  كيفية تحويل قاعدة بيانات من MS Access الى SQL ibra9009 2 366 10-08-20, 08:03 PM
آخر رد: ibra9009
  برنامج لمعرفة اكود ازرار الكيبورد alshandodi 4 771 17-07-20, 12:29 PM
آخر رد: ibra9009
  [درس فيديو] شرح بسيط عن كيفية اتمام التصاميم بالادوات الافتراضية kiki 1 375 04-07-20, 10:07 AM
آخر رد: ابو روضة
  كيفية تحويل قاعدة البيانات sql server لملف script يمكن تحويله لقاعدة بيانات أخرى ببيا ggtt17121985 0 387 21-04-20, 12:54 AM
آخر رد: ggtt17121985
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 10 3,096 01-02-20, 09:35 PM
آخر رد: egypt 2020
  كيفية تحديد عدد العلامات العشرية في Textbox فيجوال بيسك دوت نت ggtt17121985 1 743 15-11-19, 09:06 PM
آخر رد: asemshahen5
  [VB.NET] كيفية حساب الوحدات فى برامج المبيعات والمخازن units caculate in stock keromero 1 1,010 20-08-19, 10:39 PM
آخر رد: asemshahen5
  انشاء ازرار خاصة بك بدلا من الزر الافتراضي الخاص بفيجوال بيسك ahmadpal 3 1,182 17-08-19, 04:50 PM
آخر رد: أمجد وضاح
Question [VB.NET] برامج مفتوحة المصدر......... raoe-041 9 17,433 12-08-19, 06:40 PM
آخر رد: أمجد وضاح

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم