ເນື້ອໃນ

# Access2Base

## Access2Base ແມ່ນຫຍັງ?

Access2Base ແມ່ນຄັງໜັງສື (library) ຂອງມາໂຄຣ LibreOffice BASIC ສຳລັບຜູ້ພັດທະນາໂປຣແກຣມ (ທຸລະກິດ ຫຼື ສ່ວນຕົວ) ແລະ ຜູ້ໃຊ້ລະດັບສູງ. ມັນແມ່ນໜຶ່ງໃນຄັງໜັງສືທີ່ຖືກເກັບໄວ້ໃນ "ມາໂຄຣ ແລະ ໄດອະລັອກຂອງໂປຣແກຣມ".

ຄຸນສົມບັດຕ່າງໆທີ່ມາໂຄຣເຫຼົ່ານີ້ມີໃຫ້ ແມ່ນໄດ້ຮັບແຮງບັນດານໃຈໂດຍກົງຈາກ Microsoft Access. ມາໂຄຣສາມາດຮຽກໃຊ້ໄດ້ໂດຍຫຼັກຈາກໂປຣແກຣມ LibreOffice Base, ແຕ່ກໍຍັງສາມາດໃຊ້ໄດ້ຈາກເອກະສານ LibreOffice ໃດໆກໍຕາມ (Writer, Calc, ...) ທີ່ຈຳເປັນຕ້ອງເຂົ້າເຖິງຂໍ້ມູນໃນຖານຂໍ້ມູນ.

API ທີ່ໃຫ້ມາໂດຍ Access2Base ແມ່ນຕັ້ງໃຈໃຫ້ມີຄວາມກະທັດຮັດ, ເຂົ້າໃຈງ່າຍ ແລະ ຮຽນຮູ້ໄດ້ໄວ ກວ່າ UNO API ມາດຕະຖານ (API = Application Programming Interface).

The library is documented online on https://access2base.libreoffice.org/.

## ມາໂຄຣທີ່ມີໃຫ້ປະກອບມີ:

1. API ທີ່ເຮັດໃຫ້ງ່າຍຂຶ້ນ ແລະ ຂະຫຍາຍໄດ້ ສຳລັບການຈັດການ ຟອມ (forms), ໄດອະລັອກ (dialogs) ແລະ ຄອນໂທຣລ (controls) ເຊິ່ງຄ້າຍຄືກັບແບບຈຳລອງວັດຖຸຂອງ Microsoft Access,

2. API ສຳລັບການເຂົ້າເຖິງຖານຂໍ້ມູນດ້ວຍວັດຖຸ ຕາຕະລາງ (table), ຄຳສັ່ງສອບຖາມ (query), ຊຸດຂໍ້ມູນ (recordset) ແລະ ຟິລ (field),

3. ຊຸດຂອງ ການດຳເນີນການ (actions) ທີ່ມີໄວຍາກອນຄືກັນກັບມາໂຄຣ ຫຼື ການດຳເນີນການໃນ Microsoft Access,

4. ຟັງຊັນຖານຂໍ້ມູນ DLookup, DSum, ...,

5. ການຮອງຮັບຮູບແບບການຂຽນແບບຫຍໍ້ ເຊັ່ນ Forms!myForm!myControl

ນອກຈາກນັ້ນ

6. ຕົວຈັດການຂໍ້ຜິດພາດ ແລະ ຂໍ້ຍົກເວັ້ນທີ່ເປັນລະບົບ,

7. ເຄື່ອງມືຊ່ວຍໃນການຂຽນໂປຣແກຣມສຳລັບ ເຫດການ (events) ຂອງຟອມ, ໄດອະລັອກ ແລະ ຄອນໂທຣລ,

8. ການຮອງຮັບທັງຟອມທີ່ຝັງຕົວ ແລະ ຟອມແບບເອກະລາດ (Writer).

## ປຽບທຽບ Access2Base ກັບ Microsoft Access VBA

       REM Open a form ...
                 OpenForm("myForm")
       REM Move a form to new left-top coordinates ...
                 Dim ofForm As Object  ' In VBA =>  Dim ofForm As Form
                 Set ofForm = Forms("myForm")
                 ofForm.Move(100, 200)
       REM Get the value of a control ...
                 Dim ocControl As Object
                 ocControl = ofForm.Controls("myControl")
                 MsgBox ocControl.Value
       REM Hide a control ...
                 ocControl.Visible = False
       REM ... or alternatively ...
                 setValue("Forms!myForm!myControl.Visible", False)  '  Shortcut notation
                 ' In VBA =>  Forms!myForm!myControl.Visible = False

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!