实例编程：Access新手来看

会计考友

述：以一段聊天记录来解释实际生活中编号的定义方法以及误区
　　问题：
　　我跟你说说我这边的情况吧。好像工号03－0756－004－1JF，表示：03表示03年生产，0756是合同号，004表示对方单位的编号，1表示合同的第几项，JF是表示车间。你说这样的工号会不会很烦？
0 W) h! {! C$ I* R; v: v: N　　回答：
　　我只能说，你在设计数据结构的时候就已经错误了。
) T' [, m/ |& x' Y　　很多程序员认为 “编号”是一个字段，在计算机中这的确是正确的，但是，在计算机中，编号是没有含义的，没有语法、没有组合、没有任何意义，仅表示记录的唯一标识。而实际生产中，编号往往包含很多意义（除非你使用数据库查询系统来管理随机编号）。因此就像你说的，编号的每个部分都有含义。所以，应该以每个部分为最小单位来建立数据库结构。简单的说，就是 生产日期、合同号、对方单位编号、车间分几个字段存储，这也可以说是“原子性”扩展。其实 SQL 不仅仅可以查询数据，还可以组织数据，比如
! I& g) u7 ~, H, j: ?/ G　　select 日期 & 合同号 & 单位号 & 车间 as 编号,全名 from 产品表
# i; k, J: Y2 F- k" \　　问题：
　　但很惨的是：录入员已经习惯很连续地录入03－0456－002－4JF这样的工号了，叫他们分开来录入，恐怕很麻烦。
　　回答：
　　你可以在保存按钮上写点代码切分数据，即使连续窗体也可以在 BEFOREUPDATE事件里面写代码。代码可以类似：
　　Sub SplitString()
　　Dim strA() As String
. q! D  {  E9 z+ I) K% E, b8 E　　strA() = Split(Me.TextBoxA, "-")
　　Dim i As Integer
　　For i = 0 To UBound(strA)
　　Debug.Print strA(i)
- p$ o3 `( z2 H( B$ y- d　　Me("TextBox" & i).value=strA(i)
　　Next
　　End Sub