• 醫院信息管理系統論文 聯系客服

    保定科技職業學院論文設計

    Caption Lable1 Caption Lable2 Caption Lable3 Caption 主要代碼如下:

    Private Sub Command1_Click() Dim c_gl As String

    If Trim(Text1) = \Text1.SetFocus End If

    If t_ = \c_gl = Now()

    c_gl = Replace(c_gl, \c_gl = Replace(c_gl, \c_gl = Replace(c_gl, \

    Call ExcuteSql(rec_gh, \If rec_gh.State = adStateOpen Then rec_gh.AddNew

    rec_gh.Fields(\類型\rec_gh.Fields(\醫師ID\rec_gh.Fields(\掛號費\rec_gh.Fields(\編號\rec_gh.Update

    MsgBox (\你的掛號號碼:\Text1 = \Text2 = \Text3 = \End If

    End If

    If t_ = \

    If rec_gh.State = adStateOpen Then

    rec_gh.Fields(\類型\rec_gh.Fields(\醫師ID\rec_gh.Fields(\掛號費\rec_gh.Update rec_gh.Update End If End If

    If ck.Value <> 1 Then Unload Me End If

    退出 類型 醫師 掛號費 第29 頁

    保定科技職業學院論文設計

    End Sub

    劃價界面

    所謂的劃價,就是將醫生所給的藥品清單,以系統中擬定的價格計算應收款的過程。

    主要包括醫人的掛號信息、藥品信息等。在實現上,要求用戶首先選擇一掛號信息,然后,打開此編號對應的劃價的信息,用戶可以增加,也可以在已有的基礎上進行修改和刪除。

    藥品劃價窗體如下圖所示

    該窗體由一個表格控件,十個文本框控件,三個按鈕控件,十一個標簽控件和一個組合控件組成。各控件的屬性如下表。

    藥品劃價窗體控件屬性表 控件 屬性 屬性取值 Name Frm部門信息 Form Caption 部門信息 startUpPositon CenterScreen Name Datagrid 滾動條( S ) 3-Both MSFlexgrid 選定模式( M ) 1-By Row 允許用戶調整大小( U ) 3-Both

    第30 頁

    保定科技職業學院論文設計

    CommandButton CommandButton CommandButton TextBox TextBox TextBox TextBox TextBox TextBox TextBox TextBox TextBox TextBox Lable1 Lable2 Lable3 Lable4 Lable5 Lable6 Lable7 Lable8 Lable9 Lable10

    主要代碼如下:

    Caption Caption Caption Name Name Name Name Name Name Name Name Name Name Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption 增加 刪除 打開 Txt類型 Txt醫師 Txt編號 Txt藥品編碼 Txt藥品名稱 Txt型號規格 Txt數量 Txt總計 Txt預付 Txt找補 類型 醫師 編號 藥品編碼 藥品名稱 型號規格 數量 總計 預付 類型 Private Sub Command5_Click() //打開按鈕對應代碼 If Text10.Text <> \

    Call ExcuteSql(rec_hj, \類型='\掛號ID=\Text10)

    If rec_hj.RecordCount = 0 Then rec_hj.AddNew

    rec_hj.Fields(\類型\rec_hj.Fields(\掛號ID\rec_hj.Fields(\應收款\rec_hj.Update

    End If

    Call ExcuteSql(rec_comm2, \If rec_comm2.RecordCount > 0 Then Text14.Text = rec_comm2(\

    Call ExcuteSql(rec_hjt, \掛號ID=\Call ShowInfo(rec_hjt, flexb) End If

    Command2.Enabled = True Command4.Enabled = True

    第31 頁

    保定科技職業學院論文設計

    Else

    MsgBox \請選擇掛號編號\End If

    End Sub

    第32 頁