【導(dǎo)讀】庫和領(lǐng)用進(jìn)行規(guī)范化管理，進(jìn)而提高工作效率，避免資源的浪費(fèi)。此系統(tǒng)根據(jù)單位的辦。公用品的購買，入庫，領(lǐng)用流程而設(shè)計的，特別適用于分批次購買，各部門領(lǐng)用的模式，具有完善的輸入，統(tǒng)計，查詢功能。這樣就更可以合理規(guī)范對企業(yè)辦公用品的管理.當(dāng)今時代是飛速發(fā)展的信息時代。各行各業(yè)都離不開信息處理。辦公室作為一種信

　　

【正文】 編號 =39。 amp。 Trim((intCount, 1)) amp。 39。 ExeSQL (txtsql) MsgBox 記錄刪除成功 !, vbInformation, 系統(tǒng)提示 Call showdata End If End If 進(jìn)貨信息查詢模塊代碼 實(shí)現(xiàn)【查詢】功能的代碼 ： Private Sub cmdSearch_Click() Dim MyDate As Date Dim sql As String Dim startdate As String Dim enddate As String startdate = Year() amp。 / amp。 Month() amp。 / amp。 Day() amp。 00:00:01 enddate = Year() amp。 / amp。 Month() amp。 / amp。 Day() amp。 23:59:59 第 53 頁 sqlFindJH = select 進(jìn)貨表 .進(jìn)貨編號 ,供應(yīng)商表 .供應(yīng)商名稱 as 供應(yīng)商名稱 ,商品表 .商品名稱 ,進(jìn)貨表 .結(jié)賬方式 , sqlFindJH = sqlFindJH amp。 進(jìn)貨表 .單價 ,進(jìn)貨表 .數(shù)量 ,進(jìn)貨表 .總額 ,進(jìn)貨表 .日期 ,進(jìn)貨表 .備注 sqlFindJH = sqlFindJH amp。 from 進(jìn)貨表 ,供應(yīng)商表 ,商品表 sqlFindJH = sqlFindJH amp。 where 進(jìn)貨表 .供應(yīng)商編號 =供應(yīng)商表 .供應(yīng)商編號 and 進(jìn)貨表 .商品編號 =商品表 .商品編號 and 進(jìn)貨表 .日期 Between amp。 startdate amp。 And amp。 enddate amp。 sqlFindJH = sqlFindJH amp。 order by 進(jìn)貨表 .ID = ConnStr = adCmdText = sqlFindJH If Then MsgBox 沒有查詢到相關(guān)記錄，請重試 !, vbInformation + vbOKOnly, 系統(tǒng)提示 Exit Sub End If Set myRst = End Sub 第 54 頁 實(shí)現(xiàn)【分類匯總】功能的代碼 ： Private Sub Command1_Click() Dim MyDate As Date Dim sql As String Dim startdate As String Dim enddate As String startdate = Year() amp。 / amp。 Month() amp。 / amp。 Day() amp。 00:00:01 enddate = Year() amp。 / amp。 Month() amp。 / amp。 Day() amp。 23:59:59 sqlFindJH = select 進(jìn)貨表 .商品編號 ,商品表 .商品名稱 ,sum(進(jìn)貨表 .數(shù)量 ) as 進(jìn)貨數(shù)量 ,sum(進(jìn)貨表 .總額 ) as 進(jìn)貨總額 from 進(jìn)貨表 ,商品表 sqlFindJH = sqlFindJH amp。 where 進(jìn)貨表 .商品編號 =商品表 .商品編號 and 進(jìn)貨表 .日期 Between amp。 startdate amp。 And amp。 enddate amp。 sqlFindJH = sqlFindJH amp。 group by 進(jìn)貨表 .商品編號 ,商品表 .商品名稱 = ConnStr = adCmdText = sqlFindJH If Then 第 55 頁 MsgBox 沒有查詢到相關(guān)記錄，請重試 !, vbInformation + vbOKOnly, 系統(tǒng)提示 Exit Sub End If End Sub 員工管理模塊的代碼 實(shí)現(xiàn)【修改】功能的代碼 ： Private Sub Command4_Click() Dim intCount As Integer Dim txtsql As String If 1 Then intCount = If intCount 0 Then txtsql = select * from 員工表 where 用 戶 編 號 =39。 amp。 Trim((intCount, 1)) amp。 39。 khEdit = 1 Load frmkh (txtsql) 1, frmkhinfo 第 56 頁 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的紀(jì)錄！ End If End If End Sub 實(shí)現(xiàn)【刪除】功能的 代碼 ： Private Sub Command5_Click() 39。刪除客戶記錄 Dim txtsql As String Dim intCount As Integer Dim MsgText As String If 1 Then If MsgBox(確認(rèn)要刪除客戶編號為 amp。 Trim((, 1)) amp。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then intCount = amp。 txtsql = delete from 員 工 表 where 用 戶 編 號 =39。 amp。 Trim((intCount, 1)) amp。 39。 ExeSQL (txtsql) MsgBox 記錄刪除成功 !, vbInformation, 系統(tǒng)提示 Call showdata 第 57 頁 End If End If End Sub 供應(yīng)商信息管理模塊的代碼 實(shí)現(xiàn)【添加】功能的代碼 ： Private Sub Command1_Click() Load frmgys 1, frmgysinfo End Sub 實(shí)現(xiàn)【修改】功能的代碼 ： Private Sub Command2_Click() Dim intCount As Integer Dim txtsql As String If 1 Then intCount = If intCount 0 Then txtsql = select * from 供 應(yīng) 商 表 where 供 應(yīng) 商 編 號 =39。 amp。 Trim((intCount, 1)) amp。 39。 Load frmgys (txtsql) 第 58 頁 1, frmgysinfo Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的紀(jì)錄！ End If End If End Sub 實(shí)現(xiàn)【刪除】功能的代碼 ： Private Sub Command3_Click() Dim txtsql As String Dim intCount As Integer Dim MsgText As String If 1 Then If MsgBox(確認(rèn)要刪除編號為 amp。 Trim((, 1)) amp。 的供應(yīng)商記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then intCount = txtsql = delete from 供 應(yīng) 商 表 where 供 應(yīng) 商 編 號 =39。 amp。 Trim((intCount, 1)) amp。 39。 ExeSQL (txtsql) MsgBox 記錄刪除成功 !, vbInformation, 系統(tǒng)提示 Call showdata 第 59 頁 End If End If End Sub t g K Q cW A 3P t G Z7 R 4I 3 0k A 1 D ka G h n3 X t Kk n B Y C U D xq A 7 F H Yi 2 C H hI 92 t g K Q cW A 3 Pt G sh L s5 0c Lm T W N6 0 eo 8W g qv 7 X A v2 O H U m 3 2W G e a U w Y DI A W GM eR 4 I 3 0 k A1 D k a Gh n 3 Xt K kn B Y C U D x q A7 F H Y i 2 C H hI 9 2t g K Qc W A3 Pt G Z 7 R4 I 30 k A 1 Dk a Gt g K Q cW A 3P t G Z7 R 4I 3 0k A 1 D ka G h n3 X t Kk n B Y C U D xq A 7 F H Yi 2 C H hI 92 t g K Q cW A 3 Pt Gs h L s5 0c Lm T W N6 0 eo 8W g qv 7 X A v2 O H U m 3 2W G e a U w Y DI A W GMe R 4 I 3 0 k A1 D k a Gh n 3 Xt K kn B Y C U D x q A7 F H Y i 2 C H hI 9 2t g K QcW A 3 Pt G Z 7 R4 I 30 k A 1 Dk a Gt g K Q cW A 3P t GZ 7 R 4I 3 0k A 1 D ka G h n3 X t Kk n B Y C U D xq A 7 F H Yi 2 C H hI 92 t g K Q cWA 3P t Gs h Ls 5 0c Lm T W N6 0 eo 8W g qv 7 X A v2 O H U m 3 2W G ea U w Y D I AW G e R 4I 30 k A 1 Dk a G hn 3 Xt K k n B Y C U D xq A 7 F H Yi 2 C Hh I 9 2t g K Q cW A 3P t G Z7 R 4I 3 0k A 1 D ka G t g K Q cW A 3 Pt G Z 7 R4 I 3 0 k A1 D k a Gh n 3 Xt K k nB Y C U D x q A 7F H Y i 2 C H hI 9 2t g K Qc W A3 Pt G s hL s 50 c Lm TW N 6 0e o8 W gq v 7 X Av 2 O H Um 3 2W G ea U w Y D I AW GM e R 4I 30 k A 1 Dk a G hn 3 Xt K k n B Y C U D xq A 7 F H Yi 2 C Hh I 9 2t g K Q cW A 3P t G Z7 R 4I 3 0k A 1 D ka G t g K Q cW A 3 Pt G Z 7 R4 I 3 0 k A1 D k a Gh n 3 Xt K kn B Y C U D x q A 7F H Y i 2 C H hI 9 2t g K Qc W A3 Pt G s hL s 50 c Lm TW N 6 0e o8 W gq v 7 X Av 2 O H Um 32 W G ea U w Y D I AW GM e R 4I 30 k A 1DkaGhn3 X t Kk n B Y C U D xq A 7 F H Yi 2 C H hI 92 t g K Q cW A 3 Pt G Z 7 R4 I 3 0 k A1