تقييم الموضوع :
  • 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 ك ب / التحميلات : 281)
الرد
#2
بارك الله فيك و لك و جزاك خير الجزاء
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5 , ابراهيم ايبو
#3
كتب الله اجرك وانار الله دربك
الرد
#4
و كتب الله لك المثل و اكثر .
و الحمد الله و الشكر لله رب العالمين .
الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
السيد الفاضل. عايز اعمل زر ارقام. للعدد. وايضا كيفية حذف صنف تم اضافته
الرد
تم الشكر بواسطة: asemshahen5
#6
المهم عمل ازرار العدد
يعني مطوب ١٤ سندوتش
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#7
جزاك الله خيرا
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#8
المهم عمل ازرار العدد
يعني مطوب ١٤ سندوتش
الرد
تم الشكر بواسطة: asemshahen5
#9
فشلت في عمل لوحة الة حاسبة للاعداد
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#10
مثال الاخ عبد العزيز بعد التعديل .
الرد
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دمج برامج أخرى لتثبيتها مع مشروعك عند عملية التنصيب بإستخدام ClickOnce Publish Wizard عبدالله الدوسري 10 10,082 07-06-21, 03:15 PM
آخر رد: zayedali
  [VB.NET] كيفية حساب الوحدات فى برامج المبيعات والمخازن units caculate in stock keromero 4 1,964 09-05-21, 04:18 AM
آخر رد: awidan76
  [مشروع] فكرة ارتجالية عن حقيبة المبرمج [اضافة فيديو لعرض كيفية الاستخدام] سعود 4 1,156 23-01-21, 05:17 AM
آخر رد: سعود
Rainbow كيفية عمل الشجرة المحاسبية بطريقة احترافية asemshahen5 31 12,187 21-01-21, 12:20 AM
آخر رد: asemshahen5
  كيفية جعل المستخدم يستعرض اي ملف قاعدة بيانات اكسيس على جهازه مع امكانية كتابة الكود ggtt17121985 0 567 09-11-20, 12:03 AM
آخر رد: ggtt17121985
  [مشروع] كيفية تشغيل صوت او اكثر كخلفية لشرح سترفعه على اليوتيوب سعود 5 2,123 25-09-20, 12:24 PM
آخر رد: سعود
  كيفية تحويل قاعدة بيانات من MS Access الى SQL ibra9009 2 1,012 10-08-20, 08:03 PM
آخر رد: ibra9009
  برنامج لمعرفة اكود ازرار الكيبورد alshandodi 4 1,453 17-07-20, 12:29 PM
آخر رد: ibra9009
  [درس فيديو] شرح بسيط عن كيفية اتمام التصاميم بالادوات الافتراضية kiki 1 745 04-07-20, 10:07 AM
آخر رد: ابو روضة
  كيفية تحويل قاعدة البيانات sql server لملف script يمكن تحويله لقاعدة بيانات أخرى ببيا ggtt17121985 0 740 21-04-20, 12:54 AM
آخر رد: ggtt17121985

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


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