unitclassroom.pas.~14~

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

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;
begin
  dm.IBTrans1.Active:=false;
  dm.IBQuery1.Close;
  dm.IBQuery1.SQL.Text:='select count(a.zkzh) as cnt from '+CurrentAch+
    ' a,student b where a.bmh=b.bmh and b.school="'+school+'"';
  showmessage(dm.IBQuery1.SQL.Text);
  exit;
  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;
  for i:=1 to classcnt do
    List1.Add('第'+Inttostr(i)+'考室');
end;


end.