软件开发环境与工具
实验报告
实验（六）
实验题目：完整表单设计
指导老师：
班级：计算机科学与技术系1203班
姓名：
一、实验题目
完整单据的设计
二、实验目的
通过本次实验，了解单据的类型及重要性，掌握两种单据的设计及制作方法，特别是单据中的编码以及状态的控制，为课程设计做准备。
三、实验内容
1、实现单据的新增、修改、删除、浏览、审核、弃审等功能。
2、对单据的编码及状态要进行控制。
3、用.NET分层架构设计。
4、单据的具体内容自定。
四、实验过程
1.实验说明：
单据制作实验中总共涉及3个项目，第一个是单据设计（为启动项），其中包括login.vb、bills.vb两个窗体，第二个是单据设计.Data （类库）包含clsHT 和clsuser类，第三个是mycommon类，SQLHelper.vb、clsGetCode.vb和clsConn.vb。
2.数据库设计：
数据库：单据 gg_User表：用户登录信息(用户ID、用户名、密码、状态)
gg_CodeFormat表：（自动生成单据编码）
gg_GouCheHT表：（购车：单据编码、制单名称、客户名称、制单人、审核人）
3.实验代码
用户登录：
Public Class login
‘重新定义clsUser为o
Dim o As New clsUser
Private Sub 登录_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 登录.Click
Dim dr As SqlClient.SqlDataReader
dr = o.getall2dr(" user_name='" & Me.TextBox1.Text & "'and uesr_state= '1'")
If dr.Read Then
If dr.Item("user_pwd") = Me.TextBox2.Text Then
MessageBox.Show("恭喜您登录成功！", "系统提示", MessageBoxButtons.OK, https://www.doczj.com/doc/0d2549527.html,rmation)
单据设计.Show()
Me.Close()
Else
MessageBox.Show("密码错误！", "系统提示",
MessageBoxButtons.RetryCancel, https://www.doczj.com/doc/0d2549527.html,rmation)
End If
Else
MessageBox.Show("该用户不存在", "系统提示",
MessageBoxButtons.OKCancel, https://www.doczj.com/doc/0d2549527.html,rmation)
End If
End Sub
End Class
SQLHelper.vb为项目通用数据访问类，所有数据访问均使用该类来实现。
‘自动更新单据内容
Public Class clsGetCode
Public Shared Function getNewCode(ByVal pbmmc As String) As String Dim strSQL As String
Dim NewCode As String = ""
Dim LSH As String
strSQL = "select * from gg_CodeFormat where bmmc='" & pbmmc & "'" Dim dr As SqlClient.SqlDataReader
dr = myCommon.SqlHelper.ExecuteReader(myCommon.clsConn.getstrConn, CommandType.Text, strSQL)
While dr.Read
Select Case dr.Item("bmlx")
Case "文本"
NewCode &= dr.Item("bmz")
Case "年¨o"
If dr.Item("bmz") <> Format(Now, "yyyy") Then
NewCode &= Format(Now, "yyyy")
LSH = "X"
'更新操作
Call Update(dr.Item("id"), Format(Now, "yyyy"))
Else
NewCode &= dr.Item("bmz")
End If
Case "月"
If dr.Item("bmz") <> Format(Now, "MM") Then
NewCode &= Format(Now, "MM")
LSH = "X"
'更新操作
Call Update(dr.Item("id"), Format(Now, "MM"))
Else
NewCode &= dr.Item("bmz")
End If
Case "日"
If dr.Item("bmz") <> Format(Now, "dd") Then
NewCode &= Format(Now, "dd")
LSH = "X"
'更新操作
Call Update(dr.Item("id"), Format(Now, "dd"))
Else
NewCode &= dr.Item("bmz")
End If
Case "流水号"
Dim newLsh As String
If LSH = "X" Then
newLsh = "0001"
NewCode &= newLsh
Else
newLsh = Format(CType(dr.Item("bmz"), Decimal) + 1, "0000")
NewCode &= newLsh
End If
Call Update(dr.Item("id"), newLsh)
End Select
End While
Return NewCode
End Function
Public Shared Function Update(ByVal pid As Integer, ByVal pbmz As String)
As String
Dim strSQL As String
strSQL = "update gg_codeFormat set bmz='" & pbmz & "' WHERE id=" & pid
myCommon.SqlHelper.ExecuteNonQuery(myCommon.clsConn.getstrConn, CommandType.Text, strSQL)
End Function
End Class
‘双击视图里的某一行，在“单据设计”窗体上显示单据信息的代码：
Private Sub DataGridView1_CellContentClick(ByVal sender As
System.Object,ByVal e As System.Windows.Forms. DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
txtdjbm.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString
txtkhmc.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString
txtzdrq.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString
txtzdr.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString
txtshr.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString
End Sub
单据制作窗体设计主要运用toolscript1控件来制作工具栏内容，如“新增”“删
除”“取消”“保存”“审核”“弃审”等按钮的功能，“datagidview”控件，显示
数据库中信息。
‘保存功能：
Public Function save() As String
strSQL = " insert into ht_GouCheHT(djbm,zdrq,khmc,zdr,shr) values('" & ddjbm & "','" & dzdrq & "','" & dkhmc & "','" & dzdr & "','" & dshr myCommon.SqlHelper.ExecuteNonQuery(myCommon.clsConn.getstrConn, CommandType.Text, strSQL)
Return "1"
Catch ex As Exception
Return "-1" & ex.Message
End Try
End Function
‘新增功能;
Public Function edit() As String
strSQL = " update ht_GouCheHT set khmc ='" & dkhmc & "' where djbm='"& ddjbm &"'
Try
myCommon.SqlHelper.ExecuteNonQuery(myCommon.clsConn.
getstrConn, CommandType.Text, strSQL)
Return "1"
Catch ex As Exception
Return "-1" & ex.Message
End Try
End Function
‘删除功能
Public Function delete() As String
strSQL = " delete from ht_GouCheHT where djbm='" & ddjbm & "'"
Try
myCommon.SqlHelper.ExecuteNonQuery(myCommon.clsConn.getstrConn, CommandType.Text, strSQL)
Return "1"
Catch ex As Exception
Return "-1" & ex.Message
End Try
End Function
‘单据制作中保存单据的判断
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim sr As String
o.ddjbm = Me.txtdjbm.Text
o.dkhmc = Me.txtkhmc.Text
o.dzdrq = Me.txtzdrq.Text
o.dzdr = Me.txtzdr.Text
o.dshr = Me.txtshr.Text
If action = "new" And Me.txtshr.Text = "管理员" Then
sr = o.save
If sr = "1" Then
MsgBox("保存成功！")
Call InitData()
Else
MsgBox("保存失败！")
End If
Else If
action = "new" And Me.txtSHR.Text = "" Then MsgBox("该单据未经审核人审核，无效！")
Else
o.dKHMC = Me.txtKHMC.Text
sr = o.edit
If sr = "1" Then
MsgBox("更新成功！")
Call InitData()
Else
MsgBox("更新失败")
End If
End If
Call btnState(0)
End Sub
4.运行结果
登录界面：
主界面：
单击显示所有用户：
新增客户信息：
五、实验总结
通过本次实验，使我对单据程序的应用及设计思想有了初步理解，了解了单据的类型及重要性，掌握两种单据的设计及制作方法，特别是单据中的编码以及状态的控制。在此次实验中碰到的问题有添加引用，以及数据库访问时的问题通过请教会的同学解决了问题，是我学到很多。
金蝶单据套打设计工具的使用 —凭证模板的设计（一） 本文概述 ●本文档适用于K/3 10.4总账模块 ●本文档以凭证为例，介绍了K/3金蝶单据套打设计工具中主要功能菜单的用途，学 习完本文档之后，您可以初步了解如何使用这些功能菜单来实现自己想要的凭证套打效果 ●关键字：文件编辑视图绘制操作模板凭证 版本信息 ●2008年5月31日V1.0 编写人：黄帅 ●2009年6月01日V2.0 修改人：王祺 版权信息 ●本文件使用须知 著作权人保留本文件的内容的解释权，并且仅将本文件内容提供给阁下个人使用。对于内容中所含的版权和其他所有权声明，您应予以尊重并在其副本中予以保留。您不得以任何方式修改、复制、公开展示、公布或分发这些内容或者以其他方式把它们用于任何公开或商业目的。任何未经授权的使用都可能构成对版权、商标和其他法律权利的侵犯。如果您不接受或违反上述约定，您使用本文件的授权将自动终止，同时您应立即销毁任何已下载或打印好的本文件内容。 著作权人对本文件内容可用性不附加任何形式的保证，也不保证本文件内容的绝对准确性和绝对完整性。本文件中介绍的产品、技术、方案和配置等仅供您参考，且它们可能会随时变更，恕不另行通知。本文件中的内容也可能已经过期，著作权人不承诺更新它们。如需得到最新的技术信息和服务，您可向当地的金蝶业务联系人和合作伙伴进行咨询。 著作权声明著作权所有 2009 金蝶软件（中国）有限公司 所有权利均予保留
目录 1 业务背景 (3) 2 套打功能介绍 (3) 2.1如何登录到金蝶单据套打设计工具界面 (3) 2.2功能菜单介绍 (5) 2.2.1 文件菜单 (5) 2.2.2 编辑菜单 (7) 2.2.3 视图菜单 (9) 2.2.4 绘制菜单 (12) 2.2.5 操作菜单 (13)
单据打印模板设计 单据打印模板设计方法介绍 由于不同的用户使用的单据样式可能会与软件提供的标准样式不太一样。为了能更好的支持客户的这种个性化需求，特提供了单据打印模板设计的功能。现对此功能做一个介绍。 ◆基本概念： 单据结构：一张单据由表头区、明细数据区、表尾区和页码区组成。 单据中的对象，单据中包括了很多的对象如：单据标题、列标题、数据列、图片等。 每个对象都有一些属性，如：字体、字号、边框、位置、长宽等。 长度单位：使用软件自身的计量单位， ◆使用方法： 一、单据中的对象的布局调整 对于单据各组成部分中的各对象的位置、大小可以通过两种方式进行调整。第一种就是使用鼠标直接移动、拉动对象到指定位置或大小。第二种是在选中了对象后通过[属性设置]按钮(或双击对象)打开属性对话框，然后对其中的各属性项的值进行设置来处理。例如文本对象的属性框如下： 二、单据结构的调整 对于单据的各组成部分的长度的调整可以通过两种方式来处理。 1）通过设计窗口中的相应设置来调整。如下图： 其中对于页码区的调整，系统会自动处理。如果选择不打印页码，则页码区会自动隐藏 2）直接通过拖拉各组成部分底部黑线来调整。如：
（表头区） （页尾区） 使用技巧 一、可以不打印指定的内容吗？ 可以。先选定一个不需要打印的对象，然后通过设计窗口中的[隐藏已选项]按钮来隐藏此对象，而明细数据区中的列是否打印，则最好是点击[列选择设置]按钮，在[列选择设置]功能中选择打印的明细列，或不选择不打印的明细列。 二、想对一批对象统一调整位置或大小如何做？ 对于调整位置，可以先选定一个对象做为基准（距左，距顶，宽，高），然后按住 CTRL不放，再选择好其它对象。然后通过设计窗口中的 [调整位置] 中的对齐功 能来统一调整所有选择的对象的位置和大小。如图： 三、希望返回初始打印样式怎么做？ 可以通过 [重置] 功能来实现。如下图： 四、页尾中想加一些自定义的内容，并且有多行，怎么做？ 如下图为系统提供的页尾内容： 1.如签字信息行，如经手人、审核人等需要根据具单据进行设置 2.如页脚信息不够用，可点击[增加文本]按钮，增加“自定义文本”，“自定义文 本”可以通过“删除文本”按钮删除 3.您可以对其中的页脚信息通过[属性设置]功能来分别设置内容、大小和位置等 属性 如图：
西安科技大学 可视化编程语言实验报告 题目：科学计算器 班级： 学号： 姓名： 2010年11月
复杂型科学计算器的设计与实现实验目的 1．通过本实验，进一步理解Visual Basic的编程方法。 2．提高运用Visual Basic编程的能力。 3．培养对所学知识的综合运用能力。 实验类型 综合型。 实验内容与步骤 一.界面设计。
Command5Caption= 三．程序代码： Dim num1 As Single, num2 As Single Dim fu As Integer Dim sign As Integer Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 sign = Index + 20 Case 10 sign = Index + 20 fu = 1 Case 11 To 14 sign = Index + 20 End Select = "" End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 To 9 = & Index If fu = 0 Then num1 = Val Else num2 = Val
Case 10 = & "-" Case 11 = & "." Case 12 To 18 = "" sign = Index fu = 1 End Select End Sub Private Sub Command3_Click() If =”” then else = Left$, Len - 1) End if End Sub Private Sub Command4_Click() = "" End Sub Private Sub Command5_Click() Dim n As Integer, cf As Single fu = 0: cf = 1 Select Case sign Case 12 = num1 & "+" & num2 = num1 + num2 Case 13 = num1 - num2 Case 14 = num1 * num2 Case 15 = num1 / num2 Case 18 For n = 1 To num2 cf = cf * num1 Next n = cf Case 20 = Sin(num1) Case 21
金蝶软件单据套打格式打印设置步骤 1、设置单据打印纸大小（有些打印机可能不支持） 开始——设置——打印机和传真 2、文件菜单——服务器属性
3、创造新格式——宽度为21.5CM 长度为14CM（要看自已打印纸大小）——保存 设置步骤：开始--设置—打印机和传真—文件菜单—服务器属性—创建新格式
解释说明：标准的单据打印纸大小一般为21CM*14CM，或者22CM*13CM。有些打印机不支持自定义纸大小，但EPSON 的LQ-630/635K系列一般支持。 （有些打印机不支持自定义纸大小的，只能选择近似的纸了！！） 4、打开一有数据的单据 5、文件——选择“使用套打” 设置步骤：在单据序时簿中打开一要设置套打格式的单据—文件菜单—选择使用套打 解释说明：系统默认的打印格式不是套打，只有选择使用套打格式后，才能注册使用套打。 6、文件菜单——选择“打印设置”
设置步骤：在单据序时簿中打开一要设置套打格式的单据—文件菜单—打印设置 解释说明：在打印设置主要设置纸大小、页边距。 7、文件菜单——选择“套打设置”——“注册套打单据”——浏览找到套打文件（比如××××.ndf） 说明：第一次使用套打前，须注册一次套打格式，第一步是选择“文件”菜单中的“套打设置”，第二步是在“注
册套打单据”页面中，选择“浏览”，找到存放套打文件的文件夹，选择该套打文件后，按“打开”。 8、文件菜单——选择“套打设置”——在“打印选项”中“套打单据”选择刚才选择的套打文件，然后其它的条件设置按下图设置即可。 9、预览打印效果，打印 点击单据上的图标“预览”，预览格式容纸是否有问题，无如问题，可按“打印”单据。
目录 ●概要设计说明 (3) ●总体设计分析 (3) ●小组成员及分工方法....................................3 -4 ●功能模块图 (4) ●负责模块的程序设计分析 (5) ●负责模快的程序源代码及流程图.....................5-12 ●公共系统使用说明及截图..............................13-16 ●结束语、心得体会 (17) ●课程设计结评分表…………………………………18-19
一、概要设计说明 本组设计的科学计算器具有科学型和标准型两种类型，适合不同需要。科学型中包含弧度与角度的计算，同时兼具2、8、10、16进制的运算。在标准型中，编辑菜单（edit）包含复制（copy）、粘贴（paste）。查看菜单包含标准型（standar）、科学型（scientific）。帮助菜单中包含关于（about）（内含开发制作者信息） 二、总体设计分析（含功能模块图） 一．小组成员分工 1 科学型角度弧度和进制的调用，由小组成员共同完成 2 科学计算器中，x^2,x^3,x^y,1/x,n！,Log按键，及八进制转二 进制，八进制转十进制，由**负责。 3科学计算器中，BackSpance、CE、C和运算符号+、-、*、/、.、-/+、=以及标准型计算器由***负责 4 科学计算器中，sin，cos，tan,Rnd,Exp,ATn按钮以sin/cos/tan 计算时角度和弧度的转换由**负责。 5 科学行计算器中，Copy，Pst，Not，And，Xor，Int，Or， Abe，Exit按钮;将十进制转化为二进制，制转化为十进制，将二进制转化为八进制由**负责。
《软件开发技术》 课程设计报告 题目计算器的设计与实现 专业班级计算机科学与技术 0701 学号 姓名 指导教师 2010年7 月15 日 计算器的设计与实现
摘要：通过学习VISUAL BASIC语言应用VB开发工具,利用响应鼠标事件即可制作简易计算器，响应鼠标事件即：当用户想要进行运算时,可以用鼠标直接点击界面的数字键、运算符以及各功能的按钮（清除,退出,鼠标位置）。具体操作如下：用鼠标按动界面上第一个数字,然后按动运算符,再按动界面上的第二个数字,最后按等于即可运算出结果。 1.界面设计： 应用VISUAL BASIC开发工具，根据WINDOWS计算器界面模型，修改后制作计算器界面。新建一个窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9，+，-，*，/，=，CE, C, Back，%，1/x , sqrt）。 当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=”按钮，则再文本框中显示计算结果。具体如下图所示： 图1计算器界面设计示意图 2.程序设计： （1）新建框体和按键模型后定义变量：输入的操作数，Dim Op1, Op2。小数点是否仍然存在，Dim DecimalFlag As Integer。操作数个数，Dim NumOps As Integer。指示上一次按键事件的类型，Dim LastInput。指示未完成的操作，Dim OpFlag。定义文本框输出，Dim TempReadout。窗体的初始化过程，设置所有变量为其初始值：DecimalFlag = False NumOps = 0
LastInput = "NONE" OpFlag = " " Readout = Format(0, "0.") 'Decimal.Caption = Format(0, ".")。 （2）输入数字键(0-9)的Click事件过程，向显示中的数追加新数：调用format 函数强制定义始终在第一位添加一个”.”，并在显示数中追加新数，如果显示数小于零，则添加负号。 If LastInput <> "NUMS" Then Readout = Format(0, ".") DecimalFlag = False End If If DecimalFlag Then Readout = Readout + Number(Index).Caption Else Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".") End If If LastInput = "NEG" Then Readout = "-" & Readout LastInput = "NUMS" （3）运算符(+, -, x, /, =)的Click 事件过程如果接下来的按键是数字键，增加NumOps如果有一个操作数，则设置Op1如果有两个操作数，则将Op1 设置为Op1与当前输入字符串的运算结果，并显示结果（以其中加法部分为例）： If LastInput = "NUMS" Then NumOps = NumOps + 1 End If elect Case NumOps Case 0 If Operator(Index).Caption = "-" And LastInput <> "NEG" Then Readout = "-" & Readout LastInput = "NEG" End If Case 1 Op1 = Readout If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then Readout = "-" LastInput = "NEG"
用excel制作票据打印模板的技巧 第一部分讲解用excel快速制作票据打印模板的总体思路，第二部分讲解具体的做法。以此来避免手写票据带来的慢、累、易出错的问题。 一、总体思路（只是简单说一下，具体的请见第二部分）。 1、将空白票据（支票、进账单、收款收据等）用扫描仪扫描成jpg格式的图片，然后用图像处理软件简单处理一下即可。 2、将经过处理后的图片作为excel工作表的背景，调整每个项目的打印位置时要用到。然后在背景的基础上，调整行高与列宽，使之打印位置适合，最后加上公式（有现成的公式照搬）即可。 3、做好的模板文件，背景部分不会被打印出来，只打印出自己填写上去的部分： 二、具体的做法。 1、百度搜索：支票套打王。 2、找到并进入Excel支票套打王官方网站的首页。 3、点击页面最上方的那张图片，进入一个网页。 4、进去之后，你会发现在此页面可以下载整套票据打印模板的制作教程，包括视频教程和word教程，其中视频教程录自套打高手本人在电脑操作上的一步步动作，十分详细，即使电脑零基础的人也可以学会。 5、万一你对自己不放心，怕做不好，或者工作忙没时间做，在此页面上也可以找到帮助你制作模板的人，自己可以在一旁清闲。 三、附加说明。 1、如果你制作出来的是银行票据打印模板，做出来之后的基本功能是：A、年月日不用填写，会根据电脑系统当前时间自动填写； B、填入金额之后，模板会自动将这个数字分成一个个独立的数字，
如：；C、大写金额不用填写，自动生成。D、存根和票面的重复部分，只需填写一处即可，不必填写两次。 2、如果这些功能不能满足要求，可以到此网站下载免费的支票打印软件——Excel支票套打王软件，用来操作支票打印模板。具体功能是：①刚开始使用的时候可以将常用的收付款人信息储存在模板文件中，第二次开票的时候，只需输入户名中的其中一个字，或首字拼音即可调用出数据库中的收款人信息，并且自动将户名、账号、开行等一键填写上去；②如果是新增的收付款人信息，可以一边填写票据，一边将收付款人信息自动保存到信息库中，下次可以调用；③打印之后，自动产生打印记录，以便事后查询；④支持批量打印，可以根据事先准备好的清单进行打印。 3、如果你需要打印的不是银行票据，则不需要使用软件，直接使用excel即可。 下面的文字为凑字数而写，不需要观看。 2 经济全球化下国麻货而协调的理论文牌 2-1经济全球化下国际货币协调的系统论基础 “系统”一词源于古希腊语，用以表示“群体”和“集合”等抽象概念.宇宙万物，虽然本质差别很大，但都以系统的形式存在着。由于人们的理解和使用范围不同，对“系统”一词的含义有不同的解释。一般认为，由两个或两个以上的要素组成的具有整体功能和综合行为的统一集合体即为系统。贝塔朗菲把系统定义为"系统是处于一定相互关系中的与环境发生关系的各组成成分的总体”，钱学森把极其复杂的研究对象称为系统。将系统作为研究对象，研究系统的一般模式、结构和规律的学问称为系统论。它研究各种系统的共同特征和
一．设计思路 (1) 二．关键问题的解决 (1) 三．概要设计说明 (1) 四．源代码 (1) 五．心得体会 (8)
一．设计思路 1.要达到的目的要达到的目的主要是培养学生利用系统提供的基本控件进行创新性设计，理解Visual Basic 语言中面向对象的程序设计。培养学生综合利用Visual Basic 语言进行程序设计的能力。 二．关键问题的解决 先使用Command 命令按钮，命令按钮控件数组，文本框等基本控件设计窗体，再根据下面方法编制程序： 三．概要设计说明 本组设计的科学计算器具有科学型和标准型两种类型, 适合不同需要.科学型中包含弧度与角度的计算,同时兼具2,8,10,16 进制的运算. 四．源代码 Dim num1 As Double Dim num2 As Double Dim num3 As Double Dim flag As Double Dim operator As Integer Dim q As Integer Private Sub Command1_Click(Index As Integer) Select Case Index Case Is <= 9 If Index = 0 And Val(Text1.Text) = 0 Then Text1.Text = 0 Else If Val(Text1.Text) = 0 Then Text1.Text = Index
Else Text1.Text = Text1.Text & Index End If End If Case Is >= 20 If (Val(Text1.Text) = 0) Then Text1.Text = Command1(Index).Caption Else Text1.Text = Text1.Text + Command1(Index).Caption End If Case 10 Text1.Text = Text1.Text + "." Case 11 Text1.Text = -Val(Text1.Text) Case 12 If Not flag Then num1 = Val(Text1.Text) Text1.Text = 0 flag = True operator = 1 End If Case 13 If Not flag Then num1 = Val(Text1.Text) Text1.Text = 0 flag = True operator = 2 End If Case 14 If Not flag Then num1 = Val(Text1.Text) Text1.Text = 0 flag = True operator = 3 End If Case 15 If Not flag Then num1 = Val(Text1.Text) Text1.Text = 0 flag = True operator = 4 End If Case 16 If Not flag Then
浅谈在EXCEL中财务票据 “套打”模板的制作 摘要:根据当前财务电算化的使用情况,为提高财务工作效率，以实例制作，灵活应用设计技巧，设计出套打印模板，不仅消除了手工填写费时费力易出错等弊端，而且提高了工作效率。 关键词: EXCEL 套打模板制作 在会计电算化高度发展的今天，会计原始凭证的手工填制越来越显得繁琐，手工凭证不仅难以实现整齐化、标准化、规范化管理，而且填制麻烦，差错率高。部分会计从业人员希望有一套方便适用的程序解决凭证套打问题，这只是一个美好的愿望，实际上根本不可能实现。因为原始凭证种类多种多样、层出不穷，没有一套程序能预知后来的凭证格式；再者，已有的凭证也格式不一，同一类凭证也存在因印刷的原因导致边距位置的偏差，如果开发出一个套打程序，操作者也势必面临根据凭证边距偏差手工多次调整纸张位置的问题，因此程序根本没办法全部解决工作中精确打印的问题。其实，相信大家对Excel都比较熟悉，只要挖掘Excel的潜在功能且，而运用得当，是可做到准确定位输出的。 笔者经过多次试验，摸索出成功定位的方法，可以在几乎不用试打的情况下，很容易地在印刷的财务票据上打印出需要填写的数据。本文以设计现金支票套打模板为例，在Excel2003上详细讲解套打模板实施步骤，以期给广大同行提供一种设计思路。 一、利用图像扫描技术，取得财务票据图片 将凭证放入扫描仪，最好在凭证背面放上色差较大的普通彩色垫板，以便于将来进行图象编辑。将扫描仪的扫描模式设为“杂志类”、“彩色24位”，分辨率选择自定义，设为94~98DPI （视扫描仪型号不同而有所变化，笔者所用清华紫光扫描仪设为96 DPI）。设置完毕后进行扫描，取得凭证图象。随后将取得的图象导入ACDSEE 4.0 POWERPACK中的编辑器中进行编辑。扫描所得的图象中凭证与背景有强烈色差，利于剪裁。利用编辑器直接将凭证剪裁出来，另存为新文件。由于扫描仪扫描出来的文件通常都是BMP或TFT格式的，通常还要进行格式
竭诚为您提供优质文档/双击可除 Excel制作单据模板 篇一：excel实例一制作提货单 excel实例一制作提货单 请同学们按照要求完成表格的制作 【实例效果】 【实例介绍】 提货单是一种在各个企事业单位中经常用到的一种单据，通常使用提货单来说明收货的地点，送出什么物品，物品的规格、价格和数量等，以保证交易的正常进行。本实例介绍如何在excel中制作一份简单的提货单。在这个实例中，我们要学会以下几 点基本操作：启动excel输入基本数据选择多个列和行调整列宽和行高设置表格内容的格式【实例步骤】请同学们按照下列步骤完成表格的制作一、启动 excel 二、输入数据录入数据是需注意： 用鼠标单击某个单元格即可将其选中，状态栏会显示“就绪”的字样，表明可以开始输入数据了输入完单元格数
据后，按下“enter”键系统自动选中下方单元格按下键盘上的上下左右光标键，可以向上下左右四个方向移动选中单元格输入数据是发现错误，按下“backspace”可以删除光标前面的一个字符如要清除单元格中的数据，可先选定该单元格，然后按下delete键 三、调整表格 表格的列宽和行高都是可以调整的，我们既可以精确地调整行高和列宽，也可以手动地调整行高和列宽。我们可以一次调整某一行的行高或某一列的列宽，也可以同时调整多行的行高或多列的列宽。 （1）精确地调整某一行的行高值： 篇二：用excel巧做记帐凭证 用excel巧做记帐凭证 一、制作凭证模板 启动excel，仿照记帐凭证样式，在sheet1中制作一张空白记帐凭证。 二、输入明细项目 为了规范明细项目的内容，我们利用数据有效性规则，制作成下拉菜单样式。1，切换到sheet2工作表，在a列中依次输入一级会计科目名称；然后分别将二级科目或明细科目名称输入到一级科目相应的行中。 2，同时选中b1至h1（具体区域请根据实际情况确定），
湖南医药学院 VB计算器课程设计题目： VB科学计算器 院(系)别临床医学院 专业临床医学 班级本临一班 学号 2015101010121 姓名夏铭锴 指导教师李跃强 二○一六年四月
目录 一、设计内容及要求 二、设计原始资料 三、设计完成后提交的文件和图表设计 四、进程安排 五、主要参考资料 [摘要] 用VB制作这个程序的简单计算器，它包括一个标准的计算器和一个科学计算器。它可以实现简单的加减乘除四则运算，数字的平方、平方根，正弦、余弦、正切，倒数、指数函数、对数函数，角度、弧度、梯度的转换，以及各进制的相互转换。而且它的功能还有退格，清除当前数据，清除所有数据，复制数据，粘贴数据。 在这个计算器的程序中，我用到了单行选择语句If…Then…Else…, 块语句if…then…end if,If语句的嵌套，多条件选择语句Select Case,而且还用到了按钮、文本框、框架、单选按钮控件，菜单的设计。 在此报告中我重点叙述了计算机的各个功能及用法。特别是进制间的转换和数字与运算符之间的联系。。虽然描述的不太完整，但我会尽力使用系统结构图，划分多个模块，让大家明白我设计的运算器的功能的。 [关键词] Visual Basic；计算器；对象；代码 1
2
3
四、进程安排 （1）创建应用程序的界面。 （2）设置属性。 （3）编写代码。 4
附页： 设计原始资料 Private Sub Command1_Click() '删除数字的最后一位If Label3.Caption <> "" Then Label3.Caption = Left(Label3.Caption, Len(Label3.Caption) - 1) Else c = MsgBox("内容已为空！不可删除一位！", 49, "注意！") End If End Sub Private Sub Command10_Click() '输入数字6 Label3.Caption = Label3.Caption + Command10.Caption End Sub Private Sub Command11_Click() If Label3.Caption <> "" Then '输入符号* Label1.Caption = Label3.Caption Label2.Caption = Command11.Caption Label3.Caption = "" Else c = MsgBox("请输入数据后输入符号！", 49, "注意！") End If End Sub 5
单据模板及打印模板设置操作手册 1.1模版管理 功能描述：可以根据业务需要，控制本级单位或下级单位某些项目的编辑权限。 【模版设置】：在模板设置中来实现对各种业务模板（如：单据模板、打印模板等）的管理，以便快速选择或配置适合公司需要的模板，可以减少工作量并形成系统的统一风格。 1.1.1模板设置 1、单据模版设置 功能描述：可以设置不同的单据模板，为系统中的各单据提供模板样式；打印模板设置可以设置不同的打印模板，为系统中的各个节点提供打印模板样式。 操作步骤： ●登录公司。 ●点击【客户化】—【模版管理】—【模版设置】—【单据模版设置工具】，出 现下图： 在【单据模版类型】，选择一个系统已有单据模版，如下图：
12第三章人力资源主要业务流程 点击【确定】，出现下图： 点击【显示模版】，出现下图：
第三章人力资源主要业务流程15 选择“（集团）人员信息采集模版”，点击【复制】，更改模版名称及模版标题， 出现下图： 点击【确定】，出现下图：
12第三章人力资源主要业务流程选择已复制好的“（公司）人员信息采集模版”，点击【修改】，出现下图： 页签中提供【模板操作】、【模板预览】、【显示】、【返回】按钮功能；【模板操作】中包括保存模板；【模板预览】包括卡片式预览和列表式预览两种方式；【显示】功能可以调节页签显示顺序。 点击选中项目后，项目的标签边框会变为红色，如下图： 点击选中页签后，页签的边框会变成红色，如下图：
第三章人力资源主要业务流程15 选择某一项目后，在显示属性中对某一项目的能否编辑属性进行设置，如下图： 查找属性中的“能否编辑”，如下图：
北京电子科技学院 计算机实习报告 题目：计算器的制作 系别通信工程 班级0431 学生学号043118 学生姓名孙锦慧 导师姓名汪永好 起止时间2006年9月4日至2006年9月15日
一、选题内容： 做一个计算器满足以下要求： （1）能进行加、减、乘、除基本运算，还要能混合运算。 （2）能完成一些特殊的数学运算，如开方，倒数等。 （3）界面要和常见的计算器界面类似。 二、实习流程： 第一天，我与汪老师当面交流了一下，他大致为我讲述了做计算器的基本思路和可能用到的知识，并建议我尽快查找有关计算器的资料。VB、VC、C语言都可以实现实习的目的和要求。 既然为实习我就想学点新东西，于是选择了用VB做，而且老师说用VB是最简单的。 第二天，根据汪老师的提示和建议我开始从各路查找资料，包括在图书馆和网上查找有关VB的东西。还好找到了而且程序差不多编好了，我只要再稍加修改就可以，我相信计算机语言都是相通的。 按照我的想法我又借了几本关于VB基本知识的书籍，先学习了解基本变量说明，控件的概述，公用属性、方法、事件以及常用的控件。另外还看了控件数组的概念及使用方法和注意事项。 控件的事件是确定控件对外部条件的响应。事件有控件识别，再有应用程序处理。控件数组是一组具有共同名称和类型的控件。 它们的事件过程相同。一个控件数组至少应有一个元素，同一控件数组中的元数有自己的属性设置值。
在工程设计中设计两个窗体，在窗体名FORM1的窗体上设计一个命令按纽控件，单击该控件，显示窗体名为FORM2的窗体。 命令按纽控件所在的窗体和它的代码窗口如图。运行时单击命令按纽，即可显示窗体名为FORM2的窗体。 在设计时，使用控件数组添加所消耗的资源比直接向窗口添加多个相同类型的控件消耗的资源要少。当希望若干控件共代码时，使用控件数组就显得特别方便。 计算器上的数字按纽和操作按纽都可以分别共享代码，因此就可以使用控件数组。在使用控件数组设计计算器时，将相同名字赋予多个控件，例数字按纽1，2，3，4， 5，6，7，8，9，0和+、-、*、/分别使用一个名字，即复制现有的控件并将其粘贴到窗体上或控件的INDEX属性设置为非NULL 数值创建数组控件。 通过复制现存控件添加控件数组元数，步骤如下： （1）绘制控件数组中的控件。 （2）当控件获得焦点时，选择“编辑”菜单中的“复制”命令。 （3）在“编辑”菜单中选择“粘贴”命令，VB将显示一个对话框询问是否确认创建控件数组。选择“确定”指定给控件的索引值为1，绘制 的第一个控件具有索引值0。 三、本实习计算器的有关具体的设置项： 在这个计算器的设计上，窗体上的控件及它们的属性和设置值如下： _______________________________________________________________________________ 对象属性设置值
实验报告 课程名称：Visual Basic程序设计实验实验项目：计算器设计 学院：信息科学技术学院 专业班级：2014级电子信息工程 姓名： 学号：
一、实验目的和要求 1、了解Visual Basic系统对计算机软件、硬件的要求。 2、掌握启动与退出Visual Basic的方法。 3、熟悉Visual Basic的集成开发环境。 4、掌握在窗体上添加控件的各种方法。 5、掌握Visual Basic函数的用法 6、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。 二、实验仪器和软件环境 1、实验仪器：计算机 2、软件环境：Microsoft Visual Basic 6.0 中文版 三、实验步骤及过程 1、界面创建 （1）、启动Microsoft Visual Basic 6.0 中文版，创建一个“标准EXE”类型的Visual Basic 应用程序，如图所示：
（2）、在Form1中添加一个Frame控件，把其Caption属性值设为“计算器”如图所示： 图所示
2、代码编写 （1）、双击控件数组1中的任意一个命令按钮，编写代码，如下：Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text + Command1(Index).Caption End Sub （2）、双击控件数组2中的任意一个命令按钮，编写代码，如下：Private Sub Command2_Click(Index As Integer) j = 1 Pi = 4 * Atn(1#) z = Val(Text1.Text) y = z * Pi / 180 n = Index Select Case n Case 0 Text1.Text = z * z Case 1 Text1.Text = Abs(z) Case 2 If z < 0 Then MsgBox "错误" Else Text1.Text = Sqr(z) End If Case 3 Text1.Text = Sin(y) Case 4 Text1.Text = Cos(y)
实验一设计一个简易的计算器 一、实验目的 （1）熟悉VB集成开发环境 （2）设计一个简易的计算器，熟悉使用VB开发应用程序的全过程 二、实验内容 【题目】：创建一个VB工程，实现简易计算器的功能，效果图如图1-1所示。 图1-1 【编程要求】：运行程序时，首先，在Text1中输入操作数一，在Text2中输入操作数二；然后单击“+”按钮，可实现两个数的加法运算并显示其结果；单击“-”按钮，可实现两个数的减法运算；单击“*”按钮，可实现两个数的乘法运算；单击“/”按钮，可实现两个数的除法运算；单击“清空”按钮，可清空操作数和结果；单击“退出”按钮退出程序运行。 三、实验步骤 （1）启动Microsoft Visual Basic 6.0，新建一个工程。 （2）创建用户界面。参照图1-2所示添加控件并进行布置。 图1-2
在窗体Form1适当位置上添加框架控件Frame1和Frame2，添加标签Label1、Label2、Label3、Label4，添加文本框（TextBox）Text1和Text2，添加命令按钮（CommandButton）Command1、Command2、Command3、Command4、Command5、Command6。 （3）设置界面上各个对象的属性。如表1-1所设置。效果如图1-3所示。 表1-1 图1-3 （4）编写对象相应事件的程序代码 要实现题目要求的功能，需要在代码编辑器中编写6个命令按钮的单击事件过程。代码如图1-4或图1-5所示。 （5）保存工程。 输入代码完成后，应该先保存工程，再运行程序，以避免因死机等意外发生而造成损失。一个工程由若干文件组成，保存文件的顺序应该是先保存窗体文件（F1.frm），再保存文件工程文件（P1.vbp），而保存地点则可自由安排。 （6）测试和调试应用程序。 （7）生成可执行程序。 执行“文件”—>“生成P1.exe”菜单命令，根据提示进行操作即可将本工程编译成能脱离VB环境而独立运行的可执行程序P1.exe。
VB应用程序的设计方法——“简易计算器”教学设计 ffkj 教学目标： 能熟练运用CommandButton控件及TextBox控件进行Visual Basic(以下简称VB)程序的设计，能熟练运用条件语句编写代码 教学重点:运用开发VB程序一般过程的思路来开发“简易计算器” 教学难点:分析得出实现“简易计算器”各运算功能的算法。 教材分析： 当我刚开始进行程序设计的教学时，便感觉比较难教。这是因为程序设计本身枯燥、严谨，较难理解，而且学生大多数都是初学者，没有相应的知识基础。对于《程序设计实例》，我们选用的教材是广东教育出版社出版的《信息技术》第四册，该书采用的程序设计语言是VB，而学生是仅学过了一点点简单的QB 编程之后就进入《程序设计实例》的学习的。 教材为我们总结了设计VB程序的一般步骤：创建用户界面；设置控件属性；编写事件程序代码；运行应用程序。我总结了一下，其实VB程序设计可分为设计用户界面及编写程序代码两个环节。 教学过程： 一、引入新课 任务：让学生按照书上提示完成一个非常简单的VB程序——“计算器”（仅包含开方、平方、求绝对值功能）的制作。 目的：加强对CommandButton控件及TextBox控件的掌握，复习对开方、求绝对值函数的使用。 引入本节课的学习任务：设计一个简易计算器，包含加、减、乘、除、开方、平方等运算。程序界面可参考下图。 具体功能为：在Text1中输入一个数值，然后单击代表运算符的按钮则运算结果会在text2中显示出来；比如在text1中输入一个2，然后按“+”按钮，再输入一个3按“-”按钮，再输入一个-4按“*”按钮，则实际为(2-3)*(-4)；最后在text2中显示结果为4。
装箱单
发票
海 运 提 单 1. Shipper Insert Name, Address and Phone GREAT WALL TRADING CO.，LTD. RM201，HUASHENG BUILDING ， NINGBO ，P. R CHINA 中远集装箱运输有限公司 COSCO CONTAINER LINES TLX: 33057 COSCO CN FAX: +86(021) 6545 8984 ORIGINAL 2. Consignee Insert Name, Address and Phone TO ORDER Port-to-Port or Combined Transport BILL OF LADING RECEIVED in external apparent good order and condition except as other- Wise noted. The total number of packages or unites stuffed in the container, The description of the goods and the weights shown in this Bill of Lading are Furnished by the Merchants, and which the carrier has no reasonable means Of checking and is not a part of this Bill of Lading contract. The carrier has 3. Notify Party Insert Name, Address and Phone (It is agreed that no responsibility shall attsch to the Carrier or his agents for failure to notify) F. T. C. CO. AKEKSANTERINK AUTO P. O. BOX 9，FINLAND Subject to Clause 7 Limitation LADEN ON BOARD THE VESSEL DATE MAY 25，2005 BY COSCO CONTAINER LINES ENDORSED IN BLANK ON THE BACK
VB大作业报告 程序功能介绍： 计算器可以进行简单的。加、减、乘、除、乘方、开方、阶乘、取余和清零。 主要源程序： 设置程序从form2启动。 首先出来一个展示界面，内容包括自己的姓名、班级和所做的课题。等待时间是3秒。 Private Sub Form_Load() Label4.Caption = "3" End Sub Private Sub Timer1_Timer() “倒计时，当倒计时为0时，一界面隐藏弹出二界面” Label4.Caption = Label4.Caption - 1 If (Label4.Caption = "0") Then Form1.Hide Form2.Show End If End Sub 解释：定时器以一定的时间间隔产生Timer事件从而执行相应的时间
过程。当form2消失后，form3开始运行。 用户名与密码正确时form3消失form出现。进入计算器的主要界面。Private Sub Command1_Click() If Text1.Text <> "******" Then MsgBox "用户名错误，请重新输入" Text1.SetFocus End If If Text2.Text <> "123" Then MsgBox "密码不正确，请重新输入" Text2.SetFocus ElseIf Text1 = "******" And Text2 = "123" Then Form2.Hide Form3.Show End If End Sub Private Sub Text1_Change() End Sub 解释：利用Msgbox判断输入数据的正确性，否则不允许登录。 然后进入计算器界面： Private Sub Command1_Click() Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text)) “加
VB 设计计算器 实验报告 姓名: 专业: 学号: 二0 一一年十一月七日
设计功能完整的计算器，实现如下图所示按钮（除“ MC，“MR , “MS，“M+ ）及菜单功能，如图： 一、解题思路、分析： 对于我来说，设置一个完整的计算器是一个艰巨的任务，一开始想了一小段时间，自己试着编了一些，但就是无法达到一个完整的计算器，于是，就到网上去下载了一些有关计算 器的程序进行参考分析。首先先定义一些量，比如说前后两个操作数opl、op2，小数点是 否真存在的量DecimalFlag ，操作数个数NumOps上一次按键的类型等。接着对窗体进行初始化，同时设置所有变量为其初始。然后对各个键盘的命令进行编写程序，对0---9按键设 置为一个按键命令组，编写一个程序，同时加减乘除设置一个命令组，也编写一个程序，其 他按键都各自设置为一个命令，分别单独进行编写程序。同时在多个命令中都要对显示器中 的小数点进行分析，看它是否是真实存在。同时对于除法分母是否为0，也要加以考虑。 、源程序: Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastI nput = "NONE" OpFlag ="" Text1.Text = Format(0, "0.") 'Decimal.Captio n = Format(0, ".") End Sub Opti on Explicit Dim Op1, Op2 Dim DecimalFlag As In teger Dim NumOps As In teger Dim LastInput 类型 Dim OpFlag Dim TempReadout ' 窗体的初始化过程 ' 设置所有变量为其初始值 前面输入的操作数 小数点仍然存在吗？ 操作数个数 指示上一次按键事件的 指示未完成的操作