ບໍລິການ SFDatabases.Datasheet

ບໍລິການ Datasheet ຊ່ວຍໃຫ້ສາມາດເບິ່ງເນື້ອໃນຂອງຕາຕະລາງຖານຂໍ້ມູນ ຕະຫຼອດຮອດຜົນຂອງການສອບຖາມ (query) ແລະ ຄຳສັ່ງ SQL ໂດຍໃຊ້ Data View ຂອງ Base. ນອກຈາກນັ້ນ, ບໍລິການນີ້ຍັງຊ່ວຍໃຫ້ສາມາດ:

• ເພີ່ມເມນູທີ່ກຳນົດເອງໃສ່ໃນ data view.

• ເຂົ້າເຖິງຄ່າໃນຕຳແໜ່ງທີ່ລະບຸຂອງ data view.

• ວາງຕຳແໜ່ງເຄີເຊີໃນເຊລ (cell) ທີ່ລະບຸຂອງ data view.

ການເອີ້ນໃຊ້ບໍລິການ

ກ່ອນຈະໃຊ້ບໍລິການ Datasheet, ຫ້ອງສະໝຸດ ScriptForge ຈຳເປັນຕ້ອງໄດ້ຖືກໂຫຼດ ຫຼື ນຳເຂົ້າກ່ອນ:

• ມາໂຄຣ Basic ຕ້ອງມີການໂຫຼດຄັງສຳນວນ ScriptForge ໂດຍໃຊ້ຄຳສັ່ງດັ່ງນີ້:
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")

• ສະຄຣິບ Python ຕ້ອງມີການນຳເຂົ້າຈາກໂມດູນ scriptforge:
from scriptforge import CreateScriptService

ບໍລິການ Datasheet ສາມາດເອີ້ນໃຊ້ໄດ້ສອງວິທີທີ່ແຕກຕ່າງກັນ ຂຶ້ນກັບວ່າໄຟລ໌ຖານຂໍ້ມູນຖືກເປີດຢູ່ຫຼືບໍ່.

ຕົວຢ່າງລຸ່ມນີ້ຖືວ່າໄຟລ໌ຖານຂໍ້ມູນຖືກເປີດຢູ່, ດັ່ງນັ້ນຈຶ່ງສາມາດໃຊ້ບໍລິການ UI ເພື່ອດຶງເອົາເອກະສານ ແລະ ໃຊ້ວິທີ OpenTable ຈາກບໍລິການ Database ເພື່ອຂໍອິນສະແຕນຊ໌ບໍລິການ Datasheet.

    Dim ui As Object, oBase As Object, oSheet As Object
    Set ui = CreateScriptService("UI")
    ' ວັດຖຸ oBase ແມ່ນອິນສະແຕນຊ໌ຂອງບໍລິການ Base
    Set oBase = ui.GetDocument("C:\Documents\myDB.odb")
    ' ວັດຖຸ oSheet ແມ່ນອິນສະແຕນຊ໌ຂອງບໍລິການ Datasheet
    Set oSheet = oBase.OpenTable("Customers")
  

ໃນຕົວຢ່າງຂ້າງເທິງ, ຍັງສາມາດໃຊ້ວິທີ OpenQuery ຈາກບໍລິການ Base ເພື່ອຂໍອິນສະແຕນຊ໌ Datasheet ໄດ້ຄືກັນ.

ເພື່ອເອີ້ນໃຊ້ບໍລິການ Datasheet ເມື່ອໄຟລ໌ຖານຂໍ້ມູນບໍ່ໄດ້ເປີດຢູ່, ໃຫ້ໃຊ້ວິທີ OpenTable, OpenQuery ຫຼື OpenSql ຈາກບໍລິການ Database. ຕົວຢ່າງລຸ່ມນີ້ໃຊ້ວິທີ OpenTable ເພື່ອເປີດຕາຕະລາງທີ່ມີຢູ່ແລ້ວໃນໄຟລ໌ຖານຂໍ້ມູນ:

    Dim oDatabase As Object, oSheet As Object
    ' ວັດຖຸ oDatabase ແມ່ນອິນສະແຕນຊ໌ຂອງບໍລິການ Database
    Set oDatabase = CreateScriptService("Database", "C:\Documents\myDB.odb")
    ' ວັດຖຸ oSheet ແມ່ນອິນສະແຕນຊ໌ຂອງບໍລິການ Datasheet
    Set oSheet = oDatabase.OpenTable("Customers")
  

ຕົວຢ່າງຂ້າງເທິງສາມາດຂຽນເປັນ Python ໄດ້ດັ່ງນີ້:

    from scriptforge import CreateScriptService
    ui = CreateScriptService("UI")
    base_doc = ui.GetDocument(r"C:\Documents\MyFile.odb")
    sheet = base_doc.OpenTable("Customers")
  

    database = CreateScriptService("Database", r"C:\Documents\myDB.odb")
    sheet = database.OpenTable("Customers")
  

ຄຸນສົມບັດ

ຄຸນສົມບັດຕໍ່ໄປນີ້ແມ່ນມີໃຫ້ໃຊ້ໃນບໍລິການ Datasheet:

ວິທີ (Methods)

Activate

ນຳໜ້າຕ່າງ data view ທີ່ອ້າງອີງໂດຍອິນສະແຕນຊ໌ Datasheet ຂຶ້ນມາໄວ້ທາງໜ້າ.

svc.Activate()

      oSheet.Activate()
    

      sheet.Activate()
    

CloseDatasheet

ປິດໜ້າຕ່າງ data view ທີ່ອ້າງອີງໂດຍອິນສະແຕນຊ໌ Datasheet.

svc.CloseDatasheet()

      oSheet.CloseDatasheet()
    

      sheet.CloseDatasheet()
    

CreateMenu

ສ້າງລາຍການເມນູໃໝ່ໃນໜ້າຕ່າງ data view ແລະ ສົ່ງຄືນອິນສະແຕນຊ໌ບໍລິການ SFWidgets.Menu, ເຊິ່ງສາມາດໃຊ້ເພື່ອເພີ່ມລາຍການເມນູຜ່ານການຂຽນໂປຣແກຣມໄດ້.

ເມນູທີ່ເພີ່ມໂດຍໃຊ້ວິທີ CreateMenu ຈະຫາຍໄປທັນທີທີ່ໜ້າຕ່າງ data view ຖືກປິດ.

svc.CreateMenu(menuheader: str, opt before: any, opt submenuchar: str): obj

menuheader: ຊື່ຂອງເມນູໃໝ່.

before: ອາຄິວເມັ້ນນີ້ອາດເປັນຊື່ຂອງລາຍການເມນູທີ່ມີຢູ່ແລ້ວ ເພື່ອວາງເມນູໃໝ່ໄວ້ທາງໜ້າຂອງມັນ ຫຼື ເປັນຕົວເລກທີ່ບອກຕຳແໜ່ງຂອງເມນູໃໝ່. ຖ້າປະອາຄິວເມັ້ນນີ້ໄວ້ວ່າງ, ເມນູໃໝ່ຈະຖືກວາງໄວ້ເປັນລາຍການສຸດທ້າຍ.

submenuchar: ຕົວຂັ້ນທີ່ໃຊ້ໃນໂຄງສ້າງເມນູຍ່ອຍ (ຄ່າເລີ່ມຕົ້ນ = ">")

      Dim oMenu As Object
      Set oMenu = oSheet.CreateMenu("My Menu", Before := "Data")
      With oMenu
          .AddItem("Item 1", Command := ".uno:About")
          ' ...
          .Dispose()
      End With
    

      menu = sheet.CreateMenu("My Menu", before="Data")
      menu.AddItem("Item 1", command=".uno:About")
      # ...
      menu.Dispose()
    

ອ່ານໜ້າຊ່ວຍເຫຼືອ ບໍລິການ Menu ເພື່ອຮຽນຮູ້ເພີ່ມເຕີມກ່ຽວກັບການສ້າງເມນູ, ເມນູຍ່ອຍ ແລະ ການເຊື່ອມໂຍງຄຳສັ່ງ.

GetText

ສົ່ງຄືນຂໍ້ຄວາມໃນຄໍລຳທີ່ກຳນົດຂອງແຖວປັດຈຸບັນ.

ວິທີນີ້ບໍ່ໄດ້ປ່ຽນຕຳແໜ່ງຂອງເຄີເຊີໃນໜ້າຕ່າງ data view.

svc.GetText(column: any): str

column: ຊື່ຂອງຄໍລຳເປັນ String ຫຼື ຕຳແໜ່ງຂອງຄໍລຳ (ເລີ່ມຈາກ 1). ຖ້າລະບຸຕຳແໜ່ງທີ່ໃຫຍ່ກວ່າຈຳນວນຄໍລຳທີ່ມີຢູ່, ມັນຈະສົ່ງຄືນຄໍລຳສຸດທ້າຍ.

      oSheet.GetText("FirstName")
    

      sheet.GetText("FirstName")
    

GetValue

ສົ່ງຄືນຄ່າໃນຄໍລຳທີ່ກຳນົດຂອງແຖວປັດຈຸບັນເປັນປະເພດ Basic ທີ່ຖືກຕ້ອງ.

ປະເພດທີ່ສາມາດສົ່ງຄືນໄດ້ແມ່ນ: String, Integer, Long, Single, Double, Date ແລະ Null.

ປະເພດຖານສອງ (Binary) ຈະຖືກສົ່ງຄືນເປັນຄ່າ Long ທີ່ບອກຄວາມຍາວຂອງຟີວຖານສອງ.

ຄ່າ Empty ຈະຖືກສົ່ງຄືນຖ້າບໍ່ສາມາດດຶງຄ່າທີ່ຕ້ອງການມາໄດ້.

ວິທີນີ້ບໍ່ໄດ້ປ່ຽນຕຳແໜ່ງຂອງເຄີເຊີໃນໜ້າຕ່າງ data view.

svc.GetValue(column: any): any

column: ຊື່ຂອງຄໍລຳເປັນ String ຫຼື ຕຳແໜ່ງຂອງຄໍລຳ (ເລີ່ມຈາກ 1). ຖ້າລະບຸຕຳແໜ່ງທີ່ໃຫຍ່ກວ່າຈຳນວນຄໍລຳທີ່ມີຢູ່, ມັນຈະສົ່ງຄືນຄໍລຳສຸດທ້າຍ.

      oSheet.GetValue("Address")
    

      sheet.GetValue("Address")
    

GoToCell

ຍ້າຍເຄີເຊີໄປທີ່ແຖວ ແລະ ຄໍລຳທີ່ລະບຸ.

svc.GoToCell(opt row: int, opt column: any): bool

row: ໝາຍເລກແຖວເປັນຄ່າຕົວເລກ ເລີ່ມຈາກ 1. ຖ້າແຖວທີ່ລະບຸເກີນຈຳນວນແຖວທີ່ມີຢູ່, ເຄີເຊີຈະຖືກຍ້າຍໄປທີ່ແຖວສຸດທ້າຍ. ຖ້າບໍ່ໄດ້ລະບຸອາຄິວເມັ້ນນີ້, ແຖວຈະບໍ່ມີການປ່ຽນແປງ.

column: ຊື່ຂອງຄໍລຳເປັນ String ຫຼື ຕຳແໜ່ງຂອງຄໍລຳ (ເລີ່ມຈາກ 1). ຖ້າຄໍລຳທີ່ລະບຸເກີນຈຳນວນຄໍລຳທີ່ມີຢູ່, ເຄີເຊີຈະຖືກຍ້າຍໄປທີ່ຄໍລຳສຸດທ້າຍ. ຖ້າບໍ່ໄດ້ລະບຸອາຄິວເມັ້ນນີ້, ຄໍລຳຈະບໍ່ມີການປ່ຽນແປງ.

      ' ຍ້າຍເຄີເຊີໄປທີ່ຄໍລຳ "LastName" ໃນແຖວທີ 4
      oSheet.GoToCell(4, "LastName")
      ' ຍ້າຍເຄີເຊີໄປທີ່ຄໍລຳທີສາມຂອງແຖວປັດຈຸບັນ
      oSheet.GoToCell(Column := 3)
      ' ຍ້າຍເຄີເຊີລົງໜຶ່ງແຖວໂດຍທີ່ຍັງຢູ່ໃນຄໍລຳເດີມ
      oSheet.GoToCell(Row := oSheet.CurrentRow + 1)
      ' ຍ້າຍໄປທີ່ຄໍລຳສຸດທ້າຍຂອງແຖວສຸດທ້າຍ
      Dim LastColumn As Integer : LastColumn = UBound(oSheet.ColumnHeaders) + 1
      oSheet.GoToCell(oSheet.LastRow, LastColumn)
    

      sheet.GoToCell(4, "LastName")
      sheet.GoToCell(column=3)
      sheet.GoToCell(row=sheet.CurrentRow + 1)
      sheet.GoToCell(sheet.LastRow, len(sheet.ColumnHeaders))
    

RemoveMenu

ລຶບລາຍການເມນູອອກຈາກ data view ໂດຍໃຊ້ຊື່ຂອງມັນ.

ວິທີນີ້ສາມາດລຶບເມນູທີ່ເປັນຂອງສ່ວນຕິດຕໍ່ຜູ້ໃຊ້ເວີຊັນມາດຕະຖານ ຕະຫຼອດຮອດເມນູທີ່ຖືກເພີ່ມຜ່ານການຂຽນໂປຣແກຣມດ້ວຍວິທີ CreateMenu. ການລຶບເມນູມາດຕະຖານບໍ່ແມ່ນການລຶບແບບຖາວອນ ແລະ ພວກມັນຈະກັບຄືນມາຫຼັງຈາກທີ່ໜ້າຕ່າງຖືກປິດ ແລະ ເປີດໃໝ່.

svc.RemoveMenu(menuheader: str): bool

menuheader: ຊື່ຂອງເມນູທີ່ຈະລຶບອອກ (ແຍກຕົວອັກສອນນ້ອຍ-ໃຫຍ່). ຊື່ຕ້ອງບໍ່ລວມເອົາຕົວອັກສອນ tilde ("~").

      oSheet.RemoveMenu("Data")
    

      sheet.RemoveMenu("Data")
    

    Dim oToolbar As Object
    Set oToolbar = oDoc.Toolbars("myToolbar")
  

    a_list = doc.Toolbars()
  

ຣູທີນ ຫຼື ຕົວລະບຸ Basic ຂອງ ScriptForge ທັງໝົດທີ່ຂຶ້ນຕົ້ນດ້ວຍເຄື່ອງໝາຍຂີດກ້ອງ "_" ແມ່ນສະຫງວນໄວ້ສຳລັບໃຊ້ພາຍໃນ. ພວກມັນບໍ່ໄດ້ມີໄວ້ໃຫ້ໃຊ້ໃນມາໂຄຣ Basic ຫຼື ສະຄຣິບ Python.