【正文】 Select Call ShowInfo(rec_med, flexb)End SubPrivate Sub flexb_DblClick()If Not ThenDim f As New Form13Call (modify) vbModalCall ShowInfo(rec_med, flexb)End IfEnd SubPrivate Sub flexb_SelChange() Dim strID, strFind Call GetFlexGridFirstColValue(flexb, strID) If strID Empty Then strFind = ID= amp。 Trim(strID) If Not ( And ) Then (strFind) 39。實(shí)時(shí)的移動(dòng)記錄 39。 Move to amp。 strID End If End IfEnd Sub掛號(hào)界面掛號(hào)是系統(tǒng)主要流程的第一步，它的主要功能是為病人人分配一個(gè)唯一的編號(hào)，在以后的流程中，這個(gè)編號(hào)即掛的號(hào)為劃價(jià)、收費(fèi)的基礎(chǔ)。在具體的實(shí)現(xiàn)中，在醫(yī)師輸入框后，放置了一命令按鈕，方便用戶快速的查找醫(yī)師的信息。醫(yī)師的信息也是以后查詢醫(yī)師的業(yè)績(jī)的主要標(biāo)識(shí)... . . ..學(xué)習(xí)好幫手掛號(hào)窗體中放置了一個(gè)組合框控件，兩個(gè)命令按鈕，三個(gè)標(biāo)簽和兩個(gè)文本框。各控件的屬性見(jiàn)下表 掛號(hào)窗體控件屬性表 控件 屬性 屬性取值Name Frm 掛號(hào)Caption 掛號(hào) FormstartUpPsiton CenterScreenTextBox Name 醫(yī)師TextBox Name 掛號(hào)費(fèi)ComboBox Name Cmb 類型Name CmdSave CommandButton Caption 保存Name CmdCancelCommandButtonCaption 退出Lable1 Caption 類型Lable2 Caption 醫(yī)師Lable3 Caption 掛號(hào)費(fèi)主要代碼如下: Private Sub Command1_Click()Dim c_gl As StringIf Trim(Text1) = ThenEnd IfIf t_ = add And init Thenc_gl = Now()c_gl = Replace(c_gl, , )c_gl = Replace(c_gl, :, )c_gl = Replace(c_gl, , )Call ExcuteSql(rec_gh, select * from med_gl).. . . ..學(xué)習(xí)好幫手If = adStateOpen Then(類型) = Trim()(醫(yī)師 ID) = Trim(Text1)(掛號(hào)費(fèi)) = Trim(Text3)(編號(hào)) = Trim(c_gl)MsgBox (你的掛號(hào)號(hào)碼: amp。 c_gl)Text1 = initText2 = Text3 = End IfEnd IfIf t_ = modify ThenIf = adStateOpen Then(類型) = Trim()(醫(yī)師 ID) = Trim(Text1)(掛號(hào)費(fèi)) = Trim(Text3)End IfEnd IfIf 1 ThenUnload MeEnd IfEnd Sub劃價(jià)界面 所謂的劃價(jià)，就是將醫(yī)生所給的藥品清單，以系統(tǒng)中擬定的價(jià)格計(jì)算應(yīng)收款的過(guò)程。主要包括醫(yī)人的掛號(hào)信息、藥品信息等。在實(shí)現(xiàn)上，要求用戶首先選擇一掛號(hào)信息，然后，打開(kāi)此編號(hào)對(duì)應(yīng)的劃價(jià)的信息，用戶可以增加，也可以在已有的基礎(chǔ)上進(jìn)行修改和刪除。 藥品劃價(jià)窗體如下圖所示.. . . ..學(xué)習(xí)好幫手該窗體由一個(gè)表格控件，十個(gè)文本框控件，三個(gè)按鈕控件，十一個(gè)標(biāo)簽控件和一個(gè)組合控件組成。各控件的屬性如下表。 藥品劃價(jià)窗體控件屬性表控件 屬性 屬性取值Name Frm 部門(mén)信息Caption 部門(mén)信息 FormstartUpPositon CenterScreenName Datagrid滾動(dòng)條( S ) 3Both選定模式( M ) 1By Row MSFlexgrid允許用戶調(diào)整大小( U ) 3BothCommandButton Caption 增加CommandButton Caption 刪除CommandButton Caption 打開(kāi)TextBox Name Txt 類型TextBox Name Txt 醫(yī)師TextBox Name Txt 編號(hào)TextBox Name Txt 藥品編碼TextBox Name Txt 藥品名稱TextBox Name Txt 型號(hào)規(guī)格TextBox Name Txt 數(shù)量.. . . ..學(xué)習(xí)好幫手TextBox Name Txt 總計(jì)TextBox Name Txt 預(yù)付TextBox Name Txt 找補(bǔ)Lable1 Caption 類型Lable2 Caption 醫(yī)師Lable3 Caption 編號(hào)Lable4 Caption 藥品編碼Lable5 Caption 藥品名稱Lable6 Caption 型號(hào)規(guī)格Lable7 Caption 數(shù)量Lable8 Caption 總計(jì)Lable9 Caption 預(yù)付Lable10 Caption 類型主要代碼如下:Private Sub Command5_Click() //打開(kāi)按鈕對(duì)應(yīng)代碼If init ThenCall ExcuteSql(rec_hj, select * from hj where 類型=39。 amp。 amp。 39。and 掛號(hào) ID= amp。 Text10)If = 0 Then(類型) = (掛號(hào) ID) = Text10(應(yīng)收款) = Text7End IfCall ExcuteSql(rec_m2, select * from hj order by id desc)If 0 Then = rec_m2(ID)Call ExcuteSql(rec_hjt, select * from hj_t where 掛號(hào) ID= amp。 )Call ShowInfo(rec_hjt, flexb)End If = True = TrueElseMsgBox 請(qǐng)選擇掛號(hào)編號(hào) End IfEnd Sub.. . . ..學(xué)習(xí)好幫手第五章 開(kāi)發(fā)總結(jié)通過(guò)幾月的系統(tǒng)分析、設(shè)計(jì)、開(kāi)發(fā)，系統(tǒng)編碼完成。在系統(tǒng)的開(kāi)發(fā)過(guò)程中，以前.. . . ..學(xué)習(xí)好幫手學(xué)習(xí)感到很抽象的課程，如軟件工程、數(shù)據(jù)庫(kù)原理、面向?qū)ο蟪绦蛟O(shè)等變得清晰起來(lái)。感覺(jué)到這幾門(mén)理論課程的重要性。以前做一些應(yīng)用的系統(tǒng)開(kāi)發(fā)，隨意性大，想到那里做到那里，沒(méi)有統(tǒng)一的規(guī)劃，一旦系統(tǒng)成型，出現(xiàn)錯(cuò)誤返工修改工作量大，最終的系統(tǒng)可靠性不高。另外一直以來(lái)，進(jìn)行程序設(shè)計(jì)均采用結(jié)構(gòu)化開(kāi)發(fā)方法，對(duì)系統(tǒng)的全貌難以在開(kāi)發(fā)前看到，導(dǎo)致實(shí)現(xiàn)的系統(tǒng)不滿足需求。這次的畢業(yè)設(shè)計(jì)開(kāi)發(fā)，主要有以下幾點(diǎn)收獲：1．對(duì)原型化的系統(tǒng)開(kāi)發(fā)方法有了一定的了解。漸增式的原型化開(kāi)發(fā)方法與面向?qū)ο蟮某绦蛟O(shè)計(jì)的結(jié)合不但能在系統(tǒng)開(kāi)發(fā)初期讓用戶了解系統(tǒng)的概貌，而且能使系統(tǒng)開(kāi)發(fā)模塊化，提高開(kāi)發(fā)效率，減少出錯(cuò)。對(duì)于后期的系統(tǒng)維護(hù)也提供了很大的幫助。2．通過(guò)實(shí)踐，提高了系統(tǒng)分析的能力，對(duì)數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)流程圖等系統(tǒng)設(shè)計(jì)工具的使用有了更深刻的認(rèn)識(shí)。為以后的工作、學(xué)習(xí)的進(jìn)一步提高打下了堅(jiān)實(shí)的基礎(chǔ)。.. . . ..學(xué)習(xí)好幫手 第六章 致 謝在整個(gè)畢業(yè)設(shè)計(jì)過(guò)程中，有很多人給了我?guī)椭?。首先，我要感謝我的導(dǎo)師，她給我指明了做畢業(yè)設(shè)計(jì)的方向，并使我懂得了很多理論知識(shí)；其次，我要感謝我的同學(xué)，他們?cè)谖以O(shè)計(jì)過(guò)程中給了我很大的幫助，使我能很順利的完成設(shè)計(jì)；最后，要感謝大學(xué)三年教育過(guò)我的所有老師，正是他們辛勤的培養(yǎng)，才使我能掌握作為一個(gè)管理系學(xué)生所應(yīng)掌握的基礎(chǔ)知識(shí)，成為一名合格的大學(xué)畢業(yè)生。所以，我要感謝你們！你們辛苦了！.. . . ..學(xué)習(xí)好幫手參 考 文 獻(xiàn)鄧良松 劉海巖 陸麗娜 編著《軟件工程》 西安電子科技大學(xué)出版社唐志宏 韓振振 編著《程序設(shè)計(jì)語(yǔ)言編譯方法》 大連理工大學(xué)出版社薩師煊. 王珊 編著《數(shù)據(jù)庫(kù)系統(tǒng)概論》 高等教育出版社 丁愛(ài)萍 劉瑞新 編著《Visual Basic 程序設(shè)計(jì)》 西安電子科技大學(xué)出版社 林陳雪 郭安源 編著《Visual Basic 系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航》 人民郵電出版社寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來(lái)越容易。不奮斗就是每天都很容易，可一年一年越來(lái)越難。能干的人，不在情緒上計(jì)較，只在做事上認(rèn)真；無(wú)能的人！不在做事上認(rèn)真，只在情緒上計(jì)較。拼一個(gè)春夏秋冬！贏一個(gè)無(wú)悔人生！早安！ —————獻(xiàn)給所有努力的人