w_main.srw.bak

PB9.0生成的学生信息管理系统

$PBExportHeader$w_main.srw
forward
global type w_main from window
end type
type st_11 from statictext within w_main
end type
type sle_weight from singlelineedit within w_main
end type
type st_10 from statictext within w_main
end type
type st_9 from statictext within w_main
end type
type sle_height from singlelineedit within w_main
end type
type sle_major from singlelineedit within w_main
end type
type st_8 from statictext within w_main
end type
type mle_resume from multilineedit within w_main
end type
type sle_class from singlelineedit within w_main
end type
type em_birthday from editmask within w_main
end type
type sle_department from singlelineedit within w_main
end type
type sle_nativeplace from singlelineedit within w_main
end type
type sle_gender from singlelineedit within w_main
end type
type sle_name from singlelineedit within w_main
end type
type st_7 from statictext within w_main
end type
type st_6 from statictext within w_main
end type
type st_5 from statictext within w_main
end type
type st_4 from statictext within w_main
end type
type st_3 from statictext within w_main
end type
type st_2 from statictext within w_main
end type
type cb_inquiry from commandbutton within w_main
end type
type st_1 from statictext within w_main
end type
type sle_number from singlelineedit within w_main
end type
type cb_exit from commandbutton within w_main
end type
end forward

global type w_main from window
integer width = 2775
integer height = 1464
boolean titlebar = true
string title = "学生信息查询系统"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_11 st_11
sle_weight sle_weight
st_10 st_10
st_9 st_9
sle_height sle_height
sle_major sle_major
st_8 st_8
mle_resume mle_resume
sle_class sle_class
em_birthday em_birthday
sle_department sle_department
sle_nativeplace sle_nativeplace
sle_gender sle_gender
sle_name sle_name
st_7 st_7
st_6 st_6
st_5 st_5
st_4 st_4
st_3 st_3
st_2 st_2
cb_inquiry cb_inquiry
st_1 st_1
sle_number sle_number
cb_exit cb_exit
end type
global w_main w_main

on w_main.create
this.st_11=create st_11
this.sle_weight=create sle_weight
this.st_10=create st_10
this.st_9=create st_9
this.sle_height=create sle_height
this.sle_major=create sle_major
this.st_8=create st_8
this.mle_resume=create mle_resume
this.sle_class=create sle_class
this.em_birthday=create em_birthday
this.sle_department=create sle_department
this.sle_nativeplace=create sle_nativeplace
this.sle_gender=create sle_gender
this.sle_name=create sle_name
this.st_7=create st_7
this.st_6=create st_6
this.st_5=create st_5
this.st_4=create st_4
this.st_3=create st_3
this.st_2=create st_2
this.cb_inquiry=create cb_inquiry
this.st_1=create st_1
this.sle_number=create sle_number
this.cb_exit=create cb_exit
this.Control[]={this.st_11,&
this.sle_weight,&
this.st_10,&
this.st_9,&
this.sle_height,&
this.sle_major,&
this.st_8,&
this.mle_resume,&
this.sle_class,&
this.em_birthday,&
this.sle_department,&
this.sle_nativeplace,&
this.sle_gender,&
this.sle_name,&
this.st_7,&
this.st_6,&
this.st_5,&
this.st_4,&
this.st_3,&
this.st_2,&
this.cb_inquiry,&
this.st_1,&
this.sle_number,&
this.cb_exit}
end on

on w_main.destroy
destroy(this.st_11)
destroy(this.sle_weight)
destroy(this.st_10)
destroy(this.st_9)
destroy(this.sle_height)
destroy(this.sle_major)
destroy(this.st_8)
destroy(this.mle_resume)
destroy(this.sle_class)
destroy(this.em_birthday)
destroy(this.sle_department)
destroy(this.sle_nativeplace)
destroy(this.sle_gender)
destroy(this.sle_name)
destroy(this.st_7)
destroy(this.st_6)
destroy(this.st_5)
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.cb_inquiry)
destroy(this.st_1)
destroy(this.sle_number)
destroy(this.cb_exit)
end on

type st_11 from statictext within w_main
integer x = 96
integer y = 940
integer width = 311
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "简要介绍"
boolean focusrectangle = false
end type

event clicked;close(parent)
end event

type sle_weight from singlelineedit within w_main
integer x = 1906
integer y = 676
integer width = 402
integer height = 104
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_10 from statictext within w_main
integer x = 1705
integer y = 700
integer width = 169
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "体重"
boolean focusrectangle = false
end type

type st_9 from statictext within w_main
integer x = 978
integer y = 700
integer width = 169
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "身高"
boolean focusrectangle = false
end type

type sle_height from singlelineedit within w_main
integer x = 1193
integer y = 676
integer width = 402
integer height = 104
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_major from singlelineedit within w_main
integer x = 302
integer y = 672
integer width = 402
integer height = 104
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_8 from statictext within w_main
integer x = 64
integer y = 680
integer width = 169
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "专业"
boolean focusrectangle = false
end type

type mle_resume from multilineedit within w_main
integer x = 457
integer y = 856
integer width = 1143
integer height = 292
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean hscrollbar = true
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

type sle_class from singlelineedit within w_main
integer x = 1911
integer y = 464
integer width = 402
integer height = 104
integer taborder = 50
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type em_birthday from editmask within w_main
integer x = 283
integer y = 476
integer width = 585
integer height = 100
integer taborder = 40
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy年mm月dd日"
end type

type sle_department from singlelineedit within w_main
integer x = 1179
integer y = 472
integer width = 402
integer height = 104
integer taborder = 40
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_nativeplace from singlelineedit within w_main
integer x = 1906
integer y = 260
integer width = 402
integer height = 104
integer taborder = 40
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_gender from singlelineedit within w_main
integer x = 1170
integer y = 264
integer width = 402
integer height = 104
integer taborder = 40
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_name from singlelineedit within w_main
integer x = 279
integer y = 264
integer width = 402
integer height = 104
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_7 from statictext within w_main
integer x = 1687
integer y = 480
integer width = 169
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "班级"
boolean focusrectangle = false
end type

type st_6 from statictext within w_main
integer x = 987
integer y = 492
integer width = 169
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "院系"
boolean focusrectangle = false
end type

type st_5 from statictext within w_main
integer x = 64
integer y = 480
integer width = 169
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "生日"
boolean focusrectangle = false
end type

type st_4 from statictext within w_main
integer x = 1687
integer y = 260
integer width = 169
integer height = 96
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "籍贯"
boolean focusrectangle = false
end type

type st_3 from statictext within w_main
integer x = 987
integer y = 272
integer width = 169
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "性别"
boolean focusrectangle = false
end type

type st_2 from statictext within w_main
integer x = 64
integer y = 276
integer width = 169
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "姓名"
boolean focusrectangle = false
end type

type cb_inquiry from commandbutton within w_main
integer x = 1189
integer y = 44
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;datetime birthday1;

sle_name.text=""
sle_gender.text=""
sle_nativeplace.text=""
em_birthday.text=""
sle_department.text=""
sle_class.text=""
sle_major.text=""
sle_height.text=""
sle_weight.text=""
mle_resume.text=""

select name,gender,nativeplace,
birthday,department,class,
major,height,weight,resume
into :sle_name.text,:sle_gender.text,:sle_nativeplace.text,
:birthday1,:sle_department.text,:sle_class.text,
:sle_major.text,:sle_height.text,:sle_weight.text,:mle_resume.text
from student
where number=:sle_number.text
using sqlca;

if sle_name.text="" then
	messagebox("提示：","没有找到符合条件的记录，请重新输入学号!")
	return
end if	

em_birthday.text=Mid(string(birthday1),1,10)
sle_height.text=sle_height.text+"厘米"
sle_weight.text=sle_weight.text+"公斤"
end event
type st_1 from statictext within w_main
integer x = 64
integer y = 52
integer width = 453
integer height = 80
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "请输入学号"
boolean focusrectangle = false
end type

type sle_number from singlelineedit within w_main
integer x = 544
integer y = 32
integer width = 457
integer height = 108
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 134217752
borderstyle borderstyle = stylelowered!
end type

type cb_exit from commandbutton within w_main
integer x = 2089
integer y = 1036
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;Close(parent)
end event