利用ACCESS建立一個(gè)關(guān)于倉(cāng)庫(kù)的數(shù)據(jù)庫(kù)和各種數(shù)據(jù)表。
成都創(chuàng)新互聯(lián)公司主要從事做網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)冊(cè)亨,10余年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):13518219792
VB則采用ADO數(shù)據(jù)控件和DATAGRID控件,在SQL結(jié)構(gòu)化查詢語(yǔ)句下建立ADO數(shù)據(jù)控件和DATAGRID控件之間的關(guān)聯(lián)。
建議若干窗體,用于數(shù)據(jù)表輸入等。
編寫(xiě)VB的代碼,完成這個(gè)簡(jiǎn)單的倉(cāng)庫(kù)管理系統(tǒng)。
Private Sub Form_Load() Dim sql As String Dim conn As New Connection On Error GoTo loaderror '這是個(gè)判斷錯(cuò)誤的語(yǔ)句、如果執(zhí)行錯(cuò)誤gotoloaderror:下面的語(yǔ)句 conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" App.Path "\db1.mdb" sql = "select * from 供貨商信息表" rs_reader.CursorLocation = adUseClient rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic cmdupdate.Enabled = False cmdcancel.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_reader Exit Sub loaderror: MsgBox Err.Description End Sub 我做的倉(cāng)庫(kù)管理系統(tǒng)里的窗體加載datagrid信息
找與數(shù)據(jù)庫(kù)連接的程序,比如“成績(jī)管理器”等。一般教材都有。