窗体方面有关论文范文检索,与广东金融学院本科生毕业文,金融毕业文提纲广东相关论文网

本论文是一篇窗体方面有关论文网,关于广东金融学院本科生毕业文,金融毕业文提纲广东相关专升本毕业论文范文。免费优秀的关于窗体及软件开发及黑体方面论文范文资料,适合窗体论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。

EndSub

PrivateSubText14_Change()

Text9.Text等于Text14.Text

EndSub

PrivateSubText18_Change()

Text11.Text等于Text18.Text

EndSub

2.4.创建子窗体常用任务(常用任务.frm)

2.4.1子窗体常用任务的结构图四:

常用任务

列表任务

说明

购原材料

管理费托收

分期每月付款到年底

每月20号前

2.4.2子窗体常用任务的代码编写:

(0)通用代码

PrivatesubDelete_click()

Lstbooks1.RemoveItem等于lstbooks1.listIndex.

Lstbooks2.RemoveItem等于lstbooks2.listIndex.

Endsub

Subcmdedit_click()

Txtitem1等于lstbooks1.text

TxtItem.setfocus

Cmdadd.enabled等于false

Cmddelete.enabled等于false

Cmdcancel.enabled等于false

Cmdedit.enabled等于true

Endsub

Subform_load()

Lstbooks1.additem"列表任务"

Lstbooks1.additem"购原材料"

Lstbooks1.additem"管理费托收"

Lstbooks2.additem"说明"

Lstbooks2.additem"分期每月付款到年底"

Lstbooks2.additem"每月20号前"

Endsub

(1)加载

Subcmdadd.click()

Lstbooks1.additemtxtitem1

txtitem1等于""

Lstbooks2.additemtxtitem2

Txtitem2等于""

Endsub

(2)打印对话框

subcmdprint_click()//打印对话框

mondialog1.action等于5

forI等于1tomondialog1.copies

printen.printtxtnoteedit.text

nextI

printer.enddoc

endsub

(3)帮助对话框

subcodDisplayhelp_click()//帮助

mondialog1.helponand等于cdutdpcontents

mondialog1.helpfile等于"C:\windows\help\ntepadhlp'

mondialog1.attion等于6

endsub

(4)排序则使用冒泡排序法(从小到大).

privatesubbutton1_click(byval.senderAs.system.objectbyval.eassystem.eventargs)

hendlesbuttow.click

dimarr(3)aosdoubule

arr(1)等于cdb(textbox1.text)

arr(2)等于cdb(textbox2.text)

arr(3)等于cdb(textbox3.text)

callbubblesort(arr1)

textbox1.text等于cstr(arr1)

textbox2.text等于cstr(arr2)

textbox3.text等于cstr(arr3)

endsub

subbubblessort(byvallist()asdouble)

Dim.first,last.tempAsDouble

DimI,j,asinteger

First等于lbound(list)'上界

Last等于ubound(list)'下界

ForI等于firsttolast-1

Forj等于I+1tolast

Iflist(i)>,list(j)Then

Temp等于list(j)

List(j)等于list(i)

List(i)等于temp

Endif

Next

Next

Endsub

(5)查找某个字符或字符串

privatesubbution1_click(byvalsenderassyetem.objectbyvaltassystem.Evenargs)

handlesbuton1.click

Dimstr1Asstring

Str1等于textbox1.text

Ifstr<,>,""then

Richtextbox1.text等于strRightpaht(richtextbox1.text.str1)

Else

Msgobx("没有查找到")

Endif

Endsub

Publicfunctionstrrightpart(byval.strenput.asstring.byval.strinputasstring)Asstring

DimtempAsstring

Dim.strinput1,strinputatrt1,I,count.chaplace.asinteger

Strinput等于len(strinput)

Strinputpart1等于lon(strinputpart)

ForI等于strinput1tostep-1

Temp等于Microsoft.visuatbasic.right(temp,strinputpart1)

Stinputpartthen

Exitfor

Count等于count+1

Next

Chrplace等于strinput1-count+1

Stvrightpart等于mid$(strinput,chrplace)

Endfunction

(6)列表显示

privatesubbutton2_click(bgvalsenderAssystem.object,byvaleAssystemEventargs)Handlesbueton2.click

Dim.row1AsDatarow

Rdv1等于datatable1.text

Rdv1("列表任务")等于textbox1.text

Rdv1("说明")等于cint(textbox2.text)

Datatable1.rows.add(row1)

Datatable1.acceptchangex()

Endsub

private.subbutton1_click(byvalsenderAssyetem.object,byvaleAssystem.EventArgs,HardlesButton1.click

Oledbmand1.connectioniopen()//打开链接

Di,.str.Assystem.data.oledb.oledbdatareader等于oledbcmmand,extcutereader

Whilestr.read//读取数据

Richtextboxlitext等于richtextbox1.text

Endwhile

Str.closw()

Oledbcvmmand1.connection,close()

Endsub

2.5创建子窗体进帐单(进帐单.frm)

2.5.1进帐单的结构图五:

进帐单

出票人

全称

收款人

全称

帐号

帐号

开户行

开户行

人民币

(大写)

十万

万

千

百

十

个

2.5.2进帐单代码的编写:

PrivateSubCommand1_Click()

PrintForm

EndSub

PrivateSubCommand2_Click()

Me.Show

Me.MaxButton等于True

EndSub

PrivateSubCommand5_Click()

main.Show

Me.Hide

EndSub

PrivateSubForm_Load()

Label1.FontName等于"黑体"

Label1.FontSize等于15

Text3.Text等于Format(Now,"yyyy")

Text4.Text等于Format(Now,"m")

Text5.Text等于Format(Now,"dd")

Label10.FontName等于"黑体"

Label10.FontSize等于20

Text1.Text等于Format(Now,"yyyy")

Text2.Text等于Format(Now,"m")

Text6.Text等于Format(Now,"dd")

EndSub

PrivateSubText10_Change()

Text14.Text等于Text10.Text

EndSub

PrivateSubText11_Change()

Text12.Text等于Text11.Text

EndSub

PrivateSubText15_Change()

Text20.Text等于Text15.Text

EndSub

PrivateSubText16_Change()

Text16.FontName等于"黑体"

Text16.FontSize等于14

EndSub

PrivateSubText17_Click()

Text17.FontName等于"宋体"

Text17.FontSize等于14

Text17.Text等于ss(Text17.Text)

Text16.Text等于Text17.Text

EndSub

PrivateSubText24_Change()

Text21.Text等于Text24.Text

EndSub

PrivateSubText7_Change()

Text13.Text等于Text7.Text

EndSub

PrivateSubText8_Change()

Text18.Text等于Text8.Text

EndSub

PrivateSubText9_Change()

Text19.Text等于Text9.Text

EndSub

3.公共部分的创建

3.1.数字转换成汉字繁体的代码编写:

PrivateFunctionss(shuAsString)AsString

DimiAsInteger

DimintlenAsInteger

DimstrchAsString

DimstrengAsString

DimstrtempchAsString

Dimstrseqch1AsString

Dimstrseqch2AsString

Dimstreng2chAsString

streng

上一页 1 2 3 4 5 下一页

窗体方面有关论文范文检索,与广东金融学院本科生毕业文,金融毕业文提纲广东相关论文网参考文献资料：

论文引言写什么

写好高考作文的技巧

时事论文怎么写

谁能写论文

如何写一篇好的论文

高考满分作文写人

写一篇议论文500字

初二议论文怎么写

博士写论文