訂單管理信息系統(tǒng)設(shè)計(jì)課程設(shè)計(jì)(編輯修改稿)
2025-02-13 03:14 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 OL 和Microsoft DATAgrid CONTROL 。通過(guò)工具箱加兩個(gè)控件到窗體上。設(shè)置ADODC的屬性，生成—提供程序—Microsoft JET OLE DB；連接—WLGL—測(cè)試連接成功；記錄源—命令類型：2—表名稱：貨物表。設(shè)置datagrid控件屬性datasource為ADODC1.：使用數(shù)據(jù)窗體設(shè)計(jì)器操作數(shù)據(jù)庫(kù)在硬盤的用戶盤上建立一個(gè)用戶目錄（如E:\WORK），用于保存所有實(shí)驗(yàn)文件。啟動(dòng)ACCESS，找到數(shù)據(jù)庫(kù)WLGL,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將WLGL數(shù)據(jù)庫(kù)打開(kāi)，轉(zhuǎn)化97格式的數(shù)據(jù)庫(kù)，取名WLGL97，復(fù)制到用戶目錄下。啟動(dòng)VB,通過(guò)菜單 外接程序—可視化數(shù)據(jù)管理器，在visdata界面上文件打開(kāi)數(shù)據(jù)庫(kù)—Microsoft ACCESS WLGL97,實(shí)用程序數(shù)據(jù)窗體設(shè)計(jì)器—窗體名稱:huowu—記錄源：貨物表—添加使用的多個(gè)字段到右側(cè)—生成窗體—關(guān)閉。對(duì)自動(dòng)生成的窗體，重新排列位置、設(shè)置字體大小，顏色，控件長(zhǎng)度等，調(diào)整界面美觀大方，不留空白，不顯擁擠。使用ADO對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)在硬盤的用戶盤上建立一個(gè)用戶目錄（如E:\WORK），用于保存所有實(shí)驗(yàn)文件。啟動(dòng)ACCESS，找到數(shù)據(jù)庫(kù)WLGL,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。復(fù)制到用戶目錄下。啟動(dòng)VB,通過(guò)菜單 工程—引用 添加Microsoft ActiveX DATA ，添加list控件list1,編寫單擊事件如下：Dim i%, j%Dim ans1 As New Dim 1 As New Dim rst1 As New Provider=。Persist Security Info=False。Data Source= E:\WORK\Set = ans1 = select * from 貨物表 1, , adOpenDynamic, adLockOptimistici = For i = 0 To 15 (1).Value For j = 0 To 6 Print (j)。 Next j PrintNext i 界面設(shè)計(jì)系統(tǒng)登錄控制，必須使用用戶名和密碼登錄后才能使用系統(tǒng)代碼如下Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdcancel_Click() 39。設(shè)置全局變量為 false 39。不提示失敗的登錄 LoginSucceeded = False EndEnd SubPrivate Sub cmdOK_Click() Dim As New Dim rs As New Dim constr As String Provider=。Data Source= amp。 amp。 \。Persist Security Info=False If Trim() = Then MsgBox (請(qǐng)輸入用戶名) Else select * from 用戶管理 where id=39。 amp。 Trim() amp。 39。, , adOpenDynamic, adLockOptimistic If And Then MsgBox (不存在該用戶，請(qǐng)重新輸入用戶名) Else 39。 若用戶未指定列名 If txtPassword = (mima) Then LoginSucceeded = True Else MsgBox 密碼錯(cuò)誤，請(qǐng)重試!, , 登錄 SendKeys {Home}+{End} End If End If End If End SubPrivate Sub Form_Load() = LoadPicture( amp。 \)End Sub代碼如下：Private Sub gbxt_Click()Unload MeEnd SubPrivate Sub gzryjbxxcx_Click()End SubPrivate Sub gzryjbxxsr_Click()End SubPrivate Sub kcbdjxgxxcx_Click()End SubPrivate Sub kcbdjxgxxsr_Click()End SubPrivate Sub Picture1_Click()End SubPrivate Sub ddlr_Click()End SubPrivate Sub ddxxcx_Click()End SubPrivate Sub khxxgl_Click()End SubPrivate Sub MDIForm_Load()End SubPrivate Sub qxjmmsz_Click()End SubPrivate Sub xscjc_Click()End SubPriv
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1