谁有进销存源码，我想买

[CCYSCM]

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

[xieming19831985]

500块钱,就买源程序啊,是不是太便宜了点呀

[CCYSCM]

人穷点，出价是低了点，不过只是出价，你们有的话也可以开价啊

[f50282912]

我自己写的一个，简单的进销存管理系统

Private Sub Command1_Click()
Dim conn, rs
Set 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, 1
If rs("用户名").Value = Text1.Text And rs("密码").Value = Text2.Text Then
Frmmain.Show
Unload Me
ElseIf rs("用户名").Value = Text1.Text Then
MsgBox "密码错误!", 32
Else
MsgBox "用户不存在!", 16
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Form_Load()
Me.ScaleWidth = 800
Me.ScaleHeight = 500
Me.Picture = LoadPicture(App.Path & "\login1.jpg")
End Sub
Public conn, rs1, rs2, rs3

Public 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 = adUseClient
rs2.CursorLocation = adUseClient
rs3.CursorLocation = adUseClient
rs1.Open "Select 编号,名称,类别,进价,数量,进价*数量 as 合计,时间,flag From jhtbl", conn, 1, adLockBatchOptimistic
rs2.Open "Select 编号,名称,类别,售价,数量,售价*数量 as 合计,时间,flag From xstbl", conn, 1, adLockBatchOptimistic
rs3.Open "Select 编号,名称,类别,数量,时间,备注 From kctbl", conn, 1, adLockBatchOptimistic
End Sub
Private 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 = Now
End Select

End Sub

Private Sub cmdall_Click()
Select Case SSTab1.Tab
    Case 0
    rs1.Filter = ""
    Set DataGrid1.DataSource = rs1
    Case 1
    rs2.Filter = ""
    Set DataGrid1.DataSource = rs2
End Select
End Sub

Private Sub cmddel_Click()
Select Case SSTab1.Tab
    Case 0
    rs1.Delete
    Case 1
    rs2.Delete
    Case 2
    rs3.Delete
End Select
End Sub

Private 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 Select
End Sub

Private Sub cmdupdt_Click()
rs3.MoveFirst
rs1.MoveFirst
Do 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.MoveNext
Loop
rs3.MoveFirst
rs2.MoveFirst
Do 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.MoveNext
Loop

End Sub


Private Sub Form_Load()
connect
Set DataGrid1.DataSource = rs2
End Sub

Private Sub Form_Unload(Cancel As Integer)
rs1.UpdateBatch
rs2.UpdateBatch
rs3.UpdateBatch
End Sub

Private 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 = rs3
End Select
End Sub

[hehaiyi2008]

呵呵！~500块！买源码？你再加2个0也不一定卖你啊！
一套不错的进销存系统每套也可以买到上千元了。

[ddan]

广告贴

[东方之珠]

枕善居有好几个.

[fstao]

源码就没有了，可以交流交流，QQ:2523460

[ChinaITOldMan]

500块，从没见这多的钱啊

[xuggzu]

我有个的sql数据库进销存系统，小型的，500低了，想要可以QQ785079660谈谈。

[csdn_风中雪狼]

可以联系我一下
QQ 530496014
注：CSDN