【正文】 (s, i, 1) sFormat = Mid(sNumber, Val(c) _ + 1, 1) + Mid(sString, Len(s) i + 1, 1) _ + sFormat Next ChineseFormat = sFormat End Function Private Sub Picture1_Click() End SubOption Explicit Dim rs_shoukuan As New Dim rs_yushou As New Dim getrow As Integer Dim select_row As String Private Sub cmdexit_Click() Unload Me End Sub Private Sub cmdfind_Click() Dim sql As String On Error GoTo loaderror If = True Then sql = select * from 收款登記表 where 收款登記表 .icm_ID = amp。打開數(shù)據(jù)庫 setgrid1 setgridhead displaygrid Exit Sub End If If = True Then sql = select * from 收款登記表 where 收款登記表 .icm_houseID = 39。 Trim() amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。 amp。 39。打開數(shù)據(jù)庫 setgrid1 setgridhead displaygrid Exit Sub End If If = True Then sql = select * from 收款登 記表 where 收款登記表 .icm_date between amp。 _ and amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開數(shù)據(jù)庫 setgrid1 setgridhead displaygrid Exit Sub loaderror: MsgBox End Sub Public Sub displaygrid() Dim i As Integer On Error GoTo displayerror = 0 If Not Then Do While Not = + 1 For i = 0 To 7 = i If Not IsNull((i)) Then = (i) Else = End If Next i Loop End If displayerror: If 0 Then MsgBox End If End Sub Public Sub setgrid1() Dim i As Integer On Error GoTo seterror With grdShoukuanFind .ScrollBars = flexScrollBarBoth .FixedCols = 1 .Rows = + 1 .Cols = 8 .SelectionMode = flexSelectionByRow For i = 0 To .Rows 1 .RowHeight(i) = 315 Next For i = 0 To .Cols 1 .ColWidth(i) = 1300 Next i End With Exit Sub seterror: MsgBox End Sub Public Sub setgridhead() On Error GoTo setheaderror With grdShoukuanFind .Row = 0 .Col = 0 .Text = 收款單號(hào) .Col = 1 .Text = 合同號(hào) .Col = 2 .Text = 樓盤編號(hào) .Col = 3 .Text = 收款日期 .Col = 4 .Text = 收款金額 .Col = 5 .Text = 付款方式 .Col = 6 .Text = 收款人 .Col = 7 .Text = 交款人 End With Exit Sub setheaderror: MsgBox End Sub Public Sub setgrid2() Dim i As Integer With grdYuding .ScrollBars = flexScrollBarBoth .FixedCols = 1 .Rows = + 1 .Cols = 3 .SelectionMode = flexSelectionByRow For i = 0 To .Rows 1 .RowHeight(i) = 315 Next For i = 0 To .Cols 1 .ColWidth(i) = 1300 Next i End With With grdYuding .Row = 0 .Col = 0 .Text = 付款日期 .Col = 1 .Text = 付款金額 .Col = 2 .Text = 是否已付款 End With End Sub Private Sub grdShoukuanFind_Click() On Error GoTo griderror getrow = If = 1 Then MsgBox 無相關(guān)紀(jì)錄 , vbOKOnly + vbExclamation, Else select_row = (getrow, 1) displaymingxi End If griderror: If 0 Then MsgBox End If End Sub Public Sub displaymingxi() Dim sql As String Dim i As Integer sql = select * from 預(yù)計(jì)付款表 where 預(yù)計(jì)付款表 .Add_pactid = amp。Date 取得當(dāng)前系統(tǒng)日期 = Month(Date) 39。系統(tǒng)中現(xiàn)有記錄條數(shù)加 1 Exit Sub loaderror: MsgBox End Sub Function ChineseFormat(n As Variant) Dim s As String, sFormat As String Dim i As Integer, c As String Const sString = 分角元拾佰仟萬拾佰仟億拾佰仟萬 Const sNumber = 零壹貳叁肆伍陸柒捌玖 s = Format(Int(n * 100)) sFormat = For i = Len(s) To 1 Step 1 c = Mid(s, i, 1) sFormat = Mid(sNumber, Val(c) _ + 1, 1) + Mid(sString, Len(s) i + 1, 1) _ + sFormat Next ChineseFormat = sFormat End Function Private Sub txtmoney_Change(Index As Integer) End SubOption Explicit Dim rs_shoufei As New Private Sub cmdfind_Click() Dim sql As String On Error GoTo loaderror If = True Then sql = select * from 收費(fèi)信息表 where fee_ID = amp。 amp。 39。 amp。 39。 _ amp。 amp。記錄選擇的樓盤 Dim getrow As Long Private Sub cmdadd_Click() On Error GoTo adderror If = 保存 Then = 增加 If Trim() = Then MsgBox 編號(hào)不能為空！ , vbOKOnly + vbExclamation Exit Sub End If If Trim() = Then MsgBox 身份證號(hào)不能為空！ , vbOKOnly + vbExclamation Exit Sub End If If Trim() = Then MsgBox 姓名不能為空！ , vbOKOnly + vbExclamation Exit Sub End If If Trim() = Then MsgBox 請(qǐng)選擇性別！ , vbOKOnly + vbExclamation Exit Sub End If Dim i As Integer For i = 0 To 1 If (0) = Then MsgBox 編號(hào)重復(fù)！ , vbOKOnly + vbExclamation Exit Sub End If If (1) = Then MsgBox 身份證號(hào)重復(fù)！ , vbOKOnly + vbExclamation Exit Sub End If Next i (0) = (1) = (2) = (3) = If Trim() = Then (5) = Null Else (5) = End If If Trim() = Then (6) = Null Else (6) = End If (4) = If Trim() = Then (7) = Null Else (7) = End If If Trim() = Then (8) = Null Else (8) = End If If Trim() = Then (9) = Null Else (9) = End If MsgBox 添加成功！ , vbOKOnly + vbExclamation With grdSalemanLogin .Rows = + 1 .Row = 1 .Col = 0 .Text = .Col = 1 .Text = .Col = 2 .Text = .Col = 3 .Text = .Col = 4 .Text = .Col = 5 .Text = .Col = 6 .Text = .Col = 7 .Text = .Col = 8 .Text = .Col = 9 .Text = End With Else = 保存