.子程序 __啟動窗口_創建完畢
組合框1.類型 ＝ 2
按鈕1.標題 ＝ “寫入或讀出”
編輯框2.是否允許多行 ＝ 真
.如果真 (文件是否存在 (取運行目錄 () ＋ “\日記.edb”) ＝ 假)
創建數據庫 ()
.如果真結束
讀入項目 ()
.子程序 創建數據庫
.局部變量 字段, 字段信息, , "2"
字段 [1].名稱 ＝ “日期”
字段 [1].類型 ＝ #文本型
字段 [1].最大文本長度 ＝ 20
字段 [2].名稱 ＝ “日記”
字段 [2].類型 ＝ #文本型
字段 [2].最大文本長度 ＝ 1000
創建 (取運行目錄 () ＋ “\日記.edb”, 字段)
.子程序 讀入項目
.局部變量 記錄, 整數型
組合框1.加入項目 (“請選擇日期”, 0)
打開 (取運行目錄 () ＋ “\日記.edb”, “rj”, , , , , )
到首記錄 ()
.計次循環首 (取記錄數 (), 記錄)
組合框1.加入項目 (讀 (“日期”), 記錄)
跳過 ()
.計次循環尾 ()
組合框1.現行選中項 ＝ 0
.子程序 _按鈕1_被單擊, , , 組合框沒有選擇時則寫入.有選擇則讀出
.如果真 (組合框1.現行選中項 ≠ 0)
讀出項目 ()
.如果真結束
加記錄 (編輯框1.內容, 編輯框2.內容)
組合框1.清空
讀入項目 ()
.子程序 讀出項目
置當前庫 (“rj”)
跳到 (組合框1.取項目數值 (組合框1.現行選中項))
編輯框1.內容 ＝ 讀 (“日記”)