【正文】 。我將在以后的時間里，逐步學(xué)習(xí)改進(jìn)。由于程序沒有打包、發(fā)布，在運(yùn)行編譯運(yùn)行時，會經(jīng)常報錯。 當(dāng)然，我們的這個系統(tǒng)還有些地方需要修改和完善。在Ｄｅｌｐｈｉ中一切被視為對象。開發(fā)者可按照自己的喜好及用戶要求，隨心所欲的安排窗口的外觀。它具 有功能強(qiáng)大、運(yùn)行速度快、易于學(xué)習(xí)和使用以及開發(fā)迅速等特點(diǎn)。通過這次實(shí)踐，我們對 Delphi 有了全新的認(rèn)識。 OnClick = N1Click end end end 第四部分 設(shè)計感想 在計算機(jī)業(yè)界有一句行話：“真正的程序員使用 C++，聰明的程序員使用 Delphi。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi) 容的合法性、正確性或可靠性。39。39。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 } //圖片代碼 NumGlyphs = 2 end object ActionList1: TActionList Left = 400 Top = 80 object Actxsgl: TAction Caption = 233982998320449246873164929702 Hint = 233982998320449246873164929702 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由文檔在線網(wǎng)會員提供。Close39。 } //圖片代碼 end object BitBtn3: TBitBtn Left = 632 Top = 456 Width = 75 Height = 25 Cursor = crHandPoint Caption = 39。Help39。 } //圖片代碼 end object BitBtn2: TBitBtn Left = 520 Top = 456 Width = 75 Height = 25 Cursor = crHandPoint Caption = 39。About39。 } //圖片代碼 ShowHint = True OnClick = Image1Click end object BitBtn1: TBitBtn Left = 400 Top = 456 Width = 75 Height = 25 Cursor = crHandPoint Caption = 39。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 } //圖片代碼 OldCreateOrder = False PopupMenu = PopupMenu1 WindowState = wsMaximized PixelsPerInch = 96 TextHeight = 13 object SpeedButton1: TSpeedButton Left = 48 Top = 328 Width = 130 Height = 100 Cursor = crCross Action = Actxsgl end object SpeedButton2: TSpeedButton Left = 400 Top = 328 Width = 130 Height = 100 Cursor = crCross Action = ActZHGL end object SpeedButton3: TSpeedButton Left = 224 Top = 328 Width = 130 Height = 100 Cursor = crCross Action = Actcjgl end object SpeedButton4: TSpeedButton Left = 571 Top = 328 Width = 130 Height = 100 Cursor = crCross Action = Actibbgl end object Image1: TImage Left = 48 Top = 64 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由文檔在線網(wǎng)會員提供。MS Sans Serif39。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 end. object FmMain: TFmMain Left = 186 Top = 159 BorderStyle = bsNone Caption = 2339829983204492468731649297023199532479 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由文檔在線網(wǎng)會員提供。 Shellexecute(,nil,pchar(filename),nil,nil,sw_shownormal)。 var filename:string。 end。 procedure (Sender: TObject)。 begin BitBtn2Click(Sender)。 end。 procedure (Sender: TObject)。,mb_okcancel)=idok then 。,39。 begin if (39。 end。 begin (Tform3, form3)。 end。 begin (Tfrm_about, frm_about)。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi) 容的合法性、正確性或可靠性。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 {$R *.dfm} procedure (Sender: TObject)。 var FmMain: TFmMain。 procedure Image1Click(Sender: TObject)。 procedure N4Click(Sender: TObject)。 procedure BitBtn3Click(Sender: TObject)。 procedure BitBtn1Click(Sender: TObject)。 procedure ActZHGLExecute(Sender: TObject)。 procedure ActxsglExecute(Sender: TObject)。 N5: TMenuItem。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi) 容的合法性、正確性或可靠性。 N4: TMenuItem。 N2: TMenuItem。 gfgf1: TMenuItem。 gfg1: TMenuItem。 PopupMenu1: TPopupMenu。 BitBtn2: TBitBtn。 SpeedButton4: TSpeedButton。 SpeedButton2: TSpeedButton。 Actibbgl: TAction。 Actcjgl: TAction。 type TFmMain = class(TForm) ActionList1: TActionList。 v v 45 V v v v v v v v v v V v v v v v v v v 61 V v v v V v v v v 第三部分 附錄 主要 部分源碼 unit main。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi) 容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 若該記錄存在 顯示所選課程詳細(xì)信息 執(zhí)行添加語句 調(diào)用添加模塊 將選課結(jié)果刷新 刪除