(3) الطباعة دون تقرير SQL

احصائيات سريعة

الرئيسية
اضافة
اتصل بنا

اقسام على الموقع

البحث في المواد

اكثر المحتويات زيارة

الدوال في الاكسل (14,836 مشاهده)
تعريف الفن التشكيلي: (14,801 مشاهده)
ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) (10,760 مشاهده)
دروس في الأوفيس الأكسس - Access0- (10,231 مشاهده)
أنواع العلاقات وطريقة الربط بين الجداول. (10,165 مشاهده)
شرح طريقة استعمال الأوتلوك مع بريد الهوتميل (7,341 مشاهده)
تغيير لغة واجهة التطبيق من عربي الى انجليزي وبالعكس لـ Windows-based applications (7,335 مشاهده)
ما هي شبكة الانترنت: (6,452 مشاهده)
الدرس الثالث : بعض تطبيقات الدوال في اكسل (6,207 مشاهده)
تعريف الاستعلام وطريقة عرضه في آكسس، أنواع الاستعلامات، نافذة تحديد الاستعلام! (6,189 مشاهده)
اضافه صوت ونص لخلفيه في باور بوينت (6,180 مشاهده)
المنظور الفوتوغرافي Perspective Drawing (6,128 مشاهده)
ما هو برنامج الاكسل -00 (5,994 مشاهده)
أنشئ قاعدة بياناتك التي ستستند إليها في تعلم طريقة ربط الجداول والاستعلامات. (5,752 مشاهده)
الدرس الثاني : عمل خلفيات ملونة لشرائح (5,533 مشاهده)
نظام التشغيل (Windows) (5,526 مشاهده)
الدرس الأول : عمل شريحة في البوربوينت (5,431 مشاهده)
الدرس الثاني: بعض الحيل لتسهيل برنامج اكسل (5,426 مشاهده)
لإجراء العمليات الحسابية (4,946 مشاهده)
مقدمة عامة حول الاكسل وحيل خاصة بالاكسل0-- (4,914 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (4,870 مشاهده)
كيفية تنصيب Turbo C++ وتشغيل برنامج بلغة السي عليه!- (4,829 مشاهده)
vالدرس الأول : عمل شريحة في البوربوينت (4,819 مشاهده)
الدرس الثالث: كيفية عمل مراحل انتقالية للشرائح (4,809 مشاهده)
اضافة الحركات للصور والنصوص (4,744 مشاهده)

جديد مواد مع عشوائي

التحويل التلقائي للحروف ل- ل- ه إلى اسم الجلالة0---- (2,360 مشاهده)
النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0---النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0--- (1,776 مشاهده)
ضبط خيارات اللغة فى الـ Microsoft Word0--- (2,190 مشاهده)
استخدام لوحة المفاتيح في الـ Word0---- (2,383 مشاهده)
إضافة كلمة سر إلي ملفات الورد دون استخدام برامج0--- (2,320 مشاهده)
دمج المراسلات0-- (1,428 مشاهده)
وضع صورة كخلفية للنص0-- (1,870 مشاهده)
السماح للمستخدمين بتعديل أجزاء من ملف وورد محمي (Word2003)0--- (1,447 مشاهده)
كتابة الأرقام الكسرية ورموز المعادلات0-- (2,057 مشاهده)
درس كامل عن الدمج السهل من لوحة المفاتيح ف0-ي برنامج الـ Word (1,612 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (4,870 مشاهده)
دورة الأكسيس : الدرس الرابع : العلاقات0---- (2,661 مشاهده)
أساسيات في Access0--0 (2,376 مشاهده)
تصميم تقرير لطباعة البيانات0---- (2,233 مشاهده)
تصميم نموذج استعراض البيانات‏0--تصميم نموذج استعراض البيانات‏0-- (1,993 مشاهده)
تصميم نموذج إدخال‎ ‎البيانات0--- (2,240 مشاهده)
إنشاء قوائم خاصة باستخدام الماكرو(1)0-- (1,928 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (2)0-- (1,440 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (1)0- (1,510 مشاهده)
استعلامات SQL في Access - تعديل الجداول وإضافة الحقول0- (2,102 مشاهده)
استعلامات SQL في Access - تحديث البيانات الجدولية0-- (1,713 مشاهده)
الاستعلامات الإجرائية -4 (استعلام الحذف)0--- (1,169 مشاهده)
الاستعلامات الإجرائية -2 (استعلام الإلحاق)0--- (1,315 مشاهده)
تصميم تقرير لطباعة الإجمالي0--- (1,420 مشاهده)
استعلامات التحديد Select Query مع أمثله (1)0--- (1,876 مشاهده)

دروس > لفيجوال بيسك - Visual Basic > (3) الطباعة دون تقرير SQL

الاسم: (3) الطباعة دون تقرير SQL (3) الطباعة دون تقرير SQL

مرات القرائه: 946 مرة/مرات

التقييم:

قم بدعوة صديق

اعلانات في الموقع على جميع الصفحات

(3) الطباعة دون تقرير SQL

الطباعة دون تقرير

أخذنا في الدرس الماضي طباعة قاعدة البيانات عن طريق التقرير . والأن سوف نتحدث عن كيفية الطباعة دون أي تقرير أو أدوات أخرى.

عملية الطباعة هذه تعتمد على حلقة الدوران في كل مرة يتم طباعة سجل وإعادة الحلقة على السجل الذي بعده .

باستخدام كائن الطباعة Printer Object

أولاً إفتح المشروع الذي كنت تعمل به في الدروس السابقة

ونحن نعرف أن قاعدة البيانات التي نعمل بها من ثلاث حقول وهي:

tell : رقم الهاتف

name : الإسم

adr : العنوان

والجدول DBGrid1 يتكون من

أعمدة Column وتختصر Col

صفوف Row

والأن سوف نطبع كل عمود وصف عن طريق حلقة التكرار و كائن الطباعة Printer Object

ضع الكود التالي في قسم التصريحات العامة General

Private Sub PrintFont(sFontName As String, _
nFontSize As Integer, _
bFontBold As Boolean, _
bFontItalic As Boolean, _
bFontUnderline As Boolean)
Printer.FontName = sFontName
Printer.FontSize = nFontSize
Printer.FontBold = bFontBold
Printer.FontItalic = bFontItalic
Printer.FontUnderline = bFontUnderline
End Sub

وهو تحديد خصائص الخط الذي سف يظهر على الطابعة.

بعد ذلك ضع الكود التالي : إتجاه الطباعة

Private Sub PrintText(fXCoordinate As Single, _
fYCoordinate As Single, _
sText As String)
Dim lStart As Long
Dim lIndex As Long

Printer.CurrentX = fXCoordinate
Printer.CurrentY = fYCoordinate

lStart = 1
lIndex = InStr(lStart, sText, vbCrLf)
Do While lIndex <> 0
Mid$(sText, lIndex, 2) = ' '
lStart = lStart + lIndex
lIndex = InStr(lStart, sText, vbCrLf)
Loop
Printer.Print sText
End Sub

وبعد ذلك ضع الكود التالي :

Private Sub ResultsPrint()
Dim nLoopCtr As Integer
Dim sOutput(2) As String
Dim nScaleMode As Integer
nScaleMode = Printer.ScaleMode
Printer.ScaleMode = vbInches

'عليك أن تضيف بنفس الطريقة التالية حسب عدد الأعمدة
DBGrid1.Row = 0
DBGrid1.Col = 0
sOutput(0) = DBGrid1.Text
DBGrid1.Col = 1
sOutput(1) = DBGrid1.Text
DBGrid1.Col = 2
sOutput(2) = DBGrid1.Text

'نوع الخط الذي سوف يطبع
PrintFont 'Arial', 16, True, True, False

'العنوان
PrintText 0, 0, 'Print - ' & Me.Caption
PrintFont 'Arial', 12, True, True, False
PrintText 0, 0.5, 'Date: ' & Date$
PrintFont 'Arial', 12, True, False, True

'عليك أن تضيف مثل السطور التالية حسب عدد الأعمدة
PrintText 0, 1, sOutput(0)
PrintText 1, 1, sOutput(1)
PrintText 2, 1, sOutput(2)

PrintFont 'Arial', 12, False, False, False

For nLoopCtr = 1 To mnCurrentRow - 1
DBGrid1.Row = nLoopCtr

'عليك أن تضيف مثل السطور التالية حسب عدد الأعمدة لديك
DBGrid1.Col = 0
sOutput(0) = DBGrid1.Text
DBGrid1.Col = 1
sOutput(1) = DBGrid1.Text
DBGrid1.Col = 2
sOutput(2) = DBGrid1.Text

'عليك أن تضيف مثل السطور التالية حسب عدد الأعمدة لديك
PrintText 0, 1 + (nLoopCtr * 0.25), sOutput(0)
PrintText 1, 1 + (nLoopCtr * 0.25), sOutput(1)
PrintText 2, 1 + (nLoopCtr * 0.25), sOutput(2)
Next nLoopCtr

Printer.EndDoc
Printer.ScaleMode = nScaleMode
End Sub

وفي زر الطباعة ضع الكود التالي:

Call ResultsPrint

بهذا نكون قد أنهينا عملية الطباعة . إنها أفضل من التقرير لقواعد البيانات الكبيرة.

بنهاية هذا الدرس نكون قد أنهينا دروس التعامل مع قواعد البيانات. آمل أن أكون قد حققت الفائدة لكل مستخدم.

والله ولي التوفيق

درس (3) الطباعة دون تقرير SQL

أضف هذه المادة في موقعك:

مواد مشابهة:

	التعامل مع زر الأمر Command Button التعامل مع زر الأمر Command Button (مرات المشاهدة: 1,377 مرات)
	التعامل مع الفورم : النماذج التعامل مع الفورم : النماذج (مرات المشاهدة: 1,566 مرات)
	التعامل مع الحافظة التعامل مع الحافظة (مرات المشاهدة: 421 مرات)
	انشاء قاعدة بيانات وكيفية ربطها انشاء قاعدة بيانات وكيفية ربطها (مرات المشاهدة: 4,296 مرات)
	طريقة حفظ العمل كبرنامج تنفيذي طريقة حفظ العمل كبرنامج تنفيذي (مرات المشاهدة: 1,468 مرات)
	المصفوفات في الفيجيوال بيسك \|[ مقدمة ]\| المصفوفات في الفيجيوال بيسك \|[ مقدمة ]\| (مرات المشاهدة: 1,776 مرات)
	الدرس الثالث.. الدرس الثالث.. (مرات المشاهدة: 328 مرات)
	الألوان من خلال فيجوال بيسك الألوان من خلال فيجوال بيسك (مرات المشاهدة: 1,079 مرات)
	كيف تنشيء قاعدة بيانات في فيجوال بيسك 1 كيف تنشيء قاعدة بيانات في فيجوال بيسك 1 (مرات المشاهدة: 1,150 مرات)
	التعامل مع Label و Text التعامل مع Label و Text (مرات المشاهدة: 873 مرات)

About