access数据库多功能操作代码

' 输出调试文本 (计算产量 (“5孔/白/3米/0.497/20_5孔/白/1.5米/0.49/100_4孔/白/3米/0.462/100_5孔/白/5米/0.518/100”))
' 输出调试文本 (计算产量 (“6孔/白/1.5米/0.525/200”))
' 输出调试文本 (计算产量 (“5孔/白/3米/0.497/100_4孔/黑/1.5米/0.455/100”))
' 输出调试文本 (计算产量 (“孔/黑/5米/0.518/100”))
复制文件 (取运行目录 () ＋ “\data.mdb”, 取运行目录 () ＋ “\备份数据.mdb”)

.如果真 (编辑框_16A_生产数量.内容 ≠ “”)
孔 ＝ 组合框_16A_孔.取项目文本 (组合框_16A_孔.现行选中项)
米 ＝ 组合框_16A_米.取项目文本 (组合框_16A_米.现行选中项)
颜色 ＝ 组合框_16A_颜色.取项目文本 (组合框_16A_颜色.现行选中项)
工价 ＝ 编辑框_16A_工价.内容
数量 ＝ 编辑框_16A_生产数量.内容
data_1._16A ＝ 孔 ＋ “/” ＋ 颜色 ＋ “/” ＋ 米 ＋ “/” ＋ 工价 ＋ “/” ＋ 数量
.如果真结束
line ＝ 高级表格1.行数
高级表格1.插入行 (, )
高级表格1.置数据 (line, 0, 1, 到文本 (窗口_主窗口.高级表格1.行数 － 1))
高级表格1.置数据 (line, 1, 1, _格式化日期 (到时间 (data_1.日期)))
高级表格1.置数据 (line, 2, 1, data_1.姓名)
高级表格1.置数据 (line, 3, 1, data_1.独立)
高级表格1.置数据 (line, 4, 1, data_1._10A)
高级表格1.置数据 (line, 5, 1, data_1._16A)
高级表格1.置数据 (line, 6, 1, 到文本 (data_1.总产量))
高级表格1.置数据 (line, 7, 1, 到文本 (data_1.计件工资))
高级表格1.置数据 (line, 8, 1, 到文本 (data_1.总工资))
.如果真 (bool ＝ 假)
bool ＝ sava (data_1.日期, data_1.姓名, data_1.独立, data_1._10A, data_1._16A, 到文本 (data_1.计件工资), 到文本 (独立_数量), 到文本 (_10A_数量), 到文本 (_16A_数量), 到文本 (data_1.总产量))
.如果真 (bool ＝ 假)
信息框 (“添加数据失败!”, 16, )