注册 登录
编程论坛 VFP论坛

求平均人数

tjdeming 发布于 2017-01-07 21:18, 3834 次点击
我做了一个统计人数的表单。能实现统计每天的实有人数。(实际情况人数有增有减的)
 不足:运行后显示的表受表单大小限制,感觉代码太复杂。
 请各位版主及高手指点一下。
根据花名单统计人.rar (6.82 KB)



Doc2.rar (19.55 KB)
46 回复
#2
sdta2017-01-07 23:14
统计规则是什么
#3
tlliqi2017-01-07 23:23
附件呢,重新上传一下。。。
#4
tjdeming2017-01-08 06:58
回复 2楼 sdta
统计规则是 月平均人数=月每天实有人数之和/月日历天数
月平均人数四舍五入;大于0小于等于1取1
层次计算原则:先计算最小分项,后求大项。
BJ0为过渡字段,最终取L1为月期末人数,L2为月平均人数。
花名单日常维护:如5日技术部解除合同1名,技术部8日新进1 名 ,3日技术部调后勤部1名 这些是动态调整的。
谢谢。
  

[此贴子已经被作者于2017-1-8 07:07编辑过]

#5
sdta2017-01-08 12:15
回复 4楼 tjdeming
方法都是一样的,认真看一下上一个帖子的内容
#6
tjdeming2017-01-08 19:32
各位高手:
  请把我写的代码过目一下:看看有没有需要改进的地方方。谢谢。
#7
sdta2017-01-08 19:55
回复 6楼 tjdeming
肯定有改进的地方
#8
tjdeming2017-01-08 21:26
回复 7楼 sdta
跪求明示
#9
tlliqi2017-01-08 22:52
你代码呢?

[此贴子已经被作者于2017-1-9 07:07编辑过]

#10
schtg2017-01-09 07:15
哈哈^_^
#11
tjdeming2017-01-09 14:00
程序代码:
**************************************************
*-- Form:         form1 (平均人数.scx)
*-- 父类:  form
*-- 基类:    form
*
DEFINE CLASS form1 AS form


   


[此贴子已经被作者于2017-1-10 22:35编辑过]

#12
星光悠蓝2017-01-09 14:12
人数还有四舍五入,人都被分解了!
#13
sdta2017-01-09 15:43
计算指定月份的天数:
N=DAY(GOMONTH(DATE(年,月,1),1)-1)
#14
sdta2017-01-09 15:52
微调控件改为文本框,表单运行时自动显示当月1日日期,这样便于计算指定月份天数。

[此贴子已经被作者于2017-1-9 15:54编辑过]

#15
tjdeming2017-01-13 21:08
程序代码:
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


    **************************************************
*-- Form:         form1 (根据花名单统计人\平均人数.scx)
*-- 父类:  form
*-- 基类:    form
*
DEFINE CLASS form1 AS form


    Height = 146
    Width = 395
    DoCreate = .T.
    AutoCenter = .T.
    BorderStyle = 3
    Caption = "请选择年份月份日期"
    MinButton = .T.
    WindowState = 0
    AlwaysOnTop = .F.
    Name = "Form1"


    ADD OBJECT label1 AS label WITH ;
        AutoSize = .T., ;
        FontName = "楷体_GB2312", ;
        FontSize = 16, ;
        Alignment = 0, ;
        Caption = "年", ;
        Height = 27, ;
        Left = 136, ;
        Top = 31, ;
        Width = 22, ;
        Name = "Label1"


    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 79, ;
        Left = 66, ;
        Height = 30, ;
        Width = 70, ;
        Caption = "统计(\<Y)", ;
        Name = "Command1"


    ADD OBJECT command2 AS commandbutton WITH ;
        Top = 79, ;
        Left = 158, ;
        Height = 30, ;
        Width = 70, ;
        Caption = "取消(\<N)", ;
        Name = "Command2"


    ADD OBJECT spinner1 AS spinner WITH ;
        FontSize = 14, ;
        Height = 30, ;
        Left = 56, ;
        Top = 27, ;
        Width = 75, ;
        ForeColor = RGB(255,0,0), ;
        Value = (YEAR(DATE())), ;
        Name = "Spinner1"


    ADD OBJECT spinner2 AS spinner WITH ;
        FontSize = 14, ;
        Height = 30, ;
        KeyboardHighValue = 12, ;
        KeyboardLowValue = 1, ;
        Left = 163, ;
        SpinnerHighValue =  12.00, ;
        SpinnerLowValue =   1.00, ;
        Top = 27, ;
        Width = 50, ;
        ForeColor = RGB(0,0,255), ;
        Value = (MONTH(DATE())), ;
        Name = "Spinner2"


    ADD OBJECT label2 AS label WITH ;
        AutoSize = .T., ;
        FontName = "楷体_GB2312", ;
        FontSize = 16, ;
        Alignment = 0, ;
        Caption = "月", ;
        Height = 27, ;
        Left = 217, ;
        Top = 31, ;
        Width = 22, ;
        Name = "Label2"


    ADD OBJECT spinner3 AS spinner WITH ;
        FontSize = 14, ;
        Height = 30, ;
        KeyboardHighValue = 31, ;
        KeyboardLowValue = 1, ;
        Left = 255, ;
        SpinnerHighValue =  31.00, ;
        SpinnerLowValue =   1.00, ;
        Top = 27, ;
        Width = 50, ;
        ForeColor = RGB(0,0,255), ;
        Value = (DAY(DATE())), ;
        Name = "Spinner3"


    ADD OBJECT label3 AS label WITH ;
        AutoSize = .T., ;
        FontName = "楷体_GB2312", ;
        FontSize = 16, ;
        Alignment = 0, ;
        Caption = "日", ;
        Height = 27, ;
        Left = 309, ;
        Top = 31, ;
        Width = 22, ;
        Name = "Label3"


    ADD OBJECT command3 AS commandbutton WITH ;
        Top = 79, ;
        Left = 250, ;
        Height = 30, ;
        Width = 70, ;
        Caption = "建新表(\<W)", ;
        Name = "Command3"


    PROCEDURE Resize
        private i as no
                private j as no
                i=thisform.width/fwidth
                j=thisform.height/fheight
                thisform.lockscreen=.t.
                for k=1 to thisform.controlcount
                   thisform.controls(k).left=thisform.controls(k).left*i
                   thisform.controls(k).top=thisform.controls(k).top*j
                   thisform.controls(k).width=thisform.controls(k).width*i
                   thisform.controls(k).height=thisform.controls(k).height*j
                endfor
                thisform.lockscreen=.f.
                fwidth=Thisform.width
                fheight=thisform.height
                thisform.refresh
    ENDPROC


    PROCEDURE Init
            Thisform.minwidth=Thisform.width
                thisform.minheight=thisform.height
                public fwidth as integer
                public fheight as integer
                fwidth=Thisform.width
                fheight=thisform.height
    ENDPROC


    PROCEDURE command1.Click

        Set Safety Off
        Public  nyear,nmonth,nday,ddate,ndays,nianyue
        nyear=ThisForm.spinner1.Value
        nmonth=ThisForm.spinner2.Value
        nday=ThisForm.spinner3.Value
        ddate=Date(nyear,nmonth,1)
        ndays=Gomonth(ddate,1)-ddate
        ndayfields="A"+Alltrim(Str(ThisForm.spinner3.Value))
        ndayfieldsold="A"+Alltrim(Str(ThisForm.spinner3.Value-1))

        If ThisForm.spinner2.Value<10
            nianyue=Str(ThisForm.spinner1.Value)+"0"+Alltrim(Str(ThisForm.spinner2.Value))
            nianyueA=Str(ThisForm.spinner1.Value)+"-0"+Alltrim(Str(ThisForm.spinner2.Value))
        Else
            nianyue=Str(ThisForm.spinner1.Value)+Alltrim(Str(ThisForm.spinner2.Value))
            nianyueA=Str(ThisForm.spinner1.Value)+"-"+Alltrim(Str(ThisForm.spinner2.Value))
        endif
        If nday>ndays     &&&&天数大于月天数
           MessageBox("无效日期,请重新输入",0+48,"提示信息")
        Else
        ThisForm.Hide

        If not Used('hmd')
            Sele 1
            Use  hmd
        Else
            Sele hmd
        Endif

        If not Used('RSB')
            Sele 1
            Use rsb
        Else
            Sele rsb
        EndIf


        Do While not Eof()
            nhere=Recno()
            narray='array'+Alltrim(Str(Recno()))
            pp=rsb.tj
            If !Empt(rsb.tj)
                Sele Count(*) As 人数    Where &pp  From hmd   Into Array &narray
                Repl  &ndayfields With &narray
            Endif
            Skip
        EndDo
        ns=''
        For i=1 To ndays
            sl='array'+Allt(Str(i))
            sl2='A'+Allt(Str(i))
            Sele Sum(&sl2) From rsb Into Array  &sl
            If &sl=0
                ns=ns+"A"+Allt(Str(i))+IIF(I<ndays,[,],[])
               
            EndIf
        Endfor

          If Len(NS)>0
             MessageBox(ns+"列,数据为空",0+48,"提示信息")
          Else
             MessageBox("["+Allt(nianyueA)+"],数据完整!",0+48,"提示信息")
          Endif

        Sele rsb
        Repl All ny With Val(nianyue)
        Do Case
            Case ndays=28
                Repl All bj0 With Round((A1+A2+A3+A4+A5+A6+A7+A8+A9+A10+A11+A12+A13+A14+A15+A16+A17+A18+A19+A20+A21+A22+A23+A24+A25+A26+A27+A28)/ndays,2)
            Case ndays=29
                Repl All bj0 With Round((A1+A2+A3+A4+A5+A6+A7+A8+A9+A10+A11+A12+A13+A14+A15+A16+A17+A18+A19+A20+A21+A22+A23+A24+A25+A26+A27+A28+A29)/ndays,2)
            Case ndays=30
                Repl All bj0 With Round((A1+A2+A3+A4+A5+A6+A7+A8+A9+A10+A11+A12+A13+A14+A15+A16+A17+A18+A19+A20+A21+A22+A23+A24+A25+A26+A27+A28+A29+A30)/ndays,2)
            Case ndays=31
                Repl All bj0 With Round((A1+A2+A3+A4+A5+A6+A7+A8+A9+A10+A11+A12+A13+A14+A15+A16+A17+A18+A19+A20+A21+A22+A23+A24+A25+A26+A27+A28+A29+A30+A31)/ndays,2)
        EndCase
            

           
           ****计算期末人数(当月28日)******   
            Do Case
            Case ndays=28
                Copy To Array Asj FIELDS A28
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]  
         
                  Repl A28 With asj[2]   For xh=2
                  Repl A28 With asj[6]   For xh=6
                  Repl A28 With asj[1]   For xh=1  
                  
                   Copy To Array Asj Fields bj0
            
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]         
                 Repl  BJ0 With asj[2]   For xh=2
                 Repl  BJ0 With asj[6]   For xh=6
                 Repl  BJ0 With asj[1]   For xh=1
                 
                 Repl All bj With Round(bj0,0)              &&&&人数四舍五入
                 Repl All bj With 1 for bj0<=1 AND bj0>0    &&&&人数小于1大于0,取1
               
                 Copy To Array Asj Fields bj
            
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]         
                 Repl  BJ With asj[2]   For xh=2
                 Repl  BJ With asj[6]   For xh=6
                 Repl  BJ With asj[1]   For xh=1
               
                 repl all L1 With  A28
                 repl all L2 With  bj   
           
            ****计算期末人数(当月29日)******              
            Case ndays=29
                Copy To Array Asj FIELDS A29
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]  
         
                  Repl A29 With asj[2]   For xh=2
                  Repl A29 With asj[6]   For xh=6
                  Repl A29 With asj[1]   For xh=1  
                  
                 Copy To Array Asj Fields bj0
            
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]         
                 Repl  BJ0 With asj[2]   For xh=2
                 Repl  BJ0 With asj[6]   For xh=6
                 Repl  BJ0 With asj[1]   For xh=1
                 
                 Repl All bj With Round(bj0,0)              &&&&人数四舍五入
                 Repl All bj With 1 for bj0<=1 AND bj0>0    &&&&人数小于1大于0,取1
                                                      
                 Copy To Array Asj Fields bj
            
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]         
                 Repl  BJ With asj[2]   For xh=2
                 Repl  BJ With asj[6]   For xh=6
                 Repl  BJ With asj[1]   For xh=1
               
                 repl all L1 With  A29
                 repl all L2 With  bj   
               
            ****计算期末人数(当月30日)******
            Case ndays=30
                Copy To Array Asj FIELDS A30
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]  
         
                  Repl A30 With asj[2]   For xh=2
                  Repl A30 With asj[6]   For xh=6
                  Repl A30 With asj[1]   For xh=1  
               
                 Copy To Array Asj Fields bj0
            
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]         
                 Repl  BJ0 With asj[2]   For xh=2
                 Repl  BJ0 With asj[6]   For xh=6
                 Repl  BJ0 With asj[1]   For xh=1
                 
                 Repl All bj With Round(bj0,0)              &&&&人数四舍五入
                 Repl All bj With 1 for bj0<=1 AND bj0>0    &&&&人数小于1大于0,取1
                                                      
                 Copy To Array Asj Fields bj
            
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]         
                 Repl  BJ With asj[2]   For xh=2
                 Repl  BJ With asj[6]   For xh=6
                 Repl  BJ With asj[1]   For xh=1
               
                 repl all L1 With  A30
                 repl all L2 With  bj   

            ****计算期末人数(当月31日)******
            Case ndays=31
                Copy To Array Asj FIELDS A31
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]  
         
                  Repl A31 With asj[2]   For xh=2
                  Repl A31 With asj[6]   For xh=6
                  Repl A31 With asj[1]   For xh=1  
            
                  Copy To Array Asj Fields bj0
            
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]         
                 Repl  BJ0 With asj[2]   For xh=2
                 Repl  BJ0 With asj[6]   For xh=6
                 Repl  BJ0 With asj[1]   For xh=1
                 
                 Repl All bj With Round(bj0,0)              &&&&人数四舍五入
                 Repl All bj With 1 for bj0<=1 AND bj0>0    &&&&人数小于1大于0,取1
                                                      
                 Copy To Array Asj Fields bj
            
                 asj[2]=asj[3]+asj[4]+asj[5]                           
                 asj[6]=asj[7]+asj[8]                                   
                 asj[1]=asj[2]+asj[6]         
                 Repl  BJ With asj[2]   For xh=2
                 Repl  BJ With asj[6]   For xh=6
                 Repl  BJ With asj[1]   For xh=1
               
                 repl all L1 With  A31
                 repl all L2 With  bj   
            EndCase
            
            
        If nday=1
            Sele  xh,ny,部门,DM,L1,L2,&ndayfields,bj0,bj From rsb
        Else
            Sele  xh,ny,部门,DM,L1,L2,&ndayfieldsold,&ndayfields,&ndayfields-&ndayfieldsold As 增减,bj0,bj From rsb  Where &ndayfields-&ndayfieldsold<>0
        EndIf
            MessageBox("统计实有人数已完成",0+48,"提示信息")

        EndIf

        BROW FIELDS NY,部门,DM,L1,L2
    ENDPROC


    PROCEDURE command2.Click


        dele file *.idx recycle   &&& DELETE FILE 和 ERASE 这两个命令功能和语法格式完全相同 要删除同一类型文件:*.PRG 即可。
        dele file *.bak recycle
        dele file *.err recycle
        CLOSE ALL
        QUIT
    ENDPROC


    PROCEDURE command3.Click

            Set Safety Off

          cstr=""
           For i=1 To 31
             cstr=cstr+'A'+Alltrim(STR(i))+" N(4),"
           endfor  
            cstr=Left(cstr,Len(cstr)-1)
            Create Tabl Rsb (ny n(6),xh N(2),部门 c(30),DM C(2),TJ C(40),L1 N(4),L2 N(4),L3 N(4),&cstr,BJ0 N(7,2),BJ N(4))
           
            Append From biaozhun_tabl.dbf
         
            
    ENDPROC


ENDDEFINE
*
*-- 结束定义: form1
**************************************************
#16
tjdeming2017-01-13 21:10
只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录
#17
tjdeming2017-01-13 21:21
各位好,运行15楼的程序后会出现上面三张截图。
想解决的问题是
1、这是一张RBS表,能不出现红圈内的字? 应是RSB
2、第三张图出现的大小正好是表单的大小,我想这是一张RSB表,应是大于表单的,
能完善吗?求助助!
#18
tjdeming2017-01-14 18:26
求助各位了!
#19
tjdeming2017-01-14 18:26
求助各位了!
#20
wzxc2017-01-14 18:53
BROW  TITLE "RSB" FIELDS NY,部门,DM,L1,L2   IN SCREEN
#21
tjdeming2017-01-14 20:24
回复 20楼 wzxc
谢谢你,我试一下,成了。请问一下:查询结果的表的大小受表单的大小限制,能变大吗?
#22
wzxc2017-01-14 21:53
边框难到不能往右拉吗?
此命令我一般仅用作调式程序查看一下结果。
界面中使用表格控件Grid。
#23
tjdeming2017-01-14 22:13
回复 22楼 wzxc
谢谢!
 我发的三张图片,第三张图片是我想浏览的结果但它的大小只能在第一张图片中中,每次要点击最大化才能看见全表表,不方便。能改进吗?
#24
hyswcyh2017-01-15 09:31
以下是引用tjdeming在2017-1-14 22:13:49的发言:

谢谢!
 我发的三张图片,第三张图片是我想浏览的结果但它的大小只能在第一张图片中中,每次要点击最大化才能看见全表表,不方便。能改进吗?


这个问题不是已经有答案了吗?
#25
sdta2017-01-17 10:43
要有每天人员的花名单,这样才便于统计。
#26
tjdeming2017-01-17 21:22
回复 25楼 sdta
谢谢。
名单每天在维护的,
 如增加:新招工
 减少:辞职,
 部门之间的调动。
这些是每天都可能会发生,负责考勤的人会动态调整的。单位不会每天备份人员信息库。只会备注中注明。
统计是每天进行一次。
#27
sdta2017-01-18 12:00
只有本站会员才能查看附件,请 登录

只有本站会员才能查看附件,请 登录
#28
sdta2017-01-18 12:22
如果有每天的人员名单,就可以一个月统计一次了,不用每天统计了。可以将一年每天的人员信息保存在一个表中。可以减少不必要的重复劳动。估计楼主是每天没事做了,弄了个每天统计的程序。
#29
closeall2017-01-18 12:28
同意28楼的意见,每天出人名单记录表,然后置于是如何变动的,由人员变更记录表合并产生。这样统计会很方便。小技巧:每天记录表加一列,填个数字1,统计时就会非常方便。
#30
tjdeming2017-01-18 18:57
回复 27楼 sdta
谢谢,我用的是WIN10,VFP6.0
运行后出现
只有本站会员才能查看附件,请 登录
#31
sdta2017-01-18 19:22
用VFP9
https://down.bccn.net/3112.html
VFP9可以自动控制表格控件的列宽度。

[此贴子已经被作者于2017-1-18 19:29编辑过]

#32
tjdeming2017-01-18 20:27
回复 31楼 sdta
谢谢,在学习中……
只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录


我取1月1日和31日的数据,1日当日后勤部调入技术部5人进行了测试:
1、平均人数 如果是>0 <1的之间数应调整为1
             如果是>=1的数,取四舍五入。

[此贴子已经被作者于2017-1-18 20:40编辑过]

#33
tjdeming2017-01-18 21:03
回复 28楼 sdta
是不是每天将花名单表按这样形式:HMD20170101,HMD20170102,HMD20170103……保存一下。
#34
金戈铁马22017-01-18 22:02
学习!
#35
sdta2017-01-18 22:06
HMD表中增加一列字段(日期型)
#36
sdta2017-01-18 22:07
以下是引用tjdeming在2017-1-18 20:27:12的发言:

谢谢,在学习中……


我取1月1日和31日的数据,1日当日后勤部调入技术部5人进行了测试:
1、平均人数 如果是>0 <1的之间数应调整为1
             如果是>=1的数,取四舍五入。

根据自己的情况自行调整
#37
tjdeming2017-01-19 22:34

1、如果有每天的人员名单,就可以一个月统计一次了,不用每天统计了。可以将一年每天的人员信息保存在一个表中。可以减少不必要的重复劳动。估计楼主是每天没事做了,弄了个每天统计的程序。
2、HMD表中增加一列字段(日期型)
我很想:不用每天统计 ,一个月统计一次就好了。但不知道如何来做做。
#38
tjdeming2017-01-19 22:34

1、如果有每天的人员名单,就可以一个月统计一次了,不用每天统计了。可以将一年每天的人员信息保存在一个表中。可以减少不必要的重复劳动。估计楼主是每天没事做了,弄了个每天统计的程序。
2、HMD表中增加一列字段(日期型)
我很想:不用每天统计 ,一个月统计一次就好了。但不知道如何来做做。
#39
sdta2017-01-19 22:45
先设计表结构
统计一个月的数据,要用一个循环统计。
什么都要靠别人,技术水平是提不高的。
#40
sdta2017-01-19 22:49
HMD表结构:
日期       姓名 部门代码,学历代码,有这四个字段就可以了
2017.01.01 A
…………   B
2017.01.02 A
…………   B
…………   C
2017.01.31 A
…………   C
…………   D

#41
tjdeming2017-01-19 23:12
我每天追加一次名单,填写好日期,这样就有每天的名单,是吗?
#42
sdta2017-01-19 23:37
是的
#43
sdta2017-01-19 23:42
已经帮你写了三个代码了,如果再不会,那就对不起静老大了。
#44
tjdeming2017-01-22 22:55
回复 43楼 sdta
静老大大:你好!
我作了修改,按月统计。第二个命令按纽中有一句命令不能运行,卡住了,是什么原因能解答吗?
只有本站会员才能查看附件,请 登录
#45
sdta2017-01-23 00:05
错误行:因为月均人数是表中实际存在的字段,所以不能用EVALUATE()。
别的地方用的是变量(ZDM),所以要用EVALUATE()获取变量所代替的字段值。
个人认为:你后加的代码有点画蛇添足的感觉,完全没有必要。不加那两行REPLACE ALL 命令,最后的结果也是你要的。
第二个按钮的原来代码已经基本满足了你的要求。没必要增加代码了。

[此贴子已经被作者于2017-1-23 00:08编辑过]

#46
tjdeming2017-01-24 22:19
   马上要过年了,在这个论坛里,我到很多知识,非常
感谢给予我帮助的人,特别感谢 SDTA先生。
在新春来临之际,祝各位幸福美满,身体健康。
  过年后,继续向各位学习。



[此贴子已经被作者于2017-1-25 05:56编辑过]

#47
tjdeming2017-01-24 22:19
   马上要过年了,在这个论坛里,我到很多知识,非常
感谢给予我帮助的人,特别感谢 SDTA先生。
在新春来临之际,祝各位幸福美满,身体健康。
  过年后,继续向各位学习。



[此贴子已经被作者于2017-1-25 05:57编辑过]

1