?? frm_main.frm
字號:
End If
Case "gysxx" '供應商信息
If GYSXXWH.Enabled = True Then
GYSXXWH_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
'商品入庫管理
Case "ruku" '商品入庫
If HPRKGL.Enabled = True Then
HPRKGL_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "rkcx" '入庫查詢
If RKXXCX.Enabled = True Then
RKXXCX_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
'商品庫存管理
Case "spjc" '商品借出
If HPJC.Enabled = True Then
HPJC_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "spjccx" '商品借出查詢
If HPJCCX.Enabled = True Then
HPJCCX_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "spgh" '商品歸還
If HPGH.Enabled = True Then
HPGH_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "spghcx" '商品歸還查詢
If HPGHCX.Enabled = True Then
HPGHCX_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "sppd" '商品盤點
If HPPDGL.Enabled = True Then
HPPDGL_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "kccx" '庫存查詢
If KCXXCX.Enabled = True Then
KCXXCX_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
'商品銷售管理
Case "spxs" '商品銷售
If HPCKGL.Enabled = True Then
HPCKGL_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "xscx" '銷售查詢
If CKXXCX.Enabled = True Then
CKXXCX_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
'數據統計與報表
Case "day" '出入庫商品日統計
If CRKXXRTJ.Enabled = True Then
CRKXXRTJ_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "year" '出入庫現金年統計
If CRKNTJ.Enabled = True Then
CRKNTJ_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "ckbb" '出庫報表
If PRINTOUT.Enabled = True Then
PRINTOUT_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "kcbb" '庫存報表
If PRINTKC.Enabled = True Then
PRINTKC_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
'系統維護
Case "mmxg" '密碼修改
If MMXG.Enabled = True Then
MMXG_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "czyqx" '操作員權限
If CZYQXSZ.Enabled = True Then
CZYQXSZ_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "sjbf" '數據備份
If SJBF.Enabled = True Then
SJBF_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "sjhf" '數據恢復
If SJHF.Enabled = True Then
SJHF_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "sjql" '數據清理
If SJQL.Enabled = True Then
SJQL_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "ckrz" '查看日志
If CKRZ.Enabled = True Then
CKRZ_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "rzql" '日志清理
If RZQL.Enabled = True Then
RZQL_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "czy" '操作員管理
If CZYXXWH.Enabled = True Then
CZYXXWH_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
End Select
End Sub
Private Sub Form_Load()
'使用API函數來設置窗體展開形式
outspread = AnimateWindow(Me.hwnd, 1000, 16)
Me.Refresh
StatusBar1.Panels(3).Text = Format(Date, " yyyy年mm月dd日")
Flash1.Movie = App.Path & "\image\swf\0.swf"
Call QuanXian '調用權限過程
End Sub
Private Sub QuanXian()
CKSZ.Enabled = bQx(1) '倉庫管理
QCKCSZ.Enabled = bQx(2) '期初庫存設置
HPRKGL.Enabled = bQx(3) '商品入庫
HPCKGL.Enabled = bQx(4) '商品銷售
HPPDGL.Enabled = bQx(5) '商品盤點
RKXXCX.Enabled = bQx(6) '入庫查詢
CKXXCX.Enabled = bQx(7) '銷售查詢
KCXXCX.Enabled = bQx(8) '庫存查詢
CRKXXRTJ.Enabled = bQx(9) '出入庫統計
CRKNTJ.Enabled = bQx(9) '出入庫統計
PRINTOUT.Enabled = bQx(10) '出庫報表
PRINTKC.Enabled = bQx(11) '庫存報表
CZYXXWH.Enabled = bQx(12) '操作員管理
MMXG.Enabled = bQx(13) '密碼修改
CZYQXSZ.Enabled = bQx(14) '操作權限管理
SJBF.Enabled = bQx(15) '數據備份
SJHF.Enabled = bQx(16) '數據回復
SJQL.Enabled = bQx(17) '數據清理
RZQL.Enabled = bQx(18) '日志清理
HPJC.Enabled = bQx(19) '商品借出
HPGH.Enabled = bQx(20) '商品歸還
GYSXXWH.Enabled = bQx(21) '供應商管理
HPJCCX.Enabled = bQx(22) '商品借出查詢
HPGHCX.Enabled = bQx(23) '商品歸還查詢
CKRZ.Enabled = bQx(24) '查詢日志
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
For i = 0 To Lbl_info.UBound
Lbl_info(i).ForeColor = vbBlack
Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
'添加退出系統日志
Open (App.Path & "\系統日志.ini") For Input As #1 '首先讀取文件中的信息
Do While Not EOF(1)
Line Input #1, Intext
TStr = TStr + Intext + Chr(13) + Chr(10) '將讀取的信息保存到變量中
Loop
Close #1
'改變變量的值
TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "退出系統" + Chr(13) + Chr(10)
Open (App.Path & "\系統日志.ini") For Output As #1 '將添加日志后的信息重新保存到文件當中
Print #1, TStr
Close #1
End Sub
Private Sub GYSXXWH_Click()
frm_gys.Show '顯示供應商信息窗體
Me.Enabled = False
End Sub
Private Sub HPCKGL_Click()
frm_out.Show '顯示貨品出庫信息窗體
StrNums = 0 '出庫標識，用于標識調用庫存檢索窗體
Me.Enabled = False
End Sub
Private Sub HPGH_Click()
frm_hpin.Show '顯示貨品歸還窗體
Me.Enabled = False
End Sub
Private Sub HPGHCX_Click()
frm_HpghQuery.Show '顯示貨品歸還查詢窗體
Me.Enabled = False
End Sub
Private Sub HPJC_Click()
StrNums = 2 '貨品借出標識，用于標識調用庫存檢索窗體
frm_hpout.Show '顯示貨品借出窗體
Me.Enabled = False
End Sub
Private Sub HPJCCX_Click()
frm_HpjcQuery.Show '顯示貨品借出查詢窗體
Me.Enabled = False
End Sub
Private Sub HPPDGL_Click()
frm_kcpd.Show '顯示庫存盤點信息窗體
StrNums = 1 '出庫標識，用于標識調用庫存檢索窗體
Me.Enabled = False
End Sub
Private Sub HPRKGL_Click()
frm_in.Show '顯示貨品入庫信息窗體
Me.Enabled = False
End Sub
Private Sub KCXXCX_Click()
frm_KCQuery.Show '顯示庫存查詢信息窗體
Me.Enabled = False
End Sub
Private Sub Lbl_info_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Lbl_info(Index).ForeColor = RGB(255, 0, 0)
Flash1.Movie = App.Path & "\image\swf\" & Index & ".swf"
End Sub
Private Sub MMXG_Click()
frm_Edit_Password.Show '顯示修改密碼窗體
Me.Enabled = False
End Sub
Private Sub PRINTKC_Click()
Data_kc.Show '顯示庫存信息報表
Me.Enabled = False
End Sub
Private Sub PRINTOUT_Click()
Data_out.Show '顯示出庫信息報表
Me.Enabled = False
End Sub
Private Sub QCKCSZ_Click()
frm_qckc.Show '顯示期初庫存設置窗體
Me.Enabled = False
End Sub
Private Sub RKXXCX_Click()
frm_InQuery.Show '顯示貨品入庫信息查詢窗體
Me.Enabled = False
End Sub
Private Sub RZQL_Click() '進行日志清理操作
Dim del
Dim temp1 As String
On Error Resume Next '錯誤處理語句
del = MsgBox("確認要清除進銷存管理系統的日志信息嗎?", vbQuestion)
If del = vbOK Then
Kill (App.Path & "\系統日志.ini")
Open (App.Path & "\系統日志.ini") For Output As #1
temp1 = " 操作員姓名 日期時間 操作類型"
Print #1, temp1
Print #1,
Close #1
MsgBox "日志清理成功完成!!", vbInformation
Else
End If
End Sub
Private Sub SJBF_Click()
Shell App.Path & "\數據庫備份與恢復.exe", vbNormalFocus
End
End Sub
Private Sub SJHF_Click()
Shell App.Path & "\數據庫備份與恢復.exe", vbNormalFocus
End
End Sub
Private Sub SJQL_Click() '進行數據清理操作
frm_sfyz.Show
Me.Enabled = False
End Sub
Private Sub TCXT_Click() '退出系統操作
'添加退出系統日志
Dim c
c = MsgBox("您確認要退出進銷存管理系統嗎?", 33)
If c = vbOK Then
Open (App.Path & "\系統日志.ini") For Input As #1
Do While Not EOF(1)
Line Input #1, Intext
TStr = TStr + Intext + Chr(13) + Chr(10)
Loop
Close #1
TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "退出系統" + Chr(13) + Chr(10)
Open (App.Path & "\系統日志.ini") For Output As #1
Print #1, TStr
Close #1
End
Else
rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '運用API函數SetWindowPos，來實現取消窗體置前的功能
End If
End Sub
'在窗體的狀態欄中顯示當前系統的日期時間
Private Sub Timer1_Timer()
StatusBar1.Panels(4).Text = Format(Now, " hh點mm分ss秒")
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -