unit11.pas

试卷自动生成系统

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:=7291;
  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 ''8%%%''');
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 ''81%%''');
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_procedure where tno like ''811%'' 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:=8111;
  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_procedure where tno like ''812%'' 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:=8121;
  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_procedure where tno like ''813%'' 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:=8131;
  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 ''82%%''');
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_procedure where tno like ''821%'' 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:=8211;
  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_procedure where tno like ''822%'' 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:=8221;
  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_procedure where tno like ''823%'' 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:=8231;
  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_procedure where tno like ''824%'' 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:=8241;
  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 ''9%%%''');
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 ''91%%''');
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_procedure where tno like ''911%'' 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:=9111;
  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 ''92%%''');
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_procedure where tno like ''921%'' 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:=9211;
  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 ''93%%''');
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_procedure where tno like ''931%'' 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:=9311;
  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 ''94%%''');
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_procedure where tno like ''941%'' 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:=9411;
  end;
end;

 end;
 end;
  DBMemo1.DataSource:=DataSource1;
  DBEdit1.DataSource:=DataSource1;
  DBMemo2.DataSource:=DataSource1;
  DBEdit2.DataSource:=DataSource1;
  DBComboBox1.DataSource:=DataSource1;
 DBNavigator1.DataSource:=DataSource1;
end;

procedure Tprocedureform.TabSheet1Show(Sender: TObject);
begin
   DBNavigator2.Enabled:=true;
DBNavigator2.DataSource:=DataModule4.DataSource_procedure;
end;

procedure Tprocedureform.TabSheet2Show(Sender: TObject);
begin
DBNavigator2.Enabled:=false;
 DBNavigator1.DataSource:=DataModule4.DataSource_procedure;
end;

procedure Tprocedureform.FormActivate(Sender: TObject);
begin
DBNavigator1.DataSource:=DataModule4.DataSource_procedure;
DBNavigator2.Enabled:=false;
end;

procedure Tprocedureform.DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);
begin
DBMemo1.DataSource:=DataModule4.DataSource_procedure;
  DBEdit1.DataSource:=DataModule4.DataSource_procedure;

  DBMemo2.DataSource:=DataModule4.DataSource_procedure;
  DBEdit2.DataSource:=DataModule4.DataSource_procedure;
  DBComboBox1.DataSource:=DataModule4.DataSource_procedure ;

   case button of
   nbDelete:
   begin
   
if Treeview1.Focused=false then
begin
DBNavigator2.BtnClick(nbCancel);
showmessage('请选择一个章节点') ;
  DBNavigator2.BtnClick(nbCancel);
  DBNavigator2.Enabled:=false;
end
else

 
query2.close;
query2.sql.clear;
query2.sql.text:='delete ti_procedure where tno='''+inttostr(mainform.updateno)+''' ';
query2.ExecSQL;



query2.close;
query2.sql.clear;
query2.sql.text:='update ti_procedure set tno=tno-1 where tno>'''+inttostr(mainform.updateno)+''' and tno like '''+inttostr(mainform.updateno div 10)+'%''';
query2.ExecSQL;
DBNavigator1.DataSource:=DataModule4.DataSource_procedure;
  showmessage(inttostr(DataModule4.Table_procedure.FieldValues['tno']));
   end;
   end;



case button of
nbInsert:
begin
addprocedure:=true;
if Treeview1.Focused=false then
begin
showmessage('请选择一个章节点') ;
  DBNavigator2.BtnClick(nbCancel);
   DBNavigator2.Enabled:=false;
end
else
if treeview1.Focused=true then
begin
 DBNavigator2.Enabled:=false;
if (temp mod 10)=0 then
begin
showmessage('本章知识点已满!');
DBNavigator2.BtnClick(nbCancel);
end
else
begin
DBEdit1.text:=inttostr(temp);
end;
end;
end;
end;
  {
case button of
nbDelete:
begin
   DataModule4.Table_procedure.Delete;
end;
end;

     }

case button of
nbPost:
begin
DataModule4.Table_procedure.Close;
DataModule4.Table_procedure.Open;

end;
end;
end;

procedure Tprocedureform.BitBtn3Click(Sender: TObject);
begin
DBNavigator2.BtnClick(nbCancel);
end;

procedure Tprocedureform.BitBtn2Click(Sender: TObject);
begin

 if addprocedure then
     begin
       if checknewprocedure then
       begin

       DataModule4.Table_procedure.Post;
DataModule4.Table_procedure.Close;
DataModule4.Table_procedure.Open;
       showmessage('添加成功!');

       addprocedure:=false;
    //   inc(newshijuanhao);
     //  DataModule4.Table_shijuan.UpdateRecord;
     //  DBNavigator1.CanFocus;
     DBNavigator2.Enabled:=true;
        end
    else
    exit;
end;
end;

procedure Tprocedureform.FormCreate(Sender: TObject);
begin
addprocedure:=false;
end;

procedure Tprocedureform.FormMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DBNavigator2.Enabled:=true;
end;

procedure Tprocedureform.TreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 DBNavigator2.Enabled:=true;
end;

procedure Tprocedureform.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
case button of
nbFirst:

begin
  DataModule4.Table_procedure.First;
  end;
end;
end;

procedure Tprocedureform.DBEdit1Change(Sender: TObject);
begin
if DBEdit1.Text='' then
begin
DBNavigator2.VisibleButtons:=[nbInsert];

 DBNavigator2.Width:=28;
 end;
if DBEdit1.Text<>'' then
begin
 DBNavigator2.Width:=56;
DBNavigator2.VisibleButtons:=[nbInsert,nbDelete];
end;
end;

end.