【文件属性】：
文件名称：超市管路系统vb做的
文件大小：2.16MB
文件格式：RAR
更新时间：2013-07-06 09:46:06
超市管路系统
Dim Sql As String
Dim RS As ADODB.Recordset
Private Sub cmdFind_Click()
'查找
Dim i As Integer
If Trim(Me.txtData.Text) <> "" Then
Sql = "select * from 入库查询表 where "
Sql = Sql & Trim(Me.cboType.Text)
If Me.cboType.ListIndex = 0 Or Me.cboType.ListIndex = 3 _
Or Me.cboType.ListIndex = 4 Then
Sql = Sql & "=" & Trim(Me.txtData.Text)
Else
Sql = Sql & "='" & Trim(Me.txtData.Text) & "'"
End If
writeMS Sql, Me.MSFlexGrid1
Else
MsgBox "主键不能为空！"
Me.txtData.SetFocus
End If
End Sub
Private Sub cmdPrint_Click()
writeMSFlexGrid Me.MSFlexGrid1, "入库盘点"
End Sub
【文件预览】：
超市管理系统
----frmCheckFind.frm(5KB)
----frmSellCheck.frm(917B)
----DR_Check.dsx(31B)
----DR_Type.Dsr(8KB)
----frmSellDCheck.frm(4KB)
----modWrite.bas(4KB)
----frmSetUser.frm(4KB)
----frmSetUser.frx(45B)
----proMain.exe(2.3MB)
----DR_Factory.Dsr(11KB)
----DR_Factory.dsx(31B)
----modDbOperate.bas(1KB)
----mdiMain.frx(2.02MB)
----MSSCCPRJ.SCC(192B)
----DR_User.Dsr(10KB)
----frmFactory.frm(7KB)
----frmLog.frx(45B)
----DR_Check.DCA(48KB)
----DR_InCheck.dsx(31B)
----proMain.PDM(4KB)
----frmAbout.frm(2KB)
----frmCheckReport.frx(69B)
----DR_Factory.DCA(47KB)
----frmType.frm(5KB)
----DR_Type.DCA(46KB)
----DR_InCheck.DCA(47KB)
----frmCheckOther.frm(13KB)
----frmProvince.frx(1KB)
----DR_User.DCA(46KB)
----DR_Check.Dsr(19KB)
----mdiMain.frm(5KB)
----frmDelUser.frx(45B)
----frmProvince.frm(5KB)
----frmDelUser.frm(3KB)
----Thumbs.db(7KB)
----frmCheckReport.frm(4KB)
----frmLog.frm(5KB)
----frmAbout.frx(79KB)
----frmCheckFind.frx(133B)
----frmCheckInput.frm(8KB)
----DR_User.dsx(31B)
----frmSellOpen.frm(12KB)
----DATA()
--------Shop.mdb(284KB)
----DataEnvironment1.Dsr(9KB)
----DR_Type.dsx(31B)
----frmSetPwd.frm(7KB)
----proMain.vbw(1KB)
----proMain.vbp(2KB)
----DataEnvironment1.DCA(6KB)
----DR_InCheck.Dsr(13KB)
----未命名.bmp(1KB)