w_login.srw

一个漂亮的下拉日历

$PBExportHeader$w_login.srw
forward
global type w_login from window
end type
type st_1 from statictext within w_login
end type
type uo_1 from uo_comctl_datetime within w_login
end type
type sle_1 from singlelineedit within w_login
end type
type uo_0 from uo_comctl_datetime within w_login
end type
type dw_ztcs from datawindow within w_login
end type
type st_34 from statictext within w_login
end type
type pb_ok from picturebutton within w_login
end type
type pb_help from picturebutton within w_login
end type
type pb_cancel from picturebutton within w_login
end type
end forward

global type w_login from window
integer x = 987
integer y = 728
integer width = 2245
integer height = 948
boolean titlebar = true
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 79741120
event ue_newzt pbm_custom01
event ue_init pbm_custom02
st_1 st_1
uo_1 uo_1
sle_1 sle_1
uo_0 uo_0
dw_ztcs dw_ztcs
st_34 st_34
pb_ok pb_ok
pb_help pb_help
pb_cancel pb_cancel
end type
global w_login w_login

type variables
int vins_ztindex
int vins_user_index
end variables

event ue_init;//string s_level
//long l_row
//int i
//int i_glbz//管理标志
//dw_ztcs.settransobject(sqlca)
////em_ywtime.text=string(today())
//  SELECT "tgl_post"."c_post_level"  
//    INTO :s_level 
//    FROM "tgl_post"  
//   WHERE "tgl_post"."c_post_id" = :vgl_user.post_id   ;
//if(s_level="1" ) then //汇总单位
//  ddplb_ztsj.visible=false
//  st_2.visible=false
//  pb_new.enabled=false
//  return
//end if
//pb_new.enabled=true
//ddplb_ztsj.visible=true
//st_2.visible=true
//
// 
// 
//l_row=dw_ztcs.retrieve(vgl_user.post_id,"%")
//if(l_row=0) then
//   SELECT "zw_user"."c_igly"  
//    INTO :i_glbz  
//    FROM "zw_user"  
//   WHERE "zw_user"."c_user_id" =:vgl_user.user_id and "c_post_id"=:vgl_user.post_id ;
//   if(i_glbz=1) then
//    if messagebox("提示","数据库中还没有"+vgl_user.post_name+"的帐套"+"建立新的帐套吗？",Question!,YesNo! )=1 then
//	    triggerevent("ue_newzt")
//	 end if
//   else
//	  messagebox("提示","数据库中还没有"+vgl_user.post_name+"的帐套"+",请跟财务主管联系！！",StopSign!,OK! )
//	  halt
//	end if
//end if
// l_row=dw_ztcs.retrieve(vgl_user.post_id,"%")
//  ddplb_ztsj.reset()
//  for i=1 to l_row 	
//    if(i=1) then
//      ddplb_ztsj.additem(trim(dw_ztcs.getitemstring(i,"c_cyjzt"))+trim(dw_ztcs.getitemstring(i,"c_cztmc")),1)
//	   ddplb_ztsj.text=trim(dw_ztcs.getitemstring(i,"c_cyjzt"))+trim(dw_ztcs.getitemstring(i,"c_cztmc"))
//		ddplb_ztsj.item[i]=string(dw_ztcs.getitemnumber(i,"c_izth"))
//    else
//	    ddplb_ztsj.additem(trim(dw_ztcs.getitemstring(i,"c_cyjzt"))+trim(dw_ztcs.getitemstring(i,"c_cztmc")),2)	
//		 ddplb_ztsj.item[i]=string(dw_ztcs.getitemnumber(i,"c_izth"))
//    end if
//  next
//vins_ztindex=1
//
end event

on w_login.create
this.st_1=create st_1
this.uo_1=create uo_1
this.sle_1=create sle_1
this.uo_0=create uo_0
this.dw_ztcs=create dw_ztcs
this.st_34=create st_34
this.pb_ok=create pb_ok
this.pb_help=create pb_help
this.pb_cancel=create pb_cancel
this.Control[]={this.st_1,&
this.uo_1,&
this.sle_1,&
this.uo_0,&
this.dw_ztcs,&
this.st_34,&
this.pb_ok,&
this.pb_help,&
this.pb_cancel}
end on

on w_login.destroy
destroy(this.st_1)
destroy(this.uo_1)
destroy(this.sle_1)
destroy(this.uo_0)
destroy(this.dw_ztcs)
destroy(this.st_34)
destroy(this.pb_ok)
destroy(this.pb_help)
destroy(this.pb_cancel)
end on

event open;triggerevent("ue_init")
end event

type st_1 from statictext within w_login
integer x = 1029
integer y = 396
integer width = 1024
integer height = 132
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 134217752
string text = "uo_0与uo_1只是在属性“style”上有区别"
boolean focusrectangle = false
end type

type uo_1 from uo_comctl_datetime within w_login
integer x = 526
integer y = 428
integer taborder = 50
end type

type sle_1 from singlelineedit within w_login
integer x = 517
integer y = 284
integer width = 626
integer height = 92
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type uo_0 from uo_comctl_datetime within w_login
integer x = 517
integer y = 156
integer width = 626
integer height = 96
integer taborder = 20
long style = 1174405124
end type

type dw_ztcs from datawindow within w_login
boolean visible = false
integer x = 1115
integer y = 200
integer width = 494
integer height = 360
integer taborder = 30
string dataobject = "d_ztcs"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type st_34 from statictext within w_login
integer x = 270
integer y = 180
integer width = 219
integer height = 64
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

type pb_ok from picturebutton within w_login
integer x = 361
integer y = 580
integer width = 288
integer height = 100
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "确定[&O]"
boolean default = true
end type

event clicked;string ls_1
sle_1.text=f_getdata(uo_0)

end event

type pb_help from picturebutton within w_login
integer x = 987
integer y = 580
integer width = 288
integer height = 100
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "帮助[&H]"
vtextalign vtextalign = vcenter!
end type

type pb_cancel from picturebutton within w_login
integer x = 672
integer y = 580
integer width = 288
integer height = 100
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "取消[&C]"
vtextalign vtextalign = vcenter!
end type

event clicked;halt
end event