DLL命令代碼
|
1
2
3
4
5
|
.版本 2.DLL命令 滾動條, 整數型, , "ShowScrollBar" .參數 句柄, 整數型 .參數 類型, 整數型 .參數 與否, 邏輯型 |
表格不顯示滾動條代碼
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
.版本 2.程序集 窗口程序集1.程序集變量 滾動條狀態.程序集變量 數據庫名, 文本型.子程序 __啟動窗口_創建完畢.局部變量 運行目錄, 文本型.局部變量 字段, 字段信息, , "6"滾動條狀態 ＝ 表格1.取窗口句柄 ()運行目錄 ＝ 取運行目錄 () ＋ “\”數據庫名 ＝ 運行目錄 ＋ “編碼表.edb”.如果真 (文件是否存在 (數據庫名) ＝ 假) 字段 [1].名稱 ＝ “編碼” 字段 [1].最大文本長度 ＝ 8 字段 [2].名稱 ＝ “品名規格” 字段 [2].最大文本長度 ＝ 30 字段 [3].名稱 ＝ “單位” 字段 [3].最大文本長度 ＝ 4 字段 [4].名稱 ＝ “單價” 字段 [4].類型 ＝ #小數型 連續賦值 (#文本型, 字段 [1].類型, 字段 [2].類型, 字段 [3].類型) .如果真 (創建 (數據庫名, 字段) ＝ 假) 信息框 (“創建” ＋ #左引號 ＋ 數據庫名 ＋ #右引號 ＋ “！”, #錯誤圖標, “錯誤”) 結束 () .如果真結束.如果真結束.如果 (打開 (數據庫名, , , , , , ) ＝ 假) 信息框 (“無法打開” ＋ #左引號 ＋ 數據庫名 ＋ #右引號 ＋ “！”, #錯誤圖標, “錯誤”).否則 .如果 (取記錄數 () ＞ 0) 填充表格 (數據庫名) .否則 表格1.顯示標尺 ＝ 假 表格1.背景顏色 ＝ #灰色 數據源1.置表頭行數 (1) 數據源1.置文本 (1, 1, “編碼”) 數據源1.置文本 (1, 2, “品名規格”) 數據源1.置文本 (1, 3, “單位”) 數據源1.置文本 (1, 4, “單價”) 數據源1.置對齊方式 (1, 1, 1, 4, #中中) 數據源1.置列寬 (1, 1, 200) 數據源1.置列寬 (2, 1, 750) 數據源1.置列寬 (3, 1, 100) 數據源1.置列寬 (4, 1, 200) 數據源1.置背景色 (1, 1, 100, 10, #白色) 數據源1.置背景色 (表格1.取光標行號 (), 1, , 數據源1.取列數 (), #天藍) .如果結束.如果結束.子程序 __啟動窗口_尺寸被改變連續賦值 (取用戶區寬度 (), 標簽1.寬度, 分組框1.寬度)分組框1.高度 ＝ 取用戶區高度 () － 標簽1.高度 － 20表格1.高度 ＝ 分組框1.高度 － 10表格1.寬度 ＝ 分組框1.寬度 － 4滾動條 (滾動條狀態, 3, 假).子程序 填充表格.參數 數據庫, 文本型數據庫提供者1.數據庫文件名 ＝ 數據庫數據源1.數據提供者 ＝ “數據庫提供者1”表格1.數據源 ＝ “數據源1”返回 ().子程序 _表格1_光標位置改變數據源1.置背景色 (1, 1, 100, 10, #白色)數據源1.置背景色 (表格1.取光標行號 (), 1, , 數據源1.取列數 (), #天藍) |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
