毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

医院挂号划价管理信息系统 第6页

更新时间:2008-6-25:  来源:毕业论文

医院挂号划价管理信息系统 第6页

 ByVal e As System.EventArgs) Handles btnCancel.Click

        Me.ClearMX()

        Me.Clear()

        Me.dtDetail.Rows.Clear()

        Me.iCurrentLine = -1

    End Sub

 

    Private Sub btnInsert_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles btnInsert.Click

        If Me.dtDetail.Rows.Count = 0 Then

            Return

        End If

        Dim strSQL As String = ""

        Dim db As DataBase = New DataBase

        strSQL = "select max(编号) as 编号 from 门诊划价 where "

        strSQL += "编号 like '" + Date.Now.Year.ToString + "%'"

        Dim dv As DataView = db.RunSelectSQL(strSQL)

        Dim strId As String = "0000001"

        Dim strTmp As String = "0000000"

        Dim id As Integer = 0

        If dv(0)(0).GetType.ToString <> "System.DBNull" Then

            strId = dv(0)(0).ToString.Substring(4)

            id = CInt(strId) + 1

            strId = _

            strTmp.Substring(0, strTmp.Length - id.ToString.Length)

            strId += id.ToString

        End If

        strId = Date.Now.Year.ToString + strId

        strSQL = " Insert into 门诊划价(编号, 科室, 挂号编号, 医生, "

        strSQL += "划价时间, 划价员, 是否收费,划价金额, 是否发药) "

        strSQL += "values ('" + strId + "','" + cbbRoom.Text + "','"

        strSQL += txbId.Text.Trim + "','"

        strSQL += cbbDoctor.Text.Trim + "','"

        strSQL += Date.Now.ToString + "','张三','',"

        strSQL += txbMoney.Text.Trim + ",'')  "

        For Each dr As DataRow In dtDetail.Rows

            strSQL += "  Insert into 门诊划价明细(划价编号,"

            strSQL += " 药品编号, 单价, 数量, 金额) values ('"

            strSQL += strId + "','" + dr("编号") + "','" + dr("单价")

            strSQL += "','" + dr("数量") + "','" + dr("金额") + "')  "

        Next

        db.RunDelOrInsSQL(strSQL)

        strSQL = " update 门诊挂号 set 是否已划价='' where 编号 = '"

        strSQL += txbId.Text.Trim + "'"

        db.RunDelOrInsSQL(strSQL)

        db.Dispose()

        Me.ClearMX()

        Me.Clear()

        Me.dtDetail.Rows.Clear()

        Me.iCurrentLine = -1

    End Sub

End Class

4.1    系统使用说明书

软件的安装需要以下几步,按照要求配置使用软件。

1 搭架网络体系,配置好基本硬件。

2 安装服务器、客户机操作系统。Windows Server2003windows XP

3 安装企业版SQL SERVER 2000。导入数据库的数据。

4 客户端软件,测试运行。

5、 软件使用文护

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

医院挂号划价管理信息系统 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。