import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=479)
winform.add(
buttonEnd={cls="button";text="末頁";left=572;top=442;right=643;bottom=473;z=6};
buttonExcelRead={cls="button";text="讀取Excel";left=453;top=-1;right=534;bottom=33;z=9};
buttonExcelWriteAll={cls="button";text="導出Excel";left=572;top=-1;right=653;bottom=33;z=8};
buttonFirst={cls="button";text="首頁";left=216;top=442;right=287;bottom=473;z=5};
buttonNext={cls="button";text="下頁";left=453;top=442;right=524;bottom=473;z=3};
buttonUp={cls="button";text="上頁";left=335;top=442;right=406;bottom=473;z=2};
listview={cls="listview";left=5;top=33;right=747;bottom=438;ah=1;aw=1;dt=1;edge=1;fullRow=1;z=1};
staticPage={cls="static";text="第 1 頁";left=40;top=448;right=160;bottom=465;transparent=1;z=4};
staticTitle={cls="static";text="Excel數(shù)據(jù)表讀取修改保存實例";left=40;top=1;right=384;bottom=33;color=32768;font=LOGFONT(h=-24;name='微軟雅黑';weight=700);transparent=1;z=7}
)
/*}}*/

//Excel數(shù)據(jù)表讀取修改保存實例

import access;
import godking.libxl;
import godking.message;
import process;
import console;
import win.ui.grid;
win.ui.grid(winform.listview);
//數(shù)據(jù)表: 讀取Excel
var ExcelFile = "D:\1_aardio\test.xlsx";
var saveExcelFile = "D:\1_aardio\test2.xlsx";
//分頁參數(shù)
var dataTable = {};
var pageNo,pageLine,pageNum = 0,20,0;
//分頁數(shù)據(jù)處理
winform.page = function(){
    winform.staticPage.text = "共"++pageNum++"頁,第"++pageNo++"頁";
    winform.listview.clear();
    winform.listview.setColumns(dataTable.fields);
    for(i=1;pageLine;1){
        var pi = (pageNo-1)*pageLine+i;
        if dataTable[pi]{
            var tab = {};
            for k,v in dataTable.fields table.push(tab,dataTable[pi][v]);
            winform.listview.addItem(tab); //數(shù)組
        }
    }
}
winform.page(); //預(yù)顯示
//讀取Excel
winform.buttonExcelRead.oncommand = function(id,event){
    var db,err = access(ExcelFile);
    var dbTable = db.eachTableObject()(); //迭代器,第1張表
    dataTable = db.getTable("select * from ["++dbTable++"]")
    db.close();    

    pageNo=1;    
    pageNum = math.floor(#dataTable/pageLine)+(#dataTable%pageLine>0?1:0)
    winform.page(); //分頁顯示
}
//首頁
winform.buttonFirst.oncommand = function(id,event){
    pageNo=1;
    winform.page(); //分頁顯示
}
//上頁
winform.buttonUp.oncommand = function(id,event){
    if pageNo>1 pageNo--;
    winform.page(); //分頁顯示
}
//下一頁
winform.buttonNext.oncommand = function(id,event){
    if pageNo<pageNum pageNo++;
    winform.page(); //分頁顯示
}
//末頁
winform.buttonEnd.oncommand = function(id,event){
    pageNo=pageNum;
    winform.page(); //分頁顯示
}
//鼠標左鍵點擊事件

//鼠標雙擊修改事件
winform.listview.onEditChanged = function(text,iItem,iSubItem){
    var piItem = (pageNo-1)*pageLine+iItem;
    dataTable[piItem][dataTable.fields[iSubItem]] = text; //回寫
}
//數(shù)據(jù)保存寫入excel
winform.saveExcelFile = function(saveTable){
    var book = godking.libxl.new(saveExcelFile);
    var sheet = book.sheet();
    var format = book.addFormat(); //樣式
    format.border = 1; /*_LIBXL_BORDERSTYLE_THIN*/
    sheet.setTable(1,1,saveTable,format,#saveTable.fields);
    book.save();
    book.release(); //釋放內(nèi)存
    process.execute(saveExcelFile); //打開
}
//全部數(shù)據(jù)寫入excel
winform.buttonExcelWriteAll.oncommand = function(id,event){
    var saveTable = dataTable;
    var titleTab = {};
    for k,v in saveTable.fields {
        titleTab[v]=v;
    }
    table.insert(saveTable,titleTab);
    winform.saveExcelFile(saveTable);
}

winform.show();
win.loopMessage();

?文章來源地址http://www.zghlxwxcb.cn/news/detail-658834.html

到了這里，關(guān)于aardio開發(fā)語言Excel數(shù)據(jù)表讀取修改保存實例練習的文章就介紹完了。如果您還想了解更多內(nèi)容，請在右上角搜索TOY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！