frm_main.frm

仓库扫描管理系统

         Caption         =   "密码设置"
      End
      Begin VB.Menu resetStock 
         Caption         =   "清零"
         Shortcut        =   +{F5}
      End
      Begin VB.Menu line01 
         Caption         =   "-"
      End
      Begin VB.Menu registernumber 
         Caption         =   "软件注册"
      End
   End
   Begin VB.Menu exitSys 
      Caption         =   "【退出】"
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private myform As Form
Public Sub entercell()
 Dim x, y As String
    setForm
    If myform.mf1.CellWidth <= 0 Or myform.mf1.CellHeight <= 0 Then Exit Sub
    x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.col)
    y = myform.mf1.TextMatrix(myform.mf1.row, 0)
  If y <> "" Then
     If myform.mf1.col - myform.mf1.LeftCol <= 3 Then
        myform.mf1.LeftCol = myform.mf1.LeftCol + 1
     End If
     If myform.mf1.CellWidth > 0 And myform.mf1.CellHeight > 0 Then
        myform.text1.Width = myform.mf1.CellWidth
        myform.text1.Height = myform.mf1.CellHeight
        myform.text1.Left = myform.mf1.CellLeft + myform.mf1.Left
        myform.text1.Top = myform.mf1.CellTop + myform.mf1.Top
     End If
     x = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.col)
     y = myform.mf1.TextMatrix(myform.mf1.row, 0)
     p = myform.mf1.TextMatrix(myform.mf1.row, myform.mf1.col)
     myform.text1.Text = myform.mf1.Text
     myform.text1.SelStart = 0
     myform.text1.SelLength = Len(myform.text1.Text)
  End If
End Sub
Public Sub moveright()
setForm
 If myform.text1.Text <> "" Then
    myform.text1.SelStart = 0
    myform.text1.SelLength = Len(myform.text1.Text)
 End If
 If myform.mf1.col + 1 <= myform.mf1.cols - 1 Then
    myform.mf1.col = myform.mf1.col + 1
   Else
    If myform.mf1.row + 1 <= myform.mf1.rows - 1 Then
       myform.mf1.row = myform.mf1.row + 1
       myform.mf1.col = 1
    End If
 End If
End Sub
Public Sub moveleft()
setForm
If myform.text1.Text <> "" Then
   myform.text1.SelStart = 0
   myform.text1.SelLength = Len(myform.text1.Text)
 End If
 If myform.mf1.col - 11 <= myform.mf1.cols + 1 Then
    myform.mf1.col = myform.mf1.col - 1
    If myform.mf1.col = 0 Then myform.mf1.col = 1
   Else
    If myform.mf1.row + 1 <= myform.mf1.row - 1 Then
       myform.mf1.row = myform.mf1.row + 1
       myform.mf1.col = 1
    End If
 End If
End Sub
Public Sub movereturn()
setForm
If myform.mf1.col = 10 Then
    myform.mf1.row = myform.mf1.row + 1
    myform.mf1.col = 1
  Else
    If myform.mf1.col + 1 <= myform.mf1.cols - 1 Then
       myform.mf1.col = myform.mf1.col + 1
     Else
       If myform.mf1.row + 1 <= myform.mf1.rows - 1 Then
          myform.mf1.row = myform.mf1.row + 1
          myform.mf1.col = 1
       End If
    End If
 End If
End Sub

Private Sub backup_Click()
    backupData
End Sub
Private Sub backupData()
'    If MsgBox("真的要备份吗？" + vbCrLf + vbCrLf + "备份之前系统将断开与数据库的连接；" _
'      + vbCrLf + vbCrLf + "备份之后必须重新登陆系统才能正常使用其它模块。" + vbCrLf + vbCrLf _
'      + "为了安全起见，请将数据库备份在移动其它硬盘或者载体上。", vbYesNo + vbQuestion + vbDefaultButton2, "注意") = vbNo Then
    If MsgBox("真的要备份吗？", vbYesNo + vbQuestion + vbDefaultButton2, "提示") = vbNo Then
       Exit Sub
    End If
    On Error GoTo errprompt
    Me.MousePointer = 11
'    With Me.cmmDLgSave
'        .FileName = g_dbName
'        .Filter = "Microsoft Access(*.mdb)"    '"Excel文件(*.xls)|*.xls|HTML文档(*.html)|*.htm"
'        .DefaultExt = ".mdb"
'        .DialogTitle = "数据库备份"
'        .InitDir = App.Path
'        .Flags = cdlOFNOverwritePrompt
'        .ShowSave
'    End With
    Dim destFilePath As String
'    destFilePath = cmmDLgSave.FileName
    Dim strPath
    strPath = "C:\Program Files\HP\"
    If Dir(strPath, vbDirectory) = "" Then
      MkDir strPath
    End If
    destFilePath = strPath + "system" + CStr(Format(Now, "YYYYMMDDHHMMSS"))
    If destFilePath <> "" And g_dbPath <> destFilePath Then
        closeConnection
        FileCopy g_dbPath, destFilePath
        createConnection
        Me.MousePointer = 0
        MsgBox "恭喜您，数据备份成功!", vbInformation, "提示"
        Exit Sub
    Else
        MsgBox "无效的路径！", vbCritical, "警告"
    End If
        Me.MousePointer = 0
        Exit Sub
errprompt:
    Me.MousePointer = 0
    Select Case Err.Number
      Case 57
        MsgBox "磁盘已满！", vbCritical
      Case 70
        MsgBox "磁盘写保护！", vbCritical
    End Select
End Sub
Private Sub barcodeformat_Click()
    Load form_barcodeFormat
    form_barcodeFormat.Show
    frm_main.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    exitSys_Click
End Sub

Private Sub outEdit_Click()
  Load form_outBill
  form_outBill.Show
  frm_main.Enabled = False
End Sub

Private Sub outAdd_Click()     '调用出库单
  Load form_outAdd
  form_outAdd.Show
  frm_main.Enabled = False
End Sub

Private Sub material_Click()
  Load form_product
  form_product.Show
  frm_main.Enabled = False
End Sub

Private Sub Form_Load()
    '在标题栏上显示软件名称及版本
    'g_TestVersionMsg
     Dim strVersion As String
     strVersion = App.Title & " " & App.Major & g_TestVersionMsg
     Me.Caption = strVersion
'     Me.Icon = "\images\atelier.ico"
     Dim i As Integer     '定义一个整型变量
'   g_userGroup：－1表示管理员；0表示操作员；1表示税务员
     If g_userGroup = -1 Then
        showMenus True
    Else
        showMenus False
        If g_userGroup = 0 Then
            incomeAdd.Visible = True
            Toolbar1.Buttons("incomeAdd").Visible = True
            outAdd.Visible = True
            Toolbar1.Buttons("outAdd").Visible = True
            Me.resetStock.Visible = True
        End If
        If g_userGroup = 1 Then
            wastebook.Visible = True
            Toolbar1.Buttons("wastebook").Visible = True
        End If
    End If
    
    Me.Left = 0
    Me.Top = 0
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Me.WindowState = 2
    lblName.Caption = "欢迎使用" + App.Title
    lblName.Left = (Me.Width - lblName.Width) / 2
    lblName.Height = (Me.Height - lblName.Height) / 2
    lblBq.Left = (Me.Width - lblBq.Width) / 2
    StatusBar1.Panels(1).Width = 2 * Me.Width / 3
    StatusBar1.Panels(2).Width = Me.Width / 6
    StatusBar1.Panels(3).Width = Me.Width / 6
    StatusBar1.Panels(1).Text = "当前用户：" + g_userName
End Sub
Private Sub registernumber_Click()
    Load form_Register
    form_Register.Show
    frm_main.Enabled = False
End Sub

Private Sub incomeAdd_Click()     '调入入库单
  Load form_incomeAdd
  form_incomeAdd.Show
  frm_main.Enabled = False
End Sub

Private Sub resetStock_Click()
  Load form_resetStock
  form_resetStock.Show
  frm_main.Enabled = False
End Sub

Private Sub setCompanyName_Click()
  Load form_setCompany
  form_setCompany.Show
  frm_main.Enabled = False
End Sub

Private Sub setResetStockPwd_Click()
  Load form_setResetStockPwd
  form_setResetStockPwd.Show
  frm_main.Enabled = False
End Sub

Private Sub setRowHeight_Click()
  Load form_setRowHeight
  form_setRowHeight.Show
  frm_main.Enabled = False
End Sub
Private Sub stockQuery_Click()     '调入库存查询
  Load form_stockQuery
  form_stockQuery.Show
  frm_main.Enabled = False
End Sub
Private Sub incomeEdit_Click()     '调入入库查询
  Load form_incomeBill
  form_incomeBill.Show
  frm_main.Enabled = False
End Sub
Private Sub supplier_Click()     '调入供应商管理
  Load form_supplier
  form_supplier.Show
  frm_main.Enabled = False
End Sub
Private Sub customer_Click()     '调入客户管理
  Load form_customer
  form_customer.Show
  frm_main.Enabled = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
     Case Is = "incomeAdd"     '调用入库单
       incomeAdd_Click
     Case Is = "incomeEdit"     '调用入库查询
       incomeEdit_Click
     Case Is = "outAdd"     '调用出库单
       outAdd_Click
     Case Is = "outEdit"     '调用出库查询
       outEdit_Click
     Case Is = "stockQuery"     '调用库存查询
       stockQuery_Click
    Case Is = "wastebook"     '调用流水帐
       wastebook_Click
     Case Is = "supplier"     '调用供应商管理
       supplier_Click
     Case Is = "customer"     '调用客户管理
       customer_Click
     Case Is = "material"     '调用物料登记
       material_Click
     Case Is = "exitSys"     '调用退出
       exitSys_Click
     Case "wastebookSum"
        wastebookSum_Click
  End Select
End Sub
Private Sub exitSys_Click()
    If MsgBox("真的要退出系统吗？", vbYesNo + vbQuestion + vbDefaultButton2, "提示") = vbYes Then
        closeConnection
        End
    End If
End Sub

Private Sub setForm()
 If text1.Text = "1" Then Set myform = form_incomeAdd
 If text1.Text = "2" Then Set myform = form_incomeBill
 If text1.Text = "3" Then Set myform = form_outAdd
 If text1.Text = "4" Then Set myform = form_outBill
End Sub

Private Sub upgradeDB_Click()
'   ALTER TABLE hpos_StockOutBill_Master ALTER COLUMN rsvFld1 TEXT(255)
    Dim sql As String
    Dim conn As New ADODB.Connection
    '　　建立与数据库的链接，如果数据库没有口令，最后一行可以不写（写上也不会错）。
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "User ID=Admin;" & _
            "Data Source=" & g_dbPath
'   将出库单中的入库单号码加长到255字节
    sql = " ALTER TABLE hpos_StockOutBill_Master ALTER COLUMN rsvFld1 TEXT(255)  "
    conn.BeginTrans
    conn.Execute sql
'   先删除视图
    conn.Execute "drop view V_currentStock"
'   创建视图
    sql = "creat view  V_currentStock as (SELECT store,productId,productCode,productName,productSpecs,productModel,productUnit,productStd,Sum(qty*pieceQty-outQty*outPieceQty) AS netWeight,Sum(qty*price-outqty*outPrice) AS netWeightAmt,Sum(pieceQty-outPieceQty) AS pQty,Sum(axesWeight-outaxesWeight) AS axesTtlWeight FROM V_hpos_StockWasteBook GROUP BY store,productId,productCode,productName,productSpecs,productModel,productUnit,productStd) "
'    sql = "INSERT INTO  V_currentStock as (SELECT store,productId,productCode,productName,productSpecs,productModel,productUnit,productStd,Sum(qty*pieceQty-outQty*outPieceQty) AS netWeight,Sum(qty*price-outqty*outPrice) AS netWeightAmt,Sum(pieceQty-outPieceQty) AS pQty,Sum(axesWeight-outaxesWeight) AS axesTtlWeight FROM V_hpos_StockWasteBook GROUP BY store,productId,productCode,productName,productSpecs,productModel,productUnit,productStd) "
'    sql = "creat view  V_currentStock as SELECT * from V_hpos_StockWasteBook "
    conn.Execute sql
    conn.CommitTrans
End Sub

Private Sub usermanage_Click()
    Load form_user
    form_user.Show
'    Load frm_user
'    frm_user.Show
    frm_main.Enabled = False
End Sub

Private Sub wastebook_Click()
    Load form_wasteBook
    form_wasteBook.Show
    frm_main.Enabled = False
End Sub

Private Sub showMenus(bflag As Boolean)
        incomeBill.Visible = bflag
        outBill.Visible = bflag

        incomeAdd.Visible = bflag
        Toolbar1.Buttons("incomeAdd").Visible = bflag
        outAdd.Visible = bflag
        Toolbar1.Buttons("outAdd").Visible = bflag
            
        incomeEdit.Visible = bflag
        Toolbar1.Buttons("incomeEdit").Visible = bflag
        outEdit.Visible = bflag
        Toolbar1.Buttons("outEdit").Visible = bflag
        stockQuery.Visible = bflag
        Toolbar1.Buttons("stockQuery").Visible = bflag
        wastebook.Visible = bflag
        Toolbar1.Buttons("wastebook").Visible = bflag
        
        wastebookSum.Visible = bflag
        Toolbar1.Buttons("wastebookSum").Visible = bflag
        
        material.Visible = bflag
        Toolbar1.Buttons("material").Visible = bflag
        supplier.Visible = bflag
        Toolbar1.Buttons("supplier").Visible = bflag
        customer.Visible = bflag
        Toolbar1.Buttons("customer").Visible = bflag
        barcodeformat.Visible = bflag
'        Toolbar1.Buttons("barcodeformat").Visible = bFlag
        registernumber.Visible = bflag
'        Toolbar1.Buttons("registernumber").Visible = bFlag
        
        reportQuery.Visible = bflag
        baseMng.Visible = bflag
        sysSetting.Visible = bflag
        backup.Visible = bflag
        
        exitSys.Visible = bflag
        resetStock.Visible = False  ' bFlag
        setResetStockPwd.Visible = bflag
        setCompanyName.Visible = bflag
        setRowHeight.Visible = bflag
'        Toolbar1.Buttons("exitSys").Visible = bFlag
        Me.upgradeDB.Visible = False
End Sub

Private Sub wastebookSum_Click()
    Load form_wasteBookSum
    form_wasteBookSum.Show
    frm_main.Enabled = False
End Sub