Access 新手来看:编号的生成问题

2016-02-19 17:51 10 1 收藏

今天图老师小编给大家介绍下Access 新手来看:编号的生成问题,平时喜欢Access 新手来看:编号的生成问题的朋友赶紧收藏起来吧!记得点赞哦~

【 tulaoshi.com - 编程语言 】

问题:

我跟你说说我这边的情况吧。好像工号03-0756-004-1JF,表示:03表示03年生产,0756是合同号,004表示对方单位的编号,1表示合同的第几项,JF是表示车间。你说这样的工号会不会很烦?

回答:

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

我只能说,你在设计数据结构的时候就已经错误了。

很多程序员认为 “编号”是一个字段,在计算机中这的确是正确的,但是,在计算机中,编号是没有含义的,没有语法、没有组合、没有任何意义,仅表示记录的唯一标识。而实际生产中,编号往往包含很多意义(除非你使用数据库查询系统来管理随机编号)。因此就像你说的,编号的每个部分都有含义。所以,应该以每个部分为最小单位来建立数据库结构。简单的说,就是 生产日期、合同号、对方单位编号、车间分几个字段存储,这也可以说是“原子性”扩展。其实 SQL 不仅仅可以查询数据,还可以组织数据,比如
select 日期 & 合同号 & 单位号 & 车间 as 编号,全名 from 产品表

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

问题:

但很惨的是:录入员已经习惯很连续地录入03-0456-002-4JF这样的工号了,叫他们分开来录入,恐怕很麻烦。

回答:

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

你可以在保存按钮上写点代码切分数据,即使连续窗体也可以在 BEFOREUPDATE事件里面写代码。代码可以类似:
Sub SplitString()
    Dim strA() As String
    strA() = Split(Me.TextBoxA, "-")
    Dim i As Integer
    For i = 0 To UBound(strA)
        Debug.Print strA(i)
        Me("TextBox" & i).value=strA(i)
    Next
End Sub

来源:http://www.tulaoshi.com/n/20160219/1616225.html

延伸阅读
使用access数据库时可能用到的数据转换: 类型转换涵数: 函数 返回类型 expression 参数范围 CBool Boolean 任何有效的字符串或数值表达式。 CByte Byte 0 至 255。 CCur Currency -922,337,203,685,477.5808 至922,337,203,685,477.5807。 CDate Date 任何有效的日期表达式。 CDbl Double 负数从 -1.7...
如果我们和其它人共享模块,就希望Access2000会删除可编辑的源代码。这样你的VBA程序还可以继续运行,但其他用户不能进行查看或编辑。 我们可以将这个数据库转换成“MDE”格式,这只要单击“工具”,然后选择“数据库实用工具”,然后单击“生成MDE文件”,然后选择要进行“MDE”转换的源数据库,然后单击“生成”按钮, 并为其指定位...
标签: word
Word2013中“键入时自动套用格式”生成编号的方法   在Word2013文档中,用户可以借助键入时自动套用格式功能,在直接输入数字的时候自动生成编号。用户首先需要启用自动编号列表自动套用选项,自动生成编号的步骤如下所述: 第1步,打开Word2013文档窗口,依次单击文件→选项按钮,如图1所示。 图1 单击选项按钮 ...
标签: 瘦身 另类瘦身
瑜伽运动有着自身的特点,练习的时候需要注意很多的事情,需要你有着一定的接受基础,瑜伽初学者就不要一开始就去学高难度的瑜伽动作,这样不仅仅不会做到位,同时还会让身体受到伤害。 有的人认为瑜伽运动并没有多大的减肥效果,有的人则认为瑜伽的减肥塑形效果还是很不错的,那么同样的一项瑜伽运动为什么会有着不同的 效果呢?除了...
if not exists (select * from dbo.sysobjects where id = object_id(N'[IndexTable]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) create table IndexTable(Ex char(20), num integer) go create procedure SetIndex @Ex char(20),@result char(30) output,@Fmt integer as   declare @num...

经验教程

865

收藏

88
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部