📄 pgyajinpiao.frm
字号:
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 8
Top = 1080
Width = 855
End
Begin VB.Label Label3
Caption = "开票日期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4560
TabIndex = 6
Top = 480
Width = 1095
End
Begin VB.Label Label2
Caption = "单位名称："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 4
Top = 480
Width = 1095
End
Begin VB.Label Label1
Caption = "地区："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 2
Top = 480
Width = 735
End
End
End
Attribute VB_Name = "pgyajinpiao"
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 Combo2_GotFocus()
If Combo1.Text = "" Then
MsgBox "填写所属区域"
Exit Sub
End If
Combo2.Clear
sql = "select tradename from trader where tradecode like '" & Trim(Combo1.Text) & "%'"
' MsgBox sql
Set result = xshcn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
result.MoveFirst
Do While Not result.EOF
Combo2.AddItem Trim(result("tradename"))
result.MoveNext
Loop
End If
result.Close
sql = "select distinct 地区 from pgdanweimingcheng "
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
If Trim(Combo1.Text) = Trim(result("地区")) Then
result.Close
sql = "select * from pgdanweimingcheng order by 序号 "
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
result.MoveFirst
Do While Not result.EOF
Combo2.AddItem Trim(result("单位名称"))
result.MoveNext
Loop
End If
End If
End If
result.Close
End Sub
Private Sub Combo3_Click()
''''''''单据号增加
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 pgbaozhuangwu where 包装物名称='" & Trim(Combo3.Text) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
Text2.Text = Trim(result("单价"))
xm1 = Trim(result("箱色"))
xm2 = Trim(result("瓶色"))
xm3 = Trim(result("箱规格"))
xm4 = Trim(result("瓶规格"))
xm5 = Trim(result("包装物规格"))
Else
Text2.Text = 0
xm1 = ""
xm2 = ""
xm3 = ""
xm4 = ""
xm5 = ""
End If
Text3.Text = ""
Label9.Caption = ""
Label11.Caption = ""
End Sub
Private Sub Command1_Click()
If Trim(Combo1.Text) = "" Or Trim(Combo2.Text) = "" Or Trim(Combo3.Text) = "" Or Text2.Text = "" Or Text3.Text = "" Or Trim(Combo4.Text) = "" Or Trim(Combo5.Text) = "" Then
MsgBox "检查是否有内容没添的"
Exit Sub
End If
If MsgBox("确认是否打印", vbYesNo, "提示") = vbYes Then
''''''''控制连打
sql = "select * from pgdanjuhao where 单据号='" & Trim(Text1.Text) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
MsgBox "票据已经打印过"
result.Close
Exit Sub
End If
result.Close
'''''''存押金票表
sql = "insert into pgyjp values ('" & Trim(Combo1.Text) & "','" & Trim(Combo2.Text) & "','" & Trim(Mask.Text) & "','" & Trim(Text1.Text) & "','" & Trim(xm1) & "','" & Trim(xm2) & "','" & Trim(xm3) & "','" & Trim(xm4) & "','" & Trim(Combo3.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Label9.Caption) & "','" & Trim(Label11.Caption) & "','" & Trim(Combo4.Text) & "','否','" & Trim(Combo5.Text) & "','" & Trim(xm5) & "')"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
result.Close
''''''''存押金提货表
sql = "insert into pgyjpthd values ('" & Trim(Combo1.Text) & "','" & Trim(Combo2.Text) & "','" & Trim(Mask.Text) & "','" & Trim(Text1.Text) & "','" & Trim(xm1) & "','" & Trim(xm2) & "','" & Trim(xm3) & "','" & Trim(xm4) & "','" & Trim(Combo3.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Label9.Caption) & "','" & Trim(Label11.Caption) & "','" & Trim(Combo4.Text) & "','否','','','否','','" & Trim(Combo5.Text) & "','" & Trim(xm5) & "')"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
result.Close
'''''''存单据号表
sql = "insert into pgdanjuhao values ('" & Trim(Mask.Text) & "','" & Trim(Text1.Text) & "')"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
result.Close
'''''''''打印
sql = "delete from tmppgyjp"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
result.Close
sql = "insert into tmppgyjp values ('" & Trim(Combo2.Text) & "','" & Trim(Mask.Text) & "','" & Trim(Text1.Text) & "','" & Trim(Combo3.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text2.Text) & "','" & Format(Trim(Label9.Caption), "FIXED") & "','" & Trim(Label11.Caption) & "','" & Trim(Combo4.Text) & "','" & Trim(Combo5.Text) & "','" & Trim(xm5) & "')"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
result.Close
Cry.ReportFileName = App.Path & "\yjpprint.rpt "
Cry.Action = 1
''''''''单据号增加
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
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo4.Text = ""
End If
End Sub
Private Sub Command2_Click()
pgyjpchaxun.Show 1
End Sub
Private Sub Command3_Click()
' ''''''''包装物开票窗口单据号增加
' sql = "select max(单据号) from pgdanjuhao where 开票日期='" & Trim(Mask.Text) & "' "
' Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' If IsNull(result(0)) = True Then
' pgkaipiao.Text1.Text = Format(Date, "yyyymmdd") & "0001"
' Else
' pgkaipiao.Text1.Text = Val(Trim(result(0))) + 1
' End If
' result.Close
' cn.Close
' en.Close
' Unload Me
End Sub
Private Sub Form_Load()
Move Screen.Width / 2 - pgkaipiao.Width / 2, Screen.Height / 2 - pgkaipiao.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 "换"
Combo6.AddItem "否"
Combo6.AddItem "是"
Combo6.Text = "否"
End Sub
Private Sub Form_Unload(Cancel As Integer)
''''''''包装物开票窗口单据号增加
sql = "select max(单据号) from pgdanjuhao where 开票日期='" & Trim(Mask.Text) & "' "
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If IsNull(result(0)) = True Then
pgkaipiao.Text1.Text = Format(Date, "yyyymmdd") & "0001"
Else
pgkaipiao.Text1.Text = Val(Trim(result(0))) + 1
End If
result.Close
cn.Close
en.Close
Unload Me
End Sub
Private Sub Text3_Change()
Label9.Caption = Val(Text2.Text) * Val(Text3.Text)
Label11.Caption = aa(Label9.Caption)
End Sub
Function BB(MM As String) As String
Select Case MM
Case "0"
BB = "零"
Case "1"
BB = "壹"
Case "2"
BB = "贰"
Case "3"
BB = "叁"
Case "4"
BB = "肆"
Case "5"
BB = "伍"
Case "6"
BB = "陆"
Case "7"
BB = "柒"
Case "8"
BB = "捌"
Case "9"
BB = "玖"
End Select
End Function
'''''''''大小写转化 ''''''''
Function aa(SS As String) As String
If SS <> "" Then
Dim danwei, DANWEI1, str1, str2 As String
Dim p As Integer ' 存储小数点位置
Dim i As Integer
danwei = "亿仟佰拾万仟佰拾圆角分"
p = InStr(SS, ".")
If p <> 0 Then
If p = Len(SS) Then
str1 = Mid(SS, 1, Len(SS) - 1)
DANWEI1 = Right(Mid(danwei, 1, Len(danwei) - 2), Len(str1))
ElseIf p = Len(SS) - 1 Then
str1 = Mid(SS, 1, Len(SS) - 2) & Right(SS, 1)
DANWEI1 = Right(Mid(danwei, 1, Len(danwei) - 1), Len(str1))
Else
str1 = Mid(SS, 1, p - 1) & Mid(SS, p + 1, 2)
DANWEI1 = Right(danwei, Len(str1))
End If
End If
If p = 0 Then
str1 = SS
DANWEI1 = Right(Mid(danwei, 1, Len(danwei) - 2), Len(str1))
End If
For i = 1 To Len(str1)
str2 = str2 & BB(Mid(str1, i, 1)) & Mid(DANWEI1, i, 1)
Next i
aa = str2
End If
End Function
'''''''''大小写转化 ''''''''
'Function aa1(SS As String) As String
' If SS <> "" Then
' Dim danwei, DANWEI1, str1, str2 As String
' Dim p As Integer ' 存储小数点位置
' Dim i As Integer
'
' danwei = "亿仟佰拾万仟佰拾圆角分"
' p = InStr(SS, ".")
' If p <> 0 Then
' If p = Len(SS) Then
' str1 = Mid(SS, 1, Len(SS) - 1)
' DANWEI1 = Right(Mid(danwei, 1, Len(danwei) - 2), Len(str1))
'
' ElseIf p = Len(SS) - 1 Then
' str1 = Mid(SS, 1, Len(SS) - 2) & Right(SS, 1)
' DANWEI1 = Right(Mid(danwei, 1, Len(danwei) - 1), Len(str1))
'
' Else
' str1 = Mid(SS, 1, p - 1) & Mid(SS, p + 1, 2)
' DANWEI1 = Right(danwei, Len(str1))
' End If
' End If
' If p = 0 Then
' str1 = SS
' DANWEI1 = Right(Mid(danwei, 1, Len(danwei) - 2), Len(str1))
' End If
' For i = 1 To Len(str1)
'
' str2 = str2 & BB(Mid(str1, i, 1)) & Mid(DANWEI1, i, 1)
' Next i
' aa = str2
'
'
' End If
'End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -