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

柳柳199789

柳柳199789

2016-02-19 17:51

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

问题:

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

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

回答:

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

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

问题:

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

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

(本文来源于图老师网站,更多请访问http://m.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

展开更多 50%)
分享

猜你喜欢

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

编程语言 网络编程
Access 新手来看:编号的生成问题

Access 新手来看

电脑网络
Access 新手来看

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Access新手来看:Access的特点、概念

编程语言 网络编程
Access新手来看:Access的特点、概念

access 自动编号复位

编程语言 网络编程
access 自动编号复位

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Access新手来看:如何更改表/窗体/报表...得名字

编程语言 网络编程
Access新手来看:如何更改表/窗体/报表...得名字

access新手来看:如何重复上一条记录?

编程语言 网络编程
access新手来看:如何重复上一条记录?

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

perl连接access数据库

perl连接access数据库

一键同步Win 7文件夹视图

一键同步Win 7文件夹视图
下拉加载更多内容 ↓