倉(cāng)庫(kù)管理系統(tǒng)(vbaccess源代碼(編輯修改稿)

　

【文章內(nèi)容簡(jiǎn)介】 ext = n Call InitGrid2End SubPrivate Sub JCRCX_Click() = 借出信息 Dim JCR As String Dim n As String JCR = InputBox(借出人, 請(qǐng)輸入, 0) n = select * from 借出表 where 借出人 = 39。 amp。 JCR amp。 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JCSHJCX_Click() = 借出信息 Dim JCRQ As String Dim n As String JCRQ = InputBox(借出日期，格式為：月/日/年 如：12/1/2011, 請(qǐng)輸入, 0) n = select * from 借出表 where 借出日期 = 39。 amp。 JCRQ amp。 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JCZCX_Click() = 借出信息 Dim ZB As String ZB = select * from 借出表 = adCmdText = ZB Call InitGrid2End SubPrivate Sub JSHRCHX_Click() = 歸還信息 Dim JSHR As String Dim n As String JSHR = InputBox(經(jīng)手人, 請(qǐng)輸入, 0) n = select * from 歸還表 where 經(jīng)手人 = 39。 amp。 JSHR amp。 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JSHRCX_Click() = 借出信息 Dim JSHR As String Dim n As String JSHR = InputBox(經(jīng)手人, 請(qǐng)輸入, 0) n = select * from 借出表 where 經(jīng)手人 = 39。 amp。 JSHR amp。 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub PMCX_Click() = 庫(kù)存信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請(qǐng)輸入, 0) n = select * from 庫(kù)存表 where 品名 = 39。 amp。 pm amp。 39。 = adCmdText = n Call InitGrid0End SubPrivate Sub RKCZ_Click() 39。 End SubPrivate Sub RKJSHR_Click() = 入庫(kù)信息 Dim JSHR As String Dim n As String JSHR = InputBox(經(jīng)手人, 請(qǐng)輸入, 0) n = select * from 入庫(kù)表 where 經(jīng)手人 = 39。 amp。 JSHR amp。 39。 = adCmdText = n Call InitGrid1End SubPrivate Sub RKPMCHX_Click() = 入庫(kù)信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請(qǐng)輸入, 0) If Len(pm) 0 Then n = select * from 入庫(kù)表 where 品名 = 39。 amp。 pm amp。 39。 = adCmdText = n End If Call InitGrid1End SubPrivate Sub RKSHJ_Click() = 入庫(kù)信息 Dim RKRQ As String Dim n As String RKRQ = InputBox(入庫(kù)日期，格式為：月/日/年 如：12/1/2011, 請(qǐng)輸入, 0) n = select * from 入庫(kù)表 where 入庫(kù)日期 = 39。 amp。 RKRQ amp。 39。 = adCmdText = n Call InitGrid1End SubPrivate Sub RKXHCHX_Click() = 入庫(kù)信息 Dim XH As String Dim n As String XH = InputBox(產(chǎn)品型號(hào), 請(qǐng)輸入, 0) If Len(XH) 0 Then n = select * from 入庫(kù)表 where 型號(hào) = 39。 amp。 XH amp。 39。 = adCmdText = n End If Call InitGrid1End SubPrivate Sub RKZCX_Click() = 入庫(kù)信息 Dim ZB As String ZB = select * from 入庫(kù)表 = adCmdText = ZB Call InitGrid1End SubPrivate Sub Timer1_Timer() If + 0 Then 39。當(dāng)標(biāo)簽右邊位置大于0時(shí)，標(biāo)簽向左移 80 Else 39。否則標(biāo)簽從頭開始 = End If If + 0 Then 80 Else = End If If + 0 Then 80 Else = End If If + 0 Then 80 Else = End IfEnd SubPrivate Sub XGMM_Click() 39。 End Sub Private Sub XHCX_Click() = 庫(kù)存信息 Dim XH As String Dim n As String XH = InputBox(產(chǎn)品型號(hào), 請(qǐng)輸入, 0) If Len(XH) 0 Then 39。And Val(XH) 0 n = select * from 庫(kù)存表 where 型號(hào) = 39。 amp。 XH amp。 39。 = adCmdText = n End If Call InitGrid0End SubPrivate Sub ZB_Click() = 庫(kù)存信息 Dim ZB As String 39。Dim N As String 39。PM = InputBox(產(chǎn)品名, 請(qǐng)輸入, 0) ZB = select * from 庫(kù)存表 39。where 品名 = 39。 amp。 PM amp。 39。 = adCmdText = ZB Call InitGrid0End SubPrivate Sub InitGrid0() With DataGrid1 .Columns(0).Width = 1600 .Columns(1).Width = 2200 .Columns(2).Width = 2200 .Columns(3).Width = 1000 .Columns(4).Width = 1000 .Columns(5).Width = 4000 End WithEnd SubPrivate Sub InitGrid1() With DataGrid1 .Columns(0).Width = 800 .Columns(1).Width = 1600 .Columns(2).Width = 1600 .Columns(3).Width = 800 .Columns(4).Width = 800 .Columns(5).Width = 1000 .Columns(6).Width = 800 .Columns(7).Width = 4000 End WithEnd SubPrivate Sub InitGrid2() With DataGrid1 39。.Columns(0).Caption = 學(xué)號(hào) 39。 .Columns(1).Caption = 課程名 39。.Columns(2).Caption = 學(xué)分 39。 .Columns(3).Caption = 成績(jī) 39。設(shè)置DtgCond的列寬 .Columns(0).Width = 800 .Columns(1).Width = 1600 .Columns(2).Width = 1600 .Columns(3).Width = 800 .Columns(4).Width = 800 .Columns(5).Width = 800 .Columns(6).Width = 1000 .Columns(7).Width = 800 .Columns(8).Widt