谁有进销存源码，我想买

Question

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

Answer 1

我自己写的一个，简单的进销存管理系统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 SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Activate()
Text1.SetFocus
End SubPrivate Sub Form_Load()
Me.ScaleWidth = 800
Me.ScaleHeight = 500
Me.Picture = LoadPicture(App.Path & "\login1.jpg")
End Sub
Public 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 = 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 SelectEnd SubPrivate 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 SubPrivate Sub cmddel_Click()
Select Case SSTab1.Tab
    Case 0
    rs1.Delete
    Case 1
    rs2.Delete
    Case 2
    rs3.Delete
End Select
End 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 Select
End SubPrivate 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
LoopEnd Sub
Private Sub Form_Load()
connect
Set DataGrid1.DataSource = rs2
End SubPrivate Sub Form_Unload(Cancel As Integer)
rs1.UpdateBatch
rs2.UpdateBatch
rs3.UpdateBatch
End 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 = rs3
End Select
End Sub

Answer 2

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

Answer 3

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