【正文】 系統(tǒng)”——“退出”如下，然后編寫代碼。倉庫管理系統(tǒng) 項(xiàng)目的建立 ，現(xiàn)圖文結(jié)合的方式一步一步展現(xiàn)制作過程。代碼如下： Private Sub Exit_Click() EndEnd Sub數(shù)據(jù)庫的建立。其它元件不在一一說明。提示用戶輸入用戶名 MsgBox 請輸入用戶名！, , 登錄信息提示： Exit Sub Else 39。 usename amp。添加新用戶 (用戶名) = Trim() (密碼) = Trim() MsgBox (添加新用戶成功，現(xiàn)在您可以登陸系統(tǒng)了！) = False = False = 登錄 = 退出 End If Else 39。 strSno amp。Unload Me 39?！靶掠脩簟卑粹o = True = True = = = = 確定 = 取消 End SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) = TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) = FalseEnd SubPrivate Sub Form_Load() = False = FalseEnd SubPrivate Sub Timer1_Timer() 39。否則標(biāo)簽從頭開始 = End If If + 0 Then 80 Else = End IfEnd Sub主界面窗體如下：代碼： Private Sub AddNew_Click() = True = FalseEnd SubPrivate Sub CHKPMCHX_Click() = 出庫信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請輸入, 0) n = select * from 出庫表 where 品名 = 39。 = adCmdText = n Call InitGrid1End SubPrivate Sub CHKXHCHX_Click() = 出庫信息 Dim XH As String Dim n As String XH = InputBox(產(chǎn)品型號, 請輸入, 0) n = select * from 出庫表 where 型號 = 39。 = adCmdText = n End SubPrivate Sub CKCZ_Click() 39。 39。 39。檢測用戶名是否已經(jīng)存在 Dim strS As String usename = Trim() strS = select * from 用戶登錄信息表 where 用戶名=39。 = adCmdText = strS If = False Then MsgBox 您輸入的用戶已存在!, , 登錄提示信息： = = = Exit Sub End If End If If = Then 39。 = False 39。 = 39。 amp。 amp。 amp。 amp。 End SubPrivate Sub JCHPMCHX_Click() = 借出信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請輸入, 0) n = select * from 借出表 where 品名 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JCHXHCHX_Click() = 借出信息 Dim XH As String Dim n As String XH = InputBox(產(chǎn)品型號, 請輸入, 0) n = select * from 借出表 where 型號 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JCRCX_Click() = 借出信息 Dim JCR As String Dim n As String JCR = InputBox(借出人, 請輸入, 0) n = select * from 借出表 where 借出人 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JCSHJCX_Click() = 借出信息 Dim JCRQ As String Dim n As String JCRQ = InputBox(借出日期，格式為：月/日/年 如：12/1/2011, 請輸入, 0) n = select * from 借出表 where 借出日期 = 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)手人, 請輸入, 0) n = select * from 歸還表 where 經(jīng)手人 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JSHRCX_Click() = 借出信息 Dim JSHR As String Dim n As String JSHR = InputBox(經(jīng)手人, 請輸入, 0) n = select * from 借出表 where 經(jīng)手人 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub PMCX_Click() = 庫存信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請輸入, 0) n = select * from 庫存表 where 品名 = 39。 = adCmdText = n Call InitGrid0End SubPrivate Sub RKCZ_Click() 39。 39。 39。 39。 39。 End Sub Private Sub XHCX_Click() = 庫存信息 Dim XH As String Dim n As String XH = InputBox(產(chǎn)品型號, 請輸入, 0) If Len(XH) 0 Then 39。 39。where 品名 = 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