NBA明星录

NBA明星录

.版本 2
.支持库 iext

.子程序 _添加按钮_被单击
.局部变量 SQL, 文本型

.如果真 (添加按钮.标题 ＝ “我要添加”)
    清内容 ()
    添加按钮.标题 ＝ “添加”
    返回 ()
.如果真结束
.如果真 (中文名编辑框.内容 ＝ “” 或 英文名编辑框.内容 ＝ “” 或 性别编辑框.内容 ＝ “” 或 场上编号编辑框.内容 ＝ “” 或 图片框1.图片 ＝ 到字节集 (0))
    信息框 (“请输入必填内容”, 0, )
    返回 ()
.如果真结束
SQL ＝ “INSERT INTO 明星 ([中文名],[英文名],[性别],[国籍],[出生城市],[出生日期],[身高],[体重],[场上位子],[场上编号],[所属团队],[曾效力团队],[简介],[照片],[快照]) VALUES ('” ＋ 中文名编辑框.内容 ＋ “','” ＋ 英文名编辑框.内容 ＋ “','” ＋ 性别编辑框.内容 ＋ “','” ＋ 国籍编辑框.内容 ＋ “','” ＋ 城市编辑框.内容 ＋ “','” ＋ 日期编辑框.内容 ＋ “','” ＋ 身高编辑框.内容 ＋ “','” ＋ 体重编辑框.内容 ＋ “','” ＋ 位子编辑框.内容 ＋ “','” ＋ 场上编号编辑框.内容 ＋ “','” ＋ 团队编辑框.内容 ＋ “','” ＋ 效力编辑框.内容 ＋ “',?,?,?)”
.如果 (外部数据库1.执行 (SQL, 简介编辑框.内容, 图片框1.图片, 快照 (图片框1.取窗口句柄 (), 56, 64)))
    信息框 (“添加已成功,击确定继续！”, 64, “成功了”)
    超级列表框1.全部删除 ()
    置图片 ()
    添加按钮.标题 ＝ “我要添加”
.否则
    信息框 (“添加失败，请检查！”, 16, “失败了”)

@易语言教程网