<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 變速箱開發筆記概要-七夜
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> 程序人生


      變速箱開發筆記概要

      發表時間:2012/9/8 21:13:36 評論(0) 瀏覽(3748)  評論 | 加入收藏 | 復制
         
      摘 要:變速箱開發筆記概要
      正 文:

       

      1、新增窗體步驟概述:

      1、  定義rst變量為DAO數據類型;

      2、  判斷控件內是否為空;

      3、  判斷控件內數據是否重復;Acchelp_StrDataIsExist("表名", "字段名", 控件名) = True

      4、  通過msgbox詢問用戶是否要保存數據;

      5、  保存數據的代碼:

           set rst 為打開表中的記錄,并賦值給rst

      Set rst = CurrentDb.OpenRecordset("tblcodebxlb", dbOpenDynaset)

           新增一行數據 rst.addnew

           給數組rst內其他字段賦值,例如編號,等

           rst內對應控件的字段賦值;

           rst內新增的數據寫入表中, rst.update

           關閉rst

           rst賦值空值

           刷新程序主窗體,并刷新其數據源

      判斷是否加載了控制面板窗體,

      Forms!usysfrmmain!frmChild.SourceObject = "frmbxlb_child" 前后記得要寫一個消除警告的代碼docmd.echo false true

           用對話框提示保存成功,msgbox

      6、增加一些提高輸入速度的技巧性功能:

      ①、下拉列表自動展開:lbid控件獲得焦點事件中輸入:me.lbid.dropdown;

      ②、lbid更新后事件:讓下一個要輸入的控件自動獲得焦點:me.ygid.setfocus

      ③、ygid的獲得焦點事件中輸入me.ygid.dropdown;更新后事件讓下一個控件獲得焦點

      ……以此類推

      2、修改窗體的制作步驟:

      1) 先給基礎窗體的主鍵字段編寫獲取焦點事件;

      2)  在基礎窗體的成為當前事件中輸入=selectrecord()  目的:使得光標所在整行變黑,且第一個字段獲得焦點 ;

      3)寫修改窗體加載事件,并將光標所在行參數賦值給全局變量;

      4)寫修改按鈕的單擊事件:

           判斷控件值是否為空;

           刷新數據  me.refresh

           給子窗體附上窗體來源:Forms!usysfrmmain!frmChild.SourceObject = "frmbxlb_child"  前后要加消除警告語句;

           書寫觸發基礎窗體的計時器事件,并設定計時器事件的觸發間隔時間;

           編寫基礎窗體計時器的觸發事件:平臺函數acchelp_findstrrecoder(全局變量)

           書寫關閉修改窗體的代碼,docmd.close acform,”修改窗體名稱

       

      3、編寫刪除數據代碼

      1)      Public Sub btnDel()

      2)      通過msgbox判斷用戶是否確定要刪除該數據;

      3)      取消警告提示

      4)      如果用戶選擇是,則通過平臺自定義函數AccHelp_DeleteFldstrRow(“表名”,“字段名”,selectstr)刪除該數據;

      5)      重新給基礎窗體子窗體賦上窗體數據源Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"

      6)      恢復警告提示

       

      系統自定義的查詢功能:

      1、  編寫public sub btnfind()函數

           打開系統窗體usysfrmfind

           窗體的cobfldname控件的.rowsource 行來源屬性需要賦值為字段名稱,數據類型,”

      其中字段類型為 '文本型對應 3 ,日期型對應 1 ,數值型對于 2

       

           指定查詢的數據來源:Forms!usysfrmFind!labDataSource.Caption = "qryBxmx"

      單擊查詢按鈕定義查詢的子窗體的數據來源。

      Public Sub FindEnd()
      Forms!usysfrmMain!frmChild.Form.RecordSource = Acchelp_ChildFormRecordSource("qryBxmx", "
      報銷編號
      ", True)
      End Sub


      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
       
       訪客評論
      總記錄:0篇  頁次:0/0 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      七夜

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5