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

农村经济管理信息系统设计与实现 第10页
附录二：数据上传主要程序清单
1． 上传按钮的脚本
string szFtpLocalDir
string szFtpRemoteDir
string szFtpHost
string szFtpUser
string szFtpPassword

szFtpLocalDir       =trim(ProfileString("nw_CountryEco.ini","ftp","localdir",             " "))
szFtpRemoteDir   =trim(ProfileString("nw_CountryEco.ini","ftp","remotedir",         " "))
szFtpHost   =trim(ProfileString("nw_CountryEco.ini","ftp","serverip",         " "))
szFtpUser   =trim(ProfileString("nw_CountryEco.ini","ftp","user",         " "))
szFtpPassword   =trim(ProfileString("nw_CountryEco.ini","ftp","password",         " "))
if gsrip=''then
 messagebox('IP地址未找到！',' IP地址未找到！请重试！')
else
int yjsc
rc=dw_countrytrsclient.RowCount()

select nw_systempara.value
into :spuv
from nw_systempara
where parameter='unitid';
spuv=trim(spuv)

sy=ddlb_year.text
sm=ddlb_month.text

select count(IsRecvSucc)
into :yjsc
from nw_transissucc
where IsRecvSucc='1' and year=:sy and month=:sm;

integer Net
if yjsc=0 then
 messagebox("提示：","没收到数据，不可上传数据！")
 return
end if

//messagebox("dirr",szFtpLocalDir+sy+sm+spuv)

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)
// 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 = gslocaldir+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 = gslocaldir+sy+sm+spuv+".txt"
//      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
 
2． 接受按钮的脚本
sy=ddlb_year.text
sm=ddlb_month.text
dw_1.SetTransObject(SQLCA)

string txtpathname, named   
integer value
value = GetFileOpenName("最近收到本下属单位数据",txtpathname, named,"TXT","Text Files (*.TXT),*.TXT" )
dw_1.reset()
dw_1.ImportFile(txtpathname)

int lenspuv
string getyear,getmonth,getunitid,justunitid,revnamed,revunitid

 

  
if named<>''then 
   revnamed=reverse(named)
   revunitid=revnamed
   revnamed=left(revnamed,4)
   revnamed=reverse(revnamed)
IF revnamed='.txt' THEN
  revunitid=replace(revunitid,1,4,'') 
  revunitid=reverse(revunitid) 
  named=revunitid

   getyear=left(named,4)
   getmonth=mid(named,5,2)
 getunitid=mid(named,7,ii_len)
 lenspuv=len(spuv)
 justunitid=left(getunitid,lenspuv)
 if sy <> getyear or sm <>getmonth then
  messagebox('提示','非本年或本月数据!')
  return
 end if
  
      IF justunitid=spuv and len(getunitid)>len(spuv) THEN
        //messagebox('',(dw_1.Rowcount()))
       dw_1.update()
        insert into nw_transissucc(unitid,year,month,isrecvsucc)
        values(:getunitid,:getyear,:getmonth,'1');
  
       IF SQLCA.SQLCode=0 THEN
        commit;
        w_countrytrsclient.dw_countrytrsclient.SetTransObject(SQLCA)
            w_countrytrsclient.dw_countrytrsclient.Retrieve(sy,sm,spuv,ii_len)
          filedelete(txtpathname)
          messagebox('接收数据成功！',接受'+getunitid+'成功！')
         ELSE
        rollback;
          messagebox('接收数据出错','接受'+getunitid+'出错，请重试！或因为本下属单位数据已接收！')
         END IF
        ELSE
        messagebox('接收数据出错！',对不起，非本下属单位数据拒绝接收！')
    filedelete(txtpathname)
        END IF
 ELSE
        
   messagebox('接收数据出错！','对不起，拒绝接收该类型文件！')
 END IF

end if
 
3． 上传到目录按钮的脚本
string szFtpLocalDir
string szFtpRemoteDir
string szFtpHost
string szFtpUser
string szFtpPassword

szFtpLocalDir       =trim(ProfileString("nw_CountryEco.ini","ftp","localdir",             " "))
szFtpRemoteDir   =trim(ProfileString("nw_CountryEco.ini","ftp","remotedir",         " "))
szFtpHost   =trim(ProfileString("nw_CountryEco.ini","ftp","serverip",         " "))
szFtpUser   =trim(ProfileString("nw_CountryEco.ini","ftp","user",         " "))
szFtpPassword   =trim(ProfileString("nw_CountryEco.ini","ftp","password",         " "))

if GetPath='' or isnull(GetPath) then
 messagebox('信息提示','请选择目录')
www.751com.cn
 messagebox('IP地址未找到',' IP地址未找到，请重试！')
else
  
 
int yjsc
rc=dw_countrytrsclient.RowCount()

select nw_systempara.value
into :spuv
from nw_systempara
where parameter='unitid';
spuv=trim(spuv)

sy=ddlb_year.text
sm=ddlb_month.text

select count(IsRecvSucc)
into :yjsc
from nw_transissucc
where IsRecvSucc='1' and year=:sy and month=:sm

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

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