物資管理系統(tǒng)

《物資管理系統(tǒng)》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、二○一○～二○一一學(xué)年第一學(xué)期信息科學(xué)與工程學(xué)院可視化編程技術(shù)實驗報告班級：學(xué)號：姓名：指導(dǎo)教師：二○一○年一．實驗要求倉庫物資管理系統(tǒng)1.入庫功能：能將一種物資放到倉庫中2.瀏覽功能：能瀏覽所有物資信息（物資名，存放地點，數(shù)量）3.出庫功能：可以從倉庫中取出一定數(shù)量的某些物資4.用戶登錄功能二、課程設(shè)計方案物資管理系統(tǒng)退出系統(tǒng)物資出庫物資入庫物資瀏覽三．實驗步驟1.創(chuàng)建數(shù)據(jù)表1）創(chuàng)建物資基本信息表設(shè)計好的基本信息表以文件名WZXX.DB保存，因為設(shè)置的物資編號為WZXX.PX2）創(chuàng)建用戶登錄表以YHDL.DB

2、為文件名保存。將以上的表創(chuàng)建好后，存入建好的子目錄中，為系統(tǒng)設(shè)置一個別名，別名為WUST.2.創(chuàng)建物資瀏覽界面利用表單向?qū)?chuàng)建如圖所示的瀏覽頁面將所有的Lable組件的Caption屬性改為相應(yīng)的漢字提示，然后設(shè)置好所有組件的TabOrder順序。并拉一個DBGrid1組件，將Table1的active屬性改為true，將Datasource屬性改為DataSource1。最后右擊系統(tǒng)彈出快捷菜單，選中“ColumnsEditor”菜單項，右擊彈出的EditingDBGridWZXX->Columns對話框，再

3、選擇其中的SelectAll菜單項，對每一列的Title屬性中的Caption進行設(shè)置，用相應(yīng)的漢字代替漢語拼音縮寫。3.創(chuàng)建入庫功能表該功能是實現(xiàn)主要是依靠DBNavigator來實現(xiàn)的，填好物資的基本信息后，點擊，該物資的信息就添加到喜愛案的表格中了。4.創(chuàng)建出庫功能表創(chuàng)建如圖所示的的界面，其中將ComboBox1的Items改為如圖1所示的，ComboBox2的Items改為如圖2所示的.圖1圖25.創(chuàng)建系統(tǒng)登錄頁面#include#pragmahdrstop#include"Unit5.h

4、"http://---------------------------------------------------------------------------#pragmapackage(smart_init)#pragmaresource"*.dfm"TForm5*Form5;//---------------------------------------------------------------------------__fastcallTForm5::TForm5(TComponent*Owner)

5、:TForm(Owner){}//---------------------------------------------------------------------------void__fastcallTForm5::Edit1KeyUp(TObject*Sender,WORD&Key,TShiftStateShift){if(Key==13&&Edit1->Text!=""){Edit2->Text="";Edit2->SetFocus();}if(Key==27){if(Edit1->Text==

6、"")Application->Terminate();elseEdit1->Text="";}}//---------------------------------------------------------------------------void__fastcallTForm5::Edit2Keyup(TObject*Sender,WORD&Key,TShiftStateShift){if(Key==13&&Edit2->Text!=""){Table1->SetKey();Table1->Fie

7、ldByName("UserID")->Value=Edit1->Text;if(Table1->GotoKey()){if(Table1->FieldByName("UserPwd")->AsString==Edit2->Text){if(Table1->FieldByName("UserLev")->AsString==1)GroupBox2->Visible=true;elseGroupBox3->Visible=true;}else{ShowMessage("用戶密碼檢驗失??！");return;}}e

8、lse{ShowMessage("用戶代號檢驗失?。?);return;}}}//---------------------------------------------------------------------------void__fastcallTForm5::Button1Click(TObject*Sender){if(Edit3->Text!=Edit4->Text