實驗五開發(fā)一個學生信息管理系統(tǒng)

1、精品文檔實驗五開發(fā)一個小型管理程序進行數(shù)據(jù)庫的管理操作-例學生信息管理系統(tǒng)一.實驗目的：考察學生綜合運用SQL語言的能力，結合前面所學的SQL語言的相關知識，在C+BUILDER環(huán)境下開發(fā)一小型的管理系統(tǒng)-學生信息管理系統(tǒng)：二.實驗內(nèi)容：1 .熟悉使用C+BUILDER的表單設計及嵌入式SQL語言的使用。2 .開發(fā)一個學生信息管理系統(tǒng)(1) 設計一個登錄窗口，負責驗證學生登錄的賬戶名，密碼(2) 學生信息錄入系統(tǒng)主要完成學生信息的錄入(學號、姓名、性別、年齡、籍貫等)力睢ijSTUDENT表中。(3) 學生信息查詢，主要完成可以通過學號、姓名等查證到學生的相關信息(提高點，也可以查詢學生成績)

2、(4) 學生信息修改：可以修改已錄入的學生相關信息。(5) 學生信息刪除：可以按學號刪除學生相關信息(提高點，同時刪除其它表中該學生相關信息。參考：一.登錄窗口的完成用戶名退出圖1登錄窗口精品文檔精品文檔xtRunComporertDatabaseTnoteJMndowHelp|<None>Slsridaid AddtnMf | Win321 Svaem Dala Access | Data Coritnote DataSnan氐口 T%'A三河國信/菖山BDE ADO | IrterSase Internei | Decision Cubi1? ZU ZZZ? 3ij 3

3、ZLabdl: TLbelOrigin: 1略 32； Seb: 241 x 57圖2工具設置分別用標簽，文本，按紐來設計，文字更改用見圖部分功能提示：1 .表單調用部分：提示：調用下一表單命令Form2->Show();隱藏當前表單命令Form1->Hide();注意要先用include # unit2.h包含2 .提示提示窗口 ： ShowMessage();3 .文本框取值：Form1->Edit1->Text變量取值：'+變量名+”4 .識別為空的情況If(Edit1->Text= " |Edit2->Text=")Sho

4、wMessage("用戶名或密碼不得為空 ")； return;Labell |Propartie$ | e ventf |Align己IN 01rl巳4AlignmenttaLeftJlustifyS AnchorsakLeftzakTopj<&ufa5izetrue _BiQjM*da-bdUefil-qBjgPit(Caption登錄窗口|二>ColartjrtB triFaceE Constraints(TSizeConslrairCursorcrDefaultDiagCuir&circrDfagIDiagKinddkDiagIDiagM

5、odedmManuialEnabledirueFoeusControl用工麗!nF9ntrz>_HeightT-31HelpConlLeict0H elpK&ywordHelpTipahtConteKtHZLayouttITopL*192NagLabell-MParentBiDiM adhueParentColorhueParentFonttrueParents howHirtruePopupMenuS howAccelCh«卜n產(chǎn)AJI shownObject Inspector5 .設置密碼屬性 能圖3屬性設置精品文檔精品文檔圖4密碼屬性6 .數(shù)據(jù)庫的連接：(1)

6、建數(shù)據(jù)連接：ADO，ADOQuery1->connctionstring(2) 建數(shù)據(jù)源：Dataaccess->datasource->dataset=ADOquery1見圖4RunComponentDatabawToolsWindowHelpNon日二藝1斤一,OSlandardAdditional|Win32Sustem|DataAccess|DalaControls|DataSnaoBDE(ADOj,rteiGaseIr國口*詩髓彝，猾IB反福遢7)精品文檔PaenlBiDiv1UIZ15KZUZZZW»Z1Run二ompcinGnt：EjatabaseTo

7、olsWindowHdpJStandardJAdditional|Wti32|System,<None>二電B：登錄窗口AccesataControls|DatafinapBDEADO!糕F口SUnitl.cppUIVNETT>SJIr;KUi_Ajn*_rwin'ruunrr口3產(chǎn)。方，。1存?zhèn)€勘 金亍超二I »“！為口StandardAddifitwialWirt32|SvstrnnDataAccsss|Dat4Cortrnlt|DataSnan|BDE|ADD)InlH/圈bjertIriEpcctorADOQiPropertiesEwrtsAcliv

8、eAdEoCalcFieldlshueCacheSizBCcmrandTmBi30匚QFineciicinCornedicin?lTirCui$QrLoc-aliandU/匚lisnt三I登錄窗口握膽程序的菖皴所有選擇您藉望連接的數(shù)據(jù)%數(shù)況域接星性BHJnitI.cpptilv-ormlFnrml-:"ADDQuery1EDFinectiDnStriHsqGourcsofConnecbcrLU話DataLmkFk足UseConnectionSkiing白-0"ym"肛jhOnnMMnt®tjfca紀工ool&直intfar?&|p.Nor

9、QMierosoftJel400L£DBProviderI-Mt-c?o£ilOLEMiOLEDBProviderDEFrsvidsrFaff西。臺七aMinIndexincMierosOLEDBFreviderfarIbtefb虺匕MiOUDBPrflvidir£mrODBCDriMift-FtnTFDRFfinwiKqyAwnT4PqyOLEDE提泱程序MtdliibCat-felpgDBOUDBProviderMediaTogflergedDBOLEDFrcivider足於戒/口口磔，切3IDLE口EPrwidiMr£il«3會包白I國1

10、BE3j07D12195.mdbKskjc.mdb直戰(zhàn)范圍工P蠹蠢曝接任性iC0Qu«vj提供程序底接高超I所有指定下列談宣以連發(fā)到數(shù)據(jù):1I.選擇或輸入繳據(jù)年名?。?#163;,掙入建錄數(shù)據(jù)庠的信息.R»ctnt要面9我的文檔用F名前如：|Adrln|7空白密碼mr此許保存窖碼區(qū)一庫找we據(jù)女洋名理MI-三文件樊型1)|版仃一4於Amm數(shù)據(jù)軍Mndb)為III圖8(3) 從數(shù)據(jù)庫中讀密碼語句AnsiStringan1="select*frommm"an1+="whereuser1='"+Edit1->Text+&quo

11、t;"'定義SQL查詢語句an1+="andpassword1='"+Edit2->Text+""'ADOQuery1->SQL->Add(an1);將SQL語句加入到緩沖區(qū)ADOQuery1->Open();執(zhí)行SQL語句if(ADOQuery1->RecordCount=0)/識別是用戶名及密碼是否正確ShowMessage("非法用戶名或密碼")；Return;7 .文件存盤如圖9點文件菜單saveprojectasIrtclucle LJniit Hdr一一Prl

12、irtt.JX Ex*Close9篌 Close AllStands rdQdrhti 0 門與1 V/in：至J E喙biSystemM env bsS izedble n""國 B ord>BrlconsIB ordei'S tyle R nrHi*rA/iHlI«EditProjectopen.Open ProjeicitB.ReopenCtrldhFl 1A 此+F1 1圖9文件按默認文件名，選一個新目錄保存，如圖10圖10綜合窗口菜單的設計rj口空雪33面13燈I口-IT各一片StandardlAjidiliayilV/jri32lSuit

13、esDalu片ccw*lDataConbokl口口他3m1EDE|ADO|InteiE|"V亶丁國A國IB亞國海鼻菖口宜宴IMemiter喇字王隹思肯包京貨口hjet±Impertort+lromiZPiapertiesEveEsAetionAtoCheckFakemaPaiieMlioLineAeducmaPtntBitmapBredkCaptionChecksdDsfAdtEnabledGiouplndexHelpConlexiHintIrnadridtesKNameRadolternShoitCutGubMenulmagTagVisible(NonejTjtWorB錄

14、Hue00false(None0bus錄入修改直定業(yè)跺睢護KD-'哥：)rlForniZ->MalnMenul修改查詢刪除莘護退出.錄入學生信息錄入課程信息錄入選課信息建立菜革三.蓋I息錄入丁信息錄入',生J/j|J»CRacboCUtonl：出生日期向返叵增加判斷學號是否存在:void_fastcallTForm3:Edit1Exit(TObject*Sender)AnsiStringan1="select*fromstudentwhere"an1+="sno='"+Edit1->Text+"&q

15、uot;'ADOQuery1->SQL->Clear();ADOQuery1->SQL->Add(an1);ADOQuery1->Open();if(ADOQuery1->RecordCount=1)");ShowMessage("對不起，已經(jīng)存在該學號，請重新輸入Edit1->SetFocus();return;增加代碼：AnsiStringrq,xb;rq=ComboBox2->Text+"-"+ComboBox3->Text+"-"+ComboBox4->Tex

16、t;if(Form3->RadioButton1->Checked=1)xb="男"elsexb="女"；AnsiStringan1="insertintostudentvalues("an1+="'"+Form3->Edit1->Text+"',"an1+="'"+Form3->Edit2->Text+"',"an1+=""'+xb+"',&

17、quot;an1+=""'+ComboBox1->Text+"',"an1+=""'+rq+"')"ADOQuery1->SQL->Add(an1);ADOQuery1->ExecSQL();ADOQuery1->Close();ShowMessage("增力口成功")；四.信息查詢:查詢代碼AnsiStringan1="select*fromstudentwhere"if(Edit1->Text!=”an1

18、+="sno='"+Edit1->Text+"'and"if(Edit2->Text!="")an1+="sname='"+Edit2->Text+"'and"。其它代碼自己補齊an1+="year(csrq)>1900"ADOQuery1->SQL->Clear();ADOQuery1->SQL->Add(an1);ADOQuery1->Open();if(ADOQuery1->Re

19、cordCount=0)ShowMessage("對不起，沒有你要查的同學");return;五.學生信息修改修改中查詢代碼：if（Form3->Edit1->Text="請查詢輸入學號"）ShowMessage（"請查詢輸入要查詢的學號"）;return;ADOQuery1->SQL->Clear();AnsiStringan1="selectsno,sname,sex,sdept,year(csrq)asnn,month(csrq)asan1+="yy,day(csrq)asrrfrom

20、studentwhere"an1+="sno='"+Edit1->Text+"'"ADOQuery1->SQL->Add(an1);ADOQuery1->Open();/為各個變量賦值Edit1->Text=ADOQuery1->FieldValues"sno"Edit2->Text=ADOQuery1->FieldValues"sname"AnsiStringxb;xb=ADOQuery1->FieldValues"sex&

21、quot;if(xb="男")RadioButton1->Checked=true;if(xb="女")RadioButton2->Checked=true;ComboBox1->Text=ADOQuery1->FieldValues"sdept"ComboBox2->Text=ADOQuery1->FieldValues"nn"ComboBox3->Text=ADOQuery1->FieldValues"yy"ComboBox4->Text

22、=ADOQuery1->FieldValues"rr"修改代碼：AnsiStringxb,rq;if(RadioButton1->Checked=true)xb="男"elsexb="女"rq=ComboBox2->Text+'-'+ComboBox3->Text+'-'+ComboBox4->Text;ADOQuery1->SQL->Clear();AnsiStringan1="updatestudentset"an1+="sno

23、='"+Edit1->Text+"',"an1+="sname='"+Edit2->Text+"',"an1+="sex='"+xb+"',"an1+="sdept='"+ComboBox4->Text+"',"an1+="csrq='"+rq+"'"an1+="wheresno='"

24、;+Edit1->Text+"'"ADOQuery1->SQL->Add(an1);ShowMessage(an1);ADOQuery1->ExecSQL();ShowMessage("修改成功");六.信息刪除刪除查詢代碼：if(Text="")ShowMessage("請查詢輸入要查詢的學號");return;ADOQuery1->SQL->Clear();AnsiStringan1="select*fromstudentwhere"an1+=&q

25、uot;sno="'+Form4->Edit1->Text+""'ADOQuery1->SQL->Add(an1);ADOQuery1->Open();DBGrid1->DataSource=DataSource1;刪除代碼intaa;aa=MessageBox(NULL,"真的要刪除該生記錄嗎？","詢問窗口",4);if(aa=6)ADOQuery1->SQL->Clear();AnsiStringan1="deletefromstudentwhe

26、re"an1+="sno='"+Form4->Edit1->Text+""'ADOQuery1->SQL->Add(an1);ADOQuery1->ExecSQL();ShowMessage("刪除成功");DBGrid1->DataSource=DataSource1;elsereturn;七.統(tǒng)計:統(tǒng)計代碼：ADOQuery1->SQL->Clear();AnsiStringan1="selectcount(sno)asxsrsfromstuden

27、t"ADOQuery1->SQL->Add(an1);ADOQuery1->Open();Label2->Caption="學生人數(shù)"Label3->Caption=ADOQuery1->FieldValues"xsrs"/ADOQuery1->SQL->Clear();AnsiStringan1="selectavg(grade)aspjcjfromsc"ADOQuery1->SQL->Add(an1);ADOQuery1->Open();Label2-&g

28、t;Caption="平均成績"Label3->Caption=ADOQuery1->FieldValues"pjcj"/ADOQuery1->SQL->Clear();AnsiStringan1="selectcount(cno)askczsfromcourse":ADOQuery1->SQL->Add(an1);ADOQuery1->Open();Label2->Caption="課程總數(shù)"Label3->Caption=ADOQuery1->Fiel

29、dValues"kczs"八.修改密碼：修改密碼代碼：if(Edit1->Text=""|Form6->Edit2->Text="")ShowMessage("對不起，用戶名或密碼不得為空");return;ifEdit3->Text=""|Form6->Edit4->Text="")ShowMessage("對不起，輸入新密碼也不能為空");return;if(Edit3->Text!=Form6->Edit4->Text)ShowMessage("兩次密碼不一致");return;ADOQ