Vfpbs uploads excel and saves MSSQL to the database

development environment
Back end :VFP SP2 7423 + Qiyou three-tier development framework （ Cat frame ）
front end ：VUE2.0+Element

Ideas

1. Realization BS Upload
2. Is to use the cat frame importexcel Class will EXCEL Convert file to temporary table ,
3. Insert a temporary table into DAL_CA One click save in .

1. So let's look at this first MSSQL data structure

2. The code generator generates DAL_CA class

3. The generated DAL_CA Class saved to the development framework DAL Directory

Class name is the same as file name

4. Write business logic controller class

Define Class ctl_skin_ht as session
*-- Upload import file 
	Procedure upfile
		oResult=GetUpFile()		 && Returns as a collection object 
		*-- original file name 
		cOldFilename=oResult.ofieldcoll.Item("file").filename  && file name   Follow upload name( WeChat ) Corresponding  key (mui)  Corresponding 

		cExtName=Justext(cOldFilename)  && Extension 
        IF !INLIST(UPPER(cExtName),"XLS","XLSX")
          ERROR " Must upload EXCEL file "
        ENDIF 
		cFilename=Ttoc(Datetime(),1)+Right(Transform(Second()*1000),6)
		cFilename=cFilename+"."+cExtname


		cMydata=oResult.ofieldcoll.Item("file").fielddata && The contents of the document 

		cFilePath=getwwwrootpath("upfile")
		If !Directory(cFilePath)
			Md &cFilePath  && At present, it is only successfully executed under the debugging server , Pre create when publishing 
		Endif

		If Strtofile(cMydata,cFilePath+cFilename)<=0
			Error " Failed to write file , Whether the directory exists and is readable and writable "
		Endif
        *-- Import EXCEL Generate temporary tables 
		xx=Newobject("importexcel","importexcel.prg")
		xx.cursorstruc=" Mobile phone model  c(240), Number  c(50)"
		xx.Alias="tmpxxx"
		
		If !xx.Import(Sys(5)+Sys(2003)+"\"+cFilePath+cFilename)
			Error xx.msg
		Endif
		*--  Temporary table write DAL class , Realize one click save 
		oDAL=Newobject("Dal_skin","Dal_skin.prg")
		oDAL.Nodata=.T.
		If !oDAL.CursorFill(.T.)
			Aerror(laerror)
			Error laerror(2)
		Endif

		cTmpAlias=oDAL.Alias
		Insert Into &cTmpAlias(model,skincode,mainmodel,types,Type,Memo,price) Select * From tmpxxx

		If !oDAL.Save()
			Error oDal.msg
		Endif

		Return cursortojson(oDAL.alias)
	Endproc
ENDDEFINE 

5. Front page , You can also write your own upload page

Put down an upload component

<el-upload         
         :on-success="handle_success"
          class="upload-demo"
          :action="upurl"            
          multiple
          :limit="1"
          >
          <el-button size="small" type="primary"> Click upload </el-button>
          <div slot="tip" class="el-upload__tip"> Can only upload excel file </div>
</el-upload>

JS Code

export default {
  components: {},
  data() {
    return {
     upurl:"ctl_skin_ht.fsp?proc=upfile"
    },
  methods: {
     handle_success(res){
       console.log(res);
       if(res.errno!=0){
         this.$message.warning(res.errmsg);         
         return; 
       }
       this.$message.warning(" Upload successful ");   
      },
  }
}

Run the debug server , Test upload , Perfect success . But publish to IIS an ：

The next chapter continues to fill the pit