vb课程设计职工工资管理系统代码

1、- 1 - form1: dim errorcount as integer private sub command1_click() if text1.text = system and text2.text = 1234 then load form2 form2.show me.hide msgbox 登陆成功，欢迎您进入职工工资管理系统, vbinformation, 登陆成功 else errorcount = errorcount + 1 if errorcount = 3 then text1.enabled = false text2.enabled = false comma

2、nd1.enabled = false msgbox 三 次 输 入 用 户 名 或 密 码 错 误 ,程 序 将 自 动 退 出 ！ , vbokonly + vbexclamation, 登陆失败 end end if end if end sub private sub command2_click() unload meend sub private sub form_load() errorcount = 0 end sub private sub form_unload(cancel as integer) if msgbox( 是否要退出程序?, vbyesno, 退出提示 )

3、= vbno then cancel = 1 end if end sub - 2 - form2: dim filedir as string private sub command1_click() commondialog1.showopen jlnum = 0 if len(trim(commondialog1.filename) 0 then filedir = commondialog1.filename open commondialog1.filename for input as #1 do while not eof(1) line input #1, a if len(t

4、rim(a) 0 then jlnum = jlnum + 1 end if loop close #1 redim preserve yglist(jlnum) as yuangong jlnum = 0 open commondialog1.filename for input as #1 do while not eof(1) jlnum = jlnum + 1 input #1, yglist(jlnum).ygnamg input #1, yglist(jlnum).jibengz input #1, yglist(jlnum).jingtie input #1, yglist(jl

5、num).gerensui input #1, yglist(jlnum).suidianfei loop close #1 text1.text = 姓名 & vbtab & 工资 & vbtab & 津贴 & vbtab & 所得税 & vbtab & 水电费 & vbcrlf for i = 1 to jlnum text1.text = text1.text & yglist(i).ygnamg & vbtab & yglist(i).jibengz & vbtab & yg

6、list(i).jingtie & vbtab & yglist(i).gerensui & vbtab & yglist(i).suidianfei & vbcrlf next command2.enabled = true command3.enabled = false command4.enabled = false command5.enabled = true command6.enabled = true end sub private sub command2_click() - 3 - for i = 1 to jlnum yglist

7、(i).shifagongzi = (csng(yglist(i).jibengz) + csng(yglist(i).jingtie) - yglist(i).gerensui - csng(yglist(i).suidianfei) next loaddata command3.enabled = true command4.enabled = true end sub private sub command3_click() dim zuida as integer dim linshi as yuangong zuida = 1 dim shifoujiaohuan as boolea

8、n for y = 1 to ubound(yglist) shifoujiaohuan = false zuida = y for x = y to ubound(yglist) if yglist(x).shifagongzi yglist(zuishao).shifagongzi then zuishao = x shifoujiaohuan = true end if next if shifoujiaohuan then linshi.ygnamg = yglist(y).ygnamg yglist(y).ygnamg = yglist(zuishao).ygnamg yglist(

9、zuishao).ygnamg = linshi.ygnamg linshi.jibengz = yglist(y).jibengz yglist(y).jibengz = yglist(zuishao).jibengz yglist(zuishao).jibengz = linshi.jibengz linshi.jingtie = yglist(y).jingtie yglist(y).jingtie = yglist(zuishao).jingtie yglist(zuishao).jingtie = linshi.jingtie linshi.gerensui = yglist(y).

10、gerensui yglist(y).gerensui = yglist(zuishao).gerensui yglist(zuishao).gerensui = linshi.gerensui linshi.suidianfei = yglist(y).suidianfei yglist(y).suidianfei = yglist(zuishao).suidianfei yglist(zuishao).suidianfei = linshi.suidianfei linshi.shifagongzi = yglist(y).shifagongzi - 5 - yglist(y).shifa

11、gongzi = yglist(zuishao).shifagongzi yglist(zuishao).shifagongzi = linshi.shifagongzi end if next loaddata end sub private sub command5_click() dim linshi as yuangong linshi.ygnamg = inputbox(请输入要添加的姓名, 添加员工 -姓名录入 ) if len(trim(linshi.ygnamg) 0 then linshi.jibengz = inputbox(请输入添加员工的基本工资, 添加员工 -基本工资

12、录入) if len(trim(linshi.jibengz) 0 then linshi.jingtie = inputbox(请输入添加员工的津贴, 添加员工 -津贴录入 ) if len(trim(linshi.jingtie) 0 then linshi.gerensui = inputbox(请输入添加员工的个人所得税, 添加员工 -个税录入) if len(trim(linshi.gerensui) 0 then linshi.suidianfei = inputbox( 请输入添加员工的水电费, 添加员工 -水电费录入 ) if len(trim(linshi.suidianfe

13、i) 0 then open filedir for append as #1 write #1, linshi.ygnamg; linshi.jibengz; linshi.jingtie; linshi.gerensui; linshi.suidianfei close #1 msgbox 添加员工成功！, vbokonly + vbinformation, 成功 jlnum = 0 if len(trim(filedir) 0 then open filedir for input as #1 do while not eof(1) line input #1, a if len(tri

14、m(a) 0 then jlnum = jlnum + 1 end if loop close #1 redim preserve yglist(jlnum) as yuangong jlnum = 0 open filedir for input as #1 do while not eof(1) jlnum = jlnum + 1 input #1, yglist(jlnum).ygnamg input #1, yglist(jlnum).jibengz input #1, yglist(jlnum).jingtie - 6 - input #1, yglist(jlnum).gerens

15、ui input #1, yglist(jlnum).suidianfei loop close #1 command2.enabled = true command3.enabled = false command4.enabled = false command5.enabled = true command6.enabled = true end if text1.text = 姓名 & vbtab & 工资 & vbtab & 津贴 & vbtab & 所得税 & vbtab & 水电费 & vbcrlf for

16、i = 1 to jlnum text1.text = text1.text & yglist(i).ygnamg & vbtab & yglist(i).jibengz & vbtab & yglist(i).jingtie & vbtab & yglist(i).gerensui & vbtab & yglist(i).suidianfei & vbcrlf next else msgbox 添加员工失败！, vbokonly + vbexclamation, 失败 end if else msgbox 添加员

17、工失败！, vbokonly + vbexclamation, 失败 end if else msgbox 添加员工失败！, vbokonly + vbexclamation, 失败 end if else msgbox 添加员工失败！, vbokonly + vbexclamation, 失败 end if else msgbox 添加员工失败！, vbokonly + vbexclamation, 失败 end if end sub private sub command6_click() dim str as string str = inputbox( 请输入要删除的员工名字, 删除员

18、工信息) if len(trim(str) 0 then open filedir for output as #1 for i = 1 to jlnum if str yglist(i).ygnamg then write #1, yglist(i).ygnamg; yglist(i).jibengz; yglist(i).jingtie; yglist(i).gerensui; yglist(i).suidianfei end if - 7 - next close #1 msgbox 删除员工成功！, vbokonly + vbinformation, 成功 jlnum = 0 if l

19、en(trim(filedir) 0 then open filedir for input as #1 do while not eof(1) line input #1, a if len(trim(a) 0 then jlnum = jlnum + 1 end if loop close #1 redim yglist(jlnum) as yuangong jlnum = 0 open filedir for input as #1 do while not eof(1) jlnum = jlnum + 1 input #1, yglist(jlnum).ygnamg input #1,

20、 yglist(jlnum).jibengz input #1, yglist(jlnum).jingtie input #1, yglist(jlnum).gerensui input #1, yglist(jlnum).suidianfei loop close #1 loaddata command2.enabled = true command3.enabled = false command4.enabled = false command5.enabled = true command6.enabled = true end if text1.text = 姓名 & vbt

21、ab & 工资 & vbtab & 津贴 & vbtab & 所得税 & vbtab & 水电费 & vbcrlf for i = 1 to jlnum text1.text = text1.text & yglist(i).ygnamg & vbtab & yglist(i).jibengz & vbtab & yglist(i).jingtie & vbtab & yglist(i).gerensui & vbtab & yglist(i).suidian

22、fei & vbcrlf next else msgbox 删除员工失败！, vbokonly + vbexclamation, 失败 end if end sub private sub command7_click() - 8 - unload me end sub private sub form_load() command2.enabled = false command3.enabled = false command4.enabled = false command5.enabled = false command6.enabled = false end sub private sub form_unload(cancel as integer) if msgbox( 是否要退出程序?, vbyesno,