📄 client_bendi_datamodule.pas

📁 证券公司考试系统,三层架构,从题库自动产生试卷,全部主观题
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12

   If (A_option=True)and(B_option=False)and(C_option=False)and
      (D_option=True)and(E_option=True)and(F_option=False)
    Then Calculate_Key_Value:='100110';{A、D、E}
 //-----------------------------------------------------------------------
   If (A_option=True)and(B_option=False)and(C_option=False)and
      (D_option=True)and(E_option=False)and(F_option=True)
    Then Calculate_Key_Value:='100101';{A、D、F}

   If (A_option=True)and(B_option=False)and(C_option=False)and
      (D_option=False)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='100011';{A、E、F}

   If (A_option=False)and(B_option=True)and(C_option=True)and
      (D_option=True)and(E_option=False)and(F_option=False)
    Then Calculate_Key_Value:='011100';{B、C、D}

   If (A_option=False)and(B_option=True)and(C_option=True)and
      (D_option=False)and(E_option=True)and(F_option=False)
    Then Calculate_Key_Value:='011010';{B、C、E}

   If (A_option=False)and(B_option=True)and(C_option=True)and
      (D_option=False)and(E_option=False)and(F_option=True)
    Then Calculate_Key_Value:='011001';{B、C、F}

   If (A_option=False)and(B_option=True)and(C_option=False)and
      (D_option=True)and(E_option=True)and(F_option=False)
    Then Calculate_Key_Value:='010110';{B、D、E}

   If (A_option=False)and(B_option=True)and(C_option=False)and
      (D_option=True)and(E_option=False)and(F_option=True)
    Then Calculate_Key_Value:='010101';{B、D、F}

   If (A_option=False)and(B_option=True)and(C_option=False)and
      (D_option=False)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='010011';{B、E、F}

   If (A_option=False)and(B_option=False)and(C_option=True)and
      (D_option=True)and(E_option=True)and(F_option=False)
    Then Calculate_Key_Value:='001110';{C、D、E}

   If (A_option=False)and(B_option=False)and(C_option=True)and
      (D_option=True)and(E_option=False)and(F_option=True)
    Then Calculate_Key_Value:='001101';{C、D、F}

   If (A_option=False)and(B_option=False)and(C_option=True)and
      (D_option=False)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='001011';{C、E、F}

   If (A_option=False)and(B_option=False)and(C_option=False)and
      (D_option=True)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='000111';{D、E、F}

{---------------------------选三个答案的分值情况-----------------------------------}

{---------------------------选四个答案的分值情况-----------------------------------}

   If (A_option=False)and(B_option=False)and(C_option=True)and
      (D_option=True)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='001111'; {C、D、E、F}

   If (A_option=False)and(B_option=True)and(C_option=False)and
      (D_option=True)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='010111'; {B、D、E、F}

   If (A_option=False)and(B_option=True)and(C_option=True)and
      (D_option=False)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='011011'; {B、C、E、F}

   If (A_option=False)and(B_option=True)and(C_option=True)and
      (D_option=True)and(E_option=False)and(F_option=True)
    Then Calculate_Key_Value:='011101';{B、C、D、F}

   If (A_option=False)and(B_option=True)and(C_option=True)and
      (D_option=True)and(E_option=True)and(F_option=False)
    Then Calculate_Key_Value:='011110';{B、C、D、E}

   If (A_option=False)and(B_option=True)and(C_option=True)and
      (D_option=False)and(E_option=False)and(F_option=False)
    Then Calculate_Key_Value:='100111'; {A、D、E、F}

   If (A_option=True)and(B_option=False)and(C_option=True)and
      (D_option=False)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='101011';{A、C、E、F}

   If (A_option=True)and(B_option=False)and(C_option=True)and
      (D_option=True)and(E_option=False)and(F_option=True)
    Then Calculate_Key_Value:='101101';{A、C、D、F}

   If (A_option=True)and(B_option=False)and(C_option=True)and
      (D_option=True)and(E_option=True)and(F_option=False)
    Then Calculate_Key_Value:='101110';{A、C、D、E}

   If (A_option=True)and(B_option=True)and(C_option=False)and
      (D_option=False)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='110011';{A、B、E、F}

   If (A_option=True)and(B_option=True)and(C_option=False)and
      (D_option=True)and(E_option=False)and(F_option=True)
    Then Calculate_Key_Value:='110101';{A、B、D、F}

   If (A_option=True)and(B_option=True)and(C_option=False)and
      (D_option=True)and(E_option=True)and(F_option=False)
    Then Calculate_Key_Value:='110110';{A、B、D、E}

   If (A_option=True)and(B_option=True)and(C_option=True)and
      (D_option=False)and(E_option=False)and(F_option=True)
    Then Calculate_Key_Value:='111001';{A、B、C、F}

   If (A_option=True)and(B_option=True)and(C_option=True)and
      (D_option=False)and(E_option=True)and(F_option=False)
    Then Calculate_Key_Value:='111010';{A、B、C、E}

   If (A_option=True)and(B_option=True)and(C_option=True)and
      (D_option=True)and(E_option=False)and(F_option=False)
    Then Calculate_Key_Value:='111100';{A、B、C、D}

{---------------------------选四个答案的分值情况-----------------------------------}


{---------------------------选五个答案的分值情况-----------------------------------}

   If (A_option=False)and(B_option=True)and(C_option=True)and
      (D_option=True)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='011111'; {B、C、D、E、F}

   If (A_option=True)and(B_option=False)and(C_option=True)and
      (D_option=True)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='101111'; {A、C、D、E、F}

   If (A_option=True)and(B_option=True)and(C_option=False)and
      (D_option=True)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='110111'; {A、B、D、E、F}

   If (A_option=True)and(B_option=True)and(C_option=True)and
      (D_option=False)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='111011'; {A、B、C、E、F}

   If (A_option=True)and(B_option=True)and(C_option=True)and
      (D_option=True)and(E_option=False)and(F_option=True)
    Then Calculate_Key_Value:='111101';{A、B、C、D、F}

   If (A_option=True)and(B_option=True)and(C_option=True)and
      (D_option=True)and(E_option=True)and(F_option=False)
    Then Calculate_Key_Value:='111110';{A、B、C、D、E}

{---------------------------选五个答案的分值情况-----------------------------------}

{---------------------------选六个答案的分值情况-----------------------------------}

   If (A_option=True)and(B_option=True)and(C_option=True)and
      (D_option=True)and(E_option=True)and(F_option=True)
    Then Calculate_Key_Value:='111111';{A、B、C、D、E、F}

{---------------------------选六个答案的分值情况-----------------------------------}

end;

procedure TClient_DataModule.DuoXuan_Subject_TableAfterScroll(
  DataSet: TDataSet);
begin
//-----------对于超过4个选项的题目，显示其余的选项，否则不显示出来-------------
  with DuoXiang_Frm do
   begin
    if E_option.Caption='' then E_Select.Enabled:=false
                           else E_Select.Enabled:=true;
    if F_option.Caption='' then F_Select.Enabled:=false
                           else F_Select.Enabled:=true;
   end;
//-----------对于超过4个选项的题目，显示其余的选项，否则不显示出来-------------

  DuoXiang_Frm.Focused_Image.Visible:=True;
end;

procedure TClient_DataModule.DanXuan_Subject_TableBeforePost(
  DataSet: TDataSet);
begin
 DanXiang_Frm.A_Select.Enabled:=False;
 DanXiang_Frm.B_Select.Enabled:=False;
 DanXiang_Frm.C_Select.Enabled:=False;
 DanXiang_Frm.D_Select.Enabled:=False;
end;

procedure TClient_DataModule.DanXuan_Subject_TableAfterPost(
  DataSet: TDataSet);
begin
 DanXiang_Frm.A_Select.Enabled:=True;
 DanXiang_Frm.B_Select.Enabled:=True;
 DanXiang_Frm.C_Select.Enabled:=True;
 DanXiang_Frm.D_Select.Enabled:=True;
end;

procedure TClient_DataModule.DanXuan_Subject_TableAfterScroll(
  DataSet: TDataSet);
begin
  DanXiang_Frm.Focused_Image.Visible:=True;
end;

procedure TClient_DataModule.DanXuan_Subject_TableBeforeScroll(
  DataSet: TDataSet);
begin
 If Not DataSet.Eof then
 DanXiang_Frm.Focused_Image.Visible:=False;  
end;

procedure TClient_DataModule.DuoXuan_Subject_TableBeforePost(
  DataSet: TDataSet);
begin
   DuoXiang_Frm.Focused_Image.Visible:=False;
end;

procedure TClient_DataModule.PanDuan_Subject_TableAfterScroll(
  DataSet: TDataSet);
begin
  PanDuan_Frm.Focused_Image.Visible:=True;
end;

procedure TClient_DataModule.PanDuan_Subject_TableBeforeScroll(
  DataSet: TDataSet);
begin
    PanDuan_Frm.Focused_Image.Visible:=False;
end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -