frmsick_tnb_fz.frm

医院糖尿病管理系统．是客户机服务器架构的

         Height          =   315
         Left            =   870
         TabIndex        =   14
         Top             =   390
         Width           =   1245
         _ExtentX        =   2196
         _ExtentY        =   556
         _Version        =   393216
         Format          =   24576001
         CurrentDate     =   38719
      End
      Begin VB.Label Label55 
         Caption         =   "大便"
         Height          =   255
         Left            =   180
         TabIndex        =   134
         Top             =   5460
         Width           =   495
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "其他症状："
         Height          =   180
         Left            =   180
         TabIndex        =   132
         Top             =   5925
         Width           =   900
      End
      Begin VB.Label Label54 
         AutoSize        =   -1  'True
         Caption         =   "P"
         Height          =   180
         Left            =   3300
         TabIndex        =   122
         Top             =   6600
         Width           =   90
      End
      Begin VB.Label Label53 
         AutoSize        =   -1  'True
         Caption         =   "P"
         Height          =   180
         Left            =   4020
         TabIndex        =   121
         Top             =   6600
         Width           =   90
      End
      Begin VB.Label Label52 
         AutoSize        =   -1  'True
         Caption         =   "R"
         Height          =   180
         Left            =   4020
         TabIndex        =   120
         Top             =   6180
         Width           =   90
      End
      Begin VB.Label Label51 
         AutoSize        =   -1  'True
         Caption         =   "R"
         Height          =   180
         Left            =   3300
         TabIndex        =   119
         Top             =   6180
         Width           =   90
      End
      Begin VB.Label Label50 
         AutoSize        =   -1  'True
         Caption         =   "P"
         Height          =   180
         Left            =   2460
         TabIndex        =   118
         Top             =   6600
         Width           =   90
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "R"
         Height          =   180
         Left            =   2490
         TabIndex        =   117
         Top             =   6180
         Width           =   90
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "现（未）用胰岛素（u）"
         Height          =   180
         Left            =   240
         TabIndex        =   116
         Top             =   6420
         Width           =   1890
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "现用口服降糖药物："
         Height          =   180
         Left            =   2460
         TabIndex        =   115
         Top             =   5940
         Width           =   1620
      End
      Begin VB.Label Label62 
         Caption         =   "复诊时间"
         Height          =   255
         Left            =   150
         TabIndex        =   114
         Top             =   450
         Width           =   735
      End
   End
End
Attribute VB_Name = "FrmSick_Tnb_Fz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim FStrDaID    As String
Dim FStrXH      As String

Private Sub CmdExit_Click()
    Unload Me
End Sub

Private Sub CmdRefresh_Click()
    Dim AdoRsSeek   As ADODB.Recordset
    Set AdoRsSeek = New ADODB.Recordset
    AdoRsSeek.Open " SELECT reSeeDcotorDate, BooldVal_Null, BooldVal_1h, BooldVal_2h, BooldVal_3h, " _
                 & "        linguaQuality, linguaTundra, pulse, passWeight, nowWeight, fat_all, fat_stomach, " _
                 & "        fat_limb, thin_all, thin_stomach, thin_limb, mouthdry, mouththirsty, timesDrink, " _
                 & "        timesfoods, timesstale, bodyWeakness, calfAcerbitybulge, thoraxBored, palpitation, " _
                 & "        loseHeart, insomnia, forgetful, moreDream, fantod, testiness, irritancy, costaBulge, " _
                 & "        costaAche, na_cha, wan_zhang, windy, haunchAcerbity, lumbago, blur, skinItch, " _
                 & "        HCA_upper_limbs, HCA_lower_limbs, heartache, giddy, HCA_back, HCA_abdomen, " _
                 & "        HCA_whole_Body, bloated_eyelid,bloated_2lower_limbs,bloated_whole_Body, " _
                 & "        defecate, piss_short_red, piss_clear_long, piss_acerbity, " _
                 & "        piss_disadvantage, othersace, nowlowcandy, insulinMorn, insulinLunck, " _
                 & "        insulinDinner, medication, BreakfastStapleFood, BreakfastSecondary, " _
                 & "        BreakfastGreens, LunchStapleFood, LunchSecondary, LunchGreens, " _
                 & "        dinnerStapleFood, dinnerSecondary, dinnerGreens, shadowboxing, fastWalk, dance, " _
                 & "        tableTennis, badminton, bowling, swimming, niu_yang_ge, otherWay, afterBreakfast, " _
                 & "        BreakfasTime, afterLunch, LunchTime, afterDinner, DinnerTime ,sportPower,aesculapius" _
                 & "   FROM jkda_sick_tnb_check_second " _
                 & "  WHERE daid='" + FStrDaID + "' AND xh= '" + FStrXH + "' ", PCnnHisDB, adOpenForwardOnly
        
    If Not (AdoRsSeek.EOF Or AdoRsSeek.BOF) Then
        DtpreSeeDoctordate.Value = Format(IIf(IsNull(AdoRsSeek.Fields("reSeeDcotorDate")), Now(), AdoRsSeek.Fields("reSeeDcotorDate")), "yyyy-mm-dd")
        TxtNull = IIf(IsNull(AdoRsSeek.Fields("BooldVal_Null")), "", AdoRsSeek.Fields("BooldVal_Null"))
        TxtOneHour = IIf(IsNull(AdoRsSeek.Fields("BooldVal_1h")), "", AdoRsSeek.Fields("BooldVal_1h"))
        TxtTwoHours = IIf(IsNull(AdoRsSeek.Fields("BooldVal_2h")), "", AdoRsSeek.Fields("BooldVal_2h"))
        TxtThreeHours = IIf(IsNull(AdoRsSeek.Fields("BooldVal_3h")), "", AdoRsSeek.Fields("BooldVal_3h"))
        TxtlinguaQuality = IIf(IsNull(AdoRsSeek.Fields("linguaQuality")), "", AdoRsSeek.Fields("linguaQuality"))
    

        TxtlinguaTundra = IIf(IsNull(AdoRsSeek.Fields("linguaTundra")), "", AdoRsSeek.Fields("linguaTundra"))
        Txtpulse = IIf(IsNull(AdoRsSeek.Fields("pulse")), "", AdoRsSeek.Fields("pulse"))
        TxtpassWeight = IIf(IsNull(AdoRsSeek.Fields("passWeight")), "", AdoRsSeek.Fields("passWeight"))
        TxtnowWeight = IIf(IsNull(AdoRsSeek.Fields("nowWeight")), "", AdoRsSeek.Fields("nowWeight"))
        Chkfat_all = IIf(IsNull(AdoRsSeek.Fields("fat_all")), 0, AdoRsSeek.Fields("fat_all"))
        Chkfat_stomach = IIf(IsNull(AdoRsSeek.Fields("fat_stomach")), 0, AdoRsSeek.Fields("fat_stomach"))
        
        Chkfat_limb = IIf(IsNull(AdoRsSeek.Fields("fat_limb")), 0, AdoRsSeek.Fields("fat_limb"))
        Chkthin_all = IIf(IsNull(AdoRsSeek.Fields("thin_all")), 0, AdoRsSeek.Fields("thin_all"))
        Chkthin_stomach = IIf(IsNull(AdoRsSeek.Fields("thin_stomach")), 0, AdoRsSeek.Fields("thin_stomach"))
        Chkthin_limb = IIf(IsNull(AdoRsSeek.Fields("thin_limb")), 0, AdoRsSeek.Fields("thin_limb"))
        Chkmouthdry = IIf(IsNull(AdoRsSeek.Fields("mouthdry")), 0, AdoRsSeek.Fields("mouthdry"))
        Chkmouththirsty = IIf(IsNull(AdoRsSeek.Fields("mouththirsty")), 0, AdoRsSeek.Fields("mouththirsty"))
        ChktimesDrink = IIf(IsNull(AdoRsSeek.Fields("timesDrink")), 0, AdoRsSeek.Fields("timesDrink"))
        Chktimesfoods = IIf(IsNull(AdoRsSeek.Fields("timesfoods")), 0, AdoRsSeek.Fields("timesfoods"))
        Chktimesstale = IIf(IsNull(AdoRsSeek.Fields("timesstale")), 0, AdoRsSeek.Fields("timesstale"))
        ChkbodyWeakness = IIf(IsNull(AdoRsSeek.Fields("bodyWeakness")), 0, AdoRsSeek.Fields("bodyWeakness"))
        ChkcalfAcerbitybulge = IIf(IsNull(AdoRsSeek.Fields("calfAcerbitybulge")), 0, AdoRsSeek.Fields("calfAcerbitybulge"))
        ChkthoraxBored = IIf(IsNull(AdoRsSeek.Fields("thoraxBored")), 0, AdoRsSeek.Fields("thoraxBored"))
        Chkpalpitation = IIf(IsNull(AdoRsSeek.Fields("palpitation")), 0, AdoRsSeek.Fields("palpitation"))
        ChkloseHeart = IIf(IsNull(AdoRsSeek.Fields("loseHeart")), 0, AdoRsSeek.Fields("loseHeart"))
        Chkinsomnia = IIf(IsNull(AdoRsSeek.Fields("insomnia")), 0, AdoRsSeek.Fields("insomnia"))
        
        Chkforgetful = IIf(IsNull(AdoRsSeek.Fields("forgetful")), 0, AdoRsSeek.Fields("forgetful"))
        ChkmoreDream = IIf(IsNull(AdoRsSeek.Fields("moreDream")), 0, AdoRsSeek.Fields("moreDream"))
        Chkfantod = IIf(IsNull(AdoRsSeek.Fields("fantod")), 0, AdoRsSeek.Fields("fantod"))
        Chktestiness = IIf(IsNull(AdoRsSeek.Fields("testiness")), 0, AdoRsSeek.Fields("testiness"))
        Chkirritancy = IIf(IsNull(AdoRsSeek.Fields("irritancy")), 0, AdoRsSeek.Fields("irritancy"))
        ChkcostaBulge = IIf(IsNull(AdoRsSeek.Fields("costaBulge")), 0, AdoRsSeek.Fields("costaBulge"))
        ChkcostaAche = IIf(IsNull(AdoRsSeek.Fields("costaAche")), 0, AdoRsSeek.Fields("costaAche"))
        Chkna_cha = IIf(IsNull(AdoRsSeek.Fields("na_cha")), 0, AdoRsSeek.Fields("na_cha"))
        Chkwan_zhang = IIf(IsNull(AdoRsSeek.Fields("wan_zhang")), 0, AdoRsSeek.Fields("wan_zhang"))
        Chkwindy = IIf(IsNull(AdoRsSeek.Fields("windy")), 0, AdoRsSeek.Fields("windy"))
        ChkhaunchAcerbity = IIf(IsNull(AdoRsSeek.Fields("haunchAcerbity")), 0, AdoRsSeek.Fields("haunchAcerbity"))
        Chklumbago = IIf(IsNull(AdoRsSeek.Fields("lumbago")), 0, AdoRsSeek.Fields("lumbago"))
        Chkblur = IIf(IsNull(AdoRsSeek.Fields("blur")), 0, AdoRsSeek.Fields("blur"))

        ChkskinItch = IIf(IsNull(AdoRsSeek.Fields("skinItch")), 0, AdoRsSeek.Fields("skinItch"))
        ChkHCAupper_limbs = IIf(IsNull(AdoRsSeek.Fields("HCA_upper_limbs")), 0, AdoRsSeek.Fields("HCA_upper_limbs"))
        ChkHCAlower_limbs = IIf(IsNull(AdoRsSeek.Fields("HCA_lower_limbs")), 0, AdoRsSeek.Fields("HCA_lower_limbs"))
        Chkheartache = IIf(IsNull(AdoRsSeek.Fields("heartache")), 0, AdoRsSeek.Fields("heartache"))
        Chkgiddy = IIf(IsNull(AdoRsSeek.Fields("giddy")), 0, AdoRsSeek.Fields("giddy"))
        ChkHCA_back = IIf(IsNull(AdoRsSeek.Fields("HCA_back")), 0, AdoRsSeek.Fields("HCA_back"))
        ChkHCA_abdomen = IIf(IsNull(AdoRsSeek.Fields("HCA_abdomen")), 0, AdoRsSeek.Fields("HCA_abdomen"))
        ChkHCAwhole_Body = IIf(IsNull(AdoRsSeek.Fields("HCA_whole_Body")), 0, AdoRsSeek.Fields("HCA_whole_Body"))
        Chkeyelid = IIf(IsNull(AdoRsSeek.Fields("bloated_eyelid")), 0, AdoRsSeek.Fields("bloated_eyelid"))
        Chk2lower_limbs = IIf(IsNull(AdoRsSeek.Fields("bloated_2lower_limbs")), 0, AdoRsSeek.Fields("bloated_2lower_limbs"))
        Chkwhole_Body = IIf(IsNull(AdoRsSeek.Fields("bloated_whole_Body")), 0, AdoRsSeek.Fields("bloated_whole_Body"))

        Comdefecate = IIf(IsNull(AdoRsSeek.Fields("defecate")), 0, AdoRsSeek.Fields("defecate"))
        Chkpiss_short_red = IIf(IsNull(AdoRsSeek.Fields("piss_short_red")), 0, AdoRsSeek.Fields("piss_short_red"))
        Chkpiss_clear_long = IIf(IsNull(AdoRsSeek.Fields("piss_clear_long")), 0, AdoRsSeek.Fields("piss_clear_long"))
        Chkpiss_acerbity = IIf(IsNull(AdoRsSeek.Fields("piss_acerbity")), 0, AdoRsSeek.Fields("piss_acerbity"))
        Chkpiss_disadvantage = IIf(IsNull(AdoRsSeek.Fields("piss_disadvantage")), 0, AdoRsSeek.Fields("piss_disadvantage"))
        Comothersace = IIf(IsNull(AdoRsSeek.Fields("othersace")), 0, AdoRsSeek.Fields("othersace"))
        Txtnowlowcandy = IIf(IsNull(AdoRsSeek.Fields("nowlowcandy")), "", AdoRsSeek.Fields("nowlowcandy"))
        ChkinsulinMorn = IIf(IsNull(AdoRsSeek.Fields("insulinMorn")), 0, AdoRsSeek.Fields("insulinMorn"))
        ChkinsulinLunck = IIf(IsNull(AdoRsSeek.Fields("insulinLunck")), 0, AdoRsSeek.Fields("insulinLunck"))
        ChkinsulinDinner = IIf(IsNull(AdoRsSeek.Fields("insulinDinner")), 0, AdoRsSeek.Fields("insulinDinner"))
        
        Txtmedication = IIf(IsNull(AdoRsSeek.Fields("medication")), "", AdoRsSeek.Fields("medication"))
        TxtBreakfastStapleFood = IIf(IsNull(AdoRsSeek.Fields("BreakfastStapleFood")), "", AdoRsSeek.Fields("BreakfastStapleFood"))
        TxtBreakfastSecondary = IIf(IsNull(AdoRsSeek.Fields("BreakfastSecondary")), "", AdoRsSeek.Fields("BreakfastSecondary"))
        TxtBreakfastGreens = IIf(IsNull(AdoRsSeek.Fields("BreakfastGreens")), "", AdoRsSeek.Fields("BreakfastGreens"))
        TxtLunchStapleFood = IIf(IsNull(AdoRsSeek.Fields("LunchStapleFood")), "", AdoRsSeek.Fields("LunchStapleFood"))
        TxtLunchSecondary = IIf(IsNull(AdoRsSeek.Fields("LunchSecondary")), "", AdoRsSeek.Fields("LunchSecondary"))
        TxtLunchGreens = IIf(IsNull(AdoRsSeek.Fields("LunchGreens")), "", AdoRsSeek.Fields("LunchGreens"))
        TxtdinnerStapleFood = IIf(IsNull(AdoRsSeek.Fields("dinnerStapleFood")), "", AdoRsSeek.Fields("dinnerStapleFood"))

        TxtdinnerSecondary = IIf(IsNull(AdoRsSeek.Fields("dinnerSecondary")), "", AdoRsSeek.Fields("dinnerSecondary"))
        TxtdinnerGreens = IIf(IsNull(AdoRsSeek.Fields("dinnerGreens")), "", AdoRsSeek.Fields("dinnerGreens"))
        Chkshadowboxing = IIf(IsNull(AdoRsSeek.Fields("shadowboxing")), 0, AdoRsSeek.Fields("shadowboxing"))
        ChkfastWalk = IIf(IsNull(AdoRsSeek.Fields("fastWalk")), 0, AdoRsSeek.Fields("fastWalk"))
        Chkdance = IIf(IsNull(AdoRsSeek.Fields("dance")), 0, AdoRsSeek.Fields("dance"))
        ChktableTennis = IIf(IsNull(AdoRsSeek.Fields("tableTennis")), 0, AdoRsSeek.Fields("tableTennis"))
        Chkbadminton = IIf(IsNull(AdoRsSeek.Fields("badminton")), 0, AdoRsSeek.Fields("badminton"))
        Chkbowling = IIf(IsNull(AdoRsSeek.Fields("bowling")), 0, AdoRsSeek.Fields("bowling"))
        Chkswimming = IIf(IsNull(AdoRsSeek.Fields("swimming")), 0, AdoRsSeek.Fields("swimming"))
        Chkniu_yang_ge = IIf(IsNull(AdoRsSeek.Fields("niu_yang_ge")), 0, AdoRsSeek.Fields("niu_yang_ge"))
        TxtotherWay = IIf(IsNull(AdoRsSeek.Fields("otherWay")), "", AdoRsSeek.Fields("otherWay"))
        TxtafterBreakfast = IIf(IsNull(AdoRsSeek.Fields("afterBreakfast")), "", AdoRsSeek.Fields("afterBreakfast"))
        TxtBreakfasTime = IIf(IsNull(AdoRsSeek.Fields("BreakfasTime")), "", AdoRsSeek.Fields("BreakfasTime"))
        TxtafterLunch = IIf(IsNull(AdoRsSeek.Fields("afterLunch")), "", AdoRsSeek.Fields("afterLunch"))
        TxtLunchTime = IIf(IsNull(AdoRsSeek.Fields("LunchTime")), "", AdoRsSeek.Fields("LunchTime"))
        TxtafterDinner = IIf(IsNull(AdoRsSeek.Fields("afterDinner")), "", AdoRsSeek.Fields("afterDinner"))
        TxtDinnerTime = IIf(IsNull(AdoRsSeek.Fields("DinnerTime")), "", AdoRsSeek.Fields("DinnerTime"))
        TxtsportPower = IIf(IsNull(AdoRsSeek.Fields("sportPower")), "", AdoRsSeek.Fields("sportPower"))
        Txtaesculapius = IIf(IsNull(AdoRsSeek.Fields("aesculapius")), "", AdoRsSeek.Fields("aesculapius"))
    End If
    
    AdoRsSeek.Close: Set AdoRsSeek = Nothing
End Sub

Private Sub CmdSave_Click()
    Dim AdoRsTmp    As ADODB.Recordset
    Set AdoRsTmp = New ADODB.Recordset
        
    PCnnHisDB.BeginTrans
    If FrmSick_Tnb_Fz.Tag = "1" Or FrmSick_Tnb_Fz.Tag = "" Then
        AdoRsTmp.Open "SELECT MAX(xh)+1 FROM jkda_sick_tnb_check_second WHERE daid='" + FStrDaID + "' ", PCnnHisDB, adOpenForwardOnly
        If Not IsNull(AdoRsTmp.Fields(0)) Then FStrXH = AdoRsTmp.Fields(0) Else FStrXH = 1
        PCnnHisDB.Execute "INSERT INTO jkda_sick_tnb_check_second(daid, xh) VALUES('" + FStrDaID + "', " + FStrXH + ") "
    End If
    
    If FrmSick_Tnb_Fz.Tag = "1" Or FrmSick_Tnb_Fz.Tag = "2" Then
    

        
        PCnnHisDB.Execute " UPDATE jkda_sick_tnb_check_second " _
                        & "    SET reSeeDcotorDate='" + Format(DtpreSeeDoctordate, "yyyy-mm-dd") + "', BooldVal_Null='" + Trim(TxtNull) + "', BooldVal_1h='" + Trim(TxtOneHour) + "', BooldVal_2h='" + Trim(TxtTwoHours) + "', BooldVal_3h='" + Trim(TxtThreeHours) + "'," _
                        & "        linguaQuality='" + Trim(TxtlinguaQuality) + "', linguaTundra='" + Trim(TxtlinguaTundra) + "', pulse='" + Trim(Txtpulse) + "', passWeight='" + Trim(TxtpassWeight) + "', nowWeight='" + Trim(TxtnowWeight) + "', fat_all='" + CStr(Chkfat_all) + "', fat_stomach='" + CStr(Chkfat_stomach) + "'," _
                        & "        fat_limb='" + CStr(Chkfat_limb) + "', thin_all='" + CStr(Chkthin_all) + "', thin_stomach='" + CStr(Chkthin_stomach) + "', thin_limb='" + CStr(Chkthin_limb) + "', mouthdry='" + CStr(Chkmouthdry) + "', mouththirsty='" + CStr(Chkmouththirsty) + "', timesDrink='" + CStr(ChktimesDrink) + "'," _
                        & "        timesfoods='" + CStr(Chktimesfoods) + "', timesstale='" + CStr(Chktimesstale) + "', bodyWeakness='" + CStr(ChkbodyWeakness) + "', calfAcerbitybulge='" + CStr(ChkcalfAcerbitybulge) + "',thoraxBored='" + CStr(ChkthoraxBored) + "', palpitation='" + CStr(Chkpalpitation) + "', " _
                        & "        loseHeart='" + CStr(ChkloseHeart) + "', insomnia='" + CStr(Chkinsomnia) + "', forgetful='" + CStr(Chkforgetful) + "', moreDream='" + CStr(ChkmoreDream) + "', fantod='" + CStr(Chkfantod) + "', testiness='" + CStr(Chktestiness) + "', irritancy='" + CStr(Chkirritancy) + "', costaBulge='" + CStr(ChkcostaBulge) + "'," _
                        & "        costaAche='" + CStr(ChkcostaAche) + "', na_cha='" + CStr(Chkna_cha) + "', wan_zhang='" + CStr(Chkwan_zhang) + "', windy='" + CStr(Chkwindy) + "', haunchAcerbity='" + CStr(ChkhaunchAcerbity) + "', lumbago='" + CStr(Chklumbago) + "', heartache='" + CStr(Chkheartache) + "', giddy='" + CStr(Chkgiddy) + "'," _
                        & "        blur='" + CStr(Chkblur) + "', skinItch='" + CStr(ChkskinItch) + "', HCA_upper_limbs='" + CStr(ChkHCAupper_limbs) + "', HCA_lower_limbs='" + CStr(ChkHCAlower_limbs) + "', HCA_back='" + CStr(ChkHCA_back) + "', HCA_abdomen='" + CStr(ChkHCA_abdomen) + "'," _
                        & "        HCA_whole_Body='" + CStr(ChkHCAwhole_Body) + "', bloated_eyelid='" + CStr(Chkeyelid) + "', bloated_2lower_limbs='" + CStr(Chk2lower_limbs) + "', bloated_whole_Body='" + CStr(Chkwhole_Body) + "', defecate='" + Comdefecate + "', piss_short_red='" + CStr(Chkpiss_short_red) + "', piss_clear_long='" + CStr(Chkpiss_clear_long) + "', piss_acerbity='" + CStr(Chkpiss_acerbity) + "', " _
                        & "        piss_disadvantage='" + CStr(Chkpiss_disadvantage) + "', othersace='" + Comothersace + "', nowlowcandy='" + Txtnowlowcandy + "', insulinMorn='" + CStr(ChkinsulinMorn) + "', insulinLunck='" + CStr(ChkinsulinLunck) + "'," _
                        & "        insulinDinner='" + CStr(ChkinsulinDinner) + "', medication='" + Txtmedication + "', BreakfastStapleFood='" + TxtBreakfastStapleFood + "', BreakfastSecondary='" + TxtBreakfastSecondary + "'," _
                        & "        BreakfastGreens='" + TxtBreakfastGreens + "', LunchStapleFood='" + TxtLunchStapleFood + "', LunchSecondary='" + TxtLunchSecondary + "', LunchGreens='" + TxtLunchGreens + "'," _
                        & "        dinnerStapleFood='" + TxtdinnerStapleFood + "', dinnerSecondary='" + TxtdinnerSecondary + "', dinnerGreens='" + TxtdinnerGreens + "', shadowboxing='" + CStr(Chkshadowboxing) + "'," _
                        & "        fastWalk='" + CStr(ChkfastWalk) + "', dance='" + CStr(Chkdance) + "', tableTennis='" + CStr(ChktableTennis) + "', badminton='" + CStr(Chkbadminton) + "', bowling='" + CStr(Chkbowling) + "', swimming='" + CStr(Chkswimming) + "', niu_yang_ge='" + CStr(Chkniu_yang_ge) + "'," _
                        & "        otherWay='" + TxtotherWay + "', afterBreakfast='" + TxtafterBreakfast + "', BreakfasTime='" + TxtBreakfasTime + "', afterLunch='" + TxtafterLunch + "', LunchTime='" + TxtLunchTime + "', afterDinner='" + TxtafterDinner + "'," _
                        & "        DinnerTime='" + TxtDinnerTime + "', sportPower='" + TxtsportPower + "', aesculapius='" + Txtaesculapius + "' " _
                        & "  WHERE daid='" + FStrDaID + "' AND xh='" + FStrXH + "' "
    End If
    
'   ==Format(DtpSeeDcotordate, "yyyy-mm-dd")


    
    If FrmSick_Tnb_Fz.Tag = "3" Then
        PCnnHisDB.Execute "DELETE FROM jkda_sick_tnb_check_second WHERE daid='" + FStrDaID + "' AND xh=" + FStrXH + " "
    End If
    
    If CBool(PCnnHisDB.State And adStateExecuting) Then
        PCnnHisDB.Cancel
        PCnnHisDB.RollbackTrans
        MsgBox "操作失败，请重试。", vbCritical, "提示"
        Exit Sub
    Else
        PCnnHisDB.CommitTrans
        MsgBox "保存成功，请继续。", vbInformation, "提示"
        Unload Me
        Call FrmSick_Tnb_main.CmdFzRefresh_Click
    End If
End Sub

Private Sub Form_Load()
    Me.Move 0, 1150
    FStrDaID = FrmSick_Tnb_main.PStrDaID
    FStrXH = FrmSick_Tnb_main.PStrXH
    Call CmdRefresh_Click
End Sub