w_enter.srw

pb所需编程技巧和事例

$PBExportHeader$w_enter.srw
forward
global type w_enter from window
end type
type cb_exit from commandbutton within w_enter
end type
type cb_enter from commandbutton within w_enter
end type
type dw_1 from datawindow within w_enter
end type
end forward

global type w_enter from window
integer width = 3090
integer height = 1524
boolean titlebar = true
string title = "住院登记单"
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_exit cb_exit
cb_enter cb_enter
dw_1 dw_1
end type
global w_enter w_enter

type variables
long regrow
end variables
on w_enter.create
this.cb_exit=create cb_exit
this.cb_enter=create cb_enter
this.dw_1=create dw_1
this.Control[]={this.cb_exit,&
this.cb_enter,&
this.dw_1}
end on

on w_enter.destroy
destroy(this.cb_exit)
destroy(this.cb_enter)
destroy(this.dw_1)
end on

event open;dw_1.settransobject(sqlca)
//regrow=dw_1.insertrow(0)
dw_1.retrieve()
end event
type cb_exit from commandbutton within w_enter
integer x = 1792
integer y = 1272
integer width = 457
integer height = 128
integer taborder = 30
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_enter from commandbutton within w_enter
integer x = 1125
integer y = 1268
integer width = 457
integer height = 128
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "登记"
end type

event clicked;string zyh
double je
dw_1.update()

zyh=dw_1.GetItemString(regrow,"zyh")
je=dw_1.GetItemDecimal(regrow,"je")

insert into payrecord(zyh,money,paydate)
values(:zyh,:je,now())
using sqlca;
end event
type dw_1 from datawindow within w_enter
integer x = 114
integer y = 116
integer width = 2834
integer height = 1080
integer taborder = 10
string dataobject = "d_enter"
borderstyle borderstyle = stylelowered!
end type