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