商品銷(xiāo)售系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-大學(xué)畢業(yè)論文畢業(yè)設(shè)計(jì)學(xué)位論文范文模板參考資料-資料下載頁(yè)
2025-11-20 11:12本頁(yè)面
【導(dǎo)讀】技術(shù)上已經(jīng)逐步成熟。管理系統(tǒng)是一個(gè)不斷發(fā)展的領(lǐng)域，追求不斷讓各種信息的管理變的。更方便、更快捷。不管是經(jīng)濟(jì)、軍事還是什么方面，都要求能夠高效的把信息組織起來(lái)，這樣就必須建立與自身特點(diǎn)相適應(yīng)的管理系統(tǒng)，從而達(dá)到最高效率的信息組織和傳遞。文對(duì)學(xué)生信息管理系統(tǒng)進(jìn)行了詳細(xì)的分析和設(shè)計(jì)，清晰的展現(xiàn)了系統(tǒng)的構(gòu)造。1．日常業(yè)務(wù)模塊的功能是對(duì)銷(xiāo)售開(kāi)單、銷(xiāo)售退貨、客戶(hù)結(jié)款的添加和修改。的功能是對(duì)銷(xiāo)售、銷(xiāo)售退貨、應(yīng)收款和庫(kù)存量的查詢(xún)。改、刪除和查詢(xún)。Access具有主關(guān)鍵字和外部關(guān)鍵字定義，并且。在數(shù)據(jù)庫(kù)的引擎提供了完全的引用完整性，可以避免不合理的更新和刪除。Access就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢(xún)、存儲(chǔ)和檢索。Access的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。另外，Access允許創(chuàng)建自定義報(bào)表用。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把。數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶(hù)共享數(shù)據(jù)庫(kù)。
【正文】 se With Combo1 Do While Not .AddItem Trim(mrcc!班級(jí)編號(hào) ) Loop = 0 End With End If List2Text End Sub Private Sub List2Text() Set mrcc = New txSQL = select * from 課程表 = provider=。 amp。 data source= amp。 amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic Do While Not Trim(mrcc!課程名 ) Loop End Sub Private Sub List1Text() Set mrcc = New txSQL = select 課程名 from 班級(jí)課程表 where 班級(jí)編號(hào) =39。 amp。 Trim() amp。 39。 = provider=。 amp。 data source= amp。 amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic Do While Not Trim(mrcc!課程名 ) Loop 37 End Sub Private Sub Label8_Click(Index As Integer) = provider=。 amp。 data source= amp。 amp。 /Data/ Dim tSQL As String Dim mmrc As Set mmrc = New Set mrcc = New If Index = 0 Then If And Then txSQL = delete from 班級(jí)課程表 where 班級(jí)編號(hào) =39。 amp。 Trim() amp。 39。 and 課程名 =39。 amp。 Trim() amp。 39。 txSQL, conn, adOpenStatic, adLockPessimistic End If End If If Index = 1 Then If Then txSQL = delete from 班級(jí)課程表 where 班級(jí)編號(hào) =39。 amp。 Trim() amp。 39。 txSQL, conn, adOpenStatic, adLockPessimistic tSQL = select * from 課程表 txSQL = select * from 班級(jí)課程表 tSQL, conn, adOpenStatic, adLockPessimistic If = True Then MsgBox 請(qǐng)先進(jìn)行課程設(shè)置 !, vbOKOnly, 提示 Else Do While Not txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim() (1) = (0) Loop End If End If End If 38 If Index = 2 Then If And Then txSQL = delete from 班級(jí)課程表 where 班級(jí)編號(hào) =39。 amp。 Trim() amp。 39。 and 課程名 =39。 amp。 Trim() amp。 39。 txSQL, conn, adOpenStatic, adLockPessimistic txSQL = select * from 班級(jí)課程表 txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim() (1) = Trim() End If End If If Index = 3 Then If Then Set mrcc = New txSQL = delete from 班級(jí)課程表 where 班級(jí)編號(hào) =39。 amp。 Trim() amp。 39。 txSQL, conn, adOpenStatic, adLockPessimistic End If End If txSQL = select * from 班級(jí)課程表 txSQL, conn, adOpenStatic, adLockPessimistic List1Text End Sub Private Sub List2_Click() Text1(0) = End Sub Private Sub Text1_Change(Index As Integer) If Index = 0 Then txSQL = select * from 課程表 where 課程名 =39。 amp。 Trim(Text1(0)) amp。 39。 Set mrcc = New 39 = provider=。 amp。 data source= amp。 amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic If = False Then Text1(1) = (1) amp。 Text1(1).Locked = True Else Text1(1) = Text1(1).Locked = False End If End If End Sub 40 圖 321 相關(guān)代碼： Dim mrcc As Dim MsgText As String Dim txSQL As String Private Sub Combo1_Click() Text1(4) = If Label1(3).BackColor amp。HFFFFFF Then If Label3(4).Caption = Then = amp。HE0E0E0 Else = amp。HFFFFFF End If End If End Sub Private Sub Command1_Click() For i = 0 To 7 If i 4 Then If Text1(i) = Label3(i).Caption Then MsgBox 請(qǐng) amp。 Label3(i).Caption amp。 !, vbOKOnly, 提示 Text1(i).SetFocus Exit Sub End If Else 41 If Text1(i) = Label3(i).Caption Then MsgBox 請(qǐng) amp。 Label3(i).Caption amp。 !, vbOKOnly, 提示 Exit Sub End If End If Next If IsDate(Text1(5)) = False Then MsgBox 出生日期應(yīng)為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(3).SetFocus Exit Sub End If txSQL = select * from 學(xué)生信息表 where 學(xué)號(hào) =39。 amp。 Trim(Text1(0)) amp。 39。 Set mrcc = New = provider=。 amp。 data source= amp。 amp。 /Data/ txSQL, conn, adOpenStatic, adLockPessimistic If = False Then MsgBox 學(xué)號(hào)不能重復(fù) !, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txSQL = select * from 學(xué)生信息表 txSQL, conn, adOpenStatic, adLockPessimistic (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Text1(2)) (3) = Trim(Text1(3)) (4) = Trim(Text1(4)) (5) = Trim(Text1(5)) (6) = Trim(Text1(6)) (7) = Trim(Text1(7)) If Text1(8) = Label3(8).Caption Then (8) = Else (8) = Trim(Text1(8)) End If MsgBox 學(xué)籍信息添加成功 !, vbOKOnly, 提示 42 With MSFlexGrid1 .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = Trim(Text1(0)) .TextMatrix(.Rows 1, 1) = Trim(Text1(1)) .TextMatrix(.Rows 1, 2) = Trim(Text1(2)) .TextMatrix(.Rows 1, 3) = Trim(Text1(3)) .TextMatrix(.Rows 1,
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1