.版本 2
.DLL命令 滾動條, 整數(shù)型, , "ShowScrollBar"
  .參數(shù) 句柄, 整數(shù)型
  .參數(shù) 類型, 整數(shù)型
  .參數(shù) 與否, 邏輯型

.版本 2
.程序集 窗口程序集1
.程序集變量 滾動條狀態(tài)
.程序集變量 數(shù)據(jù)庫名, 文本型
.子程序 __啟動窗口_創(chuàng)建完畢
.局部變量 運行目錄, 文本型
.局部變量 字段, 字段信息, , "6"
滾動條狀態(tài) ＝ 表格1.取窗口句柄 ()
運行目錄 ＝ 取運行目錄 () ＋ “\”
數(shù)據(jù)庫名 ＝ 運行目錄 ＋ “編碼表.edb”
.如果真 (文件是否存在 (數(shù)據(jù)庫名) ＝ 假)
  字段 [1].名稱 ＝ “編碼”
  字段 [1].最大文本長度 ＝ 8
  字段 [2].名稱 ＝ “品名規(guī)格”
  字段 [2].最大文本長度 ＝ 30
  字段 [3].名稱 ＝ “單位”
  字段 [3].最大文本長度 ＝ 4
  字段 [4].名稱 ＝ “單價”
  字段 [4].類型 ＝ #小數(shù)型
  連續(xù)賦值 (#文本型, 字段 [1].類型, 字段 [2].類型, 字段 [3].類型)
  .如果真 (創(chuàng)建 (數(shù)據(jù)庫名, 字段) ＝ 假)
    信息框 (“創(chuàng)建” ＋ #左引號 ＋ 數(shù)據(jù)庫名 ＋ #右引號 ＋ “！”, #錯誤圖標, “錯誤”)
    結束 ()
  .如果真結束
.如果真結束
.如果 (打開 (數(shù)據(jù)庫名, , , , , , ) ＝ 假)
  信息框 (“無法打開” ＋ #左引號 ＋ 數(shù)據(jù)庫名 ＋ #右引號 ＋ “！”, #錯誤圖標, “錯誤”)
.否則
  .如果 (取記錄數(shù) () ＞ 0)
    填充表格 (數(shù)據(jù)庫名)
  .否則
    表格1.顯示標尺 ＝ 假
    表格1.背景顏色 ＝ #灰色
    數(shù)據(jù)源1.置表頭行數(shù) (1)
    數(shù)據(jù)源1.置文本 (1, 1, “編碼”)
    數(shù)據(jù)源1.置文本 (1, 2, “品名規(guī)格”)
    數(shù)據(jù)源1.置文本 (1, 3, “單位”)
    數(shù)據(jù)源1.置文本 (1, 4, “單價”)
    數(shù)據(jù)源1.置對齊方式 (1, 1, 1, 4, #中中)
    數(shù)據(jù)源1.置列寬 (1, 1, 200)
    數(shù)據(jù)源1.置列寬 (2, 1, 750)
    數(shù)據(jù)源1.置列寬 (3, 1, 100)
    數(shù)據(jù)源1.置列寬 (4, 1, 200)
    數(shù)據(jù)源1.置背景色 (1, 1, 100, 10, #白色)
    數(shù)據(jù)源1.置背景色 (表格1.取光標行號 (), 1, , 數(shù)據(jù)源1.取列數(shù) (), #天藍)
  .如果結束
.如果結束
.子程序 __啟動窗口_尺寸被改變
連續(xù)賦值 (取用戶區(qū)寬度 (), 標簽1.寬度, 分組框1.寬度)
分組框1.高度 ＝ 取用戶區(qū)高度 () － 標簽1.高度 － 20
表格1.高度 ＝ 分組框1.高度 － 10
表格1.寬度 ＝ 分組框1.寬度 － 4
滾動條 (滾動條狀態(tài), 3, 假)
.子程序 填充表格
.參數(shù) 數(shù)據(jù)庫, 文本型
數(shù)據(jù)庫提供者1.數(shù)據(jù)庫文件名 ＝ 數(shù)據(jù)庫
數(shù)據(jù)源1.數(shù)據(jù)提供者 ＝ “數(shù)據(jù)庫提供者1”
表格1.數(shù)據(jù)源 ＝ “數(shù)據(jù)源1”
返回 ()
.子程序 _表格1_光標位置改變
數(shù)據(jù)源1.置背景色 (1, 1, 100, 10, #白色)
數(shù)據(jù)源1.置背景色 (表格1.取光標行號 (), 1, , 數(shù)據(jù)源1.取列數(shù) (), #天藍)