📄 cs_test.pas

📁 学员管理的软件
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
    with main.DataModule2 do
    begin
    cur_stid:=aq1.FieldValues['题号'];


    label7.Caption:=inttostr(cur_stid);


    ques.Text:=aq1.FieldValues['题目'];
    tempstr:=aq1.FieldValues['name'];
    label6.Caption:='当前题型：'+tempstr;
    cur_tx:=tempstr;
     if ((tempstr='单选题')or(tempstr='多选题')or(tempstr='判断题')) then
     begin
        if(tempstr='单选题') then
        begin
         sim_sel.Visible:=true;
        multi_sel.Visible:=false;
        sim_sel.Items.Clear;
         sim_sel.Items.Add(aq1.FieldValues['选项1']);
         sim_sel.Items.Add(aq1.FieldValues['选项2']);
         sim_sel.Items.Add(aq1.FieldValues['选项3']);
         sim_sel.Items.Add(aq1.FieldValues['选项4']);
         end;
        if(tempstr='多选题') then
        begin
        sim_sel.Visible:=false;
        multi_sel.Visible:=true;
         multi_sel.Items.Clear;
        multi_sel.Items.Add(aq1.FieldValues['选项1']);
        multi_sel.Items.Add(aq1.FieldValues['选项2']);
        multi_sel.Items.Add(aq1.FieldValues['选项3']);
         multi_sel.Items.Add(aq1.FieldValues['选项4']);
         end;
        if(tempstr='判断题') then
         begin
         sim_sel.Visible:=false;
         multi_sel.Visible:=true;
         multi_sel.Items.Clear;
        multi_sel.Items.Add(aq1.FieldValues['选项1']);
         multi_sel.Items.Add(aq1.FieldValues['选项2'])
         end
        end
        else
        begin
         sim_sel.Visible:=false;
        multi_sel.Visible:=false;
         end;
 photostr:=aq1.FieldValues['图片'];
if ((not fileexists(photostr)) and (photostr<>'')) then
begin
messagebox(handle,'加载题目所需图片时出错','错误信息',MB_OK);
exit
end
else
image1.Picture.LoadFromFile(photostr);

     end;
 end;
end;

procedure Ttest.Button2Click(Sender: TObject);
var tempstr,photostr:string;
begin
    ans.Text:='';
    main.DataModule2.AQ1.Next;
    if main.DataModule2.AQ1.Eof  then button2.Enabled:=false;
    main.DataModule2.AQ1.Prior;

if ((main.DataModule2.AQ1.FindNext)and(not main.DataModule2.AQ1.Eof)) then
    begin
    button1.Enabled:=true;
    with main.DataModule2 do
    begin
    cur_stid:=aq1.FieldValues['题号'];
    label7.Caption:=inttostr(cur_stid);
    ques.Text:=aq1.FieldValues['题目'];
    tempstr:=aq1.FieldValues['name'];
    label6.Caption:='当前题型：'+tempstr;
    cur_tx:=tempstr;
     if ((tempstr='单选题')or(tempstr='多选题')or(tempstr='判断题')) then
     begin
        if(tempstr='单选题') then
        begin
         sim_sel.Visible:=true;
        multi_sel.Visible:=false;
        sim_sel.Items.Clear;
         sim_sel.Items.Add(aq1.FieldValues['选项1']);
         sim_sel.Items.Add(aq1.FieldValues['选项2']);
         sim_sel.Items.Add(aq1.FieldValues['选项3']);
         sim_sel.Items.Add(aq1.FieldValues['选项4']);
         end;
        if(tempstr='多选题') then
        begin
        sim_sel.Visible:=false;
        multi_sel.Visible:=true;
         multi_sel.Items.Clear;
        multi_sel.Items.Add(aq1.FieldValues['选项1']);
        multi_sel.Items.Add(aq1.FieldValues['选项2']);
        multi_sel.Items.Add(aq1.FieldValues['选项3']);
         multi_sel.Items.Add(aq1.FieldValues['选项4']);
         end;
        if(tempstr='判断题') then
         begin
         sim_sel.Visible:=false;
         multi_sel.Visible:=true;
         multi_sel.Items.Clear;
        multi_sel.Items.Add(aq1.FieldValues['选项1']);
         multi_sel.Items.Add(aq1.FieldValues['选项2'])
         end
        end
        else
        begin
         sim_sel.Visible:=false;
        multi_sel.Visible:=false;
         end;
              photostr:=aq1.FieldValues['图片'];
if ((not fileexists(photostr)) and (photostr<>'')) then
begin
messagebox(handle,'加载题目所需图片时出错','错误信息',MB_OK);
exit
end
else
image1.Picture.LoadFromFile(photostr);
end;
end;
//else
//button2.Enabled:=false;
end;

procedure Ttest.Button6Click(Sender: TObject);
var tempstr,photostr:string;
begin
ans.Text:='';
button2.Enabled:=false;
button1.Enabled:=true;
if (main.DataModule2.AQ1.FindLast) then
 begin
    main.DataModule2.AQ1.Last;
    with main.DataModule2 do
    begin
    cur_stid:=aq1.FieldValues['题号'];


    label7.Caption:=inttostr(cur_stid);

    ques.Text:=aq1.FieldValues['题目'];
    tempstr:=aq1.FieldValues['name'];
    label6.Caption:='当前题型：'+tempstr;
    cur_tx:=tempstr;
     if ((tempstr='单选题')or(tempstr='多选题')or(tempstr='判断题')) then
     begin
        if(tempstr='单选题') then
        begin
         sim_sel.Visible:=true;
        multi_sel.Visible:=false;
        sim_sel.Items.Clear;
         sim_sel.Items.Add(aq1.FieldValues['选项1']);
         sim_sel.Items.Add(aq1.FieldValues['选项2']);
         sim_sel.Items.Add(aq1.FieldValues['选项3']);
         sim_sel.Items.Add(aq1.FieldValues['选项4']);
         end;
        if(tempstr='多选题') then
        begin
        sim_sel.Visible:=false;
        multi_sel.Visible:=true;
         multi_sel.Items.Clear;
        multi_sel.Items.Add(aq1.FieldValues['选项1']);
        multi_sel.Items.Add(aq1.FieldValues['选项2']);
        multi_sel.Items.Add(aq1.FieldValues['选项3']);
         multi_sel.Items.Add(aq1.FieldValues['选项4']);
         end;
        if(tempstr='判断题') then
         begin
         sim_sel.Visible:=false;
         multi_sel.Visible:=true;
         multi_sel.Items.Clear;
        multi_sel.Items.Add(aq1.FieldValues['选项1']);
         multi_sel.Items.Add(aq1.FieldValues['选项2'])
         end
        end
        else
        begin
         sim_sel.Visible:=false;
        multi_sel.Visible:=false;
         end;
          photostr:=aq1.FieldValues['图片'];
if ((not fileexists(photostr)) and (photostr<>'')) then
begin
messagebox(handle,'加载题目所需图片时出错','错误信息',MB_OK);
exit
end
else
image1.Picture.LoadFromFile(photostr);

     end;

end;
end;

procedure Ttest.Button7Click(Sender: TObject);
var tempstr,photostr:string;
begin
ans.Text:='';
main.DataModule2.AQ1.MoveBy(strtoint(edit1.Text));
    with main.DataModule2 do
    begin
            cur_stid:=aq1.FieldValues['题号'];

            label7.Caption:=inttostr(cur_stid);

            ques.Text:=aq1.FieldValues['题目'];
            tempstr:=aq1.FieldValues['name'];
            label6.Caption:='当前题型：'+tempstr;
            cur_tx:=tempstr;
     if ((tempstr='单选题')or(tempstr='多选题')or(tempstr='判断题')) then
     begin
        if(tempstr='单选题') then
        begin
         sim_sel.Visible:=true;
        multi_sel.Visible:=false;
        sim_sel.Items.Clear;
         sim_sel.Items.Add(aq1.FieldValues['选项1']);
         sim_sel.Items.Add(aq1.FieldValues['选项2']);
         sim_sel.Items.Add(aq1.FieldValues['选项3']);
         sim_sel.Items.Add(aq1.FieldValues['选项4']);
         end;
        if(tempstr='多选题') then
        begin
        sim_sel.Visible:=false;
        multi_sel.Visible:=true;
         multi_sel.Items.Clear;
        multi_sel.Items.Add(aq1.FieldValues['选项1']);
        multi_sel.Items.Add(aq1.FieldValues['选项2']);
        multi_sel.Items.Add(aq1.FieldValues['选项3']);
         multi_sel.Items.Add(aq1.FieldValues['选项4']);
         end;
        if(tempstr='判断题') then
         begin
         sim_sel.Visible:=false;
         multi_sel.Visible:=true;
         multi_sel.Items.Clear;
        multi_sel.Items.Add(aq1.FieldValues['选项1']);
         multi_sel.Items.Add(aq1.FieldValues['选项2'])
         end
        end
        else
        begin
         sim_sel.Visible:=false;
        multi_sel.Visible:=false;
         end;
              photostr:=aq1.FieldValues['图片'];
if ((not fileexists(photostr)) and (photostr<>'')) then
begin
messagebox(handle,'加载题目所需图片时出错','错误信息',MB_OK);
exit
end
else
image1.Picture.LoadFromFile(photostr);
end;




end;

procedure Ttest.Button3Click(Sender: TObject);
begin
  if MessageDlg('你真的要结束考试么？'+#13+#10+'一旦关闭了此窗口，等于交卷了！'+#13+#10+'真的结束么？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
  begin
     submain.Form1.Show;
     close;
  end;
end;

procedure Ttest.BitBtn1Click(Sender: TObject);
begin
auto_mf:=not auto_mf;
mediaplayer1.FileName:=extractfilepath(application.ExeName)+'back_sound\my.wav';
if auto_mf then
begin
bitbtn1.Caption:='停止播放';
mediaplayer1.Open;
mediaplayer1.Play
end
else
begin
bitbtn1.Caption:='重新播放';
mediaplayer1.Open;
mediaplayer1.Stop;
end;
end;

procedure Ttest.multi_selClick(Sender: TObject);
var s:string;
begin
if cur_tx='多选题' then
begin
s:='';
if multi_sel.Checked[0]=true then s:=s+'A';
if multi_sel.Checked[1]=true then s:=s+'B';
if multi_sel.Checked[2]=true then s:=s+'C';
if multi_sel.Checked[3]=true then s:=s+'D';
ans.Text:=s;
timer1.Enabled:=false;
insert_ans;
timer1.Enabled:=true;
end
else
begin
if multi_sel.Checked[0]=true then s:='对'
else
s:='错';
ans.Text:=s;
timer1.Enabled:=false;
insert_ans;
timer1.Enabled:=true;
end;
end;

procedure Ttest.sim_selClick(Sender: TObject);
var s:string;
begin
if sim_sel.ItemIndex=0 then begin s:='A';ans.Text:=s;end;
if sim_sel.ItemIndex=1 then begin s:='B';ans.Text:=s;end;
if sim_sel.ItemIndex=2 then begin s:='C';ans.Text:=s;end;
if sim_sel.ItemIndex=3 then begin s:='D';ans.Text:=s;end;
timer1.Enabled:=false;
insert_ans;
timer1.Enabled:=true;
end;

procedure Ttest.N1Click(Sender: TObject);
begin
insert_ans;
end;

procedure Ttest.N2Click(Sender: TObject);
begin
if colordialog1.Execute then
ans.Color:=colordialog1.Color;
end;

procedure Ttest.BitBtn2Click(Sender: TObject);
begin
P_ks_check.Form6.ShowModal;
end;

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

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