📄 pgyjpdiaopiao.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2640
TabIndex = 20
Top = 1080
Width = 1455
End
Begin VB.Label Label6
Caption = "单价："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 19
Top = 1680
Width = 735
End
Begin VB.Label Label7
Caption = "数量："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2880
TabIndex = 18
Top = 1680
Width = 735
End
Begin VB.Label Label8
Caption = "金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 17
Top = 2640
Width = 735
End
Begin VB.Label Label9
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 16
Top = 2640
Width = 2415
End
Begin VB.Label Label10
Caption = "大写金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 15
Top = 3240
Width = 1215
End
Begin VB.Label Label11
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
TabIndex = 14
Top = 3240
Width = 4695
End
Begin VB.Label Label12
Caption = "制表人："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4920
TabIndex = 13
Top = 1560
Width = 975
End
Begin VB.Label Label13
Caption = "单据标志："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 12
Top = 2160
Width = 1095
End
Begin VB.Label Label14
Caption = "是否作废："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2760
TabIndex = 11
Top = 2160
Width = 1095
End
End
End
Attribute VB_Name = "pgyjpdiaopiao"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim en As rdoEnvironment
Dim xshcn, cn As rdoConnection
Dim result As rdoResultset
Dim sql As String
Dim xm1, xm2, xm3, xm4, xm5 As String ''''''存包装物特征
Private Sub Command1_Click()
If Len(Text1.Text) = 12 Then
sql = "select * from pgyjp where 单据号='" & Trim(Text1.Text) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
Combo1.Text = Trim(result("地区"))
Combo2.Text = Trim(result("单位名称"))
Mask.Text = Trim(result("开票日期"))
Combo3.Text = Trim(result("包装物名称"))
Text2.Text = Trim(result("单价"))
Text3.Text = Trim(result("数量"))
Combo4.Text = Trim(result("制表人"))
Combo5.Text = Trim(result("单据标志"))
Combo6.Text = Trim(result("是否作废"))
Label9.Caption = Trim(result("金额"))
Label11.Caption = Trim(result("金额大写"))
Else
MsgBox "重新输入单据号"
Exit Sub
End If
Else
MsgBox "重新输入单据号"
Exit Sub
End If
End Sub
Private Sub Command2_Click()
If MsgBox("确认是否修改", vbYesNo, "提示") = vbYes Then
sql = "update pgyjp set 是否作废='" & Trim(Combo6.Text) & "' where 单据号='" & Trim(Text1.Text) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
result.Close
sql = "update pgyjpthd set 是否作废='" & Trim(Combo6.Text) & "' where 单据号='" & Trim(Text1.Text) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
result.Close
MsgBox "修改结束"
End If
End Sub
Private Sub Form_Load()
Move Screen.Width / 2 - pgyjpdiaopiao.Width / 2, Screen.Height / 2 - pgyjpdiaopiao.Height / 2 - 500
Set en = rdoEnvironments(0)
' Set xshcn = en.OpenConnection(dsname:="odbc_api_demo", Prompt:="rdodriverprompt", ReadOnly:=False, Connect:="uid=sa;pwd=;driver={SQL SERVER};SERVER=ntserver;database=newsale;")
Set cn = en.OpenConnection(dsname:="odbc_api_demo", Prompt:="rdodriverprompt", ReadOnly:=False, Connect:="uid=sa;pwd=;driver={SQL SERVER};SERVER=ntserver;database=rongpin2004;")
' sql = "select distinct tradecode from trader "
' Set result = xshcn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' Dim str As String
' If result.RowCount <> 0 Then
' result.MoveFirst
' Do While Not result.EOF
' If str = "" Or str <> Mid(Trim(result("tradecode")), 1, 1) Then
' Combo1.AddItem Mid(Trim(result("tradecode")), 1, 1)
' End If
' str = Mid(Trim(result("tradecode")), 1, 1)
' result.MoveNext
' Loop
' End If
' result.Close
'
' sql = "select distinct 地区 from pgdanweimingcheng "
' Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' If result.RowCount <> 0 Then
' Combo1.AddItem Trim(result("地区"))
' End If
' result.Close
'
' Mask.Text = Format(Date, "yyyy年mm月dd日")
'
' sql = "select 包装物名称 from pgbaozhuangwu order by 序号 "
' Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' If result.RowCount <> 0 Then
' result.MoveFirst
' Do While Not result.EOF
' Combo3.AddItem Trim(result("包装物名称"))
' result.MoveNext
' Loop
' End If
' result.Close
'
' sql = "select max(单据号) from pgdanjuhao where 开票日期='" & Trim(Mask.Text) & "' "
' Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' If IsNull(result(0)) = True Then
' Text1.Text = Format(Date, "yyyymmdd") & "0001"
' Else
' Text1.Text = Val(Trim(result(0))) + 1
' End If
' result.Close
'
' sql = "select 制表人 from pgzhibiaoren order by 序号 "
' Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' If result.RowCount <> 0 Then
' result.MoveFirst
' Do While Not result.EOF
' Combo4.AddItem Trim(result("制表人"))
' result.MoveNext
' Loop
' End If
' result.Close
'
' Combo5.AddItem "押"
' Combo5.AddItem "换"
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Mask.Enabled = False
Label9.Enabled = False
Label11.Enabled = False
Combo6.AddItem "否"
Combo6.AddItem "是"
Combo6.Text = "否"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -