unit App_Unit2;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, App_prj_TLB, StdVcl, Provider, DB, DBTables;

type
  Tmylunwen = class(TRemoteDataModule, Imylunwen)
    c_Table1: TTable;
    c_DataSetProvider1: TDataSetProvider;
    J_Table1: TTable;
    J_DataSetProvider1: TDataSetProvider;
    F_DataSetProvider2: TDataSetProvider;
    P_DataSetProvider3: TDataSetProvider;
    F_Table1: TTable;
    P_Table2: TTable;
    ksmd: TTable;
    chaxun: TQuery;
    Database1: TDatabase;
    Session1: TSession;
    procedure RemoteDataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure Login(const zkzID, ComputerName: WideString; var ksName,
      TablesRecordOrder: OleVariant); safecall;
    procedure getTablesSize(var Sizes: OleVariant); safecall;
  public
    { Public declarations }
  end;

implementation
uses Variants,App_Unit1;
{$R *.DFM}

class procedure Tmylunwen.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

procedure Tmylunwen.Login(const zkzID, ComputerName: WideString;
          var ksName, TablesRecordOrder: OleVariant);
var i,j,k : integer;
    OrderString,FieldName : string;
    Record_Count : array [1..4] of  integer;
    s : set of 1..255;

begin
  Record_Count[1]:=c_Table1.RecordCount;
  Record_Count[2]:=J_Table1.RecordCount;
  Record_Count[3]:=F_Table1.RecordCount;
  Record_Count[4]:=P_Table2.RecordCount;
  ksmd.Active:=true;
  if ksmd.Locate('準考證號',VarArrayOf([zkzID]),[]) then
    begin
      if ksmd.FieldValues['計算機名']=Null then
        begin  //首次登陸，在ksmd中填寫考生的登陸信息
          ksmd.Edit;
          ksmd.FieldByName('計算機名').AsString := ComputerName;
          for i:=1 to 4 do
           begin //對第i種類型的試題，（隨機）產生本考生的答題次序：
            randomize;
            s:=[];  k:=1;
            OrderString:='';
            while (k<=Record_Count[i]) do
              begin
                j:=trunc(random(Record_Count[i]));
                if not(j in s) then  // 第j題還未選過
                  begin
                    s := s + [j];
                    TablesRecordOrder[k,i]:=j+1; //第i類試題的第k題的題號為j+1；
                    OrderString:=OrderString + IntToStr(TablesRecordOrder[k,i]);
                    if k<Record_Count[i] then OrderString:=OrderString+',';
                    k:=k+1;
                  end;
              end;
             //形成存儲第i類試題示題次序字符串的字段名：
             FieldName:='OrderString'+IntToStr(i);
             ksmd.FieldByName(FieldName).AsString := OrderString;
           end;
          ksmd.Post;
          ksName:=ksmd.FieldValues['考生姓名'];
        end
      else //該考生是再次登陸，并所用的計算機與上次是同一臺
        if ksmd.FieldValues['計算機名']=ComputerName then
          ksName:=ksmd.FieldValues['考生姓名']
        else
          ksName:='你換了考試位置，但還沒有得到監考老師認可！';
    end
  else
    ksName:='not found';
end;





procedure Tmylunwen.getTablesSize(var Sizes: OleVariant);
begin
  Sizes[1]:=c_Table1.RecordCount; //返回各數據表的記錄數
  Sizes[2]:=J_Table1.RecordCount;
  Sizes[3]:=F_Table1.RecordCount;
  Sizes[4]:=P_Table2.RecordCount;

end;
procedure Tmylunwen.RemoteDataModuleCreate(Sender: TObject);
  begin
  c_Table1.Open;
  J_Table1.Open;
  F_Table1.Open;
  P_Table2.Open;
end;


initialization
  TComponentFactory.Create(ComServer, Tmylunwen,
    Class_mylunwen, ciMultiInstance, tmApartment);
end.