?? frmmain.frm
字號:
DataEnvironment1.deMain.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End Sub
Private Sub Form_Resize()
lvw.Left = 20 ' 80
lvw.Width = Me.ScaleWidth - 40 ' 160
lvw.Height = Me.ScaleHeight - tlb.Height - stb.Height - 40 ' 160
lvw.Top = tlb.Height + 20 ' 80
Me.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("是否真的退出？", vbQuestion + vbYesNo, "進(jìn)銷存系統(tǒng)") = vbYes Then
End
Else
Cancel = -1
End If
End Sub
Private Sub lvw_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If lvw.HitTest(x, y) Is Nothing Then
mnuOperate_Scjl.Enabled = False
tlb.Buttons(9).Enabled = False
Else
mnuOperate_Scjl.Enabled = True
tlb.Buttons(9).Enabled = True
End If
End Sub
Private Sub mnuAbout_Click()
frmAbout.Show vbModal
End Sub
Private Sub mnuConfig_xtpz_Click()
frmConfig.Show vbModal
End Sub
Private Sub mnuOperate_Exit_Click()
If MsgBox("是否真的退出？", vbQuestion + vbYesNo, "進(jìn)銷存系統(tǒng)") = vbYes Then
End
End If
End Sub
Private Sub mnuOperate_Jhdj_Click()
frmRegJH.Show vbModal
End Sub
Private Sub mnuOperate_Preview_Click()
Select Case btnindex
Case 4:
xsqkDataReport.Show 1
Case 5:
kcqkDataReport.Show 1
Case 6:
allDataReport.Show 1
End Select
End Sub
Private Sub mnuOperate_Print_Click()
Select Case btnindex
Case 4:
xsqkDataReport.PrintForm
xsqkDataReport.PrintReport
Case 5:
kcqkDataReport.PrintForm
kcqkDataReport.PrintReport
Case 6:
allDataReport.PrintForm
allDataReport.PrintReport
End Select
End Sub
Private Sub mnuOperate_Scjl_Click()
Dim strTmp As String
If MsgBox("是否確定要刪除？", vbQuestion + vbYesNo, "進(jìn)銷存系統(tǒng)") = vbYes Then
With rstMain
If rstMain.State = adStateOpen Then .Close
Select Case intViewTag
Case 1 '刪除銷售記錄
.Open "select * from xsxx where xsxx_key =" & Mid(lvw.SelectedItem.Key, 5, Len(lvw.SelectedItem.Key) - 4)
If Not .BOF Or Not .EOF Then
.Delete
.Update
End If
Case 2 '刪除庫存記錄
.Open "select * from spxx where spxx_key=" & Mid(lvw.SelectedItem.Key, 5, Len(lvw.SelectedItem.Key) - 4)
If Not .BOF Or Not .EOF Then
.Delete
.Update
End If
Case 3 '在總庫中刪除記錄
.Open "select * from spxx where spxx_key=" & Mid(lvw.SelectedItem.Key, 5, Len(lvw.SelectedItem.Key) - 4)
If Not .BOF Or Not .EOF Then
strTmp = !hh & ""
.Delete
.Update
End If
.Close
.Open "select * from xsxx where hh='" & strTmp & "'"
If Not .BOF Then .MoveFirst
While Not .EOF
.Delete
.Update
.MoveNext
Wend
.Close
End Select
lvw.ListItems.Remove lvw.SelectedItem.Index
.Close
End With
mnuOperate_Scjl.Enabled = False
tlb.Buttons(9).Enabled = False
End If
End Sub
Private Sub mnuOperate_Xsdj_Click()
frmRegXS.Show vbModal
End Sub
Private Sub mnuOperate_Zxdl_Click()
Me.Hide
frmLogin.Show vbModal
End Sub
Private Sub mnuSearch_Hh_Click()
frmSearch.optSer(0).Value = True
frmSearch.Show vbModal
End Sub
Private Sub mnuSearch_Jhrq_Click()
frmSearch.optSer(1).Value = True
frmSearch.Show vbModal
End Sub
Private Sub mnuSearch_Xsrq_Click()
frmSearch.optSer(2).Value = True
frmSearch.Show vbModal
End Sub
Private Sub mnuView_Ckkcjl_Click()
Dim clmX 'As ColumnHeader
Dim itmX 'As ListItem
intViewTag = 2
lvw.ColumnHeaders.Clear
Set clmX = lvw.ColumnHeaders.Add(, , "貨 號", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "商品代碼", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "商品名稱", 2500)
Set clmX = lvw.ColumnHeaders.Add(, , "進(jìn)貨日期", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "進(jìn)貨單價", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "商品數(shù)量", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "銷售數(shù)量", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "庫存數(shù)量", 1200)
If mnuView_Ckkcjl.Checked = True Then Exit Sub
mnuView_Ckxsjl.Checked = False
mnuView_Ckkcjl.Checked = True
mnuView_Cksyjl.Checked = False
tlb.Buttons(5).Value = tbrPressed
lvw.ListItems.Clear
With rstMain
If .State = adStateOpen Then .Close
.Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key and spxx.kcsl>0"
If Not .BOF Then .MoveFirst
While Not .EOF
Set itmX = lvw.ListItems.Add(, "spxx" & CStr(!spxx_key), !hh & "")
itmX.SubItems(1) = !spdm & ""
itmX.SubItems(2) = !spmc & ""
itmX.SubItems(3) = !jhrq & ""
itmX.SubItems(4) = !jhdj & ""
itmX.SubItems(5) = !jhsl & ""
itmX.SubItems(6) = !xssl & ""
itmX.SubItems(7) = !kcsl & ""
.MoveNext
Wend
.Close
End With
End Sub
Private Sub mnuView_Cksyjl_Click()
Dim clmX 'As ColumnHeader
Dim itmX 'As ListItem
intViewTag = 3
lvw.ColumnHeaders.Clear
Set clmX = lvw.ColumnHeaders.Add(, , "貨 號", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "商品代碼", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "商品名稱", 2500)
Set clmX = lvw.ColumnHeaders.Add(, , "進(jìn)貨日期", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "進(jìn)貨單價", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "進(jìn)貨數(shù)量", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "銷售數(shù)量", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "庫存數(shù)量", 1200)
If mnuView_Cksyjl.Checked = True Then Exit Sub
mnuView_Ckxsjl.Checked = False
mnuView_Ckkcjl.Checked = False
mnuView_Cksyjl.Checked = True
tlb.Buttons(6).Value = tbrPressed
lvw.ListItems.Clear
With rstMain
If .State = adStateOpen Then .Close
.Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key"
If Not .BOF Then .MoveFirst
While Not .EOF
Set itmX = lvw.ListItems.Add(, "spxx" & CStr(!spxx_key), !hh & "")
itmX.SubItems(1) = !spdm & ""
itmX.SubItems(2) = !spmc & ""
itmX.SubItems(3) = !jhrq & ""
itmX.SubItems(4) = !jhdj & ""
itmX.SubItems(5) = !jhsl & ""
itmX.SubItems(6) = !xssl & ""
itmX.SubItems(7) = !kcsl & ""
.MoveNext
Wend
.Close
End With
End Sub
Private Sub mnuView_Ckxsjl_Click()
Dim clmX 'As ColumnHeader
Dim itmX 'As ListItem
intViewTag = 1
lvw.ColumnHeaders.Clear
Set clmX = lvw.ColumnHeaders.Add(, , "貨 號", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "商品代碼", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "商品名稱", 2500)
Set clmX = lvw.ColumnHeaders.Add(, , "銷售日期", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "銷售單價", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "銷售數(shù)量", 1200)
Set clmX = lvw.ColumnHeaders.Add(, , "客戶名稱", 1200)
If mnuView_Ckxsjl.Checked = True Then Exit Sub
mnuView_Ckxsjl.Checked = True
mnuView_Ckkcjl.Checked = False
mnuView_Cksyjl.Checked = False
tlb.Buttons(4).Value = tbrPressed
lvw.ListItems.Clear
With rstMain
If .State = adStateOpen Then .Close
.Open "select spzd.spdm,spzd.spmc,xsxx.* from spzd,spxx,xsxx where spzd.spzd_key=spxx.spzd_key and spxx.hh=xsxx.hh"
If Not .BOF Then .MoveFirst
While Not .EOF
Set itmX = lvw.ListItems.Add(, "xsxx" & CStr(!xsxx_key), !hh & "")
itmX.SubItems(1) = !spdm & ""
itmX.SubItems(2) = !spmc & ""
itmX.SubItems(3) = !xsrq & ""
itmX.SubItems(4) = !xsdj & ""
itmX.SubItems(5) = !xssl & ""
itmX.SubItems(6) = !khmc & ""
.MoveNext
Wend
.Close
End With
End Sub
Private Sub tlb_ButtonClick(ByVal Button As ComctlLib.Button)
Dim itmX
Select Case Button.Caption
Case "進(jìn)貨"
mnuOperate_Jhdj_Click
Case "銷售"
mnuOperate_Xsdj_Click
Case "銷售查看"
btnindex = 4
mnuView_Ckxsjl_Click
Case "庫存查看"
btnindex = 5
mnuView_Ckkcjl_Click
Case "所有"
btnindex = 6
mnuView_Cksyjl_Click
Case "刷新"
If intViewTag = 1 Then
lvw.ListItems.Clear
With rstMain
If .State = adStateOpen Then .Close
.Open "select spzd.spdm,spzd.spmc,xsxx.* from spzd,spxx,xsxx where spzd.spzd_key=spxx.spzd_key and spxx.hh=xsxx.hh"
If Not .BOF Then .MoveFirst
While Not .EOF
Set itmX = lvw.ListItems.Add(, "xsxx" & CStr(!xsxx_key), !hh & "")
itmX.SubItems(1) = !spdm & ""
itmX.SubItems(2) = !spmc & ""
itmX.SubItems(3) = !xsrq & ""
itmX.SubItems(4) = !xsdj & ""
itmX.SubItems(5) = !xssl & ""
itmX.SubItems(6) = !khmc & ""
.MoveNext
Wend
.Close
End With
ElseIf intViewTag = 2 Then
lvw.ListItems.Clear
With rstMain
If .State = adStateOpen Then .Close
.Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key and spxx.kcsl>0"
If Not .BOF Then .MoveFirst
While Not .EOF
Set itmX = lvw.ListItems.Add(, "spxx" & CStr(!spxx_key), !hh & "")
itmX.SubItems(1) = !spdm & ""
itmX.SubItems(2) = !spmc & ""
itmX.SubItems(3) = !jhrq & ""
itmX.SubItems(4) = !jhdj & ""
itmX.SubItems(5) = !jhsl & ""
itmX.SubItems(6) = !xssl & ""
itmX.SubItems(7) = !kcsl & ""
.MoveNext
Wend
.Close
End With
ElseIf intViewTag = 3 Then
lvw.ListItems.Clear
With rstMain
If .State = adStateOpen Then .Close
.Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key"
If Not .BOF Then .MoveFirst
While Not .EOF
Set itmX = lvw.ListItems.Add(, "spxx" & CStr(!spxx_key), !hh & "")
itmX.SubItems(1) = !spdm & ""
itmX.SubItems(2) = !spmc & ""
itmX.SubItems(3) = !jhrq & ""
itmX.SubItems(4) = !jhdj & ""
itmX.SubItems(5) = !jhsl & ""
itmX.SubItems(6) = !xssl & ""
itmX.SubItems(7) = !kcsl & ""
.MoveNext
Wend
.Close
End With
End If
Case "刪除"
mnuOperate_Scjl_Click
Case "查詢"
frmSearch.Show vbModal
Case "設(shè)置"
mnuConfig_xtpz_Click
Case "退出"
mnuOperate_Exit_Click
End Select
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -