الكلمات الرئيسية: Delphi.
1. مقدمة
عند تطوير التطبيقات باستخدام Delphi ، يتعين علينا عادةً تصميم العديد من المستندات والتقارير بتنسيقات مختلفة ، وغالبًا ما نحتاج إلى إنشاء الملفات وتعديلها. كتحكم في تنسيق الإدخال الصيني وتنسيق البيانات ، تكون أكثر إزعاجًا للعمل. يمكن أن يؤدي استخدام أدوات المكتب التي يعرفها الجميع إلى حل هذه المشكلة بشكل جيد. فيما يلي مقدمة مفصلة عن كيفية استخدام Office لإكمال إنتاج المستندات والتقارير المختلفة.
2. طريقة التنفيذ
هناك ثلاث طرق رئيسية للتطوير باستخدام Delphi و Office:
(1) تضمين المكتب من خلال Delphi Tolecontainer. علاوة على ذلك ، فإن وثيقة المكتب التي تم إطلاقها بهذه الطريقة هي ككل (من الواجهة) ، ولكن لديها عيب لا يمكن التغلب عليه ، أي أنه لا يمكن التحكم في وثيقة المكتب من خلال دلفي ، ولا يمكن تحقيق الغرض من معالجة المكتب بمرونة.
(2) استخدام خوادم التحكم التي توفرها Delphi للاتصال بالمكتب ، واستخدام خصائص Office ، واستخدام خوادم Control of Delphi لمعالجة Office. ولكن هناك أيضًا بعض وظائف المكاتب التي لا يمكن استدعاؤها في دلفي (مثل رمز ماكرو VBA الذي كتبه بنفسك). وعند تطبيق الوظيفة ، يجب إضافة المعلمات التي يمكن تحديدها في رمز VBA عند الاتصال بـ Delphi ، وإلا ، حتى لا يمكن تمرير التجميع. بدأت برامج Office و Delphi بهذه الطريقة إلى نموذجين.
(3) سيبدأ استخدام CreateOleObject Office ثم التحكم في المكتب في وضع OLE. تتمثل هذه الطريقة في الاتصال بـ Office في CreateOleBjects ، وهو في الواقع OLE ، ولكن يمكن لهذه الطريقة تحقيق تحكم كامل في ملفات Office واستخدام جميع خصائص Office ، بما في ذلك رمز Macro VBA الذي كتبه بنفسك. بالمقارنة مع الخوادم السيطرة وتكنولوجيا COM ، يمكن أن تستخدم هذه الطريقة حقًا خصائص Office.
3 . تنفيذ البرمجيات
3.1 الطريقة الأولى: تضمين المكتب من خلال التحكم في دلفي.
(1) استدعاء التحكم في صفحة النظام تنفيذ Tolecontainer في Delphi ؛
(2) انقر نقرًا مزدوجًا فوق Olecontainer وتظهر الواجهة التالية:
(3) في هذا الوقت ، يمكنك اتخاذ خيار ، وتحديد "إنشاء من الملف" ، وتحديد المستند المقابل ، وقم ببساطة بتنفيذ وظيفة ضبط المستند المكتبي ؛
3.2 الطريقة الثانية: استخدام الخوادم التي توفرها Delphi للاتصال بالمكتب ؛ مثال ، تقديم طريقة التنفيذ الخاصة به:
(1) استدعاء twoDocument (إنشاء كائن ملف كلمة) ، TwoDocument (ابدأ الكلمة وإنشاء اتصال مع Word) ، twodofont (اضبط خط ملف الكلمة) ، و twodparagraphformat (اضبط تنسيق الفقرة في ملف الكلمة) ؛
(2) بدء الكلمة وتنفيذها من خلال TwitterApplication ؛
يحاول
wordapplication.connect ؛
يستثني
messagedlg ("قد لا يتم تثبيت الكلمة" ، mterror ، [mbok] ، 0) ؛
إحباط
نهاية؛
(3) إنشاء ملف جديد وتنفيذه من خلال TwitterApplication ؛
قالب: = فارغ .
NewTemplate: = false ؛
// أضف وثيقة جديدة
WordApplication.documents.add (قالب ، newTemplate ) ؛
// أغلق البحث بينين والبحث عن قواعد اللغة لتحسين كفاءة تشغيل البرنامج
wordapplication.options.CheckspellingaSyoutype: = false ؛
wordapplication.options.checkgrammarasyoutype: = false ؛
(3) إدراج البيانات وتنفيذها من خلال TwitterDocument ؛
//نص
WordDocument.range.insertafter ('Oracle Database'+chr (#13)) ؛
// ملزمة
WordDocument1.tables.add (WordDocument1.Range ، Rownum ، Colnum ، template ، newTemplate) ؛ // حيث يكون Rownum هو عدد صفوف الجدول والكولنوم هو عدد أعمدة الجدول
// إدراج البيانات في الجدول
WordDocument1.Tables.Item (1) .Cell (1،1) .Range.Text: = 'Number Number' ؛
WordDocument1.Tables.Item (1) .Cell (1،2) .Range.Text: = 'ID Number'
(4) إعدادات التنسيق
WordFont.connectto (WordDocument.sentences.getlast.font) ؛ // تعيين نصوص معينة
wordfont.connectto (WordDocument.Paragraphs.getLast.font) ؛ // تعيين نص معين
WordFont.bold: = 1 ؛
WordFont.ITITING: = 1 ؛ .........................
WordDocument1.Pagesetup.HeaderDistance: = 1.5 ؛
WordDocument1.pagesetup.footerDistance: = 1.75 ؛
// اضبط الرأس والتذييل
WordDocument1.ActiveWindow.Active.View.SeekView: = wdseekcurrentpagefooter ؛
// دع تذييل ينحني إلى اليمين
WordDocument1.ActiveWindow.active.selection.peragraphformat.Alignment: = wdalignparagraphright ؛
.......................................................................................................................................................
3.3 الطريقة الثالثة: استخدم CreateOleObject لبدء Office ، ثم التحكم في المكتب في وضع OLE. خذ جداول Excel كمثال (يمكن تعيين تنسيق الجدول مقدمًا أو محدده بنفسك. هنا نأخذ تنسيق الجدول مقدمًا كمثال) ، وضحه:
(1) إضافة فئة comobj في الاستخدامات ؛
(2) تقدم للحصول على متغير عالمي: Fvexcel ، نوع البديل ؛
(3) تحديد وظيفة لبدء excel ، مثل تعريف الوظيفة OpenExcel (strfilename: string): Boolean ؛
وظيفة tform1.
يبدأ
النتيجة: = صحيح ؛
يحاول
fvexcel: = createOleObject ('excel.application') ؛
يستثني
Application.MessageBox ("Encerted Excel سيتم فتحه" ، PCHAR (Application.title) ، MB_ICONERROR) ؛
النتيجة: = خطأ ؛
نهاية؛
fvexcel.visible: = true ؛
fvexcel.caption: = '' ؛
fvexcel.Works.Open ( strfilename ) ؛
fvexcel.worksheets [ 1] .
نهاية؛
(4) أدخل البيانات في fvexcel
fvexcel.cells [row ، col] .value: = 'China' ؛ // row يمثل الصف ، col يمثل العمود ؛
(5) اضبط التنسيق
fvexcel.rows [row] .font.color: = clred ؛
fvexcel.activeshet.pagesetup.leftmargin: = 1 ؛
fvexcel.activeshet.pagesetup .
fvexcel.activeshet.pagesetup.zoom : = 100 ؛
fvexcel.activeshet.pagesetup.papersize: = xlpapera4 ؛
4 . بعض التجارب
أثناء عملية البرمجة ، غالبًا ما نحتاج إلى ضبط مستندات المكتب والجداول. لهم. وعرض الرمز. عادةً ما يمكن استخدام العديد من الخصائص أو الوظائف أو الأساليب مباشرة في برامج دلفي ، ويمكن استخدام بعضها في دلفي طالما تم تعديلها قليلاً.
5 . خاتمة
يمكن دمج دلفي بشكل مثالي مع المكتب ، وتم تصميم أنماط مختلفة من الجداول والنصوص والشرائح وما إلى ذلك. في الوقت نفسه ، من خلال دلفي ، يتم إدراج البيانات المطلوبة في الموقع المناسب للمكتب ، ويتم معاينة وظائف المكتب نفسه وطباعتها وحفظها ، مما يقلل من وقت تصحيح الأخطاء وتوضع التصحيح ، مما يؤدي إلى تبسيط صعوبة البرمجة ، وتقليل عبء عمل المبرمجين. بالنسبة للمستخدمين ، يزيد استخدام المكتب المألوف من تشغيل النظام. تم استخدام هذه الفكرة على نطاق واسع في "نظام معلومات إدارة مراجعة العنوان المهني".