txt(0).SelLength = Len(txt(0).Text)
ElseIf Trim(txt(1).Text) = \检查供应商名称是否为空 msgt = \供应商名称为空； \ '光标定位 txt(1).SetFocus txt(1).SelStart = 0
txt(1).SelLength = Len(txt(1).Text) End If
If Not msgt = \如果不为空，给出错误提示 MsgBox (msgt)
CheckData = False '返回False Exit Function End If
'检查唯一性
SQL = \供应商资料表 where 供应商编号='\\
Set rst = SelectSQL(SQL, msg)
'如果是进行添加操作且已经存在该记录，提示重复添加 If flag = \ MsgBox (\该信息已经存在，重复添加!\ '光标定位 txt(0).SetFocus txt(0).SelStart = 0
txt(0).SelLength = Len(txt(0).Text) rst.Close
CheckData = False '返回False Exit Function End If
CheckData = True '合法返回True End Function
Private Sub setData() '为字段设置数据
29
rs.Fields(\供应商编号\ rs.Fields(\供应商名称\ For Index = 2 To 4
rs.Fields(Index) = Me.txt(Index).Text Next Index
rs.Fields(\信誉等级\ For Index = 5 To 6
rs.Fields(Index + 1) = Me.txt(Index).Text Next Index End Sub
Private Sub cmdCancel_Click() '取消操作
Call ShowData '重新在控件中显示信息 If rs.RecordCount > 0 Then '所有移动控件可用 For Index = 0 To 3
cmdmove(Index).Enabled = True Next Index End If
'设置控件Enable值为不可用 Call ControlEnable(False)
'修改、删除、添加按钮可用,保存和取消按钮不可用
cmdadd.Enabled = True: cmdmodify.Enabled = True: cmddelete.Enabled = True cmdsave.Enabled = False: cmdcancel.Enabled = False End Sub
Private Sub CmdQuery_Click() '查询操作
Call LoadData '装载数据 Call ShowData '显示数据 End Sub
Private Sub CmdExit_Click() '退出操作
进销存管理系统.Enabled = True Unload Me
30
End Sub
Private Sub Form_Unload(Cancel As Integer) '退出操作
进销存管理系统.Enabled = True rs.Close Unload Me End Sub
2. 数据库源代码 供应商资料表
CREATE TABLE 供应商资料表 (
供应商编号 char(4) Primary key , 供应商名称 varchar(50) NOT NULL, 地址 varchar(50) NULL , 电话 varchar(50) NULL , 传真 varchar(50) NULL ,
信誉等级 char（4） NULL , 提供商品 text NULL , 简介 text NULL , ) 商品资料表：
CREATE TABLE 供应商资料表 (
商品编号 char(6) Primary key , 商品名称 varchar(50) NOT NULL, 条形码 char(10) NULL , 计量单位 char(10) NOT NULL , 供应商编号 char（4） NOT NULL , 供应商地址 text NULL , 商品说明 text NULL , ) 客户资料表：
CREATE TABLE 客户资料表 (
客户编号 char(4) Primary key ,
31
客户名称 varchar(50) NOT NULL, 地址 varchar(50) NULL , 电话 varchar(50) NULL , 传真 varchar(50) NULL , 信誉等级 char（4） NULL , 提供商品 text NULL , 简介 text NULL , ) 销售单表：
CREATE TABLE 销售单表 (
销售单编号 char(6) Primary key , 客户编号 char(4) NOT NULL, 销售日期Datetime(8) NULL , 销售员Nvarchar(50) NOT NULL , 是否核销 char（6） NOT NULL , 操作人员char（6) NULL , 总共金额 float(8) NULL , 不含税价 float(8) NULL , 税额 float(8) NULL , ) 销售明细：
CREATE TABLE 销售单明细表 (
编号ID Numeric（9）Primary key 销售单编号 char(6) NOT NULL, 商品编号 char(6) NOT NULL, 销售数量float(8) NOT NULL , 成本单价float(8) NOT NULL , 销售单价float(8） NOT NULL , 总共金额 float(8) NOT NULL , 不含税价 float(8) NOT NULL , 税额 float(8) NOT NULL ， )
32
（三）、数据库中部分表的关系及约束
33