这个试卷数据库结构如何设计

Question

试卷数据库结构
1文件名
2文件描述信息（试卷信息说明）
  1）#1     1#
  2）#2     2#
  3）#3     3#
  4）#4     4#
  5）#5     5#
3文件版本（ver:1.000a）
4结束

Answer 1

试卷式结构：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1）A35(35道选择题)
结构：
  题号 题目 选择项A 选择项B 选择项C 选择项D 选择项A 答案 套题
2) B15(15道判断题)
结构：
  题号 题目 选择项A 选择项B 答案 套题
3）C20(20道填空题)
结构：
  题号 题目 答案 套题
4）D10(10道问答题)

Answer 2

1）A35(35道选择题)
结构：
  A35.题号 A35.题目 A35.选择项A A35.选择项BA35. 选择项C A35.选择项D A35.选择项A A35.答案 套题
2) B15(15道判断题)
结构：
  B15.题号 B15.题目 B15.选择项A B15.选择项B B15.答案 套题
3）C20(20道填空题)
结构：
  C20.题号 C20.题目 C20.答案 C20.套题
4）D10(10道问答题)
结构：
  D10.题号 D10.题目 D10.答案 D10.套题
总结构TestABCD

Answer 3

  TExamType=(Choose,Judge,Fill);  {枚举题目类型}
  TPaperType=(A,B);               {枚举套题}
  TExam=record
    SN:Integer;                    {题目号}
    Subject:string;                {题目}
    AnswerOption:array of string;  {选项}
    RightAnser:string;             {正确答案}
    ExamType:TExamType             {题目类型}
    PaperType:TPaperType;          {套题}
这样行不？

Answer 4

type
  TExamType = (Choose, Judge, Fill);
  TPaperType = (A, B);
  TExam = record
    SN: Integer; {题目号}
    Subject: string; {题目}
    AnswerOption: array of string; {选项}
    RightAnwser: string; {正确答案}
    ExamType: TExamType; {题目类型}
    PaperType: TPaperType; {套题}
  end;{用法：}
var
  ExamInfo: TExam;
begin
  with ExamInfo do
  begin
    SN := 0001;
    Subject := 'Exam0001';
    SetLength(AnswerOption, 2);
    AnswerOption[0] := 'A:Option01';
    AnswerOption[1] := 'B:Option02';
    RightAnwser := 'A';
    ExamType := Choose;
    PaperType := B;  
  end;

Answer 5

    PaperType: TPaperType; {套题}
这行代码有错误呀
[错误] Unit1.pas(16): Invalid compiler directive: 'PaperType'

Answer 6

你代码copy都copy不对，上面老兄的代码完全可以执行

Answer 7

我知道什么原因，不是这个原因，我打开了
三个DELPHI，我全部关闭了，只打开一个DELPHI就好，也谢谢您的赐教

Answer 8

TPaperType=(A,B);               {枚举套题}
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
PaperType := B;  
我想得到 edit1的test 信息，就是根据定义来选择套题
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
PaperType :=edit5.Text;  
出错信息如下：
[错误] Unit1.pas(111): Incompatible types: 'TPaperType' and 'TCaption'

Answer 9

读取块#１　１#内为题库
１表示为：选择题，２表示为：多选题，３表示判断题，４表示填空题，５表示问答题
#1
1.1+1=____
 A.1
 B.2
 C.3
 D.4
2.2*3=___
 A.2
 B.3
 C.5
 D.6
#1

Answer 10

{引用Unit}
uses 
  TypeInfo;{用法: TExamType = (Choose, Judge, Fill);}
{TExamType对应的Index（默认情况）: 0,1,2}
  for Index:=0 to 2 do
   ShowMessage(GetEnumName(TypeInfo(TExamType),1)); //Judge 

Answer 11

试卷式结构：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1）A35(35道选择题)
结构：
  题号 题目 选择项A 选择项B 选择项C 选择项D 选择项A 答案 套题
2) B15(15道判断题)
结构：
  题号 题目 选择项A 选择项B 答案 套题
///////////////////////////////////////////////////
内可能有图片的显示》》》》》》》》》