main.frm

明珠大厦相机组库存管理系统

VERSION 5.00
Begin VB.Form main 
   Caption         =   "进出库管理统计系统"
   ClientHeight    =   3075
   ClientLeft      =   165
   ClientTop       =   870
   ClientWidth     =   7140
   LinkTopic       =   "Form1"
   ScaleHeight     =   3075
   ScaleWidth      =   7140
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu in 
      Caption         =   "进库"
      Begin VB.Menu ruku 
         Caption         =   "商品入库"
      End
      Begin VB.Menu chanpinxiugai 
         Caption         =   "库内商品修改"
      End
   End
   Begin VB.Menu out 
      Caption         =   "出库"
      Begin VB.Menu chuku 
         Caption         =   "商品出库"
         Index           =   2
      End
      Begin VB.Menu sellz 
         Caption         =   "出库记录修改"
      End
   End
   Begin VB.Menu tongji 
      Caption         =   "统计"
      Begin VB.Menu tongji1 
         Caption         =   "统计"
      End
      Begin VB.Menu tongji2 
         Caption         =   "统计报表"
      End
   End
   Begin VB.Menu setup 
      Caption         =   "设置"
      Begin VB.Menu leibiexiugai 
         Caption         =   "商品类别修改"
      End
   End
   Begin VB.Menu about 
      Caption         =   "关于"
   End
   Begin VB.Menu exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
ahelp.Show vbModal

End Sub

Private Sub chanpinxiugai_Click()
chanpin.Show vbModal
End Sub

Private Sub chuku_Click(Index As Integer)
outz.Show vbModal
End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub Form_Paint()
       Dim lY As Long
       Dim lScaleHeight As Long
       Dim lScaleWidth As Long
       ScaleMode = vbPixels
       lScaleHeight = ScaleHeight
       lScaleWidth = ScaleWidth
       DrawStyle = vbInvisible
       FillStyle = vbFSSolid
       For lY = 0 To lScaleHeight
           FillColor = RGB(102, 204 - (lY * 150) \ lScaleHeight, 255)
           Line (-1, lY - 1)-(lScaleWidth, lY + 1), , B
       Next lY
   End Sub

Private Sub leibiexiugai_Click()
leibie.Show vbModal
End Sub



Private Sub ruku_Click()
inz.Show vbModal
End Sub

Private Sub sellz_Click()
chukuxiugai.Show vbModal
End Sub

Private Sub tongji1_Click()





Dim xlsss As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlChar As New Excel.Chart
Dim xlSheet As New Excel.Worksheet


Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlsss = App.Path & "\biao.xls"

Set xlBook = xlApp.Workbooks.Open("" & xlsss & "")
Set xlSheet = xlBook.Worksheets(1)


Range("A1:A2").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Range("B1:B2").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Range("A1:A2").Select
    ActiveCell.FormulaR1C1 = "日期"
    Range("B1:B2").Select
    ActiveCell.FormulaR1C1 = "品名"
    Range("C1:E1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Range("C1:E1").Select
    ActiveCell.FormulaR1C1 = "现库存"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "数量"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "单价"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "金额"
    Range("A1:E3").Select
    Range("C1").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ActiveWorkbook.Save
    xlApp.Visible = True








End Sub