| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- addinputcell (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104797) |
| -- 作者：刘林 -- 发布时间：2017/8/5 11:17:00 -- addinputcell Case "zc.htm" wb.AddPageTitle("","pageheader","内江市教务系统","欢迎新用户注册使用") If e.PostValues.Count = 0 Then wb.AddForm("","form1","zc.htm") Dim qxs As List(of String) = DataTables("学校信息").GetValues("区县") With wb.AddInputGroup("form1","ipg1","") .AddInput("姓名","姓 名","Text") \'前一个"姓名"是ID,后一个"姓名"是标题 .AddInput("身份证号","身份证号","text") .AddSelect("角色","角 色","|教务主任|教师|学生") .AddSelect("区县","区 县","|" & String.Join("|",qxs.ToArray)).Attribute = "" \'调用js函数. .AddSelect("group", "单位名称","") With .AddInputCell("ic1") \'通过InputCell增加输入框 .AddSelect("xd","小学|初中|高中",0) \'增加下拉列表,0表示显示在左边 .AddSelect("rxn","2012|2013|2014|2015|2016|2017|2018",1) .AddSelect("bj","1班|2班|3班|4班|5班|6班|7班|8班|9班|10班|11班|12班|13班|14班|15班|16班|17班|18班|19班|20班|21班|22班|23班|24班",2) End With .AddInput("password","登录密码","password").placeholder ="请输入六位密码" With .AddUploader("up1","照 片",False) .TextPosition = 0 .AllowDelete = True \'允许删除 .ScaleWidth = 40 \'自动压缩图片宽度为400个像素,高度等比例压缩 End With End With With wb.AddButtonGroup("form1","btg1",False) .Add("btn1", "确定", "submit").Attribute= "" .Add("btn2", "重置", "reset") End With For Each qx As String In qxs wb.InsertHTML("<p hidden id=\'" & qx & "\'>" & "|" & DataTables("学校信息").GetComboListString("单位全称","区县=\'" & qx & "\'") & "</p>") Next wb.AppendHTML("<script src=\'./lib/brands.js\'></script>") \'引入脚本文件 e.WriteString(wb.Build) \'生成网页 Else Dim nms() As String = {"姓名","身份证号","角色","区县","group","password"} \'不能为空的列名数组 For Each nm As String In nms If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页 With wb.AddMsgPage("","msgpage","注册失败", nm & "列内容不能为空!") .icon = "Warn" \'改变图标 .AddButton("btn1","返回").Attribute = "" End With e.WriteString(wb.Build) Return \'必须返回 End If Next Dim dr1 As DataRow = DataTables("用户").sqlfind("身份证号= \'" & e.PostValues("身份证号") & "\'") If dr1 IsNot Nothing With wb.AddMsgPage("","msgpage","注册失败", "该身份证号已注册,不能重复注册") .icon = "Warn" \'改变图标 .AddButton("btn1","返回").Attribute = "" End With e.WriteString(wb.Build) Return \'必须返回 End If nms = New String() {"姓名","身份证号","角色","区县","group","password"} \'重新定义了nms数组,增加了两列. Dim dr As DataRow = DataTables("用户").AddNew() For Each nm As String In nms If e.PostValues.ContainsKey(nm) Then dr(nm) = e.PostValues(nm) End If Next For Each fln As String In e.Files("up1") e.SaveFile("up1", fln, "C:\\data\\xp\\" & e.postvalues("身份证号") & "." & fln.split(".")(1)) dr("相片") = IIF(dr.isnull("相片"),"",dr("相片") & vbcrlf) & e.postvalues("身份证号") & "." & fln.split(".")(1) Next wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文 dr.save() If e.postvalues("角色")= "学生" With wb.AddMsgPage("","msgpage","注册成功,", "欢迎" & e.postvalues("姓名") & "同学的加入,待你班主任审核后可登录") \'生成成功提示页 .AddButton("btn1","继续注册","zc.htm") .AddButton("btn1","返回登录","logon.htm") End With End If If e.postvalues("角色")= "教师" With wb.AddMsgPage("","msgpage","注册成功,", "欢迎" & e.postvalues("姓名") & "老师的加入,待你校教务主任审核后可登录") \'生成成功提示页 .AddButton("btn1","继续注册","zc.htm") .AddButton("btn1","返回登录","logon.htm") End With End If If e.postvalues("角色")= "教务主任" With wb.AddMsgPage("","msgpage","注册成功,", "欢迎" & e.postvalues("姓名") & "教务主任的加入,待上级审核后可登录") \'生成成功提示页 .AddButton("btn1","继续注册","zc.htm") .AddButton("btn1","返回登录","logon.htm") End With End If \' e.WriteString(wb.Build) End If 老师，请问两个问题:1，我想在一行上显示三个下拉选项（红色部分）只有xd有，rsn有，但bj下拉选项没有。2，现在上传相片可以了，但我想上传同时压缩，学习了帮助，按帮助做了两天还是不行，请老师帮忙明示，谢谢
|
| -- 作者：刘林 -- 发布时间：2017/8/5 11:26:00 -- AddInput("姓名","姓 名","Text") 另外，我想翅姓名标题做成四个字宽图，于是写是姓 名，但实际显示的时候没有增加多少间隔，请问这又该怎么办？ |
| -- 作者：有点蓝 -- 发布时间：2017/8/5 11:33:00 -- 试试 AddInput("姓名","姓 名","Text") html使用 代表空格
|
| -- 作者：刘林 -- 发布时间：2017/8/5 11:54:00 -- .AddInput("姓名","姓 名","Text")\'，老师，我试了要7个 点两个字符宽度，另外1楼的两个问题请帮看下，谢谢 |
| -- 作者：有点蓝 -- 发布时间：2017/8/5 12:16:00 -- 1、bug，待改正 2、使用压缩，就不能直接提交表单，需要使用ajex提交，http://www.foxtable.com/mobilehelp/scr/0251.htm 仔细仔细看帮助的“确定”按钮和js的用法
|
| -- 作者：客人 -- 发布时间：2017/8/5 13:07:00 -- With wb.AddButtonGroup("form1","btg1",False) .Add("btn1", "确定", "submit").Attribute= "" .Add("btn2", "重置", "reset") End With 这样不行呢
|
| -- 作者：刘林 -- 发布时间：2017/8/5 13:09:00 -- With wb.AddButtonGroup("form1","btg1",False) .Add("btn1", "确定", "submit").Attribute= "" .Add("btn2", "重置", "reset") End With .Attribute= ""这句发过来要丢失呢
|
| -- 作者：刘林 -- 发布时间：2017/8/5 13:09:00 -- |
| -- 作者：刘林 -- 发布时间：2017/8/5 13:10:00 -- .Add("btn1", "确定", "submit").Attribute= " onclick====\'submitForm()\'" |
| -- 作者：有点蓝 -- 发布时间：2017/8/5 14:40:00 -- 没有仔细看帮助 Select Case e.Path Case "upload.htm" Dim wb As New weui wb.AddForm("","form1","receive.htm") With wb.AddInputGroup("form1","ipg1","文件上传") With .AddUploader("up128","照片",True) .AllowDelete = True \'允许删除 .Incremental = True \'允许重复选择文件或连续拍照 .ScaleWidth = 400 \'自动压缩图片宽度为400个像素,高度等比例压缩 End With End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "button").Attribute= "onclick=\'submitForm()\'" \'调用js函数上传 End With wb.AddToast("","tst1", "正在上传",1) wb.AddToast("","tst2", "上传成功",0) wb.AddToast("","tst3", "上传失败",0).Icon= "warn" wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件 e.WriteString(wb.Build) \'生成网页 Case "receive.htm" For Each key As String In e.Files.Keys For Each fln As String In e.Files(key) e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & fln) \'保存接收到的文件 Next Next e.WriteString("OK") End Select |