[+22]我要透露一个深藏多年的秘密

w521521 · 发表于 2023-9-25 18:43:34

感谢分享，很给力！~

zengyongtao · 发表于 2023-9-25 18:19:40

.版本 2 .如果真 (外部数据库.打开MDB数据库 (“hyxt.mdb”, , #数据库密码, 假, 真) ＝真) ' 文件名全局变量_年龄＝到文本 (局_年龄) 全局变量_生日类型＝生日类型全局变量_姓名＝编辑框_姓名.内容全局变量_出生年份＝组合框_年.取项目文本 (组合框_年.现行选中项) 全局变量_出生月份＝组合框_月.取项目文本 (组合框_月.现行选中项) 全局变量_出生日＝组合框_日.取项目文本 (组合框_日.现行选中项) 全局变量_下次生日＝到文本 (局_下次生日) 全局变量_备注＝编辑框_备注.内容全局变量_刷新所有生日＝ “1” 全局变量_执行结果＝外部数据库.执行 (“insert into 生日管理模块 (姓名,出生年份,出生月份,出生日,生日类型,年龄,下次生日,备注,刷新所有生日) values('” ＋全局变量_姓名＋ “','” ＋全局变量_出生年份＋ “','” ＋全局变量_出生月份＋ “','” ＋全局变量_出生日＋ “','” ＋全局变量_生日类型＋ “','” ＋全局变量_年龄＋ “','” ＋全局变量_下次生日＋ “','” ＋全局变量_备注＋ “','” ＋全局变量_刷新所有生日＋ “');”, ) ' 文件夹里面的表名称 .如果真 (全局变量_执行结果＝真) MessageBox (0, “新会员生日添加成功！”, “提示”, #确认钮, 0, 1000) .如果真结束外部数据库.关闭 () cha询会员生日 ()