随便写写

唉，我什么时候才能在事业上有所建树噢。今天我妹说她们公司开了运动会，她们集体获得了第二名。有4000元的奖金，有100个人来分，太少，最后决定出去吃一顿,剩下的DVD机由抽签决定几个少数人得。她们觉得电脑抽签，比较公平。她说就想电视里的中奖一样，要不停的闪不同的的名字，最后停止，停在的人就中奖了。她问我能不能程序实现。我说当然行了噢，最后，我一步一步的用QQ教她用Access编了一个(其实像这样只用一个表，还不如直接在Excel中实现，这里主要的目的是想让她对Access有所理解)。总用时4个小时。看到她最后，能比较理解程序的实现方法，和一点数据库理论。我心里非常的高兴。不过我总不能把自已的编程的才能来编写这种玩具吧！什么时候才能把这些知识用在一个真正的企业中呀....什么时候才会有人相信我具有这个能力呀,所以我一定要学好会计，自已用这些程序！但是到我会计精通时，又有人相信么？  ....

附程序代码(其实这个代码，我自已编，应该30分钟就可以的吧)

Option Compare Database

Private cnt As Long

Private Sub cmdStop_Click()
    Me.TimerInterval = 0
End Sub

Private Sub Command2_Click()
    Me.TimerInterval = 25
 
   
End Sub

Private Sub Form_Load()
    CurrentDb.Execute "delete * from temp"
    Dim rstTemp As DAO.Recordset
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("select * from C")
    Set rstTemp = CurrentDb.OpenRecordset("select * from Temp")
    Dim iCount As Long
    iCount = 1
    While Not rst.EOF
        rstTemp.AddNew  '临时表增加一条记录
       
        rstTemp.Fields(0).Value = iCount  '员工依次再编号
        rstTemp.Fields(1).Value = rst.Fields(0).Value '把员工编号复制到临时表
        rstTemp.Fields(2).Value = rst.Fields(1).Value  '把员工名字复制到临时表
       
        rstTemp.Update  '更新临时表的这条记录.相当于确定输入
       
        iCount = iCount + 1
       
        rst.MoveNext
    Wend
   
   
    cnt = iCount - 1
End Sub

Private Sub Form_Timer()
    Dim rst As DAO.Recordset
    Dim RndID As Long
    Randomize    ' Initialize random-number generator.

    RndID = Int((cnt * Rnd) + 1)
   
   
    Set rst = CurrentDb.OpenRecordset( _
                "select * from Temp Where rndID=" & RndID)
   
    If Not rst.EOF Then
        Text0 = rst.Fields(2).Value '文本框中直接显示人名好了
        Text4 = rst.Fields(1).Value '工号
       
    End If
   
    DoEvents '让系统去处理一下其它还要做的事.比如重画窗口之类的
   
End Sub

 

 

后记：记得前天有个讲座，讲企业如何获取利润：利润是企业生产的目的吗？利润对企业重吗？又怎么获得利润呢？唉对企业如是，对人何尝不是呢？

答：利润不是企业生产的目的，它是一个附属物。利润当然对企业重要，它就像阳光、水、空气对我们人一样。又该怎么获取利润呢？如果一个企业对利润看重，还不如更实际一些（抓现金流），多周转！！！这样利润就会很好。如果死盯高利润率的话，就会看不到现金周转慢的问题. 甚至产生坏帐