如何点击treeview中的姓名在表单上生成WORD格式的个人课表？ - 编程论坛

#2

WSQSZSQ2022-04-19 21:47

为什么要用WORD格式呢，直接做个报表，不是更简单的吗？

#3

WSQSZSQ2022-04-19 21:52

日课表

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2022-4-19 21:58编辑过]

#4

王咸美2022-04-20 10:28

OleControl1的NodeClick代码有点问题：点击 TREEVIEW控件中的姓名不能生成个人任课表，请高手指点，谢谢！！！
*** ActiveX 控件事件 ***
LPARAMETERS node

CLOSE ALL
CLEAR
wjm="f:\temp2\grkbmb.doc"
PUBLIC k,mxm,cxkmc,i,j
WordApp=CREATEOBJECT("Word.application")
WordApp.visible=.t.
USE jsmd20190101 ALIAS jsmd IN 0
USE jsrkb20190101 ALIAS jsrkb IN 0
USE kb20190101 ALIAS rkb IN 0

SELECT jsmd
GOTO top
    mxm=ALLTRIM(node.text) && 这一句有问题，不知如何改。

    WAIT WINDOW '正在生成教师个人任课表...'+ mxm nowait
     WordTable=WordApp.Application.Documents.Open(wjm)
     WordApp.Visible =.t.
     WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&mxm',2)
     SELECT rkb
     SCAN
         cnj=rkb.nj
         cbj=rkb.bj
         FOR i=1 TO 5
          FOR j=1 TO 6
            cxkmc=ALLTRIM(EVALUATE("rkb."+"zhou"+TRANSFORM(i)+TRANSFORM(j)))
            SELECT jsrkb
            SCAN
             FOR k=1 TO FCOUNT('jsrkb')
               IF FIELD(k)=cxkmc AND EVALUATE(FIELD(k))= mxm AND ALLTRIM(nj)=cnj AND ALLTRIM(bj)=cbj
               wordTable.tables.item(1).cell(j+1,i+2).range.text=cnj+cbj+cxkmc
              endif
             ENDFOR
            ENDSCAN
           ENDFOR
          endfor
     ENDSCAN

    WordApp.Documents(1).saveas("F:\"+mxm+"_任程表.doc")
    WordApp.ActiveDocument.close


WORDAPP.quit
WORDAPP=.NULL.
CLOSE ALL
QUIT

#5

wengjl2022-04-20 15:56

看样子王老师的日课表管理软件开发已经成功了

#6

王咸美2022-04-21 07:31

还没有，水平不够！

#7

fyyylyl2022-04-21 08:44

mxm=ALLTRIM(This.Nodes(This.SelectedItem.Key).Text)

#8

王咸美2022-04-21 09:11

OleControl1的NodeClick代码作如下修改,点击 TREEVIEW控件中的姓名可生成个人任课表

*** ActiveX 控件事件 ***

LPARAMETERS node
CLOSE DATABASES

wjm="f:\temp2\grkbmb.doc"
PUBLIC k,mxm,cxkmc,i,j
WordApp=CREATEOBJECT("Word.application")
WordApp.visible=.t.
USE jsmd20190101 ALIAS jsmd IN 0
USE jsrkb20190101 ALIAS jsrkb IN 0
USE kb20190101 ALIAS rkb IN 0

SELECT jsmd
LOCATE FOR ALLTRIM(jsmd.姓名)==ALLTRIM(node.text)
IF FOUND()
    mxm=ALLTRIM(node.text)
    WAIT WINDOW '正在生成教师个人任课表...'+ mxm nowait
    WordTable=WordApp.Application.Documents.Open(wjm)
    WordApp.Visible =.t.
    WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&mxm',2)
    SELECT rkb
    SCAN
        cnj=rkb.nj
        cbj=rkb.bj
        FOR i=1 TO 5
            FOR j=1 TO 6
                cxkmc=ALLTRIM(EVALUATE("rkb."+"zhou"+TRANSFORM(i)+TRANSFORM(j)))
                SELECT jsrkb
                SCAN
                    FOR k=1 TO FCOUNT('jsrkb')
                        IF FIELD(k)=cxkmc AND EVALUATE(FIELD(k))= mxm AND ALLTRIM(nj)=cnj AND ALLTRIM(bj)=cbj
                            wordTable.tables.item(1).cell(j+1,i+2).range.text=cnj+cbj+cxkmc
                        ENDIF
                    ENDFOR
                ENDSCAN
            ENDFOR
        ENDFOR
    ENDSCAN
    WordApp.Documents(1).saveas("F:\temp3\"+mxm+"_任程表.doc")
    WordApp.ActiveDocument.close
endif
WORDAPP.quit
WORDAPP=.NULL.
* CLOSE ALL
* QUIT

#9

fyyylyl2022-04-21 10:52

一、建议将
USE jsmd20190101 ALIAS jsmd IN 0
USE jsrkb20190101 ALIAS jsrkb IN 0
USE kb20190101 ALIAS rkb IN 0
放到表单的Load 事件
二、以下代码放到Tree控件的Click事件中：
IF !ISNULL(This.SelectedItem.Parent)     &&当前节点为教师
        mxm=ALLTRIM(This.Nodes(This.SelectedItem.Key).Text)
    IF MESSAGEBOX("确要生成 "+mxm+" 任课表吗？",4+32+0,"确认：")=6
        wjm="f:\temp2\grkbmb.doc"
        SELECT jsmd
        LOCATE FOR ALLTRIM(jsmd.姓名)==mxm
        IF FOUND()
    *        mxm=ALLTRIM(node.text)
            WAIT WINDOW '正在生成教师个人任课表...'+ mxm nowait
            FileName="F:\temp3\"+mxm+"_任程表.doc"
            COPY FILE (wjm) TO (FileName)
            WordApp=CREATEOBJECT("Word.application")
*            WordApp.Visible =.t.
            WordTable=WordApp.Application.Documents.Open(FileName)
            WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&mxm',2)
            SELECT rkb
            SCAN
                cnj=rkb.nj
                cbj=rkb.bj
                FOR i=1 TO 5
                    FOR j=1 TO 6
                        cxkmc=ALLTRIM(EVALUATE("rkb."+"zhou"+TRANSFORM(i)+TRANSFORM(j)))
                        SELECT jsrkb
                        SCAN
                            FOR k=1 TO FCOUNT('jsrkb')
                                IF FIELD(k)=cxkmc AND EVALUATE(FIELD(k))= mxm AND ALLTRIM(nj)=cnj AND ALLTRIM(bj)=cbj
                                    wordTable.tables.item(1).cell(j+1,i+2).range.text=cnj+cbj+cxkmc
                                ENDIF
                            ENDFOR
                        ENDSCAN
                    ENDFOR
                ENDFOR
            ENDSCAN
               WordApp.Documents(1).saveas(FileName)
            WordApp.ActiveDocument.close
            WAIT WINDOW  mxm+' 任课表成生完成！'
        ENDIF
    ENDIF
ENDIF

#10

王咸美2022-04-21 12:37

如何做到在表单上显示word格式个人任课表？且单击表单上的“打印”按钮即开始打印。望高手指点，万分感谢！！！

#11

王咸美2022-04-21 13:51

@fyyylyl 非常感谢指点！！！受益匪浅。

#12

fyyylyl2022-04-21 15:59

可在保存文档后直接打印：WordApp.ActiveDocument.PrintOut（关闭文档WordApp.ActiveDocument.close前）；
表单中可用Web Browser控件显示——在表单中添加Web Browser控件，命名为OleWeb1，关闭文档后执行：
Thisform.OleWeb1.Navigate(Filename)
Thisform.Refresh

#13

王咸美2022-04-22 08:38

@fyyylyl 加上下列代码出现打开或保存文件对话框，如何取消，请指点，谢谢！
WordApp.ActiveDocument.close
thisform.OleWeb1.Navigate(FileName)
thisform.refresh

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2022-4-22 08:42编辑过]