qddxzl-302

软件要求

一、基本功能：

增加、修改、删除、打印、分类、查询、排序、插入

二、软件基本内容：

A、要求六个模块：

（一）基本操作：

1.         产品信息管理（满足基本功能要求）

2.         客户信息管理（满足基本功能要求）

3.         销售信息管理（满足基本功能要求）

4.         密码修改

5.         退出

（二）售后服务

1、 本公司售后服务（包括：回访记录/调律记录/维修记录）。同时打印出来

2、 非本公司售后服务（包括：回访记录/调律记录/维修记录）。同时打印出来

（三）调律统计汇总

1、 调律情况统计（满足基本功能要求）

2、 调律情况汇总（满足基本功能要求）

（四）系统用户管理（只有管理员可用）

完成对使用本系统的用户的增加、修改、删除和更新

（五）数据库备份/恢复

1、 数据库备份

2、 数据库恢复

（六）智能提醒

提醒功能；同时有声音和颜色的提示。

1、 销售钢琴半个月软件自动提醒要求调律。

2、 分别提示回访日期、固定调律日期、提示同时打印出来。

B、 序号、客户号、购买日期、客户姓名、通讯地址、住宅电话、手机、小灵通、品种、品牌、产地、型号、琴号/管号、颜色、回访记录、固定调律日期、自选调律日期、优惠调律日期、调律人签字、维修日期、故障原因、维修人签字、用户意见反馈、备注

C、 启动软件时、基本资料都输入软件、公司名称、公司商标……………等，

D、自选功能：可有随时填写以下内容：B内容

三、智能设计：

A、提醒功能；同时有声音和颜色的提示

1、 销售钢琴半个月软件自动提醒要求调律。

2、 分别提示回访日期、固定调律日期、提示同时打印出来。

B、 弹出的调律日期是最新的记录，但要有历史记录，维修日期和回访日期同样要求。在调律日期中设置固定日期和自选日期，固定日期分半年制和一年制，如选定固定日期电脑将自动启动提示功能，时间为第5个月和第11个月。

C、 自动图表功能销售完了调律情况，统计一年调律总台数、统计月调律总台数、均按钢琴品牌分类。

四、人性化设计：

自动汇总功能：分为二个内容，单击这个功能，一目了然

              A、本公司保修期调律台数。

              B、本公司保修期外调律台数。

C、非本公司销售钢琴调律台数。

钢琴品牌，如：奥玛尔 MF-123 奥古斯特 UP122 YAMAHA-雅马哈(国内) YAMAHA YC1

      “人间没有永恒的夜晚，世界没有永恒的冬天。”我很喜欢艾青的这句话，因为它包含着一个深刻的人生哲理。  
　　人生的道路本来就不好走，一路坑坑洼洼，一路困难不断，这是十分正常的。曾经我为失败而垂头丧气，对面前的种种困难而心灰意乱，但当我看到艾青的这句话时,感觉希望就在我们的下一步。的确，困难不会永远属于我们，它也会离我们远去，就像艾青的话一样，黑暗与寒冷都只是暂时的，只要勇敢面对，我们一定会感受到阳光下那种温暖的感觉。
　　有许多人不就是这样吗？世界冠军王军霞，曾经也面临过困难，可大家对她的希望，使她心中的希望之火再次点燃，终于登上了亚特兰大第26届奥运会的最高的领奖台。她不是战胜了困难吗？还有被人称为“中国的巴斯德”的张海迪，虽然她是一位残疾人，可她不屈服于命运，自学完成了从小学到大学的所有课程。她是值得人们学习的。大发明家爱迪生大家一定听说过吧！可当初他为了寻找适宜的灯丝，经过上千次实验，终于成功了，成了为人们所敬佩的伟大的发明家。他们的例子不都照应了艾青这句话吗？
　　大浪迎面扑来，当你驾驶着一叶小舟在海面上行驶时，请不要害怕，不要后退，因为在这之后就是胜利的曙光。.........................................

程序在运行后结果为0
反复测试没有结果，为什么？请求高手指点




Public Class Form1
    Sub f(ByVal n As Integer, ByVal t As Double)
        Dim i As Integer
        t = 1
        For i = 1 To n
            t = t * i

        Next

    End Sub

    Private Sub Form1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As Double, b As Double, c As Double
        Dim sum As Double
        Call f(3, a)
        Call f(5, b)
        Call f(8, c)
        sum = a + b + c
        MsgBox(sum)
    End Sub

  
End Class

  程序在运行时出现“aihao“没有注明

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sex As String
        Dim aihao As String
        If Radioboy.Checked = True Then
            sex = "男"
        Else
            sex = "女"
        End If
        If CheckBox1.Checked = True Then
            aihao = CheckBox1.Text
        End If
        If CheckBox2.Checked = True Then
            aihao = aihao + " " + CheckBox2.Text
        End If
        If CheckBox3.Checked = True Then
            aihao = aihao + " " + CheckBox3.Text
        End If
        If CheckBox4.Checked = True Then
            aihao = aihao + " " + CheckBox4.Text
        End If
        If CheckBox5.Checked = True Then
            aihao = aihao + " " + CheckBox5.Text
        End If
        Label3.Text = "姓名： " + STUNAME.Text + vbCrLf + "年龄 :" + STUAGE.Text + vbCrLf + "性别： " + sex + vbCrLf + "爱好 :" + aihao

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sex As String
        Dim aihao As String
        If Radioboy.Checked = True Then
            sex = "男"
        Else
            sex = "女"
        End If
        If CheckBox1.Checked = True Then
            aihao = CheckBox1.Text
        End If
        If CheckBox2.Checked = True Then
            aihao = aihao + " " + CheckBox2.Text
        End If
        If CheckBox3.Checked = True Then
            aihao = aihao + " " + CheckBox3.Text
        End If
        If CheckBox4.Checked = True Then
            aihao = aihao + " " + CheckBox4.Text
        End If
        If CheckBox5.Checked = True Then
            aihao = aihao + " " + CheckBox5.Text
        End If
        Label3.Text = "姓名： " + STUNAME.Text + vbCrLf + "年龄 :" + STUAGE.Text + vbCrLf + "性别： " + sex + vbCrLf + "爱好 :" + aihao

    End Sub
End Class