求助：如何按照下面的规则生成字段内容

asia2158

数据库名：SXZZ.MDB(ACCESS);表名：CODE_BUFF;主键字段CID：110001200304011005300005；
主键字段是在录入记录时由系统自动产生的，它的生成规则如下：
1:前6位是固定值110001；
2:中间的8位是录入记录时的当前机器日期:2003年4月1日；
3:接下来的6位是录入记录时的当前机器时间:上午10点5分30秒；
4:最后的4位是顺序码，由来已久0001开始递增，用以确保同时录入的记录不会重号；
5:此字段为“文本类型”,它的值要在操作人员在向CODE_BUFF表中录入数据时自动生成；
请问高手，如何在录入过程中生成此字段，请给出相应的VB6代码，或者在ACCESSXP内
用VBA实现的代码，谢谢！

zhaobeaut

VB6的代码：
Public db As Database
Public rs As Recordset



Private Sub Command1_Click()   '保存
Dim day As String
Dim str As String
Dim num As Integer

num = GetSetting("data", "data", "num", 0)   ‘从注册表中获得上次的数字

day = Format(Date, "yyyymmdd")    ’获得6位日期
str = Format(Time, "hhnnss")   ‘获得6为时间
num = num + 1

Set rs = db.OpenRecordset("select * from CODE_BUFF")

rs.AddNew
rs.Fields(0) = "110001" & day & str & Format(num, "0000")   ’组合为字段
rs.Fields……    ‘其他字段

rs.Update

SaveSetting "data", "data", "num", num     ‘保存到注册表中
End Sub


Private Sub Form_Load()
Set db = opendatabase(App.Path & "\SXZZ.MDB")
End Sub

[此贴子已经被作者于2003-5-12 12:47:44编辑过]