Home

当天入院当天出院，死亡的按DRG结算－－正常出院的，按门诊计划结算。嗯，有道理－－医生转身对病人讲：你这情况要再多观察一两天，有DRG

刷到一篇文章－－DRGs与医院住院联邦报销－－图中有个长的像 E 的那个是什么东东？

DRGs拆分标准中－－“不一定满意的标准“的说法－－大概就是坐办公室好不容易分出来后很激动，拿到医院医生说：沙梨木……

Option Compare Database

Private Sub Form_Current()
    DoCmd.Maximize
End Sub
Private Sub Command11_Click()
Dim strWhere As String
    strWhere = "拼音 Like '*" & Me.Text6 & "*'"
    Me.S窗体.Form.Filter = strWhere
    Me.S窗体.Form.FilterOn = True
End Sub

Private Sub Command130_Click()
Dim strWhere As String
    strWhere = "五笔 Like '*" & Me.Text162 & "*'"
    Me.S窗体.Form.Filter = strWhere
    Me.S窗体.Form.FilterOn = True
End Sub

Private Sub Fdelall_Click()
     SQLSTR = "delete * from grade"
     DoCmd.SetWarnings False              ' 取消系统提示
    DoCmd.RunSQL SQLSTR            ' 运行查询
    DoCmd.SetWarnings True                ' 恢复系统提示
    Me.F窗体.Form.Requery
End Sub

Option Compare Database

Private Sub S序号_DblClick(Cancel As Integer)
  Call llx
End Sub

Private Sub S项目编码_DblClick(Cancel As Integer)
  Call llx
End Sub

Private Sub S项目名称_DblClick(Cancel As Integer)
  Call llx
End Sub

Private Sub S剂型_DblClick(Cancel As Integer)
  Call llx
End Sub
Private Sub S规格_DblClick(Cancel As Integer)
  Call llx
End Sub

Private Sub S厂家_DblClick(Cancel As Integer)
  Call llx
End Sub

Sub llx()
    SQLSTR = "insert into grade(项目编号, 项目名称,剂型, 厂家, 规格) SELECT  项目编号, 项目名称,剂型, 厂家, 规格 FROM ypk WHERE 序号 = " & Me.序号 & ""

    DoCmd.SetWarnings False              ' 取消系统提示
    DoCmd.RunSQL SQLSTR            ' 运行查询
    DoCmd.SetWarnings True                ' 恢复系统提示

    Me.Parent.F窗体.Form.Requery
End Sub

Option Compare Database

Private Sub F项目编号_DblClick(Cancel As Integer)
 Call Fdelone
End Sub

Private Sub F项目名称_DblClick(Cancel As Integer)
 Call Fdelone
End Sub

Private Sub F厂家_DblClick(Cancel As Integer)
   Call Fdelone
End Sub

Private Sub F规格_DblClick(Cancel As Integer)
 Call Fdelone
End Sub
Private Sub F剂型_DblClick(Cancel As Integer)
 Call Fdelone
End Sub

Sub Fdelone()
     SQLSTR = "delete * from grade WHERE  序号  = " & Me.序号 & ""
     DoCmd.SetWarnings False              ' 取消系统提示
    DoCmd.RunSQL SQLSTR            ' 运行查询
    DoCmd.SetWarnings True                ' 恢复系统提示
    Me.Form.Requery
End Sub