unitclassroom.pas.~21~

来自「初中成绩录入系统网络版(firebird) firebird下的网络编程」· ~21~ 代码 · 共 48 行

unit UnitClassRoom;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs,UnitDatamodule;

type
  TClassRoom = class(TObject)
  public
    procedure readClassroomList(school:String;List1:TStrings);
  end;
  

implementation

uses UnitGlobal;

{
********************************** TClassRoom **********************************
}
procedure TClassRoom.readClassroomList(school:String;List1:TStrings);
var
  mycnt,classcnt,i:Integer;
  schorder:string;
begin
  dm.IBTrans1.Active:=false;
  dm.IBQuery1.Close;
  dm.IBQuery1.SQL.Text:='select schorder from school where schname='''+school+'''';
  dm.IBQuery1.Open;
  schorder:=dm.IBQuery1.FieldByName('schorder').AsString;
  dm.IBQuery1.Close;
  dm.IBQuery1.SQL.Text:='select count(*) as cnt from student where substring(zkzh from 1 for 4)='''+schorder+'''';
  dm.IBQuery1.Open;
  mycnt:=dm.IBQuery1.FieldByName('cnt').AsInteger;
  if (mycnt mod 30)=0 then
    classcnt:=(mycnt div 30)
  else
    classcnt:=(mycnt div 30)+1;
  List1.Clear;
  for i:=1 to classcnt do
    List1.Add('第'+Inttostr(i)+'考室');
end;


end.