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.取列数 (), #天蓝) |
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接
