实例编程：Access新手来看
时间：2021-07-01 10:21:17
帮助过：43人阅读
述：以一段聊天记录来解释实际生活中编号的定义方法以及误区 问题： 我跟你说说我这边的情况吧。好像工号03－0756－004－1JF，表示：03表示03年生产，0756是合同号，004表示对方单位的编号，1表示合同的第几项，JF是表示车间。你说这样的工号会不会很烦？ 回
述：以一段聊天记录来解释实际生活中编号的定义方法以及误区
问题：
我跟你说说我这边的情况吧。好像工号03－0756－004－1JF，表示：03表示03年生产，0756是合同号，004表示对方单位的编号，1表示合同的第几项，JF是表示车间。你说这样的工号会不会很烦？
回答：
我只能说，你在设计数据结构的时候就已经错误了。
很多程序员认为 “编号”是一个字段，在计算机中这的确是正确的，但是，在计算机中，编号是没有含义的，没有语法、没有组合、没有任何意义，仅表示记录的唯一标识。而实际生产中，编号往往包含很多意义（除非你使用数据库查询系统来管理随机编号）。因此就像你说的，编号的每个部分都有含义。所以，应该以每个部分为最小单位来建立数据库结构。简单的说，就是 生产日期、合同号、对方单位编号、车间分几个字段存储，这也可以说是“原子性”扩展。其实 SQL 不仅仅可以查询数据，还可以组织数据，比如
select 日期 & 合同号 & 单位号 & 车间 as 编号,全名 from 产品表
问题：
但很惨的是：录入员已经习惯很连续地录入03－0456－002－4JF这样的工号了，叫他们分开来录入，恐怕很麻烦。
回答：
你可以在保存按钮上写点代码切分数据，即使连续窗体也可以在 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
