?? form43.frm
字號:
For t = 1 To tt_len
If Asc((Mid(f_reckoning_table(i, 5), t, 1))) < 0 Then
t_len = t_len + 2
Else
t_len = t_len + 1
End If
Next
t_len = 16 - t_len
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & f_reckoning_table(i, 5) & S1
t_len = 0
t_value = Round(f_reckoning_table(i, 6), 2)
t_len = 11 - Len(t_value)
S1 = ""
If t_value = Int(t_value) Then
S1 = S1 & ".00"
t_len = t_len - 3
Else
If (t_value * 10) = Int(t_value * 10) Then
S1 = S1 & "0"
t_len = t_len - 1
End If
End If
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & t_value & S1
date_string = Round(f_reckoning_table(i, 1), 0) & "年" & _
Round(f_reckoning_table(i, 2), 0) & "月" & _
Round(f_reckoning_table(i, 3), 0) & "日"
t_len = 14 - Len(date_string)
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & date_string & S1
Printer.FontSize = 13
doc = Space(3) & S
Printer.Print doc
Printer.FontSize = 3
Printer.Print Chr(vbKeyReturn)
doc = "---------------------------------------------------------------------------------------------------------" & _
"-------------------------------------------------------------------------------------------------------------" & _
"-------------------------------------------------------------------------------------------------------------"
Printer.Print doc
Next
Printer.EndDoc
exit_command2_click:
End Sub
Private Sub Command3_Click()
If List1.ListCount = 0 Then
MsgBox ("沒有對應帳單數據")
GoSub exit_command3_click
End If
g_current_number = f_reckoning_table(f_current_row, 0)
f_formshow = "NO"
Unload Form43
Form46.Show
exit_command3_click:
End Sub
Private Sub Command4_Click()
g_reckoning = f_reckoning_table(f_current_row, 1)
g_form = "form43"
g_year = f_reckoning_table(f_current_row, 2)
g_month = f_reckoning_table(f_current_row, 3)
g_buy_weigh = f_reckoning_table(f_current_row, 9)
Form43.Hide
Form47.Show
End Sub
Private Sub Command5_Click()
t_YesNo = MsgBox("是否確認刪除", vbYesNo)
If t_YesNo = 7 Then
GoSub exit_command5_click
End If
If List3.ListCount = 0 Then
MsgBox ("沒有對應售出明細數據")
GoSub exit_command5_click
End If
Dim cnn1 As ADODB.Connection
Dim cmd1 As ADODB.Command
Dim rs1 As ADODB.Recordset
Set cnn1 = New ADODB.Connection
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\jujumao\My Documents\粵豐飼料\粵豐飼料經營情況.mdb;"
Set cmd1 = New ADODB.Command
MsgBox (f_arr_number(List3.ListIndex))
SQL = "delete from 品種購入表 where 編號=" & f_arr_number(List3.ListIndex)
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
.Execute
End With
SQL = "select 品種,購入斤數,購入單價,購入金額,編號 from 品種購入表 where 單號 = " & _
"'" & f_reckoning_table(f_current_row, 1) & "'"
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
End With
Set rs1 = cmd1.Execute
List3.Clear
If rs1.EOF Then
MsgBox ("沒有對應的購入明細數據!")
cnn1.Close
Set cnn1 = Nothing
Text1.Text = 0
Text2.Text = f_reckoning_table(f_current_row, 5)
Text3.Text = f_reckoning_table(f_current_row, 6)
GoTo exit_command5_click
End If
j = 0
Text1.Text = 0
rs1.MoveFirst
While Not rs1.EOF
S = ""
For i = 0 To rs1.Fields.Count - 1
Select Case i
Case 0
tt_len = Len(rs1.Fields(i).Value)
t_len = 0
For t = 1 To tt_len
If Asc((Mid((rs1.Fields(i).Value), t, 1))) < 0 Then
t_len = t_len + 2
Else
t_len = t_len + 1
End If
Next
t_len = 18 - t_len
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & rs1.Fields(i).Value & S1
Case 1
t_len = 0
t_len = 11 - Len(rs1.Fields(i).Value)
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & rs1.Fields(i).Value & S1
Case 2
t_len = 0
t_value = Round(rs1.Fields(i).Value, 3)
t_len = 11 - Len(t_value)
S1 = ""
If t_value = Int(t_value) Then
S1 = S1 & ".000"
t_len = t_len - 4
Else
If (t_value * 10) = Int(t_value * 10) Then
S1 = S1 & "00"
t_len = t_len - 2
Else
If (t_value * 100) = Int(t_value * 100) Then
S1 = S1 & "0"
t_len = t_len - 1
End If
End If
End If
If t_value < 1 And t_value > 0 Then
S = S & "0"
t_len = t_len - 1
End If
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & t_value & S1
Case 3
t_len = 0
t_value = Round(rs1.Fields(i).Value, 2)
t_len = 11 - Len(t_value)
S1 = ""
If t_value = Int(t_value) Then
S1 = S1 & ".00"
t_len = t_len - 3
Else
If (t_value * 10) = Int(t_value * 10) Then
S1 = S1 & "0"
t_len = t_len - 1
End If
End If
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & t_value & S1
End Select
Next
List3.AddItem S, j
f_arr_number(j) = rs1.Fields(4)
Text1.Text = Text1.Text + rs1.Fields(3)
j = j + 1
rs1.MoveNext
List3.ListIndex = 0
Wend
Text1.Text = Round(Text1.Text, 2)
Text2.Text = f_reckoning_table(f_current_row, 5)
Text3.Text = f_reckoning_table(f_current_row, 6)
cnn1.Close
Set cnn1 = Nothing
exit_command5_click:
End Sub
Private Sub Command6_Click()
If List3.ListCount = 0 Then
MsgBox ("沒有對應售出明細數據")
GoSub exit_command6_click
End If
g_current_number = f_arr_number(List3.ListIndex)
g_form = "form43"
Form20.Show
f_formshow = "NO"
Unload Form43
exit_command6_click:
End Sub
Private Sub Command7_Click()
If List3.ListCount = 0 Then
MsgBox ("沒有對應售出明細數據")
GoSub exit_command7_click
End If
f_formshow = "NO"
g_form = "form43"
g_reckoning = f_reckoning_table(f_current_row, 1)
Unload Form43
Form3.Show
exit_command7_click:
End Sub
Private Sub Command8_Click()
g_year = f_reckoning_table(f_current_row, 2)
g_reckoning = f_reckoning_table(f_current_row, 1)
f_formshow = "NO"
g_form = "form43"
Unload Form43
Form45.Show
End Sub
Private Sub Command9_Click()
t_YesNo = MsgBox("是否確認刪除", vbYesNo)
If t_YesNo = 7 Then
GoSub exit_command9_click
End If
If List2.ListCount = 0 Then
MsgBox ("沒有對應帳單品種數據")
GoSub exit_command9_click
End If
Dim cnn1 As ADODB.Connection
Dim cmd1 As ADODB.Command
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set cnn1 = New ADODB.Connection
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\jujumao\My Documents\粵豐飼料\粵豐飼料經營情況.mdb;"
Set cmd1 = New ADODB.Command
SQL = "delete from 購入帳單品種表 where 編號=" & f_arr_number1(List2.ListIndex)
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
.Execute
End With
List2.Clear
SQL = "select 編號,品種 from 購入帳單品種表 where 帳單號 = " & _
"'" & f_reckoning_table(f_current_row, 1) & "'" & " order by 品種"
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
End With
Set rs1 = cmd1.Execute
j = 0
If Not rs1.EOF Then
rs1.MoveFirst
End If
While Not rs1.EOF
S = ""
For i = 0 To rs1.Fields.Count - 1
Select Case i
Case 1
tt_len = Len(rs1.Fields(i).Value)
t_len = 0
For t = 1 To tt_len
If Asc((Mid((rs1.Fields(i).Value), t, 1))) < 0 Then
t_len = t_len + 2
Else
t_len = t_len + 1
End If
Next
t_len = 18 - t_len
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & rs1.Fields(i).Value & S1
End Select
Next
List2.AddItem S, j
f_arr_number1(j) = rs1.Fields(0)
j = j + 1
rs1.MoveNext
List2.ListIndex = 0
Wend
cnn1.Close
Set cnn1 = Nothing
exit_command9_click:
End Sub
Private Sub Form_Load()
Dim cnn1 As ADODB.Connection
Dim cmd1 As ADODB.Command
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set cnn1 = New ADODB.Connection
f_formshow = "OK"
Select Case g_form
Case "form5", "form44"
g_previous_form = g_form
End Select
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\jujumao\My Documents\粵豐飼料\粵豐飼料經營情況.mdb;"
Set cmd1 = New ADODB.Command
Select Case g_query_method
Case 1
SQL = "select * from 購入帳單表 where 年份 =" & g_year & _
" and 月份 = " & g_month & " and 帳單號 = " & "'" & g_reckoning & "'" & " order by 編號 "
Case 2, 3
SQL = "select * from 購入帳單表 where 年份 =" & g_year & _
" and 月份 = " & g_month & " order by 編號 "
End Select
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
End With
Set rs1 = cmd1.Execute
If rs1.EOF Then
MsgBox ("沒有查詢到數據!")
GoSub exit_form_load
End If
j = 0
rs1.MoveFirst
List1.Clear
While Not rs1.EOF
If g_query_method = 3 Then
SQL = "select 品種,購入金額 from 品種購入表 where 單號=" & _
"'" & rs1.Fields(1) & "'" & " order by 品種"
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
End With
Set rs2 = cmd1.Execute
S1 = ""
t_SumBuy = 0
If Not rs2.EOF Then
rs2.MoveFirst
While Not rs2.EOF
S1 = S1 & rs2.Fields(0)
t_SumBuy = t_SumBuy + rs2.Fields(1)
rs2.MoveNext
Wend
End If
SQL = "select 品種 from 購入帳單品種表 where 帳單號=" & _
"'" & rs1.Fields(1) & "'" & " order by 品種"
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
End With
Set rs2 = cmd1.Execute
S2 = ""
If Not rs2.EOF Then
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -