注册会计师（注会）练习软件--mygeneration做的一个模板，备忘

＜％ｏｎ　ｅｒｒｏｒ　ｒｅｓｕｍｅ　ｎｅｘｔＤｉｍ　ｄａｔａｂａｓｅＤｉｍ　ｏｂｊＴａｂｌｅＤｉｍ　ｏｂｊＣｏｌｕｍｎＤｉｍ　ｉｎｔＬｐＤｉｍ　ｂＩｎＦｉｒｓｔＤｉｍ　ｓｔｒＰｒｏｃＮａｍｅＤｉｍ　ｂＨａｓＣｏｍｐｕｔｅｄＤｉｍ　ｓｔｒＷｈｅｒｅＣｌａｕｓｅＤｉｍ　ｓｔｒＷｈｅｒｅＡｎｄＤｉｍ　ｓｔｒＷｈｅｒｅＦｉｅｌｄｓＤｉｍ　ｓｔｒＣｏｍｍａＤｉｍ　ｔａｂｌｅＮａｍｅｓＤｉｍ　ｔａｂｌｅＮａｍｅＤｉｍ　ｂｕｆｆｅｒＤｉｍ　ｗｒｉｔｅＴｏＤａｔａｂａｓｅＳｅｔ　ｄａｔａｂａｓｅ　＝　ＭｙＭｅｔａ．Ｄａｔａｂａｓｅｓ（０）Ｓｅｔ　ｔａｂｌｅＮａｍｅｓ　＝　ｉｎｐｕｔ．Ｉｔｅｍ（＂ｌｓｔＴａｂｌｅｓ＂）ｗｒｉｔｅＴｏＤａｔａｂａｓｅ　＝　ｉｎｐｕｔ．Ｉｔｅｍ（＂ｃｈｋＢｏｘ＂）％＞ｕｎｉｔ　ｕａｌｌｃｌａｓｓ；ｉｎｔｅｒｆａｃｅｕｓｅｓ　Ｗｉｎｄｏｗｓ，　Ｍｅｓｓａｇｅｓ；＜％＇　Ｌｏｏｐ　ｔｈｒｏｕｇｈ　ｔｈｅ　ｔａｂｌｅｓ　ｔｈｅ　ｕｓｅｒ　ｓｅｌｅｃｔ　ａｎｄ　ｇｅｎｅｒａｔｅ　ｔｈｅ　ｓｔｏｒｅｄ　ｐｒｏｃｓ　ａｎｄ　ｓａｖｅ　ｔｈｅｍ　ｔｏ　ｄｉｓｋＦｏｒ　ｉｎｔＬｐ　＝　０　Ｔｏ　ｔａｂｌｅＮａｍｅｓ．Ｃｏｕｎｔ　－　１Ｓｅｔ　ｏｂｊＴａｂｌｅ　＝　ｄａｔａｂａｓｅ．Ｔａｂｌｅｓ（ｔａｂｌｅｎａｍｅｓ．ｉｔｅｍ（ｉｎｔＬｐ））％＞ＴＹＰＥ　＿＜％ｏｕｔｐｕｔ．ｗｒｉｔｅＬｎ（ｏｂｊＴａｂｌｅ．Ａｌｉａｓ）　＆　＂＝ＣＬＡＳＳ＂　ｆｏｒ　Ｅａｃｈ　ｏｂｊＣｏｌｕｍｎ　ｉｎ　ｏｂｊＴａｂｌｅ．Ｃｏｌｕｍｎｓｏｕｔｐｕｔ．ｗｒｉｔｅＬｎ　＂　　＂　＆　ＴｒｉｍＳｐａｃｅｓ（ｏｂｊＣｏｌｕｍｎ．Ｎａｍｅ）　＆　＂：＂　＆　ｍｙｄａｔａｔｙｐｅ（ｏｂｊＣｏｌｕｍｎ）　＆　＂；＂Ｎｅｘｔ％＞　　ｐｕｂｌｉｃ　　　　ｐｒｏｃｅｄｕｒｅ　ｃｌｅａｒ；ｅｎｄ；＜％　Ｎｅｘｔ　％＞ｉｍｐｌｅｍｅｎｔａｔｉｏｎ＜％　Ｆｏｒ　ｉｎｔＬｐ　＝　０　Ｔｏ　ｔａｂｌｅＮａｍｅｓ．Ｃｏｕｎｔ　－　１Ｓｅｔ　ｏｂｊＴａｂｌｅ　＝　ｄａｔａｂａｓｅ．Ｔａｂｌｅｓ（ｔａｂｌｅｎａｍｅｓ．ｉｔｅｍ（ｉｎｔＬｐ））％＞ｐｒｏｃｅｄｕｒｅ　＿＜％＝ｏｂｊｔａｂｌｅ．ｎａｍｅ％＞．ｃｌｅａｒ；ｂｅｇｉｎ＜％ｆｏｒ　Ｅａｃｈ　ｏｂｊＣｏｌｕｍｎ　ｉｎ　ｏｂｊＴａｂｌｅ．Ｃｏｌｕｍｎｓｏｕｔｐｕｔ．ｗｒｉｔｅＬｎ　＂　　＂　＆　ＴｒｉｍＳｐａｃｅｓ（ｏｂｊＣｏｌｕｍｎ．Ｎａｍｅ）　＆　＂：＝＂　＆　ｍｙｆｉｒｓｔ（ｏｂｊＣｏｌｕｍｎ）　＆　＂；＂Ｎｅｘｔ％＞ｅｎｄ；＜％　Ｎｅｘｔ　％＞ｅｎｄ；＜％ｆｕｎｃｔｉｏｎ　ｍｙｄａｔａｔｙｐｅ（ｏｂｊＣｏｌｕｍｎ）　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＬＯＮＧ＂　ＴＨＥＮ　ｍｙｄａｔａｔｙｐｅ＝＂ｌｏｎｇ＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＤＥＣＩＭＡＬ＂　ＴＨＥＮ　　ｍｙｄａｔａｔｙｐｅ＝＂ｄｏｕｂｌｅ＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＴＥＸＴ＂　ＴＨＥＮ　　ｍｙｄａｔａｔｙｐｅ＝＂ｓｔｒｉｎｇ＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＤＡＴＥＴＩＭＥ＂　ＴＨＥＮ　　ｍｙｄａｔａｔｙｐｅ＝＂ｔｄａｔｅｔｉｍｅ＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＢＩＴ＂　ＴＨＥＮ　　ｍｙｄａｔａｔｙｐｅ＝＂ｂｏｏｌｅａｎ＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＩＥＥＥＳＩＮＧＬＥ＂　ＴＨＥＮｍｙｄａｔａｔｙｐｅ＝＂ｓｉｎｇｌｅ＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＩＮＴＥＧＥＲ＂　ＴＨＥＮ　　ｍｙｄａｔａｔｙｐｅ＝＂ｉｎｔｅｇｅｒ＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＩＥＥＥＤＯＵＢＬＥ＂　ＴＨＥＮｍｙｄａｔａｔｙｐｅ＝＂ｄｏｕｂｌｅ＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　ｍｙｄａｔａｔｙｐｅ＝＂ｓｔｒｉｎｇ＂ｅｎｄ　ｆｕｎｃｔｉｏｎｆｕｎｃｔｉｏｎ　ｍｙｆｉｒｓｔ（ｏｂｊＣｏｌｕｍｎ）　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＬＯＮＧ＂　ＴＨＥＮ　ｍｙｆｉｒｓｔ＝＂＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＤＥＣＩＭＡＬ＂　ＴＨＥＮ　　ｍｙｆｉｒｓｔ＝＂０＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＴＥＸＴ＂　ＴＨＥＮ　　ｍｙｆｉｒｓｔ＝＂＇＇＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＤＡＴＥＴＩＭＥ＂　ＴＨＥＮ　　ｍｙｆｉｒｓｔ＝＂１９００－０１－０１＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＢＩＴ＂　ＴＨＥＮ　　ｍｙｆｉｒｓｔ＝＂ｔｒｕｅ＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＩＥＥＥＳＩＮＧＬＥ＂　ＴＨＥＮｍｙｆｉｒｓｔ＝０　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　　　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＩＮＴＥＧＥＲ＂　ＴＨＥＮ　　ｍｙｆｉｒｓｔ＝＂０＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　ｉｆ　ｕｃａｓｅ（ｏｂｊＣｏｌｕｍｎ．ＤａｔａＴｙｐｅＮａｍｅＣｏｍｐｌｅｔｅ）＝＂ＩＥＥＥＤＯＵＢＬＥ＂　ＴＨＥＮｍｙｆｉｒｓｔ＝＂０＂　ｅｘｉｔ　ｆｕｎｃｔｉｏｎ　ｅｎｄ　ｉｆ　　ｍｙｆｉｒｓｔ＝＂＇＇＂ｅｎｄ　ｆｕｎｃｔｉｏｎＦｕｎｃｔｉｏｎ　ＴｒｉｍＳｐａｃｅｓ（ｓｔｒ）Ｄｉｍ　ｔｎａｍｅＤｉｍ　ｎａｍｅＤｉｍ　ｃｈａｒＤｉｍ　ｌｎａｍｅ　＝　＂＂ｔｎａｍｅ　＝　ｓｔｒｌ　＝　Ｌｅｎ（ｔｎａｍｅ）Ｆｏｒ　ｊ　＝　１　Ｔｏ　ｌｃｈａｒ　＝　Ｍｉｄ（ｔｎａｍｅ，　ｊ，　１）Ｉｆ　Ｎｏｔ　ｃｈａｒ　＝　＂　＂　Ｔｈｅｎｎａｍｅ　＝　ｎａｍｅ　＆　ｃｈａｒＥｎｄ　ＩｆＮｅｘｔＴｒｉｍＳｐａｃｅｓ　＝　ｎａｍｅＥｎｄ　Ｆｕｎｃｔｉｏｎ％＞

阅读全文(1332) | 回复(0) | 编辑 | 精华

发表评论：

昵称：
密码：
主页：
标题：

验证码： (不区分大小写,请仔细填写,输错需重写评论内容！)

站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.078 second(s), page refreshed 144759871 times.
《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号