前端用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做的化隻能電腦用,沒法在手機用