?? 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 + -