基于visualc的文檔管理系統(tǒng)-資料下載頁
2025-06-27 19:09本頁面
【正文】 中單擊鼠標右鍵，執(zhí)行彈出快捷菜單的“Properties”菜單命令，打開“Dialog Properties”對話框。在“Dialog Properties”對話框中選擇 General選項卡，更改其“Caption”文本框內(nèi)容為“文檔管理” 。（2）從 Controls面板上向 Dialog資源中添加 7個 Static、7 個 Edit、2 個Button、2 個 Radio、1 個 Tab、1 個 ListControl、1 個 Combo、1 個 Group控件，更改資源的屬性，并為資源設置相對應的變量，如表 63所示。表 63 資源設置Member VariablesID PropertiesType MemberIDC_EDIT1 默認 CString m_dwmcIDC_EDIT2 默認 CString m_wdlbIDC_EDIT3 默認 int m_wdbhIDC_EDIT4 默認 CString m_wdmcIDC_EDIT5 默認 CString m_gjzIDC_EDIT6 默認 CEdit m_wjljIDC_EDIT7 默認 CString m_memoIDC_TAB1 默認 CTabCtrl m_tabIDC_LIST1 View: Report。 Align: left CListCtrl m_listIDC_RADIO1 Caption 添加IDC_RADIO2 Caption 修改IDC_STATIC8 Caption 選擇IDC_COMBO1 默認 CComboBox m_boIDC_WJLJXZ Caption ......IDOK Caption 保存IDCANCEL Caption 退出IDC_BUTTONDEL Caption 刪除 代碼分析（1）使用函數(shù)外部的變量。（2）在頭文件定義的變量。（3）添加 OnInitDialog函數(shù)，此函數(shù)用于初始化 Tab控件、為 ListControl控件賦值.（4）為“…”按鈕添加如下代碼，使其查找文件路徑。（5）當用戶單擊“保存”按鈕時，將執(zhí)行 OnOK函數(shù)。（6）為 Radio控件添加消息響應函數(shù)。（7）當用戶單擊“刪除”按鈕時，將執(zhí)行 OnButtondel函數(shù)。（8）通過 SetCurTab()函數(shù)，根據(jù)菜單的消息響應確定顯示 Tab標簽控件的第幾頁。致謝本論文是在的張丹丹老師的悉心指導下完成的。從論文的選題、研究思路的確定、論文的撰寫直到論文修改的整個過程中，張老師都傾注了大量的心血和精力。在寫畢業(yè)論文的期間，張丹丹老師給予了我悉心的教誨和耐心的指導，讓我受益匪淺。張老師嚴謹求實，精益求精的治學態(tài)度和勤奮進取的敬業(yè)精神永遠是我做人、做事的榜樣和典范，在此謹向張老師表示最衷心的感謝！在三年的學習生活中，計算機系的老師和同學在學習和生活上也給了我很大的關懷和幫助，在此表示由衷的感謝！參考文獻[1]《Visual Basic精彩編程200例》機械工業(yè)出版社 賽奎春、高春艷等 2022年1月[2]《Visual Basic數(shù)據(jù)庫開發(fā)實例解析》機械工業(yè)出版社 劉志銘、高春艷等 2022年8月[3]《Visual FoxPro數(shù)據(jù)庫開發(fā)實例解析》機械工業(yè)出版社 王晶瑩、王國輝等 2022年9月[4]《Power Builder數(shù)據(jù)庫開發(fā)實例解析》機械工業(yè)出版社 華傳銘、張振坤等 2022年9月[5]《Delphi數(shù)據(jù)庫開發(fā)實例解析》機械工業(yè)出版社 賽奎春、鄭驍鵬等2022年2月[6]《PowerBuilder 精彩編程200例》機械工業(yè)出版社 張振坤、李文立等附錄void CWordGLXTDlg::OnMenuliulwd() {// TODO: Add your mand handler code hereCString strd,strs。for(int i=0。i()。i++){strd=(i)。strs+=strd+\n。(strs)。}}void CWordGLXTDlg::OnMenurzgl() {// TODO: Add your mand handler code hereADOConn m_AdoConn。 ()。CString sql,sqlzd=用戶名 \t登錄時間\t 動作\n。(select* from Rizhib)。((_bstr_t)sql)。while(adoEOF==0){sqlzd+=(char*)(_bstr_t)GetCollect(name)。sqlzd+= \t。sqlzd+=(char*)(_bstr_t)GetCollect(DLsj)。sqlzd+=\t。sqlzd+=(char*)(_bstr_t)GetCollect(dz)。sqlzd+=\n。MoveNext()。(sqlzd)。}()。}void CWordGLXTDlg::OnExit() {// TODO: Add your mand handler code hereOnOK
環(huán)評公示相關推薦
鄂ICP備17016276號-1