社区
数据库相关
帖子详情
能给点提示吗?
Cosplayboy
2006-11-14 04:13:24
我打算做一个计算机模拟练习系统,最好是单机版。里面有判断题,Word题,Excel题还有PowerPoint题,做完之后可以马上阅卷出分数,但是没有什么头绪?能否给个设计思路!最好能具体点!或者有没有参考资料!我的Emai:cookies_mx@163.com
...全文
266
11
打赏
收藏
能给点提示吗?
我打算做一个计算机模拟练习系统,最好是单机版。里面有判断题,Word题,Excel题还有PowerPoint题,做完之后可以马上阅卷出分数,但是没有什么头绪?能否给个设计思路!最好能具体点!或者有没有参考资料!我的Emai:cookies_mx@163.com
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zsj223
2006-11-20
打赏
举报
回复
up
HsWong
2006-11-15
打赏
举报
回复
抱歉 代码不能给你 卖钱了!!!
呵呵
liliang800207
2006-11-15
打赏
举报
回复
抱歉 代码不能给你 卖钱了!!!
liliang800207
2006-11-15
打赏
举报
回复
Word题目 主要是判断里面的宏命令
Excel题目 主要是判断里面的宏命令 和 个别cell的值
宏命令可以参考microsoft出的书 具体叫什么忘了 写得挺细的
以前做过一部分word的判分
刚做完VFP的判分 还不知道行不行
gogogo
2006-11-15
打赏
举报
回复
word界面完全可以是假的,只要考生看着像真的word就行了。
gogogo
2006-11-15
打赏
举报
回复
你有没有用过计算机考试系统?
用过的话,照着做就行了。
给点提示,不管什么题目,不是文本就是图片,具体内容评分根据自己的系统来,word题目不是非要使用word的,或者非要有word的机器才能考,如果你的考试系统要求目标机很多软件,那时不是目标机都要安装很多软件,这样反而不是好的考试系统,难道你考word2000,我机器上装了word2003就不能考了?
提示下我看到的word题目,word界面与菜单全部是图片,如果要求用户点击‘新建’,就在‘新建’菜单上加个image或者什么控件,但是内部不要用图片,然后接受image的click,就表示用户点击了‘新建’,其他的控件也行,关键是不影响显示和能接受事件。
ganwendong
2006-11-15
打赏
举报
回复
你是要流程还是要关键技术啊?怎么回答的都是技术~
happyggy
2006-11-15
打赏
举报
回复
word,excel网上的例子特别多,
就是用宏录制下你的操作,看它的属性,
在delphi里都是可以用的
happyggy
2006-11-15
打赏
举报
回复
下面是ppt的一点属性
var
//pptappl: OleVariant;
//pptpres: OleVariant;
//vbool: Boolean;
pstr: OleVariant;
i: integer;
//src: OleVariant;
begin
try
pptappl:=CreateOleObject('powerpoint.application');
except
MessageDlg('没有正确安装Office软件!',mtError,[mbok],0);
Exit;
end;
pptappl.Visible:= true;
//幻灯片版本
//ShowMessage(Format('Powerpoint version: %s',[pptappl.Version]));
pptappl.Presentations.Open('D:\test.ppt', False, False, True);
//页面大小
//ShowMessage(Format('大小:%s',[pptappl.ActivePresentation.PageSetup.SlideSize]));
//ShowMessage(PPTSize);
//幻灯片起始值
//ShowMessage(Format('%s',[pptappl.ActivePresentation.PageSetup.FirstSlideNumber]));
//ShowMessage(PPTFirstSlideNumber);
//方向
//ShowMessage(Format('方向:%s',[pptappl.ActivePresentation.PageSetup.SlideOrientation]));
//ShowMessage(PPTSlideOrientation);
//时间和日期
//vbool:= pptappl.ActivePresentation.Slides.Range(1).HeadersFooters.DateAndTime.UseFormat;
//if not vbool then
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.Range(1).HeadersFooters.DateAndTime.text]))
//else
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.Range(1).HeadersFooters.DateAndTime.Format]));
//幻灯片编号
//vbool:= pptappl.ActivePresentation.Slides.Range(1).HeadersFooters.SlideNumber.Visible;
//if vbool then
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.Range(1).HeadersFooters.SlideNumber.Visible]));
//页脚
//vbool:= pptappl.ActivePresentation.Slides.Range(1).HeadersFooters.Footer.visible;
//if vbool then
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.Range(1).HeadersFooters.Footer.Text]));
//标题幻灯片中不显示
//vbool:= pptappl.ActivePresentation.SlideMaster.HeadersFooters.DisplayOnTitleSlide;
//if vbool then
//ShowMessage('aaa');
///
//幻灯片数
//ShowMessage(Format('幻灯片数:%s',[pptappl.ActivePresentation.Slides.Count]));
//pptappl.activep
//放映类型(演讲者=1,观众=2,展台=3)
//showmessage(format('放映类型:%s',[pptappl.ActivePresentation.SlideShowSettings.showtype]));
//切换效果
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.Range(1).SlideShowTransition.EntryEffect]));
//幻灯片切换速度
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.Range(1).SlideShowTransition.speed]));
//循环是按Esc退出
//vbool:= pptappl.ActivePresentation.SlideShowSettings.LoopUntilStopped;
//if vbool then
// ShowMessage(format('循环是按Esc退出:%s',[pptappl.ActivePresentation.SlideShowSettings.LoopUntilStopped]));
//换片方式(人工=1,排列时间=2)
//ShowMessage(Format('换片方式:%s',[pptappl.ActivePresentation.SlideShowSettings.AdvanceMode]));
//放映时旁白(有=-1,无=0)
//vbool:=pptappl.ActivePresentation.SlideShowSettings.ShowWithNarration;
//if vbool then
// ShowMessage(Format('放映时旁白:%s',[pptappl.ActivePresentation.SlideShowSettings.ShowWithNarration]));
//放映时动画(有=-1,无=0)
//vbool:= pptappl.ActivePresentation.SlideShowSettings.ShowWithAnimation;
//if vbool then
// ShowMessage(Format('放映时动画:%s',[pptappl.ActivePresentation.SlideShowSettings.ShowWithAnimation]));
// 放映范围
//ShowMessage(Format('放映范围:%s',[pptappl.ActivePresentation.SlideShowSettings.RangeType]));
//ShowMessage(Format('%s',[pptappl.ActivePresentation.SlideShowSettings.StartingSlide]));
//ShowMessage(Format('%s',[pptappl.ActivePresentation.SlideShowSettings.EndingSlide]));
//绘图笔颜色
//ShowMessage(Format('%s',[pptappl.ActivePresentation.SlideShowSettings.PointerColor.SchemeColor]));
//设计模版
//pstr:= pptappl.ActivePresentation.TemplateName;
//ShowMessage(pstr);
//幻灯片版式
//pstr:= pptappl.ActivePresentation.slides.range(6).layout;
//ShowMessage(pstr);
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.Range(2).Layout]));
//背景预设颜色
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.range(6).Background.Fill.PresetGradientType]));
//底纹式样
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.range(6).Background.Fill.GradientStyle]));
//背景纹理
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.range(3).Background.Fill.PresetTexture]));
//背景图案 Pattern
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.range(3).Background.Fill.Pattern]));
//背景图片 TextureName //Fill.type.LinkFormat.SourceFullName
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.range(3).Background.fill.fillformat.application]));
// LinkFormat.SourceFullName
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.range(1).shapes.item(4).oleformat.application.name]));
//第一张幻灯片有多少形状
//if pptappl.ActivePresentation.Slides.range(1).shapes.count>0 then
// ShowMessage(IntToStr(pptappl.ActivePresentation.Slides.range(1).shapes.count));
for i:=1 to pptappl.ActivePresentation.Slides.range(1).shapes.count do
begin
//第一张幻灯片形状是否是文本框
if pptappl.ActivePresentation.Slides.range(1).shapes.item(i).HasTextFrame then
begin
//显示文本框里的文本
showmessage(pptappl.ActivePresentation.Slides.range(1).shapes.item(i).TextFrame.TextRange.Text);
//文本字体
pstr:= pptappl.ActivePresentation.Slides.range(1).shapes.item(i).TextFrame.TextRange.font.NameFarEast;
ShowMessage(pstr);
//文本大小
ShowMessage(IntToStr(pptappl.ActivePresentation.Slides.range(1).shapes.item(i).TextFrame.TextRange.font.size));
//文本颜色
ShowMessage(pptappl.ActivePresentation.Slides.range(1).shapes.item(i).TextFrame.TextRange.font.Color.rgb);
end
else
ShowMessage('不是文本框!');
end;
//返回指定的 OLE 对象的程序标识符 (ProgID)。
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.range(2).shapes.item(3).oleformat.ProgID]));
//返回图表类型
//ShowMessage(format('%s',[pptappl.ActivePresentation.Slides.range(2).shapes.item(3).oleformat.object.ChartType]));
//返回图表数值轴的标题
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.range(2).shapes.item(3).oleformat.object.Axes(xlValue).AxisTitle.text]));
//
//ShowMessage(Format('%s',[pptappl.ActivePresentation.Slides.range(2).shapes.item(3).oleformat.object.Axes(xlValue).AxisTitle.text]));
Exit;
pptappl.Quit;
pptappl := UnAssigned;
end;
CloneCenter
2006-11-14
打赏
举报
回复
判断题比较简单,表里面存储题目和答案。
Word题目和Excel题目就不好搞了。
liangpei2008
2006-11-14
打赏
举报
回复
关键在数据库设计上!
MySQL给表起别名,但是用别名
点
不出任何
提示
?
MySQL给表起别名,但是用别名
点
不出任何
提示
? 1.如下图
提示
用.不会
提示
2.但是当你加入 INNER JOIN 时 在用就有
提示
了,也就是用1999规范格式就可以了,用1992规范格式就不行。
C++真的能兼容C吗?
今天看到了网上说C是C++的子集,C++可以兼容C,这是真的吗? 要弄明白这个问题,首先,先简单介绍一下这两个语言 ...以据以上介绍,C++确实是从C改进而来,但是,它真的能和C兼容吗?也就是网上说的
公众号知道我浏览他吗_浏览微信公众号会有记录吗?我们应该如何寻找记录?公众号浏览记录怎么查看?...
1 个人微信被浏览记录目前不会显示,或不会公布给个人 2 微信你公众号的话,在管理后台可以看到合计的浏览,收藏转发数据,但是不会显示被那些账号做的这些操作 微信有很多的功能,包括基本的微信朋友圈,语音提醒...
功能测试
点
有哪些?怎么做好软件功能测试?
比如一款手游产品,用户在
点
击每个功能按钮时是否能正常执行,业务逻辑是否准确,字符是否能正常输入都是需要进行测试的功能测试
点
。在软件测试过程中,提取测试
点
是后续工作进展的必经步骤,那么常见的功能测试
点
有...
robotframework:获取
提示
信息内容。
我
点
保存按钮,会给出
提示
信息“名称不能为空”,而且
提示
信息3秒后消失,我在robotframework中如何拿到这个
提示
信息?整整研究了5个小时,吐血,整理一下。 1.定位问题。 这个
提示
信息用普通方法无法定位,定位...
数据库相关
2,495
社区成员
88,444
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章