frmmdi.frm

一个简单但功能强大的进货系统,同样适合用于毕业论文的设计

    frmClient.Show vbModal
    
    
End Sub

Private Sub Menu_Delete_Click()
    Dim intdel As Integer
    Dim strsql As String
    intdel = MsgBox("确认要删除所有资料码?", vbInformation + vbYesNo, "删除确认")
    If intdel = vbYes Then
        strsql = "delete from 盘点表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "select 商品编号,数量,总额 into 盘点表_tmp from 盘点表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "drop table 盘点表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "select 商品编号,数量,总额 into 盘点表 from 盘点表_tmp"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "ALTER TABLE 盘点表 add DEFAULT (0) FOR [数量], DEFAULT (0) FOR [总额]"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "drop table 盘点表_tmp"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 仓库表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 供应商表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 其它入库表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 其它入库表_tmp "
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 出库表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 出库表_tmp"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 商品表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 客户表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 库存表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 库存表_tmp"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 盘点表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 系统启动表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 订购入库表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 订购入库表_tmp"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 销售出库表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 销售出库表_tmp"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "delete from 雇员表"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        strsql = "insert 雇员表(雇员编号,雇员名,雇用日期,职位,密码) values('00001','admin',getdate(),'管理员','admin')"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        MsgBox "资料删除完毕!", vbInformation, "资料删除"
        blnexit = False
        Unload Me
        frmMDI.Show
    End If
    
    Me.Menu_Enterinfo.Enabled = False
    Me.Menu_Sellinfo.Enabled = False
    Me.Menu_SQL.Enabled = False
        
End Sub

Private Sub Menu_Exit_Click()
    
    Unload Me
    
End Sub

Private Sub Menu_Make_Click()
    Dim strBeg As String
    Dim strYear, strMonth As String
    Dim strsql As String
    strBeg = InputBox("请输入盘点结算时间", "盘点结算", CStr(Date))
    If IsDate(strBeg) Then
        strsql = "select 系统现启时间 from 系统启动表"
        
        Set rsSys = New Recordset
        Set rsSys = ExecuteSQL(strsql)
        rsSys.MoveFirst
        If Format(CDate(strBeg), "yyyy-mm") > Format(rsSys!系统现启时间, "yyyy-mm") Then
            strYear = Right(CStr(Year(CDate(strBeg))), 2)
            strMonth = Format(CStr(Month(CDate(strBeg))), "0#")
            strsql = "alter table 盘点表 add 数量" & strYear & strMonth & " float"
            cmdSys.CommandText = strsql
            cmdSys.Execute
    
            strsql = "alter table 盘点表 add 单价" & strYear & strMonth & " money"
            cmdSys.CommandText = strsql
            cmdSys.Execute
    
            strsql = "update 盘点表 set 数量" & strYear & strMonth & "=数量,总额" & strYear & strMonth & "=总额"
            cmSys.CommandText = strsql
            cmSys.Execute
            
            strsql = "insert 系统启动表 values('true','" & strBeg & "','" & strBeg & "','')"
            cmdSys.CommandText = strsql
            cmdSys.Execute
            
            strsql = "update 盘点表 set 数量" & strYear & strMonth & "=数量,总额" & strYear & strMonth & "=总额"
            cmSys.CommandText = strsql
            cmSys.Execute
            
            strsql = "update 系统启动表 set 系统现启时间='" & strBeg & "'"
            cmSys.CommandText = strsql
            cmSys.Execute
            MsgBox "盘点结算已完毕!", vbInformation, "盘点结算"
        Else
            MsgBox "该月份已经结算!", vbCritical, "盘点结算"
        End If
    Else
        MsgBox "日期格式错误！", vbCritical, "盘点错误"
        Exit Sub
    End If
End Sub

Private Sub Menu_Merch_Click()

    frmProduct.Show vbModal
    
End Sub

Private Sub Menu_New_Click()
    blnexit = False
    Unload Me
    frmLogin.Show vbModal
    
End Sub

Private Sub Menu_OtherCk_Click()
    frmOtherCK.Show vbModal
End Sub

Private Sub Menu_OtherEdit_Click()
    frmOtherEdit.Show vbModal
End Sub

Private Sub Menu_OtherSQl_Click()
    frmOtherSql.Show vbModal
    
End Sub

Private Sub Menu_PsCk_Click()
    frmPsCk.Show vbModal
    
End Sub

Private Sub Menu_PsEdit_Click()
    frmPsEdit.Show vbModal
End Sub

Private Sub Menu_PsSQL_Click()
    frmPsSql.Show vbModal
    
End Sub

Private Sub Menu_R_Click()
    Dim strBeg As String
    Dim strYear, strMonth As String
    Dim strsql As String
    strBeg = InputBox("请输入系统启用时间", "系统启用", CStr(Date))
    If IsDate(strBeg) Then
        strYear = Right(CStr(Year(CDate(strBeg))), 2)
        strMonth = Format(CStr(Month(CDate(strBeg))), "0#")
        
        strsql = "alter table 盘点表 add 数量" & strYear & strMonth & " float"
        cmdSys.CommandText = strsql
        cmdSys.Execute

        strsql = "alter table 盘点表 add 总额" & strYear & strMonth & " money"
        cmdSys.CommandText = strsql
        cmdSys.Execute

        strsql = "update 盘点表 set 数量" & strYear & strMonth & "=数量,总额" & strYear & strMonth & "=总额"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        
        strsql = "insert 系统启动表 values('true','" & strBeg & "','" & strBeg & "','')"
        cmdSys.CommandText = strsql
        cmdSys.Execute
        
        Me.Menu_R.Enabled = False
        Me.Menu_Delete.Enabled = False
        Me.Menu_Enterinfo.Enabled = True
        Me.Menu_Sellinfo.Enabled = True
        Me.Menu_SQL.Enabled = True
        MsgBox "系统已正式启用!", vbInformation, "系统启用"
        blnexit = False
        Unload Me
        frmMDI.Show
    Else
        MsgBox "日期格式错误！", vbCritical, "启用错误"

        Exit Sub
    End If
End Sub


Private Sub Menu_SellCk_Click()
    frmSellCk.Show vbModal
    
End Sub

Private Sub Menu_SellEdit_Click()
    frmSellEdit.Show vbModal
    
End Sub

Private Sub Menu_SellSQL_Click()
    frmSellSql.Show vbModal
End Sub

Private Sub Menu_Serve_Click()

    frmServe.Show vbModal

End Sub


Private Sub Menu_StorageInfo_Click()
    frmStorage.Show vbModal
End Sub

Private Sub Menu_Sys_Click()
    strsql = "select * from 商品表"
    Set rsprosql = ExecuteSQL(strsql)
    If rsprosql.RecordCount = 0 Then
        MsgBox "没有可用的商品信息,请先添加!", vbOKOnly + vbQuestion, "ACCP进销存"
        frmProduct.Show vbModal
    Else
        frmSetMat.Show vbModal
    End If
    
End Sub