前端用VB6，做中间后端用Acess，个零做一个很简曲阳的曲阳就行。先是做中间用周至登录，写入姓名、个零电话、曲阳住址和用周至类型，做中间信商城录入到供货商和买家里，个零有一个评价系统。曲阳使用的做中间时候可以看到他们的信誉。选择零件，个零可以以买家和供给商角度去点采办、曲阳卖出。做中间不必然要实现以上功能，个零大致就行，曲阳或类似的例子也能够。TextBox: 零件ID, 零件名称, 库存数量, 郓城价CommandButton: 添加零件, 更新零件, 删除零件, 查看库存销售办理窗体ComboBox: 选择零件TextBox: 销售数量, 销售日期CommandButton: 添加销售记录, 查看销售记录采购办理窗体ComboBox: 选择零件TextBox: 采购数量, 采购日期CommandButton: 添加采购记录, 查看采购记录3. 编写VB6神池码与Access数据库交互通过ADO (ActiveX Data Objects) 来连接和操作Access数据库。连接数据库Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub ConnectDB() conn.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb; conn.OpenEnd Sub添加零件Private Sub AddPart() Dim sql As String sql = INSERT INTO Parts (PartID, PartName, Quantity, Price) VALUES (' TextPartID.Text ', ' TextPartName.Text ', TextQuantity.Text , TextPrice.Text ) conn.Execute sqlEnd Sub更新零件Private Sub UpdatePart() Dim sql As String sql = UPDATE Parts SET PartName=' TextPartName.Text ', Quantity= TextQuantity.Text , Price= TextPrice.Text WHERE PartID=' TextPartID.Text ' conn.Execute sqlEnd Sub删除零件Private Sub DeletePart() Dim sql As String sql = DELETE FROM Parts WHERE PartID=' TextPartID.Text ' conn.Execute sqlEnd Sub添加销售记录Private Sub AddSale() Dim sql As String sql = INSERT INTO Sales (PartID, QuantitySold, SaleDate) VALUES (' ComboPartID.Text ', TextQuantitySold.Text , # TextSaleDate.Text #) conn.Execute sql ' 更新库存数量 sql = UPDATE Parts SET Quantity = Quantity - TextQuantitySold.Text WHERE PartID=' ComboPartID.Text ' conn.Execute sqlEnd Sub添加采购记录Private Sub AddPurchase() Dim sql As String sql = INSERT INTO Purchases (PartID, QuantityPurchased, PurchaseDate) VALUES (' ComboPartID.Text ', TextQuantityPurchased.Text , # TextPurchaseDate.Text #) conn.Execute sql ' 更新库存数量 sql = UPDATE Parts SET Quantity = Quantity + TextQuantityPurchased.Text WHERE PartID=' ComboPartID.Text ' conn.Execute sqlEnd Sub 上web 吧 , 不建议你用vb做,access以来并发量小,多人用就会崩,vb做的化只能电脑用,没法在手机用