說明:"啟動視窗"中只有一個編輯框和一個列表框,當編輯框中敲了"回車鍵"，列表框中就加入一個專案,當編輯框中的文字最後有".edb"並敲了"回車鍵",就會建立這個名字的資料庫.建立好之後.列表框中為空,又可建立另外一個數據庫.點選列表框中的專案,可在編輯框中修改,編輯框中為空,就刪除該專案.別忘了敲"回車鍵"其實在易語言中有建立edb資料庫的,按"Alt+B"+S,在"資料庫"的第一項"結構編輯器"中.------------------------------------------------------------------.版本 2.子程式 _編輯框1_按下某鍵, 邏輯型.引數 鍵程式碼, 整數型.引數 功能鍵狀態, 整數型.如果真 (鍵程式碼 ≠ #回車鍵) 返回 ().如果真結束.如果真 (列表框1.現行選中項 ≠ -1) .如果 (編輯框1.內容 ≠ “”) 列表框1.置專案文字 (列表框1.現行選中項, 編輯框1.內容) .否則 列表框1.刪除專案 (列表框1.現行選中項) .如果結束 列表框1.現行選中項 ＝ -1 清空編輯框 () 返回 ().如果真結束.如果真 (編輯框1.內容 ≠ “”) 返回 ().如果真結束.如果 (取文字右邊 (編輯框1.內容, 4) ≠ “.edb”) 列表框1.加入專案 (編輯框1.內容, ).否則 建立資料庫 () 列表框1.清空 ().如果結束清空編輯框 ().子程式 建立資料庫.區域性變數 欄位, 欄位資訊, , "0".區域性變數 計次, 整數型.計次迴圈首 (列表框1.取專案數 (), 計次) 欄位 [計次].名稱 ＝ 列表框1.取專案文字 (計次 － 1) 欄位 [計次].型別 ＝ #文字型 欄位 [計次].最大文字長度 ＝ 20.計次迴圈尾 ()建立 (取執行目錄 () ＋ “\” ＋ 編輯框1.內容, 欄位).子程式 _列表框1_列表項被選擇編輯框1.內容 ＝ 列表框1.取專案文字 (列表框1.現行選中項).子程式 清空編輯框編輯框1.內容 ＝ “”編輯框1.獲取焦點 ()
說明:"啟動視窗"中只有一個編輯框和一個列表框,當編輯框中敲了"回車鍵"，列表框中就加入一個專案,當編輯框中的文字最後有".edb"並敲了"回車鍵",就會建立這個名字的資料庫.建立好之後.列表框中為空,又可建立另外一個數據庫.點選列表框中的專案,可在編輯框中修改,編輯框中為空,就刪除該專案.別忘了敲"回車鍵"其實在易語言中有建立edb資料庫的,按"Alt+B"+S,在"資料庫"的第一項"結構編輯器"中.------------------------------------------------------------------.版本 2.子程式 _編輯框1_按下某鍵, 邏輯型.引數 鍵程式碼, 整數型.引數 功能鍵狀態, 整數型.如果真 (鍵程式碼 ≠ #回車鍵) 返回 ().如果真結束.如果真 (列表框1.現行選中項 ≠ -1) .如果 (編輯框1.內容 ≠ “”) 列表框1.置專案文字 (列表框1.現行選中項, 編輯框1.內容) .否則 列表框1.刪除專案 (列表框1.現行選中項) .如果結束 列表框1.現行選中項 ＝ -1 清空編輯框 () 返回 ().如果真結束.如果真 (編輯框1.內容 ≠ “”) 返回 ().如果真結束.如果 (取文字右邊 (編輯框1.內容, 4) ≠ “.edb”) 列表框1.加入專案 (編輯框1.內容, ).否則 建立資料庫 () 列表框1.清空 ().如果結束清空編輯框 ().子程式 建立資料庫.區域性變數 欄位, 欄位資訊, , "0".區域性變數 計次, 整數型.計次迴圈首 (列表框1.取專案數 (), 計次) 欄位 [計次].名稱 ＝ 列表框1.取專案文字 (計次 － 1) 欄位 [計次].型別 ＝ #文字型 欄位 [計次].最大文字長度 ＝ 20.計次迴圈尾 ()建立 (取執行目錄 () ＋ “\” ＋ 編輯框1.內容, 欄位).子程式 _列表框1_列表項被選擇編輯框1.內容 ＝ 列表框1.取專案文字 (列表框1.現行選中項).子程式 清空編輯框編輯框1.內容 ＝ “”編輯框1.獲取焦點 ()