?? form14.frm
字號(hào):
Case Else
End Select
Next
List2.AddItem S, j
f_repay_table(j, 0) = rs1.Fields(0).Value
j = j + 1
rs1.MoveNext
List2.ListIndex = 0
Wend
Set cnn1 = Nothing
exit_Command1_Click:
End Sub
Private Sub Command2_Click()
t_YesNo = MsgBox("是否確認(rèn)打印", vbYesNo)
If t_YesNo = 7 Then
GoSub exit_command2_click
End If
If List3.ListCount = 0 Then
GoSub exit_command2_click
End If
Printer.FontSize = 13
Printer.FontName = "黑體"
Printer.Print "帳本號(hào) 帳單號(hào) 制單日期 期初欠款金額 期內(nèi)還款金額 欠款金額合計(jì) "
Printer.Print " "
For Row = 0 To List3.ListCount - 1
t_sum = 0
For i = 0 To List1.ListCount - 1
If List3.List(Row) = f_reckon_table(i, 4) Then
t_sum = t_sum + f_reckon_table(i, 7) - f_reckon_table(i, 8)
End If
Next
print_sum = True
For i = 0 To List1.ListCount - 1
If List3.List(Row) = f_reckon_table(i, 4) Then
S = ""
tt_len = Len(f_reckon_table(i, 4))
t_len = 0
For t = 1 To tt_len
If Asc((Mid((f_reckon_table(i, 4)), t, 1))) < 0 Then
t_len = t_len + 2
Else
t_len = t_len + 1
End If
Next
t_len = 12 - t_len
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & f_reckon_table(i, 4) & S1
tt_len = Len(f_reckon_table(i, 5))
t_len = 0
For t = 1 To tt_len
If Asc((Mid((f_reckon_table(i, 5)), t, 1))) < 0 Then
t_len = t_len + 2
Else
t_len = t_len + 1
End If
Next
t_len = 12 - t_len
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & f_reckon_table(i, 5) & S1
date_string = Round(f_reckon_table(i, 1), 0) & "年"
If Len(f_reckon_table(i, 2)) = 1 Then
date_string = date_string & "0" & Round(f_reckon_table(i, 2), 0) & "月"
Else
date_string = date_string & Round(f_reckon_table(i, 2), 0) & "月"
End If
If Len(f_reckon_table(i, 3)) = 1 Then
date_string = date_string & "0" & Round(f_reckon_table(i, 3), 0) & "日"
Else
date_string = date_string & Round(f_reckon_table(i, 3), 0) & "日"
End If
t_len = 14 - Len(date_string)
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & date_string & S1
t_len = 0
t_value = Round(f_reckon_table(i, 7), 2)
t_len = 14 - 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
t_len = 0
t_value = Round(f_reckon_table(i, 8), 2)
t_len = 16 - 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
If print_sum = True Then
t_len = 0
t_value = Round(t_sum, 2)
t_len = 14 - 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
Printer.Print S
Else
Printer.Print S
End If
print_sum = False
End If
Next
Next
Printer.EndDoc
exit_command2_click:
End Sub
Private Sub Command3_Click()
If List3.ListCount > 0 Then
For j = List3.ListIndex To List3.ListCount - 2
List3.List(j) = List3.List(j + 1)
Next
List3.RemoveItem (List3.ListCount - 1)
If List3.ListCount > 0 Then
List3.ListIndex = 0
End If
Else
MsgBox ("沒(méi)有數(shù)據(jù)")
End If
End Sub
Private Sub Command4_Click()
t_YesNo = MsgBox("是否確認(rèn)打印", vbYesNo)
If t_YesNo = 7 Then
GoSub exit_command4_click
End If
If List3.ListCount = 0 Then
GoSub exit_command4_click
End If
Printer.FontSize = 13
Printer.FontName = "黑體"
Printer.Print "帳本號(hào) 欠款金額合計(jì) "
Printer.Print " "
For Row = 0 To List3.ListCount - 1
t_sum = 0
For i = 0 To List1.ListCount - 1
If List3.List(Row) = f_reckon_table(i, 4) Then
t_sum = t_sum + f_reckon_table(i, 7) - f_reckon_table(i, 8)
End If
Next
S = ""
tt_len = Len(List3.List(Row))
t_len = 0
For t = 1 To tt_len
If Asc((Mid((List3.List(Row)), t, 1))) < 0 Then
t_len = t_len + 2
Else
t_len = t_len + 1
End If
Next
t_len = 14 - t_len
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & List3.List(Row) & S1
t_len = 0
t_value = Round(t_sum, 2)
t_len = 14 - 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
Printer.Print S
Next
Printer.EndDoc
exit_command4_click:
End Sub
Private Sub Form_Load()
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\粵豐飼料\粵豐飼料經(jīng)營(yíng)情況.mdb;"
Set cmd1 = New ADODB.Command
SQL = "select 帳本號(hào) from 帳本表 where 使用年份= " & g_year
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
End With
Set rs1 = cmd1.Execute
rs1.MoveFirst
i = 0
While Not rs1.EOF
Combo1.AddItem rs1.Fields(0), i
rs1.MoveNext
i = i + 1
Wend
Combo1.AddItem "全 部", i
Select Case g_query_method
Case 1
Label1.Caption = "已還清欠款查詢(xún)畫(huà)面"
SQL = "select * from 帳單表 where 欠款金額>0 and 欠款金額=還款金額 order by 帳本號(hào),年份,月份,日期"
Case 2
Label1.Caption = "未還清欠款查詢(xún)畫(huà)面"
SQL = "select * from 帳單表 where 欠款金額>0 and 欠款金額<>還款金額 order by 帳本號(hào),年份,月份,日期"
End Select
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
End With
Set rs1 = cmd1.Execute
If rs1.EOF Then
MsgBox ("沒(méi)有查詢(xún)到記錄")
cnn1.Close
Set cnn1 = Nothing
GoSub exit_form_load
End If
j = 0
rs1.MoveFirst
While Not rs1.EOF
S = ""
For i = 1 To rs1.Fields.Count - 1
Select Case i
Case 4, 5
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 = 12 - t_len
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
Case 7, 8
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
Case 1
date_string = Round(rs1.Fields(1).Value, 0) & "年"
If Len(rs1.Fields(2).Value) = 1 Then
date_string = date_string & "0" & Round(rs1.Fields(2).Value, 0) & "月"
Else
date_string = date_string & Round(rs1.Fields(2).Value, 0) & "月"
End If
If Len(rs1.Fields(3).Value) = 1 Then
date_string = date_string & "0" & Round(rs1.Fields(3).Value, 0) & "日"
Else
date_string = date_string & Round(rs1.Fields(3).Value, 0) & "日"
End If
t_len = 14 - Len(date_string)
S1 = ""
For t = 1 To t_len
S1 = S1 & " "
Next
S = S & date_string & S1
End Select
Next
List1.AddItem S, j
f_reckon_table(j, 0) = rs1.Fields(0).Value
f_reckon_table(j, 1) = rs1.Fields(1).Value
f_reckon_table(j, 2) = rs1.Fields(2).Value
f_reckon_table(j, 3) = rs1.Fields(3).Value
f_reckon_table(j, 4) = rs1.Fields(4).Value
f_reckon_table(j, 5) = rs1.Fields(5).Value
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -