准备完成两个问题

陆医生

📅 2008-06-21 · 👁 7 次浏览 · 💬 2 条回复

1，数据重复录入的问题：重新设置打印按钮命令，同时应该允许后退；
2，关于部分用户反映数据无法修改的问题；
3，合并历年数据库；

全部回复 (2)

陆医生会员

📅 2008-06-21

1，数据重复录入的问题：重新设置打印按钮命令，同时应该允许后退；
2，关于部分用户反映数据无法修改的问题；
3，合并历年数据库；

陆医生会员

📅 2008-06-21

将打印预览按钮命令进行修改，添加一个辅助列：入库，这样来进行判断录入者是否进行过数据入库的操作，可以避免重复入库的问题。

 
if([%model%] = "",msgbox("没有选择记录模板,无法打印预览!",1,3),if(CanWrite([%datapool%]) = False,msgbox("有其他用户正在存盘,请稍候!",1,3),if( = - 1,OpenModalWindow(13) And Export([%datapool%],"数据库","888","数据库","ID", "=",) And Export(docdir+"bak/databack.egd","数据库","888","数据库","ID", "=",)  And Export([%datapool%],gridname,"888",gridname,"ID", " = " ,) And copyfile([%CHDDPpath%] + "models\" + [%model%],docdir + "models/" + [%model%]) ,MsgBox("您没有获取入库路径,不能进行打印!" + Char(13) + Char(13) + "获取路径后系统将为您自动设置保存路径和文件名!",1,3))))

修改后为：

 
if([%model%] = "",msgbox("没有选择记录模板,无法打印预览!",1,3),if(CanWrite([%datapool%]) = False,msgbox("有其他用户正在存盘,请稍候!",1,3),if( = - 1 And [入库] = - 1,copyfile([%CHDDPpath%] + "models\" + [%model%],docdir + "models/" + [%model%]) And PrintDoc("models\" + [%model%],0),if( = - 1 And [入库] = 0,SetCellText(gridname,row,"入库","-1") And OpenModalWindow(13) And Export([%datapool%],"数据库","888","数据库","ID", "=",) And Export(docdir+"bak/databack.egd","数据库","888","数据库","ID", "=",)  And Export([%datapool%],gridname,"888",gridname,"ID", " = " ,) And copyfile([%CHDDPpath%] + "models\" + [%model%],docdir + "models/" + [%model%]) ,MsgBox("您没有获取入库路径,不能进行打印!" + Char(13) + Char(13) + "获取路径后系统将为您自动设置保存路径和文件名!",1,3)))))

同时增加了：《返回》按钮，可以允许录入者返回数据进行修改。

 
if([入库] = - 1,if(msgbox("您已经将数据入库,如果返回将删除已经入库的数据!请慎重!",2,3) = true,DelFor2([%datapool%],"data","888","ID", "=" ,) And DelFor2([%datapool%],"数据库","888","ID", "=" , ) And SetCellText(gridname,row,"path", "=" , 0) And SetCellText(gridname,row,"入库", "=" , 0)And openwindow([数据库!N],(screenwidth - 1022) / 2,(screenheight - 766)/2),""),SetCellText(gridname,row,"path", "=" , 0) And openwindow([数据库!N],(screenwidth - 1022) / 2,(screenheight - 766)/2))

陆医生会员

📅 2008-06-21

if([第二诊断] "","/"+[第二诊断],"") + if([第三诊断] "","/"+[第三诊断] ,"") + if([其它] "","/"+[其它],"") +

if([超滤] "",[超滤] + " / ","")

if([术后诊断_第二诊断] "","/"+[术后诊断_第二诊断],"") + if([术后诊断_第三诊断] "","/"+[术后诊断_第三诊断] ,"")

+ if([术后诊断_其他] "","/"+[术后诊断_其他],"")

if([术后诊断_第二诊断] "","/"+[术后诊断_第二诊断],"") + if([术后诊断_第三诊断] "","/"+[术后诊断_第三诊断] ,"")

+ if([术后诊断_其他] "","/"+[术后诊断_其他],"")

if([手术特征_选择性手术] = - 1 And [手术特征_急诊手术] = - 1,0,if([手术特征_选择性手术] = 0 And [手术特征_急诊手术]

=0,0, if([手术特征_选择性手术] = - 1 And [手术特征_急诊手术] = 0,0,- 1)))

if([手术特征_急诊手术] = - 1,0, - 1)

if([手术特征_急诊手术] = - 1,"/急诊","" ) + if([手术特征_选择性手术] = - 1,"/选择性","") + if([手术特征_普胸] = - 1,"

普胸手术","") + if([手术特征_体外] = - 1,"体外手术","") + if([手术特征_非体外] = - 1,"非体外手术","") + if([手术特征_

再次手术] = - 1,"/再次手术","")

✏️ 写回复

登录后即可回复

准备完成两个问题

全部回复 (2)

✏️ 写回复

👤 用户信息