哪位高手有进销存源码，小弟我想买

谁有进销存源码，我想买
出价500元。
要求和以下程序的源程序
http://www.skycn.com/soft/32388.html
有的朋友请联系我。13775497631(短信)

[解决办法]
500块钱,就买源程序啊,是不是太便宜了点呀
[解决办法]
呵呵！~500块！买源码？你再加2个0也不一定卖你啊！
一套不错的进销存系统每套也可以买到上千元了。

[解决办法]
枕善居有好几个.
[解决办法]
我自己写的一个，简单的进销存管理系统

VB code

Private Sub Command1_Click()Dim conn, rsSet conn = CreateObject("ADODB.Connection")Set rs = CreateObject("ADODB.Recordset")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data1.mdb"rs.Open "Select * From dltbl", conn, 1, 1If rs("用户名").Value = Text1.Text And rs("密码").Value = Text2.Text ThenFrmmain.ShowUnload MeElseIf rs("用户名").Value = Text1.Text ThenMsgBox "密码错误!", 32ElseMsgBox "用户不存在!", 16End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Activate()Text1.SetFocusEnd SubPrivate Sub Form_Load()Me.ScaleWidth = 800Me.ScaleHeight = 500Me.Picture = LoadPicture(App.Path & "\login1.jpg")End SubPublic conn, rs1, rs2, rs3Public Sub connect()Set conn = CreateObject("ADODB.Connection")Set rs1 = CreateObject("ADODB.Recordset")Set rs2 = CreateObject("ADODB.Recordset")Set rs3 = CreateObject("ADODB.Recordset")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data1.mdb"rs1.CursorLocation = adUseClientrs2.CursorLocation = adUseClientrs3.CursorLocation = adUseClientrs1.Open "Select 编号,名称,类别,进价,数量,进价*数量 as 合计,时间,flag From jhtbl", conn, 1, adLockBatchOptimisticrs2.Open "Select 编号,名称,类别,售价,数量,售价*数量 as 合计,时间,flag From xstbl", conn, 1, adLockBatchOptimisticrs3.Open "Select 编号,名称,类别,数量,时间,备注 From kctbl", conn, 1, adLockBatchOptimisticEnd SubPrivate Sub cmdadd_Click()Select Case SSTab1.Tab    Case 0    rs1.AddNew    rs1("时间").Value = Now    rs1("flag").Value = False    Case 1    rs2.AddNew    rs2("时间").Value = Now    rs2("flag").Value = False    Case 2    rs3.AddNew    rs3("时间").Value = NowEnd SelectEnd SubPrivate Sub cmdall_Click()Select Case SSTab1.Tab    Case 0    rs1.Filter = ""    Set DataGrid1.DataSource = rs1    Case 1    rs2.Filter = ""    Set DataGrid1.DataSource = rs2End SelectEnd SubPrivate Sub cmddel_Click()Select Case SSTab1.Tab    Case 0    rs1.Delete    Case 1    rs2.Delete    Case 2    rs3.DeleteEnd SelectEnd SubPrivate Sub cmdfind_Click()Select Case SSTab1.Tab    Case 0    rs1.Filter = "编号 = '" & Text1.Text & "'"    Case 1    rs2.Filter = "编号 = '" & Text1.Text & "'"    Case 2    rs3.Find = "编号 = '" & Text1.Text & "'"End SelectEnd SubPrivate Sub cmdupdt_Click()rs3.MoveFirstrs1.MoveFirstDo While Not rs1.EOF   If rs1("flag").Value = False Then        rs3.Find = "编号 = '" & rs1("编号") & "'"        If rs3.EOF Then        rs3.AddNew        rs3("编号").Value = rs1("编号").Value        rs3("名称").Value = rs1("名称").Value        rs3("类别").Value = rs1("类别").Value        rs3("数量").Value = rs1("数量").Value        rs3("时间").Value = rs1("时间").Value        Else        rs3("数量").Value = rs3("数量").Value + rs1("数量").Value        End If        rs1("flag").Value = True   End If   rs1.MoveNextLooprs3.MoveFirstrs2.MoveFirstDo While Not rs2.EOF   If rs2("flag").Value = False Then        rs3.Find = "编号 = '" & rs2("编号") & "'"        If rs3.EOF Then        MsgBox "没有此项库存"        Else        rs3("数量").Value = rs3("数量").Value - rs2("数量").Value        End If        rs2("flag").Value = True   End If   rs2.MoveNextLoopEnd SubPrivate Sub Form_Load()connectSet DataGrid1.DataSource = rs2End SubPrivate Sub Form_Unload(Cancel As Integer)rs1.UpdateBatchrs2.UpdateBatchrs3.UpdateBatchEnd SubPrivate Sub SSTab1_Click(PreviousTab As Integer)Select Case SSTab1.Tab    Case 0    Set DataGrid1.DataSource = rs1    Case 1    Set DataGrid1.DataSource = rs2    Case 2    Set DataGrid1.DataSource = rs3End SelectEnd Sub 
 
[解决办法]
源码就没有了，可以交流交流，QQ:2523460
[解决办法]
500块，从没见这多的钱啊
[解决办法]
我有个的sql数据库进销存系统，小型的，500低了，想要可以QQ785079660谈谈。
[解决办法]
可以联系我一下  
QQ 530496014
注：CSDN