upubprog.pas

来自「可实现学生成绩管理系统的各种功能,无需登陆,直接查询学生的各种信息」· PAS 代码 · 共 66 行

unit uPubProg;

interface
  uses  Windows, Messages, Classes, SysUtils, Db, ADODb, Dialogs, Forms,
        Menus, ExtCtrls, Variants, ComCtrls;

  var   Operator, OperatorName, DeptNo, DeptName: string;
        Year, Month, Day, Hour, Min, Sec, MSec: Word;    // 时间处理用

  function  Get_DeptName(PDeptNo : string) : string ;
  function  GetSName(PSNo : string) : string;
  function  GetCName(PCNo : string) : string;


implementation

uses  uDm;


function  Get_DeptName(PDeptNo : string) : string ;
begin
  with DMSchool.ADOQuery do                 // 取部门名称
    begin
      if Active then
        Close ;
      SQL.Clear;
      SQL.ADD('SELECT DEPTNAME FROM DEPARTMENT') ;
      SQL.ADD('  WHERE DEPTNO = ''' + PDeptNo + '''');
      Open;
    end;
  Result := DMSchool.ADOQuery.FieldByName('DEPTNAME').AsString;
end;


function  GetSName(PSNo : string) : string;
begin
  with DMSchool.ADOQuery do                 // 取学生姓名
    begin
      if Active then
        Close ;
      SQL.Clear;
      SQL.Add('SELECT SNAME FROM STUDENT');
      SQL.Add(PChar('WHERE SNO = ''' + PSNo + ''''));
      Open;
    end;
  Result := DMSchool.ADOQuery.FieldByName('SNAME').Asstring;
end;


function  GetCName(PCNo : string) : string;
begin
  with DMSchool.ADOQuery do                 // 取课程名称
    begin
      if Active then
        Close ;
      SQL.Clear;
      SQL.Add('SELECT CNAME FROM COURSE');
      SQL.Add(PChar('WHERE CNO = ''' + PCNo + ''''));
      Open;
    end;
  Result := DMSchool.ADOQuery.FieldByName('CNAME').Asstring;
end;


end.