📄 unit2.pas
字号:
label13.Caption:=q1.Fields[0].AsString+' ';
label9.Caption:='('+q1.Fields[3].AsString+'分）';
timu.Caption:=q1.Fields[4].AsString+' ';
a.Caption :=q1.Fields[5].AsString+' ';
b.Caption:=q1.Fields[6].asstring+' ';
c.Caption:=q1.Fields[7].asstring+' ';
d.Caption:=q1.Fields[8].AsString+' ';
e.Caption:=q1.Fields[9].asstring+' ';
f.Caption:=q1.Fields[10].AsString+' ';
shichuo.Caption:=q1.Fields[1].AsString+' ';
tixing.Caption:=q1.Fields[2].AsString;
end
//--------------将单选题显示在Label上--------------------------
else
begin
r1.Visible:=false;
r2.Visible:=false;
r3.Visible:=false;
r4.Visible:=false;
r5.Visible :=false;
r6.Visible:=false;
c1.Visible:=true;
c2.Visible:=true;
c3.Visible:=true;
c4.Visible:=true;
c5.Visible:=true;
c6.Visible:=true;
tihao.Caption:=q1.Fields[0].AsString+'.';
label13.Caption:=q1.Fields[0].AsString+' ';
label9.Caption:='('+q1.Fields[3].AsString+'分）';
timu.Caption:=q1.Fields[4].AsString+' ';
a.Caption :=q1.Fields[5].AsString+' ';
b.Caption:=q1.Fields[6].asstring+' ';
c.Caption:=q1.Fields[7].asstring+' ';
d.Caption:=q1.Fields[8].AsString+' ';
e.Caption:=q1.Fields[9].asstring+' ';
f.Caption:=q1.Fields[10].AsString+' ';
shichuo.Caption:=q1.Fields[1].AsString+' ';
tixing.Caption:=q1.Fields[2].AsString;
end;
end;
end;
procedure TForm2.SpeedButton6Click(Sender: TObject);
var
num:integer;
begin
q1.Close;
q1.SQL.Clear;
q1.SQL.Add('select * from temp ');
q1.Open;
num:=q1.RecordCount;
if lb.Items.Strings[lb.ItemIndex]=inttostr(num) then
begin
if q1.Fields[2].AsString ='单选题' then
begin
c1.Visible:=false;
c2.Visible:=false;
c3.Visible:=false;
c4.Visible:=false;
c5.Visible :=false;
c6.Visible:=false;
r1.Visible:=true;
r2.Visible:=true;
r3.Visible:=true;
r4.Visible:=true;
r5.Visible:=true;
r6.Visible:=true;
tihao.Caption:=q1.Fields[0].AsString+'.';
label13.Caption:=q1.Fields[0].AsString;
label9.Caption:='('+q1.Fields[3].AsString+'分）';
timu.Caption:=q1.Fields[4].AsString;
a.Caption :=q1.Fields[5].AsString;
b.Caption:=q1.Fields[6].asstring;
c.Caption:=q1.Fields[7].asstring;
d.Caption:=q1.Fields[8].AsString;
e.Caption:=q1.Fields[9].asstring;
f.Caption:=q1.Fields[10].AsString;
shichuo.Caption:=q1.Fields[1].AsString;
tixing.Caption:=q1.Fields[2].AsString;
end
//--------------将单选题显示在Label上--------------------------
else
begin
r1.Visible:=false;
r2.Visible:=false;
r3.Visible:=false;
r4.Visible:=false;
r5.Visible :=false;
r6.Visible:=false;
c1.Visible:=true;
c2.Visible:=true;
c3.Visible:=true;
c4.Visible:=true;
c5.Visible:=true;
c6.Visible:=true;
tihao.Caption:=q1.Fields[0].AsString+'.';
label13.Caption:=q1.Fields[0].AsString;
label9.Caption:='('+q1.Fields[3].AsString+'分）';
timu.Caption:=q1.Fields[4].AsString;
a.Caption :=q1.Fields[5].AsString;
b.Caption:=q1.Fields[6].asstring;
c.Caption:=q1.Fields[7].asstring;
d.Caption:=q1.Fields[8].AsString;
e.Caption:=q1.Fields[9].asstring;
f.Caption:=q1.Fields[10].AsString;
shichuo.Caption:=q1.Fields[1].AsString;
tixing.Caption:=q1.Fields[2].AsString;
end;
end
else
begin
num:=strtoint(lb.Items.Strings[lb.ItemIndex])+1;
q1.Close;
q1.SQL.Clear;
q1.SQL.add('select * from temp where CStr(ID)='+chr(39)+inttostr(num)+chr(39));
q1.Open;
if q1.Fields[2].AsString ='单选题' then
begin
c1.Visible:=false;
c2.Visible:=false;
c3.Visible:=false;
c4.Visible:=false;
c5.Visible :=false;
c6.Visible:=false;
r1.Visible:=true;
r2.Visible:=true;
r3.Visible:=true;
r4.Visible:=true;
r5.Visible:=true;
r6.Visible:=true;
tihao.Caption:=q1.Fields[0].AsString+'.';
label13.Caption:=q1.Fields[0].AsString;
label9.Caption:='('+q1.Fields[3].AsString+'分）';
timu.Caption:=q1.Fields[4].AsString;
a.Caption :=q1.Fields[5].AsString;
b.Caption:=q1.Fields[6].asstring;
c.Caption:=q1.Fields[7].asstring;
d.Caption:=q1.Fields[8].AsString;
e.Caption:=q1.Fields[9].asstring;
f.Caption:=q1.Fields[10].AsString;
shichuo.Caption:=q1.Fields[1].AsString;
tixing.Caption:=q1.Fields[2].AsString;
end
//--------------将单选题显示在Label上--------------------------
else
begin
r1.Visible:=false;
r2.Visible:=false;
r3.Visible:=false;
r4.Visible:=false;
r5.Visible :=false;
r6.Visible:=false;
c1.Visible:=true;
c2.Visible:=true;
c3.Visible:=true;
c4.Visible:=true;
c5.Visible:=true;
c6.Visible:=true;
tihao.Caption:=q1.Fields[0].AsString+'.';
label13.Caption:=q1.Fields[0].AsString;
label9.Caption:='('+q1.Fields[3].AsString+'分）';
timu.Caption:=q1.Fields[4].AsString;
a.Caption :=q1.Fields[5].AsString;
b.Caption:=q1.Fields[6].asstring;
c.Caption:=q1.Fields[7].asstring;
d.Caption:=q1.Fields[8].AsString;
e.Caption:=q1.Fields[9].asstring;
f.Caption:=q1.Fields[10].AsString;
shichuo.Caption:=q1.Fields[1].AsString;
tixing.Caption:=q1.Fields[2].AsString;
end;
end;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
qq.SQL.Clear;
qq.SQL.Add('delete from [temp]');
qq.ExecSQL;
qq.Close;
form1.JIESHOU.Socket.Close;
end;
procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
q1.Close;
q1.SQL.Clear;
q1.SQL.Add('select * from answer');
q1.Open;
if tixing.Caption='单选题' then
begin
q1.Insert;
q1.Fields[0].AsString:=tihao.Caption;
q1.Fields[1].AsString:=shichuo.Caption;
q1.Fields[2].AsString:=label13.Caption;
q1.Fields[9].AsString:=label2.Caption;
if r1.Checked=true then
begin
q1.FieldByName('a_A').AsString:='是';
end;
if r2.Checked =true then
begin
q1.FieldByName('a_B').AsString:='是';
end;
if r3.Checked=true then
begin
q1.FieldByName('a_C').AsString:='是';
end;
if r4.Checked =true then
begin
q1.FieldByName('a_D').AsString:='是';
end;
if r5.Checked=true then
begin
q1.FieldByName('a_E').AsString:='是';
end;
if r6.Checked =true then
begin
q1.FieldByName('a_F').AsString:='是';
end;
q1.Post;
end;
if tixing.Caption='多选题' then
begin
q1.Insert;
q1.Fields[0].AsString:=tihao.Caption;
q1.Fields[1].AsString:=shichuo.Caption;
q1.Fields[2].AsString:=label13.Caption;
q1.Fields[9].AsString:=label2.Caption;
if c1.Checked=true then
begin
q1.FieldByName('a_A').AsString:='是';
end;
if c2.Checked =true then
begin
q1.FieldByName('a_B').AsString:='是';
end;
if c3.Checked=true then
begin
q1.FieldByName('a_C').AsString:='是';
end;
if c4.Checked =true then
begin
q1.FieldByName('a_D').AsString:='是';
end;
if c5.Checked=true then
begin
q1.FieldByName('a_E').AsString:='是';
end;
if c6.Checked =true then
begin
q1.FieldByName('a_F').AsString:='是';
end;
q1.Post;
end;
end;
procedure TForm2.SpeedButton2Click(Sender: TObject);
var
sum:integer;
begin
sum:=0;
q1.Close;
q1.SQL.Clear;
q1.SQL.Add('select * from answer ');
q1.Open;
while not q1.Eof do
begin
q2.Close;
q2.SQL.Clear;
q2.SQL.Add('select * from temp where tno='+chr(39)+q1.Fields[1].asstring+chr(39));
q2.Open;
if (q1.Fields[3].asstring=q2.Fields[11].asstring)and(q1.Fields[4].asstring=q2.Fields[12].asstring)and(q1.Fields[5].asstring=q2.Fields[13].asstring)and(q1.Fields[6].asstring=q2.Fields[14].asstring)and(q1.Fields[7].asstring=q2.Fields[15].asstring)and(q1.Fields[8].asstring=q2.Fields[16].asstring) then
begin
sum:=sum+strtoint(q2.Fields[3].asstring);
end;
q1.Next;
end;
cj.Address:=ip;
cj.Active:=true;
cj.Socket.SendText(sno+chr(3)+inttostr(sum));
end;
procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
if messagedlg('真的要退出么？',mtwarning,[mbyes,mbno],0)=mrno then
begin
form2.Close;
form1.Close;
end;
end;
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagedlg('真的要退出么？',mtwarning,[mbyes,mbno],0)=mryes then
begin
form2.Close;
form1.Close;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -