指導教授 ~ 張志勇 組員: 489190107 彭勇盛 489190347 陳信通 489190388 吳建賦 自律系統 指導教授 ~ 張志勇 組員: 489190107 彭勇盛 489190347 陳信通 489190388 吳建賦
登入畫面
系統選單
學生資料管理
新增資料
搜尋資料
修改資料 按下修改鈕後,可直接在1的地方修改資料或2的地方修改
刪除資料
程式使用元件 按鈕 名稱 功能說明 DataSource 建立資料來源元件 DBGrid 建立顯示與操作資料記錄的表格 DBEdit 建立單行的顯示與編輯來為元件 Table 建立資料表單元件
程式碼 Table1->Append(); //在資料表中加入一筆空白資料 Table1->FieldByName("Stud_ID")->AsInteger = Edit1-Text.ToInt(); Table1->FieldByName("Name")->AsString = Edit2->Text; Table1->FieldByName("Sex")->AsString = Edit3->Text; Table1->FieldByName("Phone")->AsString = Edit4->Text; Table1->FieldByName("E_mail")->AsString = Edit5->Text; Table1->FieldByName("Address")->AsString = Edit6->Text; //以上程式是根據資料表所建立的欄位,將輸入資料寫入資料表中 Table1->Post(); //將修改過的資料表寫入資料庫
程式碼 result = Table1->Lookup("Member_ID",userID->Text,"Password"); //搜尋資料表中的資料,如有資料將其欄位資料傳回 //第一個欄位是要搜尋Table中的欄位名 //第二個欄位是要搜尋的資料 //第三個欄位是想要回傳的欄位名 If(dynamic_cast<EDBEngineError*>(E)->Errors[0]->ErrorCode == 9729) //當資料寫入錯誤時,用來取得BDE傳回的例外錯誤碼 //9729就是唯一鍵值欄位資料重複回傳的值 以下程式是用來控制存取某資料表的某筆資料 1. Table1->Delete(); //刪除資料表中一筆資料
程式碼 以下程式是用來控制存取某資料表的某筆資料 2. Table1->Cancel(); //取消在真正寫入前的任何更動 3. Table1->Prior(); //指向上一筆資料 4. Table1->Next(); //指向下一筆資料 5. Table1->Last(); //指向最後一筆資料 6. Table1->First(); //指向第一筆資料 Table1->Locate("Stud_ID", Edit1->Text, LocateOptions()<<loPartialKey); //這是搜尋資料的程式碼,如有找到會回傳true的值 //第一個欄位是要搜尋Table中的欄位名 //第二個欄位是要搜尋的資料 //第三個欄位是要搜尋的方式
行事曆
新增記錄
插入資料後
刪除資料
完成刪除
程式使用元件 按鈕 名稱 功能說明 Timer 建立時間事件控制元件 * DBPlanner 在表單上建立行事曆元件 DBDaySouce 控制資料庫和行事曆的資料轉換 有 * 的元件是由網路上下載 網址:http://www.tmssoftware.com/
程式碼 FormatDateTime(“AM/PM hh:nn:ss”,Now()) //抓取現在時間日期 以下程式用來建立行事曆的 item TPlannerItem *plIt; plIt = Form8->DBPlanner1->CreateItem(); //建立新 item plIt->ItemBegin = From; //記錄 item位置 plIt->ItemEnd = To; plIt->ItemPos = Pos; plIt->Text->Text = Memo1->Text; // 紀錄 item的內容 plIt->ImageID = ListView1->ItemIndex; // 紀錄 item的圖示
程式碼 另一種過濾資料的方法,可得到多筆資料 Table2->Close(); Table2->Filtered = true; Table2->Open(); void __fastcall TForm8::Table2FilterRecord(TDataSet *DataSet, bool &Accept) { AnsiString temp1,temp2; temp1 = Table2->FieldByName("Subject")->AsString; temp2 = FormatDateTime("yyyymmdd",MonthCalendar1->Date); if(CompareStr(temp2,temp1) == 0) { Accept = true; } else { Accept = false; } }
未完成的功能
謝謝大家 THE END