血壓記錄表--2(多一個"放大"按鈕)

Category: 隨寫  

畫面設計
write1501.jpg
按鈕"放大"程式

Sub object1053()
NextForm "Form1056" "跳到下一個form"
End Sub

新加入的from
write1502.jpg

設定變數,然後在把原來的副程式搬過來。

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

 2014_02_13

Comments


只對管理員顯示


10 « 2024_11 » 12

SUN MON TUE WED THU FRI SAT
- - - - - 1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

自我介紹

你(妳)不用知道

Author:你(妳)不用知道
沒有介紹!
我什麼都不會說的!

最新文章

最新留言

最新引用

搜尋欄

加為部落格好友




pagetop