Kata kunci: Delphi;
1. perkenalan
Saat mengembangkan aplikasi menggunakan Delphi, kami biasanya harus merancang banyak dokumen dan laporan dalam berbagai format, dan kita sering perlu membuat, mengedit dan memodifikasi file. Sebagai pengendalian input dan format data Cina, lebih merepotkan untuk beroperasi. Menggunakan alat kantor yang akrab dengan semua orang dapat menyelesaikan masalah ini dengan baik. Berikut ini adalah pengantar terperinci tentang cara menggunakan kantor untuk menyelesaikan produksi berbagai dokumen dan laporan.
2. Metode implementasi
Ada tiga metode utama untuk mengembangkan menggunakan Delphi dan Office:
(1) Tolecontainer kontrol Delphi. Selain itu, dokumen kantor yang diluncurkan dengan cara ini adalah keseluruhan (dari antarmuka), tetapi memiliki kerugian yang tidak dapat diatasi, yaitu, dokumen kantor tidak dapat dikendalikan melalui Delphi, dan tujuan memanipulasi kantor yang secara fleksibel tidak dapat dicapai.
(2) Kontrol server yang disediakan oleh Delphi untuk menghubungi kantor, menggunakan properti kantor, dan menggunakan kontrol server Delphi untuk memanipulasi kantor. Tetapi ada juga beberapa fungsi kantor yang tidak dapat dipanggil di Delphi (seperti kode makro VBA yang ditulis sendiri). Dan ketika mengimplementasikan fungsi, parameter yang dapat dipilih dalam kode VBA harus ditambahkan saat memanggil Delphi, jika tidak, bahkan kompilasi tidak dapat dilewati. Program Office dan Delphi dimulai dengan cara ini milik dua bentuk.
(3) Menggunakan CreateOlkject akan memulai kantor dan kemudian mengontrol kantor dalam mode OLE. Metode ini adalah untuk menghubungi kantor di CreateOleBjects, yang sebenarnya OLE, tetapi metode ini benar -benar dapat mencapai kontrol lengkap file kantor dan menggunakan semua properti Office, termasuk kode makro VBA yang ditulis sendiri. Dibandingkan dengan Kontrol Server dan Teknologi COM, metode ini dapat benar -benar menggunakan berbagai properti Office.
3 . Implementasi Perangkat Lunak
3.1 Metode pertama: Embed Office melalui Tolecontainer Kontrol Delphi.
(1) hubungi Implementasi Tolecontainer Kontrol Sistem di Delphi;
(2) Klik dua kali olecontainer dan antarmuka berikut muncul:
(3) Pada saat ini, Anda dapat membuat pilihan, pilih "Buat dari File", pilih dokumen yang sesuai, dan cukup terapkan fungsi untuk menyesuaikan dokumen kantor;
3.2 Metode Kedua: Gunakan Kontrol Server yang disediakan oleh Delphi untuk memanggil Office; Contoh, perkenalkan metode implementasinya:
(1) Hubungi TwoDocument (Buat Objek File Word), TwoDocument (Mulai Word dan buat koneksi dengan Word), TwoDofont (atur font file Word), dan TwoDaragraphFormat (atur format paragraf dalam file Word);
(2) Mulai kata dan terapkan melalui TwitterApplication;
Mencoba
Wordapplication.connect;
Kecuali
Messagedlg ('Word mungkin tidak diinstal', Mterror, [MBOK], 0);
Menggugurkan;
Akhir;
(3) membuat file baru dan mengimplementasikannya melalui TwitterApplication;
Template: = emptyparam; // berarti template tidak digunakan
NewTemplate: = false; // berarti jenis dokumen baru adalah dokumen.
// Tambahkan dokumen baru
Wordapplication.documents.add (template, newTemplate) ;
// Tutup pencarian pinyin dan pencarian tata bahasa untuk meningkatkan efisiensi operasi program
Wordapplication.options.checkspellingasyOutype: = false;
Wordapplication.options.checkgrammarasyoutype: = false;
(3) masukkan data dan mengimplementasikannya melalui TwitterDocument;
//teks
Worddocument.range.insertafter ('oracle database'+chr (#13));
// lembaran
Worddocument1.tables.add (worddocument1.range, rownum, colnum, template, newtemplate); // Di mana Rownum adalah jumlah baris tabel dan colnum adalah jumlah kolom tabel
// Masukkan data ke dalam tabel
Worddocument1.tables.item (1) .cell (1,1) .range.text: = 'Nomor Sertifikat';
Worddocument1.tables.item (1) .cell (1,2) .range.text: = 'ID Number'
(4) Pengaturan format
Wordfont.connectto (worddocument.sentences.getLast.font); // atur teks tertentu
Wordfont.connectto (worddocument.paragraphs.getlast.font); // atur teks tertentu
Wordfont.bold: = 1;
Wordfont.itik: = 1; ……………………
Worddocument1.pagesetup.headdistance : = 1.5;
Worddocument1.pagesetup.footerdistance: = 1.75;
// Atur header dan footer
Worddocument1.activeWindow.activePane.view.seekview: = wdseekcurrentpagefooter;
// Biarkan footer membungkuk ke kanan
Worddocument1.activeWindow.activePane.selection.paragraphformat.alignment: = wdalignaragraphright;
……………………………………………………………………
3.3 Metode ketiga: Gunakan CreateOlleObject untuk memulai kantor, dan kemudian mengontrol kantor dalam mode OLE. Ambil tabel Excel sebagai contoh (format tabel dapat diatur terlebih dahulu atau didefinisikan sendiri. Di sini kita mengambil format tabel yang diatur terlebih dahulu sebagai contoh), jelaskan:
(1) Tambahkan kelas comobj dalam penggunaan;
(2) berlaku untuk variabel global: fvexcel, jenis varian;
(3) Tentukan fungsi untuk memulai Excel, seperti define function OpenExcel (StrfileName: String): Boolean;
Fungsi tform1.
Mulai
Hasil: = true;
mencoba
Fvexcel: = createOldeObject ('excel.application');
kecuali
Application.messageBox ('diaktifkan excel akan dibuka', pchar (application.title), mb_iconerror);
Hasil: = false;
akhir;
Fvexcel.visible: = true;
Fvexcel.caption: = '';
Fvexcel.workbooks.open ( Strfilename );
Fvexcel.worksheets [ 1 ] .Activate ;
akhir;
(4) Masukkan data ke fvexcel
Fvexcel.cells [baris, col] .value: = 'cina' ; // baris mewakili baris, col mewakili kolom;
(5) Atur format
fvexcel.rows [baris] .font.color: = clred ;
fvexcel.activesheet.pagesetup.leftmargin : = 1 ;
fvexcel.activesheet.pagesetup .
fvexcel.activesheet.pagesetup.zoom : = 100 ;
fvexcel.activesheet.pagesetup.papersize: = xlpapera4 ;
4 . Beberapa pengalaman
Selama proses pemrograman, kita sering perlu mengatur format dokumen dan tabel kantor. Mereka. dan lihat kode. Anda dapat melihat properti, metode atau fungsi yang digunakan oleh operasi Anda. Biasanya, banyak properti, fungsi atau metode dapat langsung digunakan dalam program Delphi, dan beberapa di antaranya dapat digunakan di Delphi selama mereka sedikit dimodifikasi.
5 . Kesimpulan
Delphi dapat dikombinasikan dengan kantor, dan berbagai gaya tabel, teks, slide, dll. Dirancang. Pada saat yang sama, melalui Delphi, data yang diperlukan dimasukkan ke lokasi kantor yang sesuai, dan fungsi -fungsi kantor itu sendiri dipratinjau, dicetak dan disimpan, sehingga mengurangi waktu untuk debugging program dan memposisikan debugging, menyederhanakan kesulitan pemrograman, dan mengurangi beban kerja programmer. Untuk pengguna, menggunakan kantor yang akrab meningkatkan operabilitas sistem. Gagasan ini telah banyak digunakan dalam "Sistem Informasi Manajemen Tinjauan Judul Profesional".