sql数据库表里面如何添加一个用户名的字段？

通常的处理方式：

创建一个用户表MstUser，包括字段：用户编码UserCode，用户姓名UserName，以及其他信息，主键为用户编码UserCode。

在其他数据库表里添加字段用户编码UserCode，设置为外键，与用户表MstUser的用户编码UserCode相关联。

Private Sub Command1_Click()

Dim TabExit As Boolean

TabExit = False

Dim cn As New ADODB.Connection

cn.CursorLocation = adUseClient

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db1.mdbMode=ReadWritePersist Security Info=FalseJet OLEDB:Database Password=123456"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 生产厂家 CHAR(20)"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 生产日期 DATETIME"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 库存上限 Single"

cn.Execute "ALTER TABLE 库存表 ADD COLUMN ID COUNTER"

cn.Close

Set cn = Nothing

End Sub

.版本 2.子程序 __启动窗口_创建完毕

.局部变量 字段, 字段信息, , "2".如果真 (文件是否存在 (取运行目录 () ＋ “\xinxi.edb”) ＝ 假)

字段 [1].名称 ＝ “姓名”

字段 [1].类型 ＝ #文本型

字段 [1].最大文本长度 ＝ 512

字段 [2].名称 ＝ “信息”

字段 [2].类型 ＝ #文本型

字段 [2].最大文本长度 ＝ 512

创建 (取运行目录 () ＋ “\xinxi.edb”, 字段)

.如果真结束

打开 (取运行目录 () ＋ “\xinxi.edb”, , , , , , )

---