?? 數據備份代碼.txt
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -