农村经济管理信息系统设计与实现 第11页

农村经济管理信息系统设计与实现 第11页
integer Net
if yjsc=0 then
 messagebox("提示","没收到数据，不可上传数据！")
 return
end if

 

if yjsc>0 then

IF yjsc<rc THEN
      Net = MessageBox("确定是否等待窗口", '还有数据没收到，真的不等了吗？', Exclamation!, OKCancel!, 2)
      IF Net = 1 THEN     
   w_countrytrsclient.dw_subbalance.SetTransObject(SQLCA)
         w_countrytrsclient.dw_subbalance.Retrieve(sy,sm)
     dw_subbalance.SaveAs(gslocaldir+sy+sm+spuv+".txt", text!, FALSE)
  //--------------------------
  
   oFtp.object.RemoteAddress = szFtpHost
   oFtp.object.UserName = szFtpUser
     oFtp.object.password = szFtpPassword
      
     oFtp.object.Connect
     oFtp.object.Binary = True
     oFtp.object.RemoteDirectory = szFtpRemoteDir
     oFtp.object.LocalFile = szFtpLocalDir+sy+sm+spuv+".txt"
     oFtp.object.RemoteFile = sy+sm+spuv+".txt"
     oFtp.object.PutFile
     oFtp.object.Disconnect*/
  //------------------------------------------------- 
// modified by gyuan 2002/12/13 end
 end if
ELSE
 Net=MessageBox("确定是否发送", '数据全部收到，确定发送吗？', Exclamation!, OKCancel!, 2)
      IF Net = 1 THEN
            w_countrytrsclient.dw_subbalance.SetTransObject(sqlca)
            w_countrytrsclient.dw_subbalance.Retrieve(dw_subbalance,sy,sm)
            dw_subbalance.SaveAs(gslocaldir+sy+sm+spuv+".txt", text!, FALSE)
    //--------------------
    /*
// modified by gyuan 2002/12/13
//        Inet1.object.Execute ("","put "+gslocaldir+sy+sm+spuv+".txt c:\nw_transserver\"+sy+sm+spuv+".txt")
    //ÉèÖÃftp¿Ø¼þµÄÖµ
    oFtp.object.RemoteAddress = szFtpHost
    oFtp.object.UserName = szFtpUser
      oFtp.object.password = szFtpPassword
       //ÉÏ´«
      oFtp.object.Connect
      oFtp.object.Binary = True
      oFtp.object.RemoteDirectory = szFtpRemoteDir
      oFtp.object.LocalFile = szFtpLocalDir+sy+sm+spuv+".txt"
      oFtp.object.RemoteFile = sy+sm+spuv+".txt"
      oFtp.object.PutFile
      oFtp.object.Disconnect*/
    //----------------------------
// modified by gyuan 2002/12/13 end
 end if
END IF
end if
end if

 << 上一页  [11] 

农村经济管理信息系统设计与实现 第11页下载如图片无法显示或论文不完整，请联系qq752018766