加入收藏  |  在线留言  |  联系我们
首 页    |    医院概况    |    医疗资讯    |    特色治疗    |    名医介绍    |    先进设备    |    就医指南    |    典型病例
  青州眼科医院
 
飞秒激光治疗近视
白内障治疗
儿童斜视弱视治疗
眼底病治疗
角膜及眼表病治疗
青光眼治疗
医学整形美容
医学验光配镜

 

 
 
您现在的位置: 首 页 > 特色治疗 > 症状及自查表
症状及自查表
白内障症状及其自查表

白内障的主要表现如下:
    ● 视力减退,无痛感
    ● 看颜色不鲜艳
    ● 在太阳下或夜间灯光下会觉得刺眼 ,光晕眩光
    ● 视物模糊,眼前好像有一层膜遮盖似的
    ● 眼前暗影
    您可以定期对照您自身的情况对下列问题进行打分,得分低于40分您可能需要及时去医院检查,并咨询白内障专科医生有关手术时机,何种人工晶体适合您的眼睛和生活等方面的专业意见。
    戴镜从事以下工作有否困难?(每题10分)
    1.阅读很小的印刷物,例如药剂瓶上标签,电话号码本,食物的标签
    2.常规书报
    3.阅读大号字体的书籍或报刊,或者电话机上的数字按键时
    4.路上识别他人
    5.上下台阶,楼梯
    6.交通标志,路标或商店招牌。
    7.从事手工艺活动例如缝纫,针织,编织和木工作业
    8.填写支票或表格
    9.从事打牌,麻将等娱乐活动时
    10.参加旅游或户外活动时
    11.烹饪
    12.电视
    13.你在晚上出门或驾车时会遇到什么困难吗?
程度 没有困难 有轻度困难 有中度困难 很困难 不能
得分 40 30 20 10 0


关闭窗口 〗 〖 打印页面

备案序号: 鲁ICP备05010771号   网站维护:孚尔企划  网站管理   您是第 <% Function Counts(CounterFile) Dim objFSO, objTS Application.Lock Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True) If Not objTS.AtEndOfStream Then '检查是否到达文件结尾 Counts = CLng(objTS.ReadLine) End If Counts = Counts + 1 objTS.Close Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True) objTS.WriteLine(Counts) objTS.Close Application.Unlock End Function Function G_Counts(CounterFile) Dim objFSO, objTS, Counts, StrCounts Application.Lock Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True) If Not objTS.AtEndOfStream Then '检查是否到达文件结尾 Counts = CLng(objTS.ReadLine) End If Counts = Counts + 1 objTS.Close Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True) objTS.WriteLine(Counts) objTS.Close Application.Unlock StrCounts = CStr(Counts) For i = 1 to Len(StrCounts) G_Counts = G_Counts & "" Next End Function %> <% If Session("Counter") = Empty Then Session("Counter") = G_Counts("jishu.txt") End If %> <%= Session("Counter") %> 位访问者