📄 timuwh_unit.pas

📁 软件实现了以下主要功能：1.手动生成试卷；2.自动生成试卷；3.抽取现有试卷；4.用户管理；5.数据库管理。
💻 PAS
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from XiTongCZ where CZ=:temp');
  ADOQuery1.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery1.Open;
end;

procedure TForm1.XZsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TForm1.TKsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TForm1.JDsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TForm1.YLLSsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TForm1.XTSJsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TForm1.XTCZsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TForm1.XZgb_BitBtnClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.TKgb_BitBtnClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.JDgb_BitBtnClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.YLLSgb_BitBtnClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.XTSJgb_BitBtnClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.XTCZgb_BitBtnClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.XTCZ_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    XTCZ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else XTCZ_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.XTSJ_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    XTSJ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else XTSJ_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.YLLS_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    YLLS_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else YLLS_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.JD_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    JD_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else JD_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.TK_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    TK_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else TK_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.XZ_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    XZ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else XZ_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  BZ_Form.Show;  
end;

procedure TForm1.ZJ_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    ZJ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else ZJ_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.ZJ_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  temp1:integer;
  temp2,temp3:string;
begin
  temp1:=ADOQuery1.fieldbyname('ID').AsInteger;
  temp2:=ADOQuery1.FieldValues['ZJ'];
  temp3:=ADOQuery1.FieldValues['ZJName'];
  XH_Edit.Text:=IntToStr(temp1);
  ZJXH_Edit.Text:=temp2;
  ZJM_Edit.Text:=temp3;
end;

procedure TForm1.ZJTJ_BitBtnClick(Sender: TObject);
  var
  temp1,temp2:string;
begin
  if ZJXH_Edit.Text='' then showmessage('章节序号不能为空！')
  else if ZJM_Edit.Text='' then showmessage('章节名不能为空！')
  else begin
         temp1:=ZJXH_Edit.Text;
         temp2:=ZJM_Edit.Text;
         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add('INSERT INTO ZhangJie(ZJ,ZJName) values(:ZJ,:ZJName)');
         ADOQuery1.Parameters.ParamByName('ZJ').Value:=temp1;
         ADOQuery1.Parameters.ParamByName('ZJName').Value:=temp2;
         ADOQuery1.ExecSQL;
         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add('Select * from ZhangJie');
         ADOQuery1.Open;
         ZJ_DBGrid.Fields[0].DisplayLabel:='序号';
         ZJ_DBGrid.Fields[1].DisplayLabel:='章节序号';
         ZJ_DBGrid.Fields[2].DisplayLabel:='章节名';
       end;
end;

procedure TForm1.ZJSC_BitBtnClick(Sender: TObject);
  var
    Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TForm1.ZJXG_BitBtnClick(Sender: TObject);
begin
  if ZJXH_Edit.Text='' then showmessage('章节序号不能为空！')
  else if ZJM_Edit.Text='' then showmessage('章节名不能为空！')
  else begin
         ADOQuery1.Edit;
         ADOQuery1.Fields.FieldByName('ZJ').Value:=ZJXH_Edit.Text;
         ADOQuery1.Fields.FieldByName('ZJName').Value:=ZJM_Edit.Text;
         ADOQuery1.Post;
       end;
end;

procedure TForm1.ZJCX_BitBtnClick(Sender: TObject);
  var
    temp:string;
begin
  temp:=ZJXH_Edit.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from ZhangJie where ZJ=:temp');
  ADOQUery1.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery1.Open;
end;

procedure TForm1.ZJGB_BitBtnClick(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from ZhangJie order by ZJ asc');
  ADOQuery1.Open;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.DKTM_BitBtn1Click(Sender: TObject);
var
  AppPath,WJName,WJPath:string;
begin
  WJName:=TMWJ_Edit.Text;
  AppPath:=ExtractFilePath(Application.ExeName);   //取得本程序的路径
  WJPath:=AppPath+'Doc\'+WJName;
  if WJName='' then showmessage('对不起，该文件不存在！')
  else ShellExecute(handle,'open',pchar(WJPath),nil,nil,SW_MAXIMIZE);
end;

procedure TForm1.ZLZJ_BitBtnClick(Sender: TObject);
var
  temp1,temp2:string;
  x,y:integer;
begin
  x:=0;
  y:=0;
  ZJ_DBGrid.Enabled:=false;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select ZJName from ZhangJie');
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
    begin
      temp1:=ADOQuery1.FieldValues['ZJName'];
      ADOQuery2.Close;
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('select ZJName from ZhangJie');
      ADOQuery2.Open;
      while y<>0 do
        begin
          ADOQuery2.Next;
          y:=y-1;
        end;
      ADOQuery2.Next;
      while not ADOQuery2.Eof do
        begin
          temp2:=ADOQuery2.FieldValues['ZJName'];
          if temp1=temp2 then  begin
                                 ADOQuery2.Delete;
                                 x:=1;
                               end;
          ADOQuery2.Next;
        end;
      y:=y+1;
      ADOQuery1.Next;
    end;
  ZJ_DBGrid.Enabled:=true;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from ZhangJie');
  ADOQuery1.Open;
  if x=1 then showmessage('清理冗余章节成功！')
  else showmessage('无冗余章节存在！');
end;

procedure TForm1.DKDA_BitBtn1Click(Sender: TObject);
var
  AppPath,WJName,WJPath:string;
begin
  WJName:=DAWJ_Edit.Text;
  AppPath:=ExtractFilePath(Application.ExeName);   //取得本程序的路径
  WJPath:=AppPath+'Doc\'+WJName;
  if WJName='' then showmessage('对不起，该文件不存在！')
  else ShellExecute(handle,'open',pchar(WJPath),nil,nil,SW_MAXIMIZE);
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
var
  AppPath,WJName,WJPath:string;
begin
  WJName:=TMWJ1_Edit.Text;
  AppPath:=ExtractFilePath(Application.ExeName);   //取得本程序的路径
  WJPath:=AppPath+'Doc\'+WJName;
  if WJName='' then showmessage('对不起，该文件不存在！')
  else ShellExecute(handle,'open',pchar(WJPath),nil,nil,SW_MAXIMIZE);
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
var
  AppPath,WJName,WJPath:string;
begin
  WJName:=DAWJ1_Edit.Text;
  AppPath:=ExtractFilePath(Application.ExeName);   //取得本程序的路径
  WJPath:=AppPath+'Doc\'+WJName;
  if WJName='' then showmessage('对不起，该文件不存在！')
  else ShellExecute(handle,'open',pchar(WJPath),nil,nil,SW_MAXIMIZE);
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
var
  AppPath,WJName,WJPath:string;
begin
  WJName:=DAWJ2_Edit.Text;
  AppPath:=ExtractFilePath(Application.ExeName);   //取得本程序的路径
  WJPath:=AppPath+'Doc\'+WJName;
  if WJName='' then showmessage('对不起，该文件不存在！')
  else ShellExecute(handle,'open',pchar(WJPath),nil,nil,SW_MAXIMIZE);
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
var
  AppPath,WJName,WJPath:string;
begin
  WJName:=DAWJ3_Edit.Text;
  AppPath:=ExtractFilePath(Application.ExeName);   //取得本程序的路径
  WJPath:=AppPath+'Doc\'+WJName;
  if WJName='' then showmessage('对不起，该文件不存在！')
  else ShellExecute(handle,'open',pchar(WJPath),nil,nil,SW_MAXIMIZE);
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
var
  AppPath,WJName,WJPath:string;
begin
  WJName:=DAWJ4_Edit.Text;
  AppPath:=ExtractFilePath(Application.ExeName);   //取得本程序的路径
  WJPath:=AppPath+'Doc\'+WJName;
  if WJName='' then showmessage('对不起，该文件不存在！')
  else ShellExecute(handle,'open',pchar(WJPath),nil,nil,SW_MAXIMIZE);
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
var
  AppPath,WJName,WJPath:string;
begin
  WJName:=DAWJ5_Edit.Text;
  AppPath:=ExtractFilePath(Application.ExeName);   //取得本程序的路径
  WJPath:=AppPath+'Doc\'+WJName;
  if WJName='' then showmessage('对不起，该文件不存在！')
  else ShellExecute(handle,'open',pchar(WJPath),nil,nil,SW_MAXIMIZE);
end;

end.
上一页 1 2 34
💿 文件大小 2654 K
👤 上传用户 zhuying0000
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#试卷 #软件实现 #手动 #自动生成
⌨️ 快捷键说明

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