【導讀】導下進行的研究工作及取得的成果。盡我所知，除文中特別加以標注和致。含我為獲得及其它教育機構的學位或學歷而使用過的材料。明并表示了謝意。以贏利為目的前提下，學?？梢怨颊撐牡牟糠只蛉績?nèi)容。其他個人或集體已經(jīng)發(fā)表或撰寫的成果作品。對本文的研究做出重要貢獻。的個人和集體，均已在文中以明確方式標明。本人完全意識到本聲明的法。律后果由本人承擔。涉密論文按學校規(guī)定處理。論文正文字數(shù)不少于萬字。圖表整潔，布局合理，文字注釋必須使用工程字書寫，不準用徒手畫。要求應用程序功能完備,易使用等特點.進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng).

　　

【正文】 詳細設計 系統(tǒng)主界面 在此系統(tǒng)中，充分考慮到人們的使用習慣，利用了菜單對系統(tǒng)中功能進行分類列舉 ,用使對系統(tǒng)的使用，通過菜單即能完成，這樣使得主界面簡潔，易于使用。另一方面， 第 26 頁 對當前使用的某一功能選項對應的窗口，以模式的方式進行工作，使得在同一窗口，僅能打開某一類功能的窗口，也在一定程度上減輕了用戶的使用難度。系統(tǒng)的主界面如下 : 用戶管理界面 此界面為本系統(tǒng)中，較常用的一種界面結構。主要由最上方的工 具條，中間的現(xiàn)有數(shù)據(jù)顯示區(qū)及下方的新增內(nèi)容區(qū)。 在系統(tǒng)細節(jié)，主要采用了一個 ，當增加保存時，使用了其 addnew及 post 方法；當刪除某一行數(shù)據(jù)時，使用了其 Delete,post 方法 主要實現(xiàn)代碼如下 : 第 27 頁 Private Sub Form_Load() Call ExcuteSql(rec_user, select * from p_user) Call ShowInfo(rec_user, flexb) End Sub Public Sub ShowInfo(ByVal rs As , ByVal searchList As MSHFlexGrid) On Error Resume Next Dim SumFields, i, j SumFields = 39。該表的字段總數(shù) 39。清空列表，防止增加或修改調(diào)用時重復顯示 39。 = amp。HC0FFFF 39。設置網(wǎng)格背景顏色 = SumFields 39。設置網(wǎng)格列數(shù) = 0 With searchList .FillStyle = flexFillSingle 39。.ScrollTrack = True 39。.AllowUserResizing = flexResizeColumns .FixedRows = 1 .FixedCols = 0 .SelectionMode = flexSelectionByRow End With 第 28 頁 39。設置第一行的各列標題 For i = 0 To SumFields 1 = i (0, i) = (i).Name (i) = 3 39。 = amp。H8000000F Next i 39。設置第一行的各列標題文字格式 For i = 0 To SumFields 1 = i = 4 39。 = True 39。 = vbBlue j = TextWidth((i).DefinedSize) * 8 39。設置標題寬度，防止部分長文字不顯示 If j (i) Then (i) = j End If Next i 39。循環(huán)開始 顯示所有符合條件記錄 = + 1 39。其中標題占一行 = 0 While Not 第 29 頁 = + 1 39。增加一行，用于寫入內(nèi)容 For i = 0 To SumFields 1 = i If = 0 Then = amp。H8000000F End If = 4 39。讀入內(nèi)容 If Not IsNull((i).Value) Then = (i).Value Else = End If Next i Wend 39。循環(huán)結束 顯示所有符合條件記錄 End Sub Private Sub tblOperator_ButtonClick(ByVal Button As ) Select Case Case add Call (add) vbModal Case modify Call (modify) vbModal Case exit Unload Me Case delete 第 30 頁 End Select Call ShowInfo(rec_user, flexb) End Sub Private Sub flexb_DblClick() If Not Then Dim f As New Form3 Call (modify) vbModal Call ShowInfo(rec_user, flexb) End If End Sub Private 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 If End Sub 第 31 頁 藥品管理界面 本界面，主要實現(xiàn)對藥品信息的管理，如藥品編碼、藥品名稱、型號規(guī)格、有效期等 .能進行完備的藥品編輯操作。 主要代碼如下 : Private Sub tblOperator_ButtonClick(ByVal Button As ) Select Case Case add Call (add) vbModal Case modify Call (modify) vbModal Case exit Unload Me Case delete End Select Call ShowInfo(rec_med, flexb) End Sub Private Sub flexb_DblClick() 第 32 頁 If Not Then Dim f As New Form13 Call (modify) vbModal Call ShowInfo(rec_med, flexb) End If End Sub Private 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 If End Sub 掛號界面 掛號是系統(tǒng)主要流程的第一步，它的主要功能是為病人人分配 一個唯一的編號，在以后的流程中，這個編號即掛的號為劃價、收費的基礎。在具體的實現(xiàn)中，在醫(yī)師輸入框后，放置了一命令按鈕，方便用戶快速的查找醫(yī)師的信息。醫(yī)師的信息也是以后查詢醫(yī)師的業(yè)績的主要標識 . 主要代碼如下 : 第 33 頁 Private Sub Command1_Click() Dim c_gl As String If Trim(Text1) = Then End If If t_ = add And init Then c_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 = init Text2 = Text3 = End If End If If t_ = modify Then If = adStateOpen Then (類型 ) = Trim() (醫(yī)師 ID) = Trim(Text1) (掛號費 ) = Trim(Text3) End If End If If 1 Then Unload Me End If End Sub 劃價界面 所謂的劃價，就是將醫(yī)生所給的藥品清單，以系統(tǒng)中擬定的價格計算應收款的過程。主要包括醫(yī)人的掛號信息、藥品信息等。 在實現(xiàn)上，要求用戶首先選擇一掛號信息，然后，打開此編號對應的劃價的信息，用戶可以增加，也可以在已有的基礎上進行修改和刪除。