本帖最后由 冷的滋味 于 2011-10-22 14:28 编辑
Smallint Datetime Numberic BCD Float Boolean Memo 我看了一下主要就是用到这几个字段类型!
图片下面有2个没显示是TZ 和TZ2 字段类型都是(Memo)
[e]
.版本 2
.支持库 eDB
.程序集 窗口程序集1
.子程序 _按钮_添加_被单击
.局部变量 sql, 文本型
sql = “insert into Card(ID,Status,Name,Sex,Certificate,CertificateNo,Birthday,Address,SaleTime,BarNo,WatchNo,AlertLevel,SystemTime,password,Sendupflag,LabelNub,Activ,Fate,LimitTime,memflag,charterflag,charterF,charterS,OnlienUnit,OnlienDate,OnlienCount,LastTime,TZ,TZ2) values ('” + 编辑框_ID.内容 + “','” + 编辑框_Status.内容 + “','” + 编辑框_Name.内容 + “','” + 编辑框_Sex.内容 + “','” + 编辑框_Certificate.内容 + “','” + 编辑框_CertificateNo.内容 + “','” + 编辑框_Birthday.内容 + “','” + 编辑框_Address.内容 + “','” + 编辑框_SaleTime.内容 + “','” + 编辑框_BarNo.内容 + “','” + 编辑框_WatchNo.内容 + “','” + 编辑框_AlertLevel.内容 + “','” + 编辑框_SystemTime.内容 + “','” + 编辑框_password.内容 + “','” + 编辑框_Sendupflag.内容 + “','” + 编辑框_LabelNub.内容 + “','” + 编辑框_Activ.内容 + “','” + 编辑框_Fate.内容 + “','” + 编辑框_LimitTime.内容 + “','” + 编辑框_memflag.内容 + “','” + 编辑框_charterflag.内容 + “','” + 编辑框_charterF.内容 + “','” + 编辑框_charterS.内容 + “','” + 编辑框_OnlienUnit.内容 + “','” + 编辑框_OnlienDate.内容 + “','” + 编辑框_OnlienCount.内容 + “','” + 编辑框_LastTime.内容 + “','” + 编辑框_TZ.内容 + “','” + 编辑框_TZ2.内容 + “')”
.如果 (_启动窗口.数据库连接1.执行SQL (sql) = 假)
信息框 (“添加记录失败!”, 0, )
.否则
信息框 (“添加记录成功”, 0, )
.如果结束
[/e]
|