⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.pas

📁 B/S结构的网上学生选课系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    begin
      with ADOStoredProc3 do
      begin
        Parameters.ParamByName('@SN').Value := KcbhList[i];
        ExecProc;
      end;
    end;

    ADOQuery1.Close;
    ADOQuery1.Parameters[0].Value := SdXH;
    ADOQuery1.Open;

    Response.Content := PageMain.Content;
    Handled := true;
  end;
end;

procedure TWebModule1.WebModule1ailoginAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  SdVerify := '';
  SdXH := '';
  SdXM := '';

  queryString := 'select count(*) from 选课登记 where datediff(mi,登录时间,getdate())<30';
  ADOQryTemp.Close;
  ADOQryTemp.SQL.Clear;
  ADOQryTemp.SQL.Add(queryString);
  ADOQryTemp.Open;
  SdTotal := ADOQryTemp.Fields[0].AsString;

  Response.Content := PageLogin.Content;
  Handled := true;
end;

procedure TWebModule1.PageLoginHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
  if CompareText(TagString, 'Verify') = 0 then
  begin
    ReplaceText := SdVerify;
  end;

  if CompareText(TagString, 'SdXH') = 0 then
  begin
    ReplaceText := SdXH;
  end;

  if CompareText(TagString, 'SdXM') = 0 then
  begin
    ReplaceText := SdXM;
  end;

  if CompareText(TagString, 'Total') = 0 then
  begin
    ReplaceText := SdTotal;
  end;
end;

procedure TWebModule1.PageMainHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
  i: Integer;
  LessonList: string;
begin
  if CompareText(TagString, 'LoginSN') = 0 then
  begin
    ReplaceText := LoginSN;
  end;

  if CompareText(TagString, 'SdXH') = 0 then
  begin
    ReplaceText := SdXH;
  end;
  if CompareText(TagString, 'SdXM') = 0 then
  begin
    ReplaceText := SdXM;
  end;
  if CompareText(TagString, 'SdZyBH') = 0 then
  begin
    ReplaceText := SdZyBH;
  end;
  if CompareText(TagString, 'SdZyMc') = 0 then
  begin
    ReplaceText := SdZyMc;
  end;
  if CompareText(TagString, 'SdXb') = 0 then
  begin
    ReplaceText := SdXb;
  end;
  if CompareText(TagString, 'SdNj') = 0 then
  begin
    ReplaceText := SdNj;
  end;

  if CompareText(TagString, 'GongBi1') = 0 then
  begin
    ReplaceText := GongBi1;
  end;
  if CompareText(TagString, 'ZhuanBi1') = 0 then
  begin
    ReplaceText := ZhuanBi1;
  end;
  if CompareText(TagString, 'ZhuanXuan1') = 0 then
  begin
    ReplaceText := ZhuanXuan1;
  end;
  if CompareText(TagString, 'RenXuan1') = 0 then
  begin
    ReplaceText := RenXuan1;
  end;

  if CompareText(TagString, 'KcBH') = 0 then
  begin
    ReplaceText := KcBH;
  end;
  if CompareText(TagString, 'KtH') = 0 then
  begin
    ReplaceText := KtH;
  end;
  if CompareText(TagString, 'KcMc') = 0 then
  begin
    ReplaceText := KcMc;
  end;

  i := 0;
  LessonList := '';

  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    i := i + 1;
    LessonList := LessonList + '<tr>';
    LessonList := LessonList + '<td><p align="center"><input type="checkbox" name="SelectSN" value="' + ADOQuery1.FieldByName('SN').AsString + '"></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + IntToStr(i) + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('课程编号').AsString + '</font></td>';
    LessonList := LessonList + '<td align="left"><font size="2" ' + '>&nbsp;' + ADOQuery1.FieldByName('课程名称').AsString + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('课堂号').AsString + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('课程课类').AsString + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('学分').AsString + '</font></td>';
    LessonList := LessonList + '<td align="center"><font size="2" ' + '>' + ADOQuery1.FieldByName('上课时间').AsString + '</font></td>';
    LessonList := LessonList + '<td align="left"><font size="2" ' + '>&nbsp;' + ADOQuery1.FieldByName('任课教师').AsString + '</font></td>';
    LessonList := LessonList + '</tr>';

    ADOQuery1.Next;
  end;

  if CompareText(TagString, 'LessonList') = 0 then
  begin
    ReplaceText := LessonList;
  end;
end;

procedure TWebModule1.PageFailHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
  i: Integer;
  FailList: string;
begin
  if CompareText(TagString, 'SdXH') = 0 then
  begin
    ReplaceText := SdXH;
  end;

  if CompareText(TagString, 'SdXM') = 0 then
  begin
    ReplaceText := SdXM;
  end;

  if CompareText(TagString, 'FailSum') = 0 then
  begin
    ReplaceText := IntToStr(ADOQryTemp.RecordCount);
  end;

  i := 0;
  FailList := '';
  while not ADOQryTemp.Eof do
  begin
    i := i + 1;
    FailList := FailList + '<tr>';
    FailList := FailList + '<td align="center" height="24"><font size="2">' + IntToStr(i) + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('课程编号').AsString + '</font></td>';
    FailList := FailList + '<td align="left"><font size="2">&nbsp;' + ADOQryTemp.FieldByName('课程名称').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('课程标志').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('标准学分').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('平时').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('期末').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('总评').AsString + '</font></td>';
    FailList := FailList + '<td align="center"><font size="2">' + ADOQryTemp.FieldByName('学期').AsString + '</font></td>';
    FailList := FailList + '</tr>';

    ADOQryTemp.Next;
  end;

  if CompareText(TagString, 'FailList') = 0 then
  begin
    ReplaceText := FailList;
  end;
end;

procedure TWebModule1.WebModuleCreate(Sender: TObject);
begin
//ADO
  ADOConnection1 := TADOConnection.Create(nil);
  ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=选课系统;Data Source=dbserver';

  ADOQryTemp := TADOQuery.Create(nil);
  ADOQuery1 := TADOQuery.Create(nil);
  ADOStoredProc1 := TADOStoredProc.Create(nil);
  ADOStoredProc2 := TADOStoredProc.Create(nil);
  ADOStoredProc3 := TADOStoredProc.Create(nil);

  ADOQryTemp.Connection := ADOConnection1;

  ADOQuery1.Connection := ADOConnection1;

  queryString := 'select 选课结果.SN,选课结果.学生编号,选课结果.课程编号,选课结果.课堂号,选课结果.开课专业,选课结果.开课年级,选课结果.学分,选课结果.重修标志,';
  queryString := queryString + ' 选课手册.任课教师,选课手册.课程名称,选课手册.课程课类,选课手册.上课时间';
  queryString := queryString + ' from 选课结果信息,选课手册';
  queryString := queryString + ' where 选课结果.学生编号=:SdXH';
  queryString := queryString + ' and 选课结果.课程编号=选课手册.课程编号 and 删除标志=0';
  queryString := queryString + ' and 选课结果.课堂号=选课手册.课堂号';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(queryString);

  with ADOStoredProc1 do
  begin
    Connection := ADOConnection1;
    ProcedureName := '选课登录;1';
    with Parameters.AddParameter do
    begin
      Name := '@学生编号';
      DataType := ftString;
      Direction := pdInput;
    end;
    with Parameters.AddParameter do
    begin
      Name := '@选课ID';
      DataType := ftInteger;
      Direction := pdOutput;
    end;
  end;

  with ADOStoredProc2 do
  begin
    Connection := ADOConnection1;
    ProcedureName := '学生选课;1';
    with Parameters.AddParameter do
    begin
      Name := '@学生编号';
      DataType := ftString;
      Direction := pdInput;
    end;
    with Parameters.AddParameter do
    begin
      Name := '@课程编号';
      DataType := ftString;
      Direction := pdInput;
    end;
    with Parameters.AddParameter do
    begin
      Name := '@课堂号';
      DataType := ftString;
      Direction := pdInput;
    end;
    with Parameters.AddParameter do
    begin
      Name := '@返回码';
      DataType := ftInteger;
      Direction := pdOutput;
    end;
  end;

  with ADOStoredProc3 do
  begin
    Connection := ADOConnection1;
    ProcedureName := '选课删除;1';
    with Parameters.AddParameter do
    begin
      Name := '@SN';
      DataType := ftInteger;
      Direction := pdInput;
    end;
  end;

  ADOConnection1.Open;
end;

procedure TWebModule1.WebModuleDestroy(Sender: TObject);
begin
  ADOStoredProc3.Free;
  ADOStoredProc2.Free;
  ADOStoredProc1.Free;
  ADOQryTemp.Free;
  ADOQuery1.Free;
  ADOConnection1.Free;
end;

procedure TWebModule1.WebModuleAfterDispatch(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  ADOQryTemp.Close;
  ADOQuery1.Close;
end;

end.
12

⌨️ 快捷键说明

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