Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:关于帮助中的复杂的网络编号

1楼
blackzhu 发表于:2011/11/15 11:03:00
   我想问一下,关于帮助中的复杂的网络编号,我已经生成三个编号,比如是1.2.3,但是有人删除了其中2的编号,如果我再新增保存以后,我新增的编号会不会保存在2的号码,也就是自动补号.
2楼
blackzhu 发表于:2011/11/15 11:18:00
还有一个问题,老大,我单独做了一个表,是用来控制登录时间的.

 字段有  星期一 开始时间和结束时间    星期二 开始时间和结束时间   一直到星期天的开始和结束.


我想在登录按钮中加入一行代码,就是登录时的系统时间(也就是现在星期几的几点几十分),在不在这个表的星期几的开始时间和结束时间内,在就可以登录,不在就不能登录.
3楼
blackzhu 发表于:2011/11/15 13:40:00
老大怎么不出来?
4楼
唐尸三摆手 发表于:2011/11/15 13:50:00
第一个问题,不会补充那个删除的2的,属于编号连续增长的原理
第二个问题可以用集合来判断的。
[此贴子已经被作者于2011-11-15 13:51:10编辑过]
5楼
狐狸爸爸 发表于:2011/11/15 13:58:00

1、编号不需要去追求绝对连续,相对连续就行了。

2、第二个问题,获得今天是星期几,然后从你的表中取得这个日期的事件范围,最好判断现在的事件是否在这个事件范围内。

6楼
blackzhu 发表于:2011/11/15 14:47:00
第一点,我跟客户说不明白,其实生成的编号是不能乱动的.气死我了.

第二点,我只要判断是不是在范围内就可以了,我来做一下,有点晕.
7楼
blackzhu 发表于:2011/11/15 16:02:00
Dim d As Date = Date.Now()
Dim dr As DataRow
dr= DataTables("登录时间").Find("登录期限 ='" & Format(d, "dddd") & "'And 登录开始时间>= '" & Format(d, "T") & "'And 登录结束时间 <= '" & Format(d, "T") & "'")
If dr IsNot Nothing Then
    MessageBox.Show("通过")
Else
    MessageBox.Show("不通过")
End If

    老大你帮我看看   我的登录开始时间和结束时间用字符列来做的话,我这个代码怎么改?因为时间列的话一定要"#"的吧.我的格式是08:00:00
8楼
狐狸爸爸 发表于:2011/11/15 16:21:00

Dim d1 As String = Format(Date.now,"HH:ss")

Dim dr As DataRow = DataTables("登录时间").Find("登录期限 ='" & Format(Date.Now, "dddd")  & “‘”)

If dr IsNot Nothing AndAlSo d1 >= Format(dr("登录开始时间"),"HH:SS") AndAlso d1 <= Format(dr("登录结束时间"),"HH:SS") Then      

     MessageBox.Show("通过")

Else      

     MessageBox.Show("不通过")

End If

9楼
blackzhu 发表于:2011/11/15 17:23:00
老大,为什么是HH:SS,是小时和秒?
10楼
hanxuntx 发表于:2011/11/15 17:25:00
参见编程基础 格式化数据
共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.