数据备份代码.txt

pb9.0做的科研管理系统源码

forward
global type w_bf from window
end type
type dw_7 from datawindow within w_bf
end type
type dw_6 from datawindow within w_bf
end type
type dw_5 from datawindow within w_bf
end type
type dw_4 from datawindow within w_bf
end type
type dw_3 from datawindow within w_bf
end type
type dw_2 from datawindow within w_bf
end type
type dw_1 from datawindow within w_bf
end type
type cb_2 from commandbutton within w_bf
end type
type cb_1 from commandbutton within w_bf
end type
type ddlb_1 from dropdownlistbox within w_bf
end type
type st_1 from statictext within w_bf
end type
end forward

global type w_bf from window
integer x = 823
integer y = 362
integer width = 1320
integer height = 666
boolean titlebar = true
string title = "数据库备份窗口"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 79741120
dw_7 dw_7
dw_6 dw_6
dw_5 dw_5
dw_4 dw_4
dw_3 dw_3
dw_2 dw_2
dw_1 dw_1
cb_2 cb_2
cb_1 cb_1
ddlb_1 ddlb_1
st_1 st_1
end type
global w_bf w_bf

on w_bf.create
this.dw_7=create dw_7
this.dw_6=create dw_6
this.dw_5=create dw_5
this.dw_4=create dw_4
this.dw_3=create dw_3
this.dw_2=create dw_2
this.dw_1=create dw_1
this.cb_2=create cb_2
this.cb_1=create cb_1
this.ddlb_1=create ddlb_1
this.st_1=create st_1
this.Control[]={this.dw_7,&
this.dw_6,&
this.dw_5,&
this.dw_4,&
this.dw_3,&
this.dw_2,&
this.dw_1,&
this.cb_2,&
this.cb_1,&
this.ddlb_1,&
this.st_1}
end on

on w_bf.destroy
destroy(this.dw_7)
destroy(this.dw_6)
destroy(this.dw_5)
destroy(this.dw_4)
destroy(this.dw_3)
destroy(this.dw_2)
destroy(this.dw_1)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.ddlb_1)
destroy(this.st_1)
end on

event open;	 dw_1.settransobject(sqlca)
    dw_1.retrieve()
	// dw_2.settransobject(sqlca)
   // dw_2.retrieve()
	// dw_3.settransobject(sqlca)
  //  dw_3.retrieve()
	// dw_4.settransobject(sqlca)
  //  dw_4.retrieve()
	// dw_5.settransobject(sqlca)
  //  dw_5.retrieve()
	// dw_6.settransobject(sqlca)
 //   dw_6.retrieve()
 //   dw_7.settransobject(sqlca)
 //   dw_7.retrieve()
end event

type dw_7 from datawindow within w_bf
boolean visible = false
integer x = 914
integer y = 525
integer width = 494
integer height = 362
integer taborder = 20
string dataobject = "dw_bf_wz"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_6 from datawindow within w_bf
boolean visible = false
integer x = 1013
integer y = 509
integer width = 494
integer height = 362
integer taborder = 40
string dataobject = "dw_bf_xmlx"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_5 from datawindow within w_bf
boolean visible = false
integer x = 797
integer y = 624
integer width = 494
integer height = 362
integer taborder = 70
string dataobject = "dw_bf_putout"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_4 from datawindow within w_bf
boolean visible = false
integer x = 567
integer y = 637
integer width = 494
integer height = 362
integer taborder = 80
string dataobject = "d_product_grid"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_3 from datawindow within w_bf
boolean visible = false
integer x = 296
integer y = 643
integer width = 494
integer height = 362
integer taborder = 90
string dataobject = "d_kehu_grid"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_2 from datawindow within w_bf
boolean visible = false
integer x = 1093
integer y = 595
integer width = 494
integer height = 362
integer taborder = 60
string dataobject = "dw_yhwh1"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_1 from datawindow within w_bf
boolean visible = false
integer y = 531
integer width = 768
integer height = 362
integer taborder = 50
string dataobject = "d_dd_grid"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_2 from commandbutton within w_bf
integer x = 794
integer y = 400
integer width = 249
integer height = 90
integer taborder = 30
integer textsize = -9
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_bf
integer x = 230
integer y = 400
integer width = 249
integer height = 90
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "确定"
boolean default = true
end type

event clicked;choose case ddlb_1.text
	case "订单库"
		dw_1.saveas()
	case "发货信息库"
//		dw_2.saveas()	
	case "客户信息库"
		dw_3.saveas()	
	case "产品信息库"
		dw_4.saveas()		
	case "进库信息库"
//		dw_5.saveas()	
	case "库存信息库"	
//		dw_6.saveas()
	case "生产状况库"	
//		dw_7.saveas()
end choose	
end event

type ddlb_1 from dropdownlistbox within w_bf
integer x = 497
integer y = 99
integer width = 666
integer height = 474
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean autohscroll = true
boolean sorted = false
boolean vscrollbar = true
integer limit = 4
string item[] = {"订单库","发货信息库","客户信息库","产品信息库","进库信息库","库存信息库","生产状况库"}
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_bf
integer x = 51
integer y = 106
integer width = 421
integer height = 77
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "选择数据表格："
boolean focusrectangle = false
end type