俗話說"不謀萬世者，不足謀一時；不謀全域性者，不足謀一域"。不能長遠地考慮問題的人，眼前的問題他也看不到；不能全面地把握局勢的人，在細節上他也處理不好。所以在具體的實現之前，我們必須要將「全域性」做好，也就是對系統的把控。知道系統是什麼？、做什麼？、大概怎麼做？。
首先對系統的大體框架進行劃分：
可以看出分為：資料庫和vb6中程式設計2部分，所以我把大體的工作分為3大步
1.資料庫設計
2.資料庫與vb互動（配置odbc資料來源）
3.vb6中具體程式設計
資料庫：資料庫的實現主要是兩部分語句建立資料庫和建立表
建立資料庫：
create database student_info;create table `students`
(
`id` bigint(20) not null auto_increment,
`class_id` bigint(20) not null,
`name` varchar(100) not null,
`gender` varchar(1) not null,
`score` int(11) not null,
primary key (`id`)
) engine=innodb auto_increment=1 default charset=utf8
對資料庫資料的操作，那必然是需要建立在連線好資料庫的情況下，再進行增刪改查
1.連線（由於多個窗體需要多次訪問，所以我將部分重複性很高的**寫到了公共模組方便復用）
a.連線檔案dsn，分為本地和異地
public function connectstring() as string
'本機發布
'connectstring = "filedsn=student.dsn;uid=sa;pwd=1"
'異地發布
connectstring = "provider=sqloledb;server=192.168.138.1;uid=sa;pwd=1;database=student"
end function
public function executesql(byval sql as string, msgstring as string) as adodb.recordset
dim cnn as adodb.connection '定義鏈結
dim rst as adodb.recordset
dim stokens() as string '定義字串
on error goto executesql_error
stokens = split(sql) '產生包含子串陣列
set cnn = new adodb.connection '建立連線
cnn.open connectstring '開啟連線
'判斷字串中是否含有指定內容
if instr("insert,delete,update", ucase$(stokens(0))) then
cnn.execute sql '執行查詢語句
msgstring = stokens(0) & " query successsful" '返回查詢資訊
else
set rst = new adodb.recordset '建立資料集物件
'返回查詢結果
rst.open trim$(sql), cnn, adopenkeyset, adlockoptimistic
set executesql = rst
msgstring = "查詢到" & rst.recordcount & "條記錄"
end if
executesql_exit:
set rst = nothing '清空資料集物件
set cnn = nothing '中斷連線
exit function
'錯誤型別判斷
executesql_error:
msgstring = "查詢錯誤" & err.description
resume executesql_exit
'在visual basic中，為了避免程式**出錯而終止程式
'一般在無法確定出錯原因的情況下採用
'on error resume next
'表示出錯時自動跳轉至下一行**
end function
將資料庫中內容新增到窗體上
txtsql = "select * from class_info"
set mrc = executesql(txtsql, msgtext)
'新增內容到列表框中
for i = 1 to mrc.recordcount
comboclassno.additem mrc.fields(0)
comboclassno.listindex = 0
mrc.movenext
next i
mrc.close '關閉資料集物件
mrc.addnew '給每個字段賦值
mrc.fields(0) = trim(txtsid.text)
mrc.fields(1) = trim(txtname.text)
...mrc.update '更新資料庫
mrc.close '關閉資料集物件
if dd(2) = true
if dd(0) or dd(1) then
'組合查詢語句
txtsql = txtsql & "and class_no ='" & txtclassno.text & "'"
else
txtsql = txtsql & "class_no ='" & txtclassno.text & "'"
end if
end if
學生資訊管理系統設計
學生資訊管理系統設計 學生資訊包括 學號，姓名，年齡，性別，出生年月，位址，e mail等。試設計一學生資訊管理系統，使之能提供以下功能 系統以選單方式工作 學生資訊錄入功能 學生資訊用檔案儲存 輸入 學生資訊瀏覽功能 輸出 查詢 排序功能 演算法 按學號查詢 按姓名查詢學生資訊的刪除與修改 c語言...
學生資訊管理系統的設計與實現
隨著計算機技術的飛速發展，高校也已進入資訊化時代。為了使高校學生資訊更高效 更科學，決定開發高校學生資訊系統。本文採用結構化分析的方法，詳細闡述了乙個功能比較強大的高校學生資訊系統的前後臺開發 操作流程和涉及的一些關鍵技術。首先進行了可行性分析，然後是系統分析，通過實際的業務流程調研，分析業務流程和...
學生資訊管理系統
學生資訊管理系統，顧名思義就是為了管理學生的相關資訊做的一款軟體。雖然這次有原始碼供我們參考，但是從中我學習到了如何從開始到完工去做一款軟體，下邊我從做一項軟體專案的前後順序來總結我的學生資訊管理系統。一，分析需求 首先在做這款軟體是，我們先想象乙個成品，他的功能有哪些，每個功能完成哪項任務，這就是...