unit7.pas

试卷自动生成系统

 end;

if TreeView1.Selected.text='第二知识点 位运算' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''222%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=2221;
  end;
end;

 end;
 end;
 //-----------------------------------
 {
if TreeView1.Selected.text='第三节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''23%%''');
query1.Open;
 end;
 end;

                         }


if TreeView1.Selected.text='第一知识点 表达式' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''231%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=2311;
  end;
end;

 end;
 end;
if TreeView1.Selected.text='第二知识点 类型转换' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''232%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=2321;
  end;
end;

 end;
 end;
 //-------------------------------------------------------------
 {
if TreeView1.Selected.text='第三章 顺序结构' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''3%%%''');
query1.Open;
 end;
 end;


if TreeView1.Selected.text='第一节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''31%%''');
query1.Open;
 end;
end;                         }


if TreeView1.Selected.text='第一知识点 字符数据的输入输出' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''311%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=3111;
  end;
end;

 end;
 end;
 {
if TreeView1.Selected.text='第二节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''32%%''');
query1.Open;
 end;
end;                         }


if TreeView1.Selected.text='第一知识点 格式输入与输出' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''321%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=3211;
  end;
end;

 end;
 end;
 //------------------------------------------------------------
 {
if TreeView1.Selected.text='第四章 选择结构 ' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''4%%%''');
query1.Open;
 end;
 end;
                        }

              {
if TreeView1.Selected.text='第一节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''41%%''');
query1.Open;
 end;
end;
                      }

if TreeView1.Selected.text='第一知识点 if语句' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''411%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=4111;
  end;
end;

 end;
 end;


 {
if TreeView1.Selected.text='第二节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''42%%''');
query1.Open;
 end;
end;
                            }
if TreeView1.Selected.text='第一知识点 条件表达式' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''421%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=4211;
  end;
end;

 end;
 end;

 {
if TreeView1.Selected.text='第三节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''43%%''');
query1.Open;
 end;
end;
                           }


if TreeView1.Selected.text='第一知识点 switch(开关)语句' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''431%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=4311;
  end;
end;

 end;
 end;

 //-------------------------------------------------------
 {
if TreeView1.Selected.text='第五章 循环控制  ' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''5%%%''');
query1.Open;
 end;
 end;
if TreeView1.Selected.text='第一节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''51%%''');
query1.Open;
 end;
end;
                         }


if TreeView1.Selected.text='第一知识点 while循环语句' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''511%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=5111;
  end;
end;

 end;
 end;

if TreeView1.Selected.text='第二知识点 do-while循环语句' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''512%'' order by tno');
query1.Open;
 begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=5121;
  end;
end;

 end;
 end;
 {
if TreeView1.Selected.text='第二节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''52%%''');
query1.Open;
 end;
end;
                      }

if TreeView1.Selected.text='第一知识点 for循环语句' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''521%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=5211;
  end;
end;

 end;
 end;
                      {
if TreeView1.Selected.text='第三节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''53%%''');
query1.Open;
 end;
end;                  }


if TreeView1.Selected.text='第一知识点 break语句' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''531%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=5311;
  end;
end;

 end;
 end;
if TreeView1.Selected.text='第二知识点 continue语句' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''532%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=5321;
  end;
end;

 end;
 end;

 {
if TreeView1.Selected.text='第四节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''54%%''');
query1.Open;
 end;
end;                }

if TreeView1.Selected.text='第一知识点 goto语句' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''541%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;
  temp:=query1.FieldValues['tno']+1;
  end
  else if query1.RecordCount=0 then
  begin
     temp:=5411;
  end;
end;

 end;
 end;
 //-----------------------------------------------------
 {
if TreeView1.Selected.text='第六章 数组指针  ' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''6%%%''');
query1.Open;
 end;
 end;
if TreeView1.Selected.text='第一节' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_choose where tno like ''61%%''');
query1.Open;
 end;
end;                  }


if TreeView1.Selected.text='第一知识点 一维数组' then
   begin
  query1.Active:=false;
  query1.Active:=true;
if(query1.Active=true)then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ti_filltext where tno like ''611%'' order by tno');
query1.Open;
begin
  if query1.RecordCount<>0 then
  begin
  query1.Last;