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 Server2003,windows XP。
3、 安装企业版SQL SERVER 2000。导入数据库的数据。
4、 客户端软件,测试运行。
5、 软件使用文护
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页