我想用ACCESS创建一个数据库。 求一个销售订单管理的 ACCESS数据库模板给我一份 dragontree@163.com

dragontree88

您 好 ：

强 烈 建 议 你 直 接 看 一 下 这 个 吧 ！ 可 以 节 省 你 很 多 时 间 ！

ORU www.MlOs.aauoo.com。dYN

←╝█□①〓〓▽★≡

Public rs As New adodb.Recordset'过程变量

Public cn As New adodb.Connection '过程变量

Public Sub connDB()

Set cn = New adodb.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Public rs As New ADODB.Recordset

Public cn As New ADODB.Connection

Public Sub connDB()

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\存数据的文件夹\Access的名.mdbPersist Security Info=False"

cn.Open

Set rs = New ADODB.Recordset

rs.Open "select * from 数据库名", cn, adOpenDynamic, adLockOptimistic

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As String

Do While Not rs.EOF

a = rs("用户帐号")

b = rs("用户密码")

If a = Text1 Then

If b = Text2 Then

Unload Me

Form2.Show

Exit Sub

Else

MsgBox "密码错误!"

Exit Sub

End If

End If

rs.MoveNext

Loop

MsgBox "用户名错误"

End Sub

记得要在"工程"--->"引用"里选中Micosoft ActiveX Data Objects 2.1 Library 还有它自动选的你不要管

窗体2你就按数据库设计 再调用一次数据库 (关键是路径要对)

over!

create database 订单信息/*创建数据库*/

sp_addtype bianhao,'char(4)'

sp_addtype dianhua,'char(11)'/*两个自定数据类型*/

create table 销售人员表(销售人员编号 bianhao not null,销售人员姓名 varchar(5),销售人员地址 varchar(50),销售人员电话 dianhua) /*创建销售人员表*/

alter table 销售人员表

add primary key(销售人员编号)/*为销售人员表中的销售人员编号字段设置为 主键*/

alter table 销售人员表

alter column 销售人员姓名 varchar(6) not null /*修改销售人员中的销售人员字段 数据类型*/

create table 货品信息表(货品编号 bianhao not null primary key,货品名称 varchar(50) not null,货品单价 money not null,供应商名称 varchar(30) not null)

/*创建货品信息表*/

create table 客户信息表(客户编号 bianhao not null primary key,客户姓名 varchar(6) not null,客户地址 varchar(50) not null,客户电话 dianhua not null,客户邮编 varchar(6)not null)

/*创建客户信息表*/

create table 供应商信息表(供应商名称 varchar(50) primary key not null,供应商地址 varchar(100) not null,供应商电话 dianhua not null,供应商邮编 char(6) not null)

/*创建供应商信息表*/

create table 订单信息表(订单编号 bianhao primary key not null,销售人员编号 bianhao not null,销售人员姓名 varchar(6) not null,客户编号 bianhao not null,客户姓名 varchar(6) not null,客户地址 varchar(50) not null,

客户电话 dianhua not null,客户邮编 char(6) not null,货品名称 varchar(50) not null,货品数量 int not null,货品单价 money not null,总金额 money not null,供应商名称 varchar(50),订货日期 datetime not null,发货日期 datetime)

/*创建订单信息表*/

create rule 编号 as @x like'[0-9][0-9][0-9][0-9]'

create rule 号码 as @x like'[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]'

create rule 邮编 as @x like'[0-9][0-9][0-9][0-9][0-9][0-9]'

/*创建三个规则 分别对应 客户编号，货品编号，销售人员编号；销售人员电话号码，客户电话号码，供应商电话号；销售人员邮编，客户邮编，供应商邮编*/

sp_bindrule '编号','销售人员表.销售人员编号'

sp_bindrule '号码','销售人员表.销售人员电话'

/*绑定规则*/

sp_bindrule '编号','客户信息表.客户编号'

sp_bindrule '号码','客户信息表.客户电话'

sp_bindrule '邮编','客户信息表.客户邮编'

/*绑定规则*/

sp_bindrule '号码','供应商信息表.供应商电话'

sp_bindrule '邮编','供应商信息表.供应商邮编'

/*绑定规则*/

会员表: ID name xxxx xxx xx自己想后面的商品表: ID name class xxxx xxx xxxx 后面自己想订单表: ID UID CID class period 同上class 分年.半年.季.月.周.日 period 就是时期.订多久.- -! 具体到数值 1 2 3 4 5这类.几年几月几周.这意思这里给你个思路商品表中.<123>CLASS为 杂志 商品表中.<333>CLASS为 半月 当会员A ID为01 订了一份杂志.<123>年限1年. 一份<333>半月 写入订单表中. ID [1]UID [01] CID [01]class [年] period[1]在前台显示订单. ID1的信息会员. A 订商品. <123> 1/年

---