w_stock.srw

用pb（power builder）制作的医院管理系统 附有数据库脚本

$PBExportHeader$w_stock.srw
forward
global type w_stock from window
end type
type cb_5 from commandbutton within w_stock
end type
type cb_4 from commandbutton within w_stock
end type
type dw_2 from datawindow within w_stock
end type
type cb_3 from commandbutton within w_stock
end type
type cb_2 from commandbutton within w_stock
end type
type cb_1 from commandbutton within w_stock
end type
type dw_1 from datawindow within w_stock
end type
end forward

global type w_stock from window
integer width = 2706
integer height = 1560
boolean titlebar = true
string title = "购进入库"
boolean controlmenu = true
boolean minbox = true
windowtype windowtype = popup!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_5 cb_5
cb_4 cb_4
dw_2 dw_2
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
dw_1 dw_1
end type
global w_stock w_stock

on w_stock.create
this.cb_5=create cb_5
this.cb_4=create cb_4
this.dw_2=create dw_2
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw_1=create dw_1
this.Control[]={this.cb_5,&
this.cb_4,&
this.dw_2,&
this.cb_3,&
this.cb_2,&
this.cb_1,&
this.dw_1}
end on

on w_stock.destroy
destroy(this.cb_5)
destroy(this.cb_4)
destroy(this.dw_2)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw_1)
end on

event open; dw_1.insertrow(0)
// dw_1.settransobject(sqlca)
// dw_1.retrieve()
 
 dw_2.settransobject(sqlca)
 dw_2.retrieve()
 
end event

type cb_5 from commandbutton within w_stock
integer x = 969
integer y = 28
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"
boolean enabled = false
string text = "新增"
end type

event clicked;//dw_1.insertrow(0)
end event

type cb_4 from commandbutton within w_stock
integer y = 600
integer width = 503
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;dw_2.insertrow( 0)
end event

type dw_2 from datawindow within w_stock
integer y = 724
integer width = 2679
integer height = 728
integer taborder = 20
string title = "none"
string dataobject = "d_stock_detail"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_3 from commandbutton within w_stock
integer x = 1481
integer y = 32
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;close(parent)
end event

type cb_2 from commandbutton within w_stock
integer x = 475
integer y = 24
integer width = 457
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
boolean enabled = false
string text = "打印"
end type

type cb_1 from commandbutton within w_stock
integer x = 5
integer y = 24
integer width = 457
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "保存"
end type

event clicked;//dw_1.settransobject(sqlca)
// dw_1.retrieve()
//  dw_2.settransobject(sqlca)
// dw_2.retrieve()
if dw_2.update()=1 then
	messagebox("!","数据库更新成功!")
	commit;
	 
else
	messagebox("!","数据库更新失败!")
	rollback;
end if

// if dw_1.update()=1 then
//	messagebox("!","数据库更新成功!")
//	commit;
//	 
//else
//	messagebox("!","数据库更新失败!")
//	rollback;
//end if
//
end event

type dw_1 from datawindow within w_stock
integer y = 192
integer width = 2688
integer height = 392
integer taborder = 10
string title = "none"
string dataobject = "d_stock_main"
boolean hscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type