VB程序设计 进销存管理信息系统
VB进销存管理信息系统
（1）添加Module模块，编写Main过程：
'声明全局对象变量ADOcn，用于创建与数据库的连接
Public ADOcn As Connection
'声明全局变量strQuery1用于存储查询条件
Pubic strQuery1 As String
Public Sub Main()
'定义数据库连接字符串
Dim strSQLServer As String
'用于连接SQL Server数据库，其中:
'Server为服务器名称
'User ID为登录账号，Password为登录口令
'Database为具体的数据库名
'请根据具体的实验环境修改这些参数
strSQLServer = "Provider=SQLOLEDB;Server=bigdog;Us_ er ID=sa;Password=sa;Database=进销存"
'连接SQL Server数据库
ADOcn.Open strSQLServer
'显示主窗体
frmMain.Show
End Sub
将Main过程设为工程启动对象。
（2）FrmMain窗体主要代码。该窗体的代码主要用于调度其他各窗体，起串接作用。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.But_ton) Select Case Button
Case "物资台账管理"
frm台账.Show 1
Case "物资入库管理"
frm入库.Show 1
Case "物资出库管理"
frm出库.Show 1
Case "退出系统"
Unload Me '或者使用End命令
End Select
End Sub
（3）“frm台账”窗体代码。
“通用”部分声明一个Sub过程，用于在MSFlexGrid中显示记录。
Private Sub DisplayGrid()
'声明变量
Dim strGrid As String
Dim i As Integer
Dim ADOrs As New Recordset
ADOrs.ActiveConnection = ADOcn
'打开物资台账
If strQuery1 <> "" Then
ADOrs.Open "Select * From 物资台账 Where " + strQuery1 + " Order By 物资编码"
Else
ADOrs.Open "Select * From 物资台账 order by 物资编码"
End If
'设置MSFlexGrid控件的表头
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 0
MSFlexGrid1.Cols = 6
strGrid = "物资编码" + vbTab + "物资名称" + vbTab + "计量单位" + vbTab
strGrid = strGrid + "单价" + vbTab + "期初库存" + vbTab + "期初金额"
i = 0
'在第i行增加一列
MSFlexGrid1.AddItem strGrid, i
i = i + 1
'通过循环显示表中所有记录
Do While Not ADOrs.EOF
strGrid = ADOrs("物资编码") + vbTab + ADOrs("物资名称") + vbTab + ADOrs("计量单位")
strGrid = strGrid + vbTab + Str(ADOrs("单价")) + vbTab +
Str(ADOrs("期初库存"))
strGrid = strGrid + vbTab + Str(ADOrs("单价") * ADOrs("期初库存"))
MSFlexGrid1.AddItem strGrid, i
ADOrs.MoveNext '指针下移一条记录
i = i + 1
Loop
MSFlexGrid1.Rows = i + 1
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 1 End Sub
Private Sub Form_Load()
'设置查询条件变量的初值strQuery1 = ""
'显示物资台账记录DisplayGrid
End Sub
Private Sub Command1_Click() '调用增加记录窗体
FrmAdd台账.Show 1 DisplayGrid
End Sub
Private Sub Command2_Click() '删除一条记录
Dim strSQL As String
Dim i As Integer
'取当前光标所在行
i = MSFlexGrid1.Row
'取当前行的第0列单元值，即物资编码列
If MSFlexGrid1.TextMatrix(i, 0) = "" Then
MsgBox "请先选择一个记录！", vbQuestion + vbOKOnly, "信息提示"
Exit Sub
End If
strSQL = "Delete From 物资台账"
strSQL = strSQL + " Where 物资编码='" + MSFlexGrid1.TextMatr _
ix(i, 0) + "'"
If MsgBox("是否要删除？", vbQuestion + vbOKCancel, "信息提示") = vbOK Then ADOcn.Execute strSQL '执行删除操作
End If
'重新显示
DisplayGrid
End Sub
Private Sub Command3_Click()
'调用修改记录窗体
Dim i As Integer
i = MSFlexGrid1.Row
If MSFlexGrid1.TextMatrix(i, 0) = "" Then
MsgBox "请先选择一个记录！", vbQuestion + vbOKOnly, "信息提示"
Exit Sub
End If
'对frmUpdate台账窗体赋值
With frmUpdate台账
.Text1(0) = MSFlexGrid1.TextMatrix(i, 0)
.Text1(1) = MSFlexGrid1.TextMatrix(i, 1)
.Combo1.Text = MSFlexGrid1.TextMatrix(i, 2)
.Text1(2) = MSFlexGrid1.TextMatrix(i, 3)
.Text1(3) = MSFlexGrid1.TextMatrix(i, 4)
.Show 1
End With
'修改完后重新显示
DisplayGrid
End Sub
Private Sub Command4_Click()
'调用设置查询条件窗体
FrmQuery查询.Show 1
'设置完查询条件后重新显示记录
DisplayGrid
End Sub
Private Sub Command5_Click()
'调用打印报表窗体
Dim ADOrs As New Recordset
ADOrs.ActiveConnection = ADOcn
If strQuery1 <> "" Then
ADOrs.Open "Select * From 物资台账 Where " + strQuery1 +"Order By 物资编码"
Else
ADOrs.Open "Select * From 物资台账 Order By 物资编码"
End If
'设置报表窗体的DataSource和DataMember属性
Set frmReport台账.DataSource = ADOrs.DataSource
FrmReport台账.DataMember = ADOrs.DataMember
FrmReport台账.Show 1
End Sub
Private Sub Command6_Click()
'退出本窗体
Unload Me
End Sub
（4）“frmAdd台账”窗体代码。
Private Sub Command1_Click()
Dim strSQL As String
Dim ADOrs As New Recordset
Set ADOrs.ActiveConnection = ADOcn
'首先查询主关键字“物资编码”是否重复
ADOrs.Open "Select 物资编码 From 物资台账 Where 物资编码='"
+ Text1(0) + "'"
If Not ADOrs.EOF Then
MsgBox "物资编码已存在，请重新输入", vbQuestion + vbOKOnly, "信息提示"
Exit Sub '退出本过程
End If
'增加一条新记录
strSQL = "Insert Into 物资台账(物资编码,物资名称,计量单位,单价,期初库存) "
strSQL = strSQL + " Values('" + Text1(0) + "','" + Text1(1) + "','" + Combo1.Text + "',"
strSQL = strSQL + Text1(2) + "," + Text1(3) + ")"
ADOcn.Execute strSQL
MsgBox "增加成功，请继续！", vbQuestion + vbOKOnly, "信息提示"
End Sub
Private Sub Command2_Click()
'退出本窗体
Unload Me
End Sub
Private Sub Form_Load()
'赋初值
Text1(0) = ""
Text1(1) = ""
Text1(2) = "0"
Text1(3) = "0"
Combo1.ListIndex = 0
End Sub
Private Sub Text1_Change(Index As Integer)
'当“单价”和“期初库存”值发生变化时，自动计算“期初金额”
If Index = 2 Or Index = 3 Then
Text1(4) = Trim(Str(Val(Text1(2)) * Val(Text1(3)))) End If
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) '将用户输入的回车键转换为Tab键，使焦点自动下移
If KeyAscii = 13 Then
SendKeys "{Tab}"
End If
'对于“单价”和“期初库存”文本框只允许输入数字、小数点和退格键If Index = 2 Or Index = 3 Then
If Not ((Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") _Or Chr(KeyAscii) = "." Or KeyAscii = 8) Then
KeyAscii = 0
End If
End If
End Sub
（5）“frmUpdate台账”窗体代码。主要代码是：
Private Sub Command1_Click()
Dim strSQL As String
strSQL = "Update 物资台账 Set 物资名称='" + Text1(1) + "',"
strSQL = strSQL + "计量单位='" + Combo1.Text + "',"
strSQL = strSQL + "单价=" + Text1(2) + ","
strSQL = strSQL + "期初库存=" + Text1(3)
strSQL = strSQL + " Where 物资编码='" + Text1(0) + "'"
ADOcn.Execute strSQL
Unload Me
End Sub
（6）“frmQuery台账”窗体代码。
Private Sub Command1_Click()
'拼写查询条件字符串
Dim str1, str2 As String
str1 = ""
str2 = ""
If Text1(0) <> "" Then
str1 = "物资编码" + Combo1.Text + "'" + Text1(0) + "'"
End If
If Text1(1) <> "" Then
str1 = "物资名称" + Combo2.Text + "'" + Text1(1) + "'"
End If
If str1 = "" And str2 = "" Then
strQuery1 = ""
ElseIf str1 = "" And str2 <> "" Then
strQuery1 = str2
ElseIf str1 <> "" And str2 = "" Then
strQuery1 = str1
Else
strQuery1 = str1 + " And " + str2 End If
Unload Me
End Sub
Private Sub Command2_Click()
'退出本窗体
Unload Me
End Sub
Private Sub Form_Load()
'对窗体对象赋初值
Combo1.Clear
Combo1.AddItem "="
Combo1.AddItem ">="
Combo1.AddItem ">"
Combo1.AddItem "<"
Combo1.AddItem "<="
Combo1.AddItem "<>"
Combo2.Clear
Combo2.AddItem "="
Combo2.AddItem ">="
Combo2.AddItem ">"
Combo2.AddItem "<"
Combo2.AddItem "<="
Combo2.AddItem "<>"
Text1(0).Text = ""
Text1(1).Text = ""
End Sub
vb代码大全
用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
《VB程序设计》习题答案-林卓然编著
《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)
vb企业进销存管理系统
【摘要】 进入二十一世纪以来，随着社会的不断进步和科学技术的飞速发展，信息技术进入了爆炸式的年代，信息技术与人们的生活工作已息息相关、密不可分。计算机局域网、办公自动化已成为各大小企事业单位提高工作效率、简化工作流程、创造更大经济效益的重要手段。 随着计算机在企业管理中应用的普及，利用计算机实现企业的各种管理工作势在必行。而企业生产制造的关键在于如何规划和计划各种资源在时间、地点、产品之间的合理配备，如何按计划监督责任方对资源的使用情况，如何根据预测和历史情况为决策者提供更有效地利用资源的分析数据。本系统结合工业企业的生产中的特点经过实际的需求分析，采用功能强大的Visual Basic6.0 和SQL Server 2000 作为开发工具而开发出来的企业进销存管理系统。 本系统是典型的信息管理系统(MIS), 其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备, 易使用等特点。 该系统的数据库使用了SQL Server 2000。程序的设计使用了具有一系列崭新功能的传统数据库开发工具Visual Basic 6.0 。系统的主要功能是制定采购计划、物料需求计算、材料供求分析。并设计了几个小模块，以实现数据的处理、查询、统计及维护等功能。 Visual Basic 的强大功能中数据窗口技术由于其简单、直观、功能强大等特点成为本系统使用最多的技术。由于Visual Basic 采用的是Client/Server 的体系结构，所以本系统可以在局域网上运行以适应需求。 因时间关系以及自身水平的限制，本系统的制作并不完善，所以难免有错误之处，请老师批评指正。 论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。 关键词：SQL Server 2000 数据库，Visual Basic6.0 ，基本信息管理
VB程序代码(简单小程序)
实验一（带有进度条的倒计时程序） Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If (ProgressBar1.Value + ProgressBar1.Maximum / timers < ProgressBar1.Maximum) Then ProgressBar1.Value += ProgressBar1.Maximum / timers Else Timer1.Enabled = False ProgressBar1.Value = ProgressBar1.Maximum MessageBox.Show("进度完成！") End If temp += 1 Label1.Text = temp.ToString() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load timers = 30 End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub End Class 实验二（定时器控制蝴蝶飞舞） Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ’Dim t As Boolean ' If t = True Then ' PictureBox3.Image = PictureBox2.Image
企业进销存管理信息系统共16页文档
企业进销存管理信息系统 一．开发背景 某企业成立于 20 世纪80年代初期。该企业主要是从事于物资的出库,入库和销售等工作.占地面积有400多平方米,其业务遍及全国各地,然而当 今社会,无论是公司还是集体,物资管理是十分重要的,尤其是像它这样的企 业对物资的管理要求更高,由于该企业物资涉及的种类比较多,经常有借出和损坏,需要物资的流入和支出.采用传统的人工管理,工作繁琐,很容易引起管理上的混乱.采用进销存管理系统可以克服人工管理的缺陷,提高工作的效率,使企业的物资发挥更大的作用. 二．系统目标和开发可行性 1. 系统目标 企业进销存管理系统的目标是：按照现代物流要求构建一个全新的现代化的物资管理系统，通过计算机、网络等现代科学技术，实现进货、在库管理、配送管理等物资活动的自动化、数字化和智能化。要实现该目标，就需要在按照现代物流的要求对企业的经营战略，组织战略，生产经营等管理模组织结构等进行精心规划与设计的基础上，建设符合现代企业要求的的物流基础设施并配置先进的物流设备，如自动化，数字化，智能化的现代化仓库，自动备货生产线等，并且要建立一个支持企业生产经营管理模式和组织结构并适应未来发展的现代进销存管理系统。现代进销存管理概念最主要体现在以实现企业资源高效整合为第一目标，帮助企业降低物资成本，通过提升物
资价值从而实现企业价值最大化。本系统开发混合采用结构化系统开发方法与面向对象的开发方法，结合两种开发方法各自的优势进行系统开发。通过对实际需求分析,本系统主要面向特定管理人员,对各种物资进行电子化管理,所以系统包括以下功能： (1)．信息管理功能 (2)．日常操作功能 (3). 信息查询功能 (4). 信息统计功能 (5). 系统管理功能 2. 系统开发的可行性 （ 1 ）技术的可行性 要求系统开发人员能够熟练运用 VB 、 VF 等编程语言，并需要计算机一台。目前技术人员已经掌握这些编程语言，学生实验室由多台电脑供学生使用。因此，本此系统开发在技术上是可行的。 （ 2 ）时间可行性 开发时间约需要4个月左右。前三个月主要用于系统分析、设计、实 现，后面的时间用于调试。 （ 3 ）经济可行性 由于公司暂时有部分投资资金,可用于购买一些计算机和支付开发人 员的费用,因而,总体上来说,经济上是可行的。 （ 4 ）人员可行性
VB程序代码(简单小程序)
实验一:(带有进度条的倒计时程序) Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick If(ProgressBar1、Value + ProgressBar1、Maximum / timers < ProgressBar1、Maximum) Then ProgressBar1、Value += ProgressBar1、Maximum / timers Else Timer1、Enabled = False ProgressBar1、Value = ProgressBar1、Maximum MessageBox、Show("进度完成！") End If temp += 1 Label1、Text = temp、ToString() End Sub Private Sub Form1_Load(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles MyBase、Load timers = 30 End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Timer1、Enabled = True End Sub End Class 实验二(定时器控制蝴蝶飞舞) Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick ’Dim t As Boolean ' If t = True Then ' PictureBox3、Image = PictureBox2、Image ' t = False 'Else ' PictureBox3、Image = PictureBox1、Image ' t = True 'End If Select Case t Case 0 PictureBox3、Image = PictureBox1、Image
vb程序设计试题(含答案)
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
VB代码大全
隐藏form1： form1.hide 显示form1： form1.show --------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("真要退出吗?", vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub ---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub ------------------------------------------------------------------------------------------------ 点击command1打开33IQ网： Dim strURL Private Sub Command1_Click() strURL = "错误！超链接引用无效。 Shell "explorer.exe " & strURL, 1 End Sub ------------------------------------------------------------------------------------------------ 运行c:\1.exe shell "c:\1.exe" 执行c:\1.bat shell "c:\1.bat" 注：只适用于大部分exe和全部bat。
VB程序设计编程考试~题及答案~
VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y%
企业进销存管理系统开发与实现
企业进销存管理系统开发与实现 摘要 企业进销存管理系统是典型的信息管理系统，作为一种企业管理软件可以帮助企业快速有效地管理进货、销售、库存等各项业务。每个功能又有自己的子功能，可以完成对各类信息的查询、添加、删除、修改等功能。并且论述了商业进销存管理系统的设计思想，并给出了相应实现技术。系统中的数据格式和字段设置不具体针对某一个行业或企业，因而具有普遍的适用性，能够满足一般企业或者单位的进销存管理的需要。开发此软件是用的Visual Basic 6.0,Microsoft SQL Server 2000 作为后台数据库。 关键词：1、Visual Basic 6.0 2、SQL Server 2000 3、进销存管理系统
目录 一、绪论 (7) （一）开发背景 (7) （二）系统优点 (7) 二、开发此系统所用软件的介绍 (8) （一）开发工具的介绍 (8) （二） SQL Server2000 介绍 (8) 三、系统分析 (11) （一）进销存系统的调查 (11) （二）系统流程调查 (13) （三）项目规划 (13) 四、系统设计 (14) （一）数据库结构设计 (14) （二）数据库表具体设计 (14) （三）系统模块功能图： (23) （三）设计目标 (24) （四）开发与运行环境 (24) 五、系统实现 (25) （一）系统模块介绍 (25) （二）系统详细设计 (25) 1 系统登录设计 (25) 2 进货单 (27) 3月销售状况 (30) 4 库存状况 (32) 5 库存盘点 (37) 六、总结 (41) 致谢 (42) 参考文献： (43)
VB 做简易计算机程序代码
VB 做简易计算机程序代码 Private Sub Command1_Click() '每点击一下该按钮,就在文本框的尾部加字符"0" '如果txtLabel为空,则说明现在正在输入的第一个数字 '负责表示输入的是第二个数字 If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "0" Else txtSecond.Text = txtSecond.Text + "0" End If End Sub Private Sub Command10_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "8" Else txtSecond.Text = txtSecond.Text + "8" End If End Sub Private Sub Command11_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "9" Else txtSecond.Text = txtSecond.Text + "9" End If End Sub Private Sub Command12_Click() txtLabel.Text = "加" End Sub Private Sub Command13_Click() txtLabel.Text = "减" End Sub Private Sub Command14_Click() txtLabel.Text = "乘" End Sub Private Sub Command15_Click() txtLabel.Text = "除"
VB程序设计例题-程序改错程序填空程序设计
'以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:"))
商品进销存管理系统
商品进销存管理系统 系统概况 一．需求分析 1．系统功能分析 2．系统性能分析 3．系统功能模块设计 4、数据流程图 二．总体方案设计 1、系统设计概述 2、代码设计 3．界面设计 三．数据库设计 1、数据库需求分析 2、数据库概念结构设计 4、数据库的生成与配置 5、创建应用程序结构 四．模块软件设计 测试分析 参考文献 商品进销存管理系统是一个企业或商场不可缺少的部分,它的内容对于企业或商场的决策者和管理者来说都至关重要,所以商品进销存管理系统应该能够为用户提供充足的信息和快捷的销售，查询手段。但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对品质信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企业或商场管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套商品进销存管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。 商品进销存管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,我们使用MICROSOFT公司的VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。 本系统主要完成对企业或商场的管理，包括进货管理，销售管理，库存管理和员工管理四个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能。 系统的核心是销售、库存查询和进货管理三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成销售或进货操作时系统会自动地完成相对应信息的修改。查询功能也是系统的核心之一，在系统中主要根据商品编号和商品名称等进行查询，其目的都是为了方便用户使用，以求更快的查找到各个物料和产品品质的基本信息。系统有完整的用户添加、删除和密码修改功能，系统采用Microsoft Office中的Access 2000来设计数据库，并使用当前优秀的开发工具—VB 6.0 ，它有着最为灵活的数据库结构，对数据库应用有着良好的支持。 论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。
vb简单的计算机源代码
vb简单的计算机源代码.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。Private Sub Command1_Click() = "欢迎使用智能计算器" '载入默认正常显示 If = "0" Then '1类分歧ElseIf = "" Or = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" ElseIf = "" And = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" Else '2类分歧 Dim a, b, c As Double a = Val
b = Val c = a + b = c = "" = "" End If If = "1" Then '1类分歧ElseIf = "" Or = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" ElseIf = "" And = "" Then '2类分歧 = "xataliq kuruldi" = "运算数值不能为空" Else '2类分歧
Dim d, e, f As Double d = Val e = Val f = d + e = f End If End Sub Private Sub Command2_Click() = "欢迎使用智能计算器" If = "1" Then ElseIf = "" Or = "" Then = "xataliq kuruldi" = "运算数值不能为空" ElseIf = "" And = "" Then = "xataliq kuruldi"
[整理]VB程序设计复习题及答案.
中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型
进销存管理系统设计报告
西安财经学院 《信息系统分析与设计》课程设计报告题目进销存管理系统 姓名 专业信息管理与信息系统 班级 XXXX 学号 XXXXXXXX 一、系统概述 （一）序言 （二）系统任务 （三）系统目标 （四）人员分工 二、系统需求分析 （一）、需求分析 （二）、可行性分析 1、技术方面的可行性 2、经济可行性研究 3、操作可行性研究 三、系统分析 （一）业务流程分析（销售部分） 业务流程图图例说明： （二）数据流程分析 （三）数据字典 四、系统设计 （一）系统总体设计 1、系统总体结构 （二）系统的详细设计
1、代码设计 2.输入输出设计 （三）数据库设计 1、概念结构设计 2、逻辑结构设计 3、物理结构设计 五、系统实施 (一)开发工具的选择 1、 SQL介绍 2、Visual basic编程语言简介 3、SQL Server 数据库简介 （二）源程序清单 1、VB源代码 2. 数据库源代码 供应商资料表 （三）、数据库中部分表的关系及约束 （四）运行界面 连接数据库界面： （五）、系统调试、测试 1、测试的意义 2、测试原则 3、系统测试的方法 4、测试用例 课程设计总结 致谢 参考文献
一、系统概述 （一）序言 社会在不断进步，科学技术和管理也在迅速发展，这使得每个企业得到了前所未有的发展机遇，但同时也必须面临市场竞争的严重挑战，在日趋激烈的竞争环境下，企业要求生存、发展，就必须对企业进行科学的管理。而用计算机来处理企业内部信息间的流通和使用，既可以实现数据信息的共享，控制好数据的冗余度，并使企业有统一的管理，提高信息的利用率；又可以实现整体数据的结构化，这样就可以大大的提高企业决策的效率。 中小企业在我国经济发展中具有重要地位，目前我国的中小企业数量多，地区分布广泛，行业分布跨度大。随着全球经济一体化的发展和电子商务的兴起，中小企业之间的竞争将越来越激烈。网络及电子商务的迅猛发展突破了时间、空间的局限性，给中小企业带来了更多的发展机会，同时也增大了企业之间的竞争强度。这就要求中小企业必须改变企业的经营管理模式，提高企业的运营效率。目前，我国中小企业的信息化水平还很低，相比国外企业，还只处于刚开始始用的阶段。随着技术发展，电脑操作及管理日趋简化，电脑知识日趋普及，同时市场经济快速多变，竞争激烈，企业采用电脑管理进货、库存、销售等诸多环节也已成为趋势及必然。 物资、人才、资金并称为企业的三大资源，控制物流是每个企业都需要做好的事情。本次设计即是针对企业在进、销、存管理方面所做的分析，进销存管理就是要权衡库存费用（包括商品价值，订货费用，短缺等），使总费用最低。进销存管理系统的职能大体上包括采购管理、销售管理和库存管理。本软件是一款通用性极强企业进销存管理系统，软件囊括了企业进、销、存管理的全过程。 （二）系统任务 进销存管理系统是一个将资料管理、采购管理、销售管理和库存管理等业务融为一体的系统。一个完善的进销存管理系统的任务主要包括以下几项： 1、资料管理，主要负责管理供应商资料、商品资料以及客户资料。 2、采购管理，主要负责采购管理，包括采购单、采购入库和采购查询
VB程序的设计课后复习题答案
VB课后习题解答 第一、二章： 1、简述VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。2、当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否需要再次安装VB6.0？ 答：要重新安装的。因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。 3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在VB6.0的启动界面上，能显示对应的版本。 4、叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是VB98 8、安装Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。 9、如何使用Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定容有关的帮助信息。 10、什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执行的操作。 12、当标签边框的大小由Caption属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的Autosize属性值设置为true。 13、在VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？
VB程序代码简单小程序
V B程序代码简单小程 序 集团标准化工作小组 [Q8QX9QT-X8QQB8Q8-NQ8QJ8-M8QMN]
实验一（带有进度条的倒计时程序） Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As , ByVal e As Handles If + / timers < Then += / timers Else = False = ("进度完成！") End If temp += 1 = () End Sub Private Sub Form1_Load(ByVal sender As , ByVal e As Handles timers = 30 End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As Handles timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As Handles = True End Sub End Class 实验二（定时器控制蝴蝶飞舞） Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As , ByVal e As Handles ’Dim t As Boolean ' If t = True Then ' = ' t = False 'Else
企业进销存管理系统使用说明书
企业进销存管理系统使用说明书 1
企业进销存管理系统 1 项目背景 系统名称: 企业进销存管理系统 项目功能: 制定生产/采购计划、物料需求计算、材料供求分析。以企业管理的计划和控制职能为核心, 提供了生产、销售、采购、库管、计划等实用而丰富的管理功能。 项目提出者: 某企业的管理部门 项目开发者: 吴志方 项目管理者: 企业管理部门经理 最终用户: 某企业管理部门 2
总体设计 总体功能需求描述 企业生产制造管理的关键在于如何规划和计划各种资源在时间、地点、产品之间的合理配备, 如何按计划监督责任方对资源的使用情况, 如何根据预测和历史情况为决策者提供更有效地利用资源的分析数据。 工业企业进销存系统的主要功能是制定生产/采购计划、物料需求计算、材料供求分析, 核心任务是: ●降低材料成本 ●降低库存成本 ●缩短生产/采购周期, 如何获得更高的利润。 该系统以企业管理的计划和控制职能为核心, 提供了生产、销售、采购、库管、计划等实用而丰富的管理功能, 具有如下优点: ●具有高度的信息综合利用效能, 能够对工业企业的经营管理 活动进行分析、预测、决策, 进而达到对工业企业经营活动过程的全程监督和控制的目的; ●彻底改变了企业信息重复、混乱、无法共享的现状, 使 产、供、销、客、物、决策等各个部门能够资源共享、信息共享, 从而实现了业务、决策一体化; ●物流、资金流、信息流统一化的良好经营管理模式。 3
本系统是根据工业企业的生产过程, 控制生产过程中的材料消耗、产品销售、销售成本等数据, 具体管理范围包括材料采购、材料库存、生产计划、生产控制、物料需求、产品购进、产品销售、产品产出等。 经过管理系统, 使企业的进销存流程实现各种信息的系统化、规范化和自动化, 从而达到提高效率的目的。 本系统需要完成的功能主要有: ●系统管理, 包括用户管理、密码管理等。 ●客户信息的管理, 包括供应商的管理、顾客的管理以及相关 的查询等。 ●商品信息的管理, 包括商品的添加、修改、删除等。 ●销售信息管理, 包括进货信息的管理、销售信息的管理以及 相关的查询等。 系统功能模块设计 在系统功能分析的基础上, 考虑VB6.0程序编制特点, 得到功能模块图如下: 4