w_houseregister.srw

pb所需编程技巧和事例

$PBExportHeader$w_houseregister.srw
forward
global type w_houseregister from window
end type
type st_15 from statictext within w_houseregister
end type
type sle_area from singlelineedit within w_houseregister
end type
type cb_2 from commandbutton within w_houseregister
end type
type cb_1 from commandbutton within w_houseregister
end type
type mle_memo from multilineedit within w_houseregister
end type
type em_price from editmask within w_houseregister
end type
type st_14 from statictext within w_houseregister
end type
type ddlb_1 from dropdownlistbox within w_houseregister
end type
type sle_description from singlelineedit within w_houseregister
end type
type sle_housetype from singlelineedit within w_houseregister
end type
type sle_buildingheight from singlelineedit within w_houseregister
end type
type sle_storey from singlelineedit within w_houseregister
end type
type sle_unitno from singlelineedit within w_houseregister
end type
type sle_buildingno from singlelineedit within w_houseregister
end type
type sle_identifyno from singlelineedit within w_houseregister
end type
type sle_itemname from singlelineedit within w_houseregister
end type
type sle_number from singlelineedit within w_houseregister
end type
type st_13 from statictext within w_houseregister
end type
type st_12 from statictext within w_houseregister
end type
type st_11 from statictext within w_houseregister
end type
type st_10 from statictext within w_houseregister
end type
type st_9 from statictext within w_houseregister
end type
type st_8 from statictext within w_houseregister
end type
type st_7 from statictext within w_houseregister
end type
type st_6 from statictext within w_houseregister
end type
type st_5 from statictext within w_houseregister
end type
type st_4 from statictext within w_houseregister
end type
type st_3 from statictext within w_houseregister
end type
type st_2 from statictext within w_houseregister
end type
type st_1 from statictext within w_houseregister
end type
end forward

global type w_houseregister from window
integer width = 2213
integer height = 1780
boolean titlebar = true
string title = "楼盘登记"
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_15 st_15
sle_area sle_area
cb_2 cb_2
cb_1 cb_1
mle_memo mle_memo
em_price em_price
st_14 st_14
ddlb_1 ddlb_1
sle_description sle_description
sle_housetype sle_housetype
sle_buildingheight sle_buildingheight
sle_storey sle_storey
sle_unitno sle_unitno
sle_buildingno sle_buildingno
sle_identifyno sle_identifyno
sle_itemname sle_itemname
sle_number sle_number
st_13 st_13
st_12 st_12
st_11 st_11
st_10 st_10
st_9 st_9
st_8 st_8
st_7 st_7
st_6 st_6
st_5 st_5
st_4 st_4
st_3 st_3
st_2 st_2
st_1 st_1
end type
global w_houseregister w_houseregister

type variables
 

end variables

on w_houseregister.create
this.st_15=create st_15
this.sle_area=create sle_area
this.cb_2=create cb_2
this.cb_1=create cb_1
this.mle_memo=create mle_memo
this.em_price=create em_price
this.st_14=create st_14
this.ddlb_1=create ddlb_1
this.sle_description=create sle_description
this.sle_housetype=create sle_housetype
this.sle_buildingheight=create sle_buildingheight
this.sle_storey=create sle_storey
this.sle_unitno=create sle_unitno
this.sle_buildingno=create sle_buildingno
this.sle_identifyno=create sle_identifyno
this.sle_itemname=create sle_itemname
this.sle_number=create sle_number
this.st_13=create st_13
this.st_12=create st_12
this.st_11=create st_11
this.st_10=create st_10
this.st_9=create st_9
this.st_8=create st_8
this.st_7=create st_7
this.st_6=create st_6
this.st_5=create st_5
this.st_4=create st_4
this.st_3=create st_3
this.st_2=create st_2
this.st_1=create st_1
this.Control[]={this.st_15,&
this.sle_area,&
this.cb_2,&
this.cb_1,&
this.mle_memo,&
this.em_price,&
this.st_14,&
this.ddlb_1,&
this.sle_description,&
this.sle_housetype,&
this.sle_buildingheight,&
this.sle_storey,&
this.sle_unitno,&
this.sle_buildingno,&
this.sle_identifyno,&
this.sle_itemname,&
this.sle_number,&
this.st_13,&
this.st_12,&
this.st_11,&
this.st_10,&
this.st_9,&
this.st_8,&
this.st_7,&
this.st_6,&
this.st_5,&
this.st_4,&
this.st_3,&
this.st_2,&
this.st_1}
end on

on w_houseregister.destroy
destroy(this.st_15)
destroy(this.sle_area)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.mle_memo)
destroy(this.em_price)
destroy(this.st_14)
destroy(this.ddlb_1)
destroy(this.sle_description)
destroy(this.sle_housetype)
destroy(this.sle_buildingheight)
destroy(this.sle_storey)
destroy(this.sle_unitno)
destroy(this.sle_buildingno)
destroy(this.sle_identifyno)
destroy(this.sle_itemname)
destroy(this.sle_number)
destroy(this.st_13)
destroy(this.st_12)
destroy(this.st_11)
destroy(this.st_10)
destroy(this.st_9)
destroy(this.st_8)
destroy(this.st_7)
destroy(this.st_6)
destroy(this.st_5)
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.st_1)
end on

type st_15 from statictext within w_houseregister
integer x = 1001
integer y = 984
integer width = 457
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "元/平方米"
boolean focusrectangle = false
end type

type sle_area from singlelineedit within w_houseregister
integer x = 1339
integer y = 824
integer width = 421
integer height = 100
integer taborder = 100
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_2 from commandbutton within w_houseregister
integer x = 1189
integer y = 1508
integer width = 457
integer height = 128
integer taborder = 130
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "退出"
end type

event clicked;close(parent)
end event

type cb_1 from commandbutton within w_houseregister
integer x = 535
integer y = 1500
integer width = 457
integer height = 128
integer taborder = 120
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "登记"
end type

event clicked;int rc
int area
double price
int storey,buildingheight
string number,itemname,identifyno,buildingno,unitno,housetype
string description,direction,memo
string err

number=sle_number.text
itemname=sle_itemname.text
identifyno=sle_identifyno.text
buildingno=sle_buildingno.text
unitno=sle_unitno.text
storey=integer(sle_storey.text)
buildingheight=integer(sle_buildingheight.text)
housetype=sle_housetype.text
description=sle_description.text
direction=ddlb_1.text
area=integer(sle_area.text)
em_price.getData(price)
memo=mle_memo.text

err=""
if number="" then
	err=err + "项目编号不能为空!~n"
end if
if itemname="" then
	err=err + "项目名称不能为空!~n"
end if
if identifyno="" then
	err=err + "项目许可证不能为空!~n"
end if
if buildingno="" then
	err=err + "楼号不能为空!~n"
end if
if unitno="" then
	err=err + "单元号不能为空!~n"
end if
if housetype="" then
	err=err + "户型不能为空!~n"
end if
if area<=0 then
	err=err + "建筑面积应该>0!~n"
end if
if price<=0 then
	err=err + "单价应该>0!~n"
end if	

if err<>"" then
	messagebox("警告!",err)
	return
end if
	
select count(number) 
into :rc
from house
where number=:number
using sqlca;

if rc>0 then
	messagebox("警告：","项目编号不能重复!")
	return
end if	

INSERT INTO house  
         ( number,   
           itemname,   
           identifyno,   
           buildingno,   
           unitno,   
           storey,   
           buildingheight,   
           housetype,   
           description,   
           direction,   
           area,
           price,   
           memo   
           )  
  VALUES ( :number,   
           :itemname,   
           :identifyno,   
           :buildingno,   
           :unitno,   
           :storey,   
           :buildingheight,              
           :housetype,
			  :description,   
           :direction,   
           :area,
			  :price,
			  :memo
			  )  
USING sqlca;
if sqlca.sqlcode<>0 then
	messagebox("",sqlca.sqlerrtext)
end if


end event

type mle_memo from multilineedit within w_houseregister
integer x = 517
integer y = 1116
integer width = 1472
integer height = 288
integer taborder = 110
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

type em_price from editmask within w_houseregister
integer x = 517
integer y = 968
integer width = 457
integer height = 100
integer taborder = 100
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!