📄 formfzdj.frm
字号:
Left = 1530
TabIndex = 136
Top = 240
Width = 600
End
Begin VB.TextBox TxtlinguaQuality
Height = 270
Left = 510
TabIndex = 135
Top = 240
Width = 600
End
Begin VB.Label Label115
Caption = "舌质"
Height = 255
Left = 120
TabIndex = 5
Top = 285
Width = 375
End
Begin VB.Label Label116
Caption = "舌苔"
Height = 195
Left = 2220
TabIndex = 4
Top = 270
Width = 375
End
Begin VB.Label Label117
Caption = "脉象"
Height = 255
Left = 1170
TabIndex = 3
Top = 285
Width = 375
End
End
Begin VB.Frame Frame12
Caption = "血糖（mmol/l）"
Height = 615
Left = 2100
TabIndex = 1
Top = 270
Width = 3285
Begin VB.TextBox txtoneHour
Height = 270
Left = 2730
TabIndex = 126
Top = 240
Width = 495
End
Begin VB.TextBox txtthreeHours
Height = 270
Left = 1170
TabIndex = 125
Top = 240
Width = 465
End
Begin VB.TextBox txttwoHours
Height = 270
Left = 1920
TabIndex = 124
Top = 240
Width = 465
End
Begin VB.TextBox txtnull
Height = 270
Left = 360
TabIndex = 123
Top = 240
Width = 465
End
Begin VB.Label Label114
Caption = "1h"
Height = 255
Left = 2490
TabIndex = 130
Top = 240
Width = 255
End
Begin VB.Label Label113
Caption = "2h"
Height = 255
Left = 1680
TabIndex = 129
Top = 240
Width = 255
End
Begin VB.Label Label112
Caption = "3h"
Height = 255
Left = 900
TabIndex = 128
Top = 240
Width = 255
End
Begin VB.Label Label111
Caption = "oh"
Height = 255
Left = 120
TabIndex = 127
Top = 240
Width = 255
End
End
Begin MSComCtl2.DTPicker DtpreSeeDoctordate
Height = 375
Left = 840
TabIndex = 13
Top = 390
Width = 1245
_ExtentX = 2196
_ExtentY = 661
_Version = 393216
Format = 24444929
CurrentDate = 38719
End
Begin VB.Label Label55
Caption = "大便"
Height = 255
Left = 120
TabIndex = 134
Top = 5460
Width = 495
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "其他症状："
Height = 180
Left = 120
TabIndex = 132
Top = 5925
Width = 900
End
Begin VB.Label Label54
AutoSize = -1 'True
Caption = "P"
Height = 180
Left = 3240
TabIndex = 122
Top = 6600
Width = 90
End
Begin VB.Label Label53
AutoSize = -1 'True
Caption = "P"
Height = 180
Left = 3960
TabIndex = 121
Top = 6600
Width = 90
End
Begin VB.Label Label52
AutoSize = -1 'True
Caption = "R"
Height = 180
Left = 3960
TabIndex = 120
Top = 6180
Width = 90
End
Begin VB.Label Label51
AutoSize = -1 'True
Caption = "R"
Height = 180
Left = 3240
TabIndex = 119
Top = 6180
Width = 90
End
Begin VB.Label Label50
AutoSize = -1 'True
Caption = "P"
Height = 180
Left = 2400
TabIndex = 118
Top = 6600
Width = 90
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "R"
Height = 180
Left = 2430
TabIndex = 117
Top = 6180
Width = 90
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "现（未）用胰岛素（u）"
Height = 180
Left = 180
TabIndex = 116
Top = 6420
Width = 1890
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "现用口服降糖药物："
Height = 180
Left = 2400
TabIndex = 115
Top = 5940
Width = 1620
End
Begin VB.Label Label62
Caption = "复诊时间"
Height = 255
Left = 90
TabIndex = 114
Top = 480
Width = 735
End
End
End
Attribute VB_Name = "Formfzbl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub CmdSave_Click()
PCnnHisDB.Execute "reSeeDcotorDate='" + Format(DtpreSeeDoctordate, "yyyy-mm-dd") + "', BooldVal_Null='" + txtnull + "', BooldVal_1h='" + txtoneHour + "', BooldVal_2h='" + txttwoHours + "', BooldVal_3h='" + txtthreeHours + "', " _
& "linguaQuality='" + TxtlinguaQuality + "', linguaTundra='" + TxtlinguaTundra + "', pulse='" + Txtpulse + "', passWeight='" + TxtpassWeight + "', nowWeight='" + TxtnowWeight + "', fat_all='" + Chkfat_all + "', fat_stomach='" + Chkfat_stomach + "'," _
& "fat_limb='" + Chkfat_limb + "', thin_all='" + Chkthin_all + "', thin_stomach='" + Chkthin_stomach + "', thin_limb='" + Chkthin_limb + "', mouthdry='" + Chkmouthdry + "', mouththirsty='" + Chkmouththirsty + "', timesDrink='" + ChktimesDrink + "'," _
& "timesfoods='" + Chktimesfoods + "', timesstale='" + Chktimesstale + "', bodyWeakness='" + ChkbodyWeakness + "', calfAcerbitybulge='" + ChkcalfAcerbitybulge + "', thoraxBored='" + ChkthoraxBored + "', palpitation='" + Chkpalpitation + "'," _
& "loseHeart='" + ChkloseHeart + "', insomnia='" + Chkinsomnia + "', forgetful='" + Chkforgetful + "', moreDream='" + ChkmoreDream + "', fantod='" + Chkfantod + "', testiness='" + Chktestiness + "', irritancy='" + Chkirritancy + "', costaBulge='" + ChkcostaBulge + "'," _
& "costaAche='" + ChkcostaAche + "', na_cha='" + Chkna_cha + "', wan_zhang='" + Chkwan_zhang + "', windy='" + Chkwindy + "', haunchAcerbity='" + ChkhaunchAcerbity + "', lumbago='" + Chklumbago + "', heartache='" + Chkheartache + "', giddy='" + Chkgiddy + "'," _
& "blur='" + Chkblur + "', skinItch='" + ChkskinItch + "', HCA_upper_limbs='" + ChkHCAupper_limbs + "', HCA_lower_limbs='" + ChkHCAlower_limbs + "', HCA_back='" + ChkHCA_back + "', HCA_abdomen='" + ChkHCA_abdomen + "'," _
& "HCA_whole_Body='" + ChkHCAwhole_Body + "', bloated_eyelid='" + Chkeyelid + "', bloated_2lower_limbs='" + Chk2lower_limbs + "', bloated_whole_Body='" + Chkwhole_Body + "', defecate='" + Comdefecate + "', piss_short_red='" + Chkpiss_short_red + "', piss_clear_long='" + Chkpiss_clear_long + "', piss_acerbity='" + Chkpiss_acerbity + "'," _
& "piss_disadvantage='" + Chkpiss_disadvantage + "', othersace='" + Comothersace + "', nowlowcandy='" + Txtnowlowcandy + "', insulinMorn='" + ChkinsulinMorn + "', insulinLunck='" + ChkinsulinLunck + "'," _
& "insulinDinner='" + ChkinsulinDinner + "', medication='" + Txtmedication + "', BreakfastStapleFood='" + TxtBreakfastStapleFood + "', BreakfastSecondary='" + TxtBreakfastSecondary + "'," _
& "BreakfastGreens='" + TxtBreakfastGreens + "', LunchStapleFood='" + TxtLunchStapleFood + "', LunchSecondary='" + TxtLunchSecondary + "', LunchGreens='" + TxtLunchGreens + "'," _
& "dinnerStapleFood='" + TxtdinnerStapleFood + "', dinnerSecondary='" + TxtdinnerSecondary + "', dinnerGreens='" + TxtdinnerGreens + "', shadowboxing='" + Chkshadowboxing + "'," _
& "fastWalk='" + ChkfastWalk + "', dance='" + Chkdance + "', tableTennis='" + ChktableTennis + "', badminton='" + Chkbadminton + "', bowling='" + Chkbowling + "', swimming='" + Chkswimming + "', niu_yang_ge='" + Chkniu_yang_ge + "'," _
& "otherWay='" + TxtotherWay + "', afterBreakfast='" + TxtafterBreakfast + "', BreakfasTime='" + TxtBreakfasTime + "', afterLunch='" + TxtafterLunch + "', LunchTime='" + TxtLunchTime + "', afterDinner='" + TxtafterDinner + "'," _
& "DinnerTime='" + TxtDinnerTime + "', sportPower='" + TxtsportPower + "', aesculapius='" + Txtaesculapius + "'"
End Sub
Private Sub Form_Load()
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" _
& "FROM jkda_sick_tnb_check_second", PCnnHisDB, adOpenForwardOnly
If AdoRsSeek.EOF Or AdoRsSeek.BOF Then
Else
AdoRsSeek.MoveFirst
While Not AdoRsSeek.EOF
DtpreSeeDoctordate = AdoRsSeek.Fields("reSeeDcotorDate")
txtnull = AdoRsSeek.Fields("BooldVal_Null")
txtoneHour = AdoRsSeek.Fields("BooldVal_1h")
txttwoHours = AdoRsSeek.Fields("BooldVal_2h")
txtthreeHours = AdoRsSeek.Fields("BooldVal_3h")
TxtlinguaQuality = AdoRsSeek.Fields("linguaQuality")
TxtlinguaTundra = AdoRsSeek.Fields("linguaTundra")
Txtpulse = AdoRsSeek.Fields("pulse")
TxtpassWeight = AdoRsSeek.Fields("passWeight")
TxtnowWeight = AdoRsSeek.Fields("nowWeight")
Chkfat_all = AdoRsSeek.Fields("fat_all")
Chkfat_stomach = AdoRsSeek.Fields("fat_stomach")
Chkfat_limb = AdoRsSeek.Fields("fat_limb")
Chkthin_all = AdoRsSeek.Fields("thin_all")
Chkthin_stomach = AdoRsSeek.Fields("thin_stomach")
Chkthin_limb = AdoRsSeek.Fields("thin_limb")
Chkmouthdry = AdoRsSeek.Fields("mouthdry")
Chkmouththirsty = AdoRsSeek.Fields("mouththirsty")
ChktimesDrink = AdoRsSeek.Fields("timesDrink")
Chktimesfoods = AdoRsSeek.Fields("timesfoods")
Chktimesstale = AdoRsSeek.Fields("timesstale")
ChkbodyWeakness = AdoRsSeek.Fields("bodyWeakness")
ChkcalfAcerbitybulge = AdoRsSeek.Fields("calfAcerbitybulge")
ChkthoraxBored = AdoRsSeek.Fields("thoraxBored")
Chkpalpitation = AdoRsSeek.Fields("palpitation")
ChkloseHeart = AdoRsSeek.Fields("loseHeart")
Chkinsomnia = AdoRsSeek.Fields("insomnia")
Chkforgetful = AdoRsSeek.Fields("forgetful")
ChkmoreDream = AdoRsSeek.Fields("moreDream")
Chkfantod = AdoRsSeek.Fields("fantod")
Chktestiness = AdoRsSeek.Fields("testiness")
Chkirritancy = AdoRsSeek.Fields("irritancy")
ChkcostaBulge = AdoRsSeek.Fields("costaBulge")
ChkcostaAche = AdoRsSeek.Fields("costaAche")
Chkna_cha = AdoRsSeek.Fields("na_cha")
Chkwan_zhang = AdoRsSeek.Fields("wan_zhang")
Chkwindy = AdoRsSeek.Fields("windy")
ChkhaunchAcerbity = AdoRsSeek.Fields("haunchAcerbity")
Chklumbago = AdoRsSeek.Fields("lumbago")
Chkblur = AdoRsSeek.Fields("blur")
ChkskinItch = AdoRsSeek.Fields("skinItch")
ChkHCAupper_limbs = AdoRsSeek.Fields("HCA_upper_limbs")
ChkHCAlower_limbs = AdoRsSeek.Fields("HCA_lower_limbs")
Chkheartache = AdoRsSeek.Fields("heartache")
Chkgiddy = AdoRsSeek.Fields("giddy")
ChkHCA_back = AdoRsSeek.Fields("HCA_back")
ChkHCA_abdomen = AdoRsSeek.Fields("HCA_abdomen")
ChkHCAwhole_Body = AdoRsSeek.Fields("HCA_whole_Body")
Chkeyelid = AdoRsSeek.Fields("bloated_eyelid")
Chk2lower_limbs = AdoRsSeek.Fields("bloated_2lower_limbs")
Chkwhole_Body = AdoRsSeek.Fields("bloated_whole_Body")
Comdefecate = AdoRsSeek.Fields("defecate")
Chkpiss_short_red = AdoRsSeek.Fields("piss_short_red")
Chkpiss_clear_long = AdoRsSeek.Fields("piss_clear_long")
Chkpiss_acerbity = AdoRsSeek.Fields("piss_acerbity")
Chkpiss_disadvantage = AdoRsSeek.Fields("piss_disadvantage")
Comothersace = AdoRsSeek.Fields("othersace")
Txtnowlowcandy = AdoRsSeek.Fields("nowlowcandy")
ChkinsulinMorn = AdoRsSeek.Fields("insulinMorn")
ChkinsulinLunck = AdoRsSeek.Fields("insulinLunck")
ChkinsulinDinner = AdoRsSeek.Fields("insulinDinner")
Txtmedication = AdoRsSeek.Fields("medication")
TxtBreakfastStapleFood = AdoRsSeek.Fields("BreakfastStapleFood")
TxtBreakfastSecondary = AdoRsSeek.Fields("BreakfastSecondary")
TxtBreakfastGreens = AdoRsSeek.Fields("BreakfastGreens")
TxtLunchStapleFood = AdoRsSeek.Fields("LunchStapleFood")
TxtLunchSecondary = AdoRsSeek.Fields("LunchSecondary")
TxtLunchGreens = AdoRsSeek.Fields("LunchGreens")
TxtdinnerStapleFood = AdoRsSeek.Fields("dinnerStapleFood")
TxtdinnerSecondary = AdoRsSeek.Fields("dinnerSecondary")
TxtdinnerGreens = AdoRsSeek.Fields("dinnerGreens")
Chkshadowboxing = AdoRsSeek.Fields("shadowboxing")
ChkfastWalk = AdoRsSeek.Fields("fastWalk")
Chkdance = AdoRsSeek.Fields("dance")
ChktableTennis = AdoRsSeek.Fields("tableTennis")
Chkbadminton = AdoRsSeek.Fields("badminton")
Chkbowling = AdoRsSeek.Fields("bowling")
Chkswimming = AdoRsSeek.Fields("swimming")
Chkniu_yang_ge = AdoRsSeek.Fields("niu_yang_ge")
TxtotherWay = AdoRsSeek.Fields("otherWay")
TxtafterBreakfast = AdoRsSeek.Fields("afterBreakfast")
TxtBreakfasTime = AdoRsSeek.Fields("BreakfasTime")
TxtafterLunch = AdoRsSeek.Fields("afterLunch")
TxtLunchTime = AdoRsSeek.Fields("LunchTime")
TxtafterDinner = AdoRsSeek.Fields("afterDinner")
TxtDinnerTime = AdoRsSeek.Fields("DinnerTime")
TxtsportPower = AdoRsSeek.Fields("sportPower")
Txtaesculapius = AdoRsSeek.Fields("aesculapius")
AdoRsSeek.MoveNext
Wend
End If
AdoRsSeek.Close
Set AdoRsSeek = Nothing
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
Numeric
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -