VB售楼管理系统及源代码.docx

VB售楼管理系统及源代码Option ExplicitDim rs_shoufei As New ADODB.RecordsetDim rs_hetong As New ADODB.RecordsetPrivate Sub cdmprint_Click() Dim X% X% = BitBlt(Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, _ Picture1.hDC, 0, 0, SRCCOPY) Picture1.Picture = Picture1.Image Printer.PaintPicture Picture1.Picture, 0, 0End SubPrivate Sub cmdsave_Click()Dim i As IntegerIf Trim(txtloupannum.Text) = Then MsgBox 楼盘编号不能为空！, vbOKOnly + vbExclamation txtloupannum.SetFocus Exit SubEnd IfLabel7.Caption = CStr(CCur(Trim(txtprice.Text)))Label6.Caption = ChineseFormat(CCur(Trim(txtprice.Text)))rs_shoufei.AddNewrs_shoufei.Fields(0) = Val(Trim(Label5.Caption))rs_shoufei.Fields(1) = Val(Trim(Combo1.Text))rs_shoufei.Fields(2) = Trim(txtloupannum.Text)rs_shoufei.Fields(3) = Daters_shoufei.Fields(4) = CCur(Trim(txtprice.Text))rs_shoufei.Fields(5) = Trim(Combo2.Text)rs_shoufei.Fields(6) = Trim(txtskr.Text)rs_shoufei.Fields(7) = Trim(txtjkr.Text)rs_shoufei.UpdateMsgBox 保存成功！, vbOKOnly + vbExclamationExit SubEnd SubPrivate Sub cmdprint_Click() Dim X% X% = BitBlt(Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, _ Picture1.hDC, 0, 0, SRCCOPY) Picture1.Picture = Picture1.Image Printer.PaintPicture Picture1.Picture, 0, 0End SubPrivate Sub cmdexit_Click()rs_shoufei.CloseUnload MeEnd SubPrivate Sub Form_Load()Dim sql As StringDim i As IntegerOn Error GoTo loaderrorsql = select * from 收款登记表If rs_shoufei.State 0 Then rs_shoufei.Closers_shoufei.CursorLocation = adUseClient rs_shoufei.Open sql, conn, adOpenKeyset, adLockPessimistic txtprice.Text = 0.00 i = rs_shoufei.RecordCount Label2.Caption = Year(Date) Date取得当前系统日期 Label3.Caption = Month(Date) Month函数取得日期的月数部分 Label4.Caption = Day(Date) Label5.Caption = Format(i + 1, 000000) 系统中现有记录条数加1 Combo2.AddItem (现金) Combo2.AddItem (刷卡) Combo2.AddItem (银行票据) Combo2.ListIndex = 0 sql = select * from 合同资料表 If rs_hetong.State 0 Then rs_hetong.Close rs_hetong.CursorLocation = adUseClient rs_hetong.Open sql, conn, adOpen