VB超市销售系统 超市销售系统 超市销售系统

Private Sub Command2_Click() Dim jj Dim sl Dim je Call Db_Conn 'If Rs.State = 1 Then ' Rs.Close 'End If 'Rs.Open "select mi,mxid,mxgqrq from mingxi where mxgqrq <='" & Date & "' and mxlb='1' ", Conn, 1, 1 If Rs.State = 1 Then Rs.Close End If Sql = "select z.zki,z.zkid,z.zkkc,m.mi,m.mxid,m.mxlb,m.mxrq,m.mxsl,m.mxjj,m.mxje,m.mxscrq,m.mxgqrq,m.mxxsdj,m.mxlsh from zongku as z inner join mingxi as m on m.mxid=z.zkid where m.mxgqrq <='" & Date & "' and m.mxlb='1' " & " order by z.zki desc " Rs.Open Sql, Conn, 1, 1 If Rs.EOF = False Then Dim list As ListItem Set list = g_q.ListView2.ListItems.Add(, "c" & countid, Trim(Rs.Fields("mi"))) ' If IsNull(Rs.Fields("mxtxh")) = False Then ' list.SubItems(1) = Trim(Rs.Fields("mxtxh")) ' End If ' If IsNull(Rs.Fields("mxname")) = False Then ' list.SubItems(2) = Trim(Rs.Fields("mxname")) ' End If If IsNull(Rs.Fields("mxjj")) = False Then list.SubItems(3) = Trim(Rs.Fields("mxjj")) jj = Trim(Rs.Fields("mxjj")) End If If IsNull(Rs.Fields("mxsl")) = False Then list.SubItems(4) = Trim(Rs.Fields("mxsl")) End If list.SubItems(5) = Val(jj) * Val(sl) je = Val(jj) * Val(sl) If IsNull(Rs.Fields("mxscrq")) = False Then list.SubItems(6) = Trim(Rs.Fields("mxscrq")) End If If IsNull(Rs.Fields("mxgqrq")) = False Then list.SubItems(7) = Trim(Rs.Fields("mxgqrq")) End If 'If IsNull(Rs.Fields("mxgqrq")) = False Then ' list.SubItems(7) = Trim(Rs.Fields("mxgqrq")) 'End If ' countid = countid + 1 g_q.Show 1 Else ' MsgBox "仓库中没有条型号是" & Trim(Text1.Text) & "的" & Trim(Text2.Text) & ",请选择不型号的同类商品", 0 + 16, "空仓提示" ' Text1.SetFocus ' Text1.SelStart = 0 ' Text1.SelLength = Len(Text1.Text) MsgBox "NOT g+!" Exit Sub End If End Sub