诺诺开piao平台API无法接入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 诺诺开piao平台API无法接入

共有11997人关注过本帖树形打印复制链接主题：诺诺开piao平台API无法接入

zoyong

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2021/2/22 20:22:00 [只看该作者]

Dim cmd As new SQLCommand

cmd.C

For Each dr As DataRow In DataTables("项目开piao_table1").DataRows

cmd.CommandText = "S elect 项目名称,业主 from {在建项目} Where 项目名称 = ' "& dr("项目名称") & "'"

Dim Values = cmd.ExecuteValues

If Values.Count < 1 Then

cmd.CommandText = "Insert Into 在建项目 (项目名称, 业主) Values(?,?)"

cmd.Parameters.Add("@项目名称",dr("项目名称"))

cmd.Parameters.Add("@业主",dr("业主"))

cmd.ExecuteNonQuery

End If

复制数据到另一张表，代码无效

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/22 21:15:00 [只看该作者]

项目名称 = ' "& dr("项目名称") & "'" 单引号中间有多余的空格

cmd.CommandText = "Select count(1) from {在建项目} Where 项目名称 = '" & dr("项目名称") & "'"

Dim Values = cmd.ExecuteScalar

If Values > 0 Then

zoyong

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2021/3/22 11:22:00 [只看该作者]

Dim tm As String = ProjectPath & "Attachments\竣工档案盒.doc" '指定模板文件

Dim fl As String = ProjectPath & "OutPut\竣工档案盒.doc" '指定输出目标文件

Dim mg1 As String = ProjectPath & "Images\新档案号二维码.wmf" '约定的图片文件

Dim mg2 As String = ProjectPath & "Images\原档案号二维码.wmf" '约定的图片文件

Dim r As Row = Tables(TbName).Current

If r("新档案号") = "" Then

MessageBox.Show("新档案号不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

Exit Function

End If

'生成二维码

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Bar.QRCodeModuleSize = 1 '二维码的放大倍数

Bar.Code = r("新档案号")

Bar.SaveImage(mg1,300)

Dim Bar1 As New BarCodeBuilder

Bar1.Symbology = Barpro.Symbology.QRCode

Bar1.QRCodeModuleSize = 1 '二维码的放大倍数

Bar1.Code = r("原档案号")

Bar1.SaveImage(mg2,300)

Dim wrt As New WordReport(Tables(TbName),tm,fl) '定义一个WordReport

wrt.BuildOne(r)

wrt.Show() '显示报表

两个二维码，只生成一个

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/22 11:33:00 [只看该作者]

代码没有问题。模板引用有问题吧

zoyong

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2021/3/26 13:32:00 [只看该作者]

'数据删除日志

Dim str As String

For Each c As DataCol In DataTables(eform.name & "_Table1").DataCols

str += c.Name & "=" & Tables(eform.name & "_Table1").current.DataRow.OriginalValue(c.Name) & "|"

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "Insert Into SYS_数据删除日志 (创建人,创建日期,创建人编号,涉及表,涉及行,原行数据) Values (?,?,?,?,?,?)"

cmd.Parameters.Add("@创建人",User_ReName)

cmd.Parameters.Add("@创建日期",Date.Now)

cmd.Parameters.Add("@创建人编号",User_ID)

cmd.Parameters.Add("@涉及表",eform.name)

cmd.Parameters.Add("@涉及行",r("_Identify"))

cmd.Parameters.Add("@原行数据",str)

cmd.ExecuteNonQuery

可用

[此贴子已经被作者于2021/3/26 14:06:35编辑过]

有点蓝

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/26 13:39:00 [只看该作者]

str += c.Name & "=" & Tables(e.form.name & "_Table1").current.DataRow.OriginalValue(c.Name) & "|"

zoyong

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2021/4/10 7:54:00 [只看该作者]

Dim lb As String = vars("lb")

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText ="S elect * From {ZJ_" & lb & "}"

Dim dt As DataTable = cmd.ExecuteReader()

有点蓝

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/10 11:02:00 [只看该作者]

msgbox("Select * From {ZJ_" & lb & "}")

zoyong

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2021/4/18 19:11:00 [只看该作者]

如何让字符水印延图片对角线居中

Dim img As Image = getimage(k)

Dim bmp = new bitmap(img.Width, img.Height)

Dim g As Graphics = Graphics.FromImage(bmp)

Dim fnt As New Font("微软雅黑", 33, FontStyle.Bold) '水印文字字体

Dim size = g.MeasureString(txt, fnt)

g.TranslateTransform((img.width-size.width)/3, img.Height - size.height+45) '设置文字的绘制起点

g.RotateTransform(-50) '逆时针旋转50度

Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(120, 177, 171, 171)) '水印文字颜色,120是透明度,范围0~255

g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))

img.Save(l)

g.Dispose()

有点蓝

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/18 21:51:00 [只看该作者]

这个是数学问题了，自己计算一下尺寸，然后不停尝试，找到合适的绘制点

下一主题 >> << 上一主题

总数 60 上一页 1 2 3 4 5 6 下一页

主题：诺诺开piao平台API无法接入