尤物视频网站,精品国产第一国产综合精品,国产乱码精品一区二区三区中文,欧美人与zoxxxx视频

免費咨詢電話:400 180 8892

您的購物車還沒有商品,再去逛逛吧~

提示

已將 1 件商品添加到購物車

去購物車結算>>  繼續購物

您現在的位置是: 首頁 > 免費論文 > 事業單位財務管理論文 > 基于Foxtable的女生課余體育活動查詢系統的構建

基于Foxtable的女生課余體育活動查詢系統的構建

Foxtable是將Excel、Access、Foxpro以及易表的優勢融合在一起,其功能有數據錄入、查詢、統計以及報表生成等。同時Foxtable又是一個高效的.net平臺開發工具,專門針對數據管理軟件的開發作了大量的優化,其開發效率十倍于其他專業開發工具。本文分別利用其查詢與統計功能,分別對300份問卷進行了體育活動頻率分析、參與時間分析、主要目的分析等,并在此基礎上建立了女生課余體育活動查詢系統。
  1 統計表的建立
  單擊“新建”,在打開的“創建項目”對話框中,輸入項目名稱“成績查詢”,選擇“創建表”標簽,分別創建頻率表、時間表、目的表、項目表、形式表等,如圖1-2所示。
  2 指標分析
  以“形式表”為例,將相關指標輸入單元格中,其中“比例”一例設置為“表達式列”,在“數據表”功能區,選擇“列相關”功能組,單擊“表達式”,在彈出的“表達式生成器”中進行相應的設置,如圖3所示。
  3 窗口設計
  在“管理項目”功能區,選擇“窗口管理”,在打開的“窗口管理”對話框中,分別選擇“增加”和“設計”兩個按鈕,進行相關的設置。添加8個“按鈕”控件,如圖4所示。
  4 代碼設計
  4.1 SQL基本語法介紹
  Foxtable中的SQL語句,表名需要用大括號括起來,例如:
  SELECT* FROM {形式}
  SELECT 字段列表 FROM {表名} WHERE 條件 GROUP BY 分組字段 ORDER BY 排序字段
  其中"WHERE"、"GROUP BY"和"ORDER BY"是可選的,這三者的順序是不能調換的。
  4.2 以“形式”表為例代碼設計
  選擇“參與形式”按鈕,在Click中添加代碼:
  Dim tbl As WinForm.Tabletbl = e.Form.CreateSQLQuery(“Table1”, “Select * From {形式}","")tbl.SetBounds(10, 10, 600, 400)e.Form.AddControl(tbl)
  其含義是,在窗口1中形成一個查詢表,內容是“形式”中的全部字段。如圖5所示。
  5 其他查詢代碼設計
  (1) 如要查詢“時間”表中周末參加的人數,則代碼為:
  Dim tbl As WinForm.Tabletbl = e.Form.CreateSQLQuery(“Table1”, “Select 人數 From {時間} WHERE 指標=’周末’","")
  tbl.SetBounds(10, 10, 600, 400)
  e.Form.AddControl(tbl)
  (2) 如要查詢周末與清晨同時參加的人數,則代碼為:
  Dim tbl As WinForm.Table
  tbl = e.Form.CreateSQLQuery(“Table1”, “Select 人數 From {時間} WHERE 指標=’周末’AND指標=’清晨’","")
  tbl.SetBounds(10, 10, 600, 400)
  e.Form.AddControl(tbl)
  (3) 如要將查詢結果按人數排序顯示,則代碼為:
  Dim tbl As WinForm.Table
  tbl = e.Form.CreateSQLQuery(“Table1”, “Select 人數 From {時間} WHERE 指標=’周末’AND指標=’清晨’ ORDER BY 人數","")
  tbl.SetBounds(10, 10, 600, 400)
  e.Form.AddControl(tbl)
  (4) 如要查詢總人數或平均人數,則代碼為:
  Dim tbl As WinForm.Table
  tbl = e.Form.CreateSQLQuery(“Table1”, “Select SUM(人數) AS 總計, AVG(人數) AS 平均From {時間} ","")
  tbl.SetBounds(10, 10, 600, 400)
  e.Form.AddControl(tbl)
  (5) 如要在“項目”表中查詢參加人數最多的前3個項目,則代碼為:
  Dim tbl As WinForm.Table
  tbl = e.Form.CreateSQLQuery(“Table1”, “SELECT TOP 3 * FROM {項目} ORDER BY 人數 DESC","")
  tbl.SetBounds(10, 10, 600, 400)
  e.Form.AddControl(tbl)
  (6) 如要在“項目”表中查詢參加籃球或參加足球的人數,則代碼為:
  Dim tbl As WinForm.Table
  tbl = e.Form.CreateSQLQuery(“Table1”, “SELECT * FROM {項目} WHERE 指標 IN (’籃球’,’足球’)
  ","")
  tbl.SetBounds(10, 10, 600, 400)
  e.Form.AddControl(tbl)
  6 查詢結果輸出
  除了在窗口中動態形成一個邏輯查詢表外,Foxtable還提供了可以將查詢結果以數據表的形式輸出的功能。如前述查詢“時間”表中周末參加的人數,其代碼為:
  Dim q As new QueryBuilder
  q.TableName = "時間表1"
  q.SelectString = " Select 人數 From {時間} WHERE 指標=’周末’"
  q.Build
  MainTable = Tables("時間表1")
  其含義是形成一個數據表“時間表1”,并將主表設置為“時間表1”。
  這樣形成了一個物理的數據表后,就可將該表保存或輸出為Excel電子表或Access數據庫表。
  其操作步驟如下:
  在“雜項”功能區,選擇“高速導出”,在彈出的“另存為”對話框中,在“保存類型”中選擇“Excel文件”則保存為工作簿的形式,如圖6所示。
  如要保存為數據庫文件,在“保存類型”中選擇“Access文件”即可。
  另外在“雜項”功能區中還有一個“高速導入”的功能,可以將Excel電子表或Access數據庫表導入為Foxtable的數據表。其操作步驟如下:
  在“雜項”功能區,選擇“高速導入”,在彈出的“打開”對話框中,在“文件類型”中選擇“Excel文件”即可。
 

服務熱線

400 180 8892

微信客服

<th id="q6zaz"></th>
    1. <del id="q6zaz"></del>

    2. <th id="q6zaz"></th>