mysql多线程执行sql脚本,mysql执行sql脚本主线任务

使用ADO的打开Accecc数据库方法:

DimDBAsDatabase

SetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法:

首先设置Data控件的属性Exclusive=True为独占模式

设置Connect属性为;pwd=密码

Data1.Connect=";pwd=你的密码"

修改密码:

Data1.Database.NewPassword老密码,新密码->例如,Tomcat的文件中就会默认去取JAVA_HOME来用9aca5b3027a0f7d4f4c9bf7c1bef51ec.pngImageIO.write(image,"png",new File("ExtractedImage.png"));

另外,当客户机端断开与服务器端的来接后,服务器端应用tcpServer_Close事件,来继续准备接收客户机端的请求,其代码如下:

PrivateSubtcpServer_Close()

tcpServer.Close

tcpServer.Listen

EndSub

这就是一个最基本的特洛伊木马程序,只要你的机器运行了服务器端程序,那别人就可以在千里之外控制你的计算机

->

在这种情况下,可将该表的KeepLocal属性设为“T”,使得复制数据库时,这些信息不被复制

它关注方法具备什么样的功能,强调做什么,而不是以什么形式做决斗之城'调用方法Text2=ChMoney(Val(Text1))

'名称:CCh

'得到一位数字N1的汉字大写

'0返回""

PrivateFunctionCCh(N1)AsString

SelectCaseN1

Case0

CCh="零"

Case1

CCh="壹"

Case2

CCh="贰"

Case3

CCh="叁"

Case4

CCh="肆"

Case5

CCh="伍"

Case6

CCh="陆"

Case7

CCh="柒"

Case8

CCh="捌"

Case9

CCh="玖"

EndSelect

EndFunction

'名称:ChMoney

'得到数字N1的汉字大写

'最大为千万位

'O返回""

PublicFunctionChMoney(N1)AsString

DimtMoneyAsString

DimlMoneyAsString

Dimtn'小数位置

Dims1AsString'临时STRING小数部分

Dims2AsString'1000以内

Dims3AsString'10000

IfN1=0Then

ChMoney=""

ExitFunction

EndIf

IfN1<0Then

ChMoney="负" ChMoney(Abs(N1))

ExitFunction

EndIf

tMoney=Trim(Str(N1))

tn=InStr(tMoney,".")'小数位置

s1=""

Iftn<>0Then

ST1=Right(tMoney,Len(tMoney)-tn)

IfST1<>""Then

t1=Left(ST1,1)

ST1=Right(ST1,Len(ST1)-1)

Ift1<>"0"Then

s1=s1 CCh(Val(t1)) "角"

EndIf

IfST1<>""Then

t1=Left(ST1,1)

s1=s1 CCh(Val(t1)) "分"

EndIf

EndIf

ST1=Left(tMoney,tn-1)

Else

ST1=tMoney

EndIf

s2=""

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

s2=CCh(Val(t1)) s2

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s2=CCh(Val(t1)) "拾" s2

Else

IfLeft(s2,1)<>"零"Thens2="零" s2

EndIf

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s2=CCh(Val(t1)) "佰" s2

Else

IfLeft(s2,1)<>"零"Thens2="零" s2

EndIf

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s2=CCh(Val(t1)) "仟" s2

Else

IfLeft(s2,1)<>"零"Thens2="零" s2

EndIf

EndIf

s3=""

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

s3=CCh(Val(t1)) s3

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s3=CCh(Val(t1)) "拾" s3

Else

IfLeft(s3,1)<>"零"Thens3="零" s3

EndIf

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s3=CCh(Val(t1)) "佰" s3

Else

IfLeft(s3,1)<>"零"Thens3="零" s3

EndIf

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s3=CCh(Val(t1)) "仟" s3

EndIf

EndIf

IfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)

IfLen(s3)>0Then

IfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)

s3=s3&"万"

EndIf

ChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)

EndFunction

'调用方法Text2=ChMoney(Val(Text1))

'名称:CCh

'得到一位数字N1的汉字大写

'0返回""

PrivateFunctionCCh(N1)AsString

SelectCaseN1

Case0

CCh="零"

Case1

CCh="壹"

Case2

CCh="贰"

Case3

CCh="叁"

Case4

CCh="肆"

Case5

CCh="伍"

Case6

CCh="陆"

Case7

CCh="柒"

Case8

CCh="捌"

Case9

CCh="玖"

EndSelect

EndFunction

'名称:ChMoney

'得到数字N1的汉字大写

'最大为千万位

'O返回""

PublicFunctionChMoney(N1)AsString

DimtMoneyAsString

DimlMoneyAsString

Dimtn'小数位置

Dims1AsString'临时STRING小数部分

Dims2AsString'1000以内

Dims3AsString'10000

IfN1=0Then

ChMoney=""

ExitFunction

EndIf

IfN1<0Then

ChMoney="负" ChMoney(Abs(N1))

ExitFunction

EndIf

tMoney=Trim(Str(N1))

tn=InStr(tMoney,".")'小数位置

s1=""

Iftn<>0Then

ST1=Right(tMoney,Len(tMoney)-tn)

IfST1<>""Then

t1=Left(ST1,1)

ST1=Right(ST1,Len(ST1)-1)

Ift1<>"0"Then

s1=s1 CCh(Val(t1)) "角"

EndIf

IfST1<>""Then

t1=Left(ST1,1)

s1=s1 CCh(Val(t1)) "分"

EndIf

EndIf

ST1=Left(tMoney,tn-1)

Else

ST1=tMoney

EndIf

s2=""

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

s2=CCh(Val(t1)) s2

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s2=CCh(Val(t1)) "拾" s2

Else

IfLeft(s2,1)<>"零"Thens2="零" s2

EndIf

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s2=CCh(Val(t1)) "佰" s2

Else

IfLeft(s2,1)<>"零"Thens2="零" s2

EndIf

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s2=CCh(Val(t1)) "仟" s2

Else

IfLeft(s2,1)<>"零"Thens2="零" s2

EndIf

EndIf

s3=""

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

s3=CCh(Val(t1)) s3

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s3=CCh(Val(t1)) "拾" s3

Else

IfLeft(s3,1)<>"零"Thens3="零" s3

EndIf

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s3=CCh(Val(t1)) "佰" s3

Else

IfLeft(s3,1)<>"零"Thens3="零" s3

EndIf

EndIf

IfST1<>""Then

t1=Right(ST1,1)

ST1=Left(ST1,Len(ST1)-1)

Ift1<>"0"Then

s3=CCh(Val(t1)) "仟" s3

EndIf

EndIf

IfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)

IfLen(s3)>0Then

IfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)

s3=s3&"万"

EndIf

ChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)

EndFunction->x86(32位)。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值