ອັອບເຈັກ ThisDatabaseDocument

ThisDatabaseDocument ອ້າງອີງເຖິງເອກະສານ Base ທີ່ກຳລັງໃຊ້ງານຢູ່ ເຊິ່ງສາມາດອ່ານ ແລະ ຕັ້ງຄ່າ Property, ລວມທັງຮຽກໃຊ້ເມທອດຂອງມັນໄດ້.

ThisDatabaseDocument ສົ່ງຄືນອັອບເຈັກປະເພດ com.sun.star.sdb.XOfficeDatabaseDocument.

       ThisDatabaseDocument
    

ເມື່ອວິນໂດທີ່ກຳລັງໃຊ້ງານບໍ່ກ່ຽວຂ້ອງກັບເອກະສານ Base, ThisDatabaseDocument ຈະສົ່ງຄືນຄ່າ Nothing.

ເມື່ອວິນໂດທີ່ກຳລັງໃຊ້ງານແມ່ນ Basic IDE, ອັອບເຈັກ ThisDatabaseDocument ຈະສົ່ງຄືນຖານຂໍ້ມູນທີ່ເປັນເຈົ້າຂອງສະຄຣິບປັດຈຸບັນ.

ການເປີດຟອມ "formName" ຂອງຖານຂໍ້ມູນປັດຈຸບັນ ແລະ ຂະຫຍາຍໃຫ້ໃຫຍ່ສຸດ ສາມາດເຮັດໄດ້ດັ່ງນີ້:

        Dim form As Object
        ThisDatabaseDocument.CurrentController.connect("","")
        form = ThisDatabaseDocument.FormDocuments.getByName("formName").open )
        form.currentController.frame.ContainerWindow.IsMaximized = True