血壓記錄表--2(多一個"放大"按鈕)
Category: 隨寫
畫面設計
按鈕"放大"程式
Sub object1053()
NextForm "Form1056" "跳到下一個form"
End Sub
新加入的from
設定變數,然後在把原來的副程式搬過來。
Sub Form1056_After()
Dim i as Integer
Dim int_rec_no as Integer
Dim int_read as Integer
Dim str_DAYYEAR as String
Dim str_highblood as String
Dim str_lowblood as String
Dim str_heart as String
Dim str_key as String
int_rec_no=DbGetNoRecs(my_db)
List1058.Clear 清空list1058
int_read=DbReset(my_db) 讀出my_db內的資料
For i=1 to int_rec_no
int_read=DbReadNext(my_db,str_key,str_DAYYEAR,str_highblood,str_lowblood,str_heart)
List1058.Add
str(i)+")"+str_DAYYEAR+"<=>["+str_highblood+"/"+str_lowblood+"]<=>["+str_heart+"]"
Next
當迴圈一開始讀出第一筆資料即字串變數中的內容
再將字串內容放在list1058中列出
處理下一筆直到所有資料都列完
End Sub
按鈕"放大"程式
Sub object1053()
NextForm "Form1056" "跳到下一個form"
End Sub
新加入的from
設定變數,然後在把原來的副程式搬過來。
Sub Form1056_After()
Dim i as Integer
Dim int_rec_no as Integer
Dim int_read as Integer
Dim str_DAYYEAR as String
Dim str_highblood as String
Dim str_lowblood as String
Dim str_heart as String
Dim str_key as String
int_rec_no=DbGetNoRecs(my_db)
List1058.Clear 清空list1058
int_read=DbReset(my_db) 讀出my_db內的資料
For i=1 to int_rec_no
int_read=DbReadNext(my_db,str_key,str_DAYYEAR,str_highblood,str_lowblood,str_heart)
List1058.Add
str(i)+")"+str_DAYYEAR+"<=>["+str_highblood+"/"+str_lowblood+"]<=>["+str_heart+"]"
Next
當迴圈一開始讀出第一筆資料即字串變數中的內容
再將字串內容放在list1058中列出
處理下一筆直到所有資料都列完
End Sub