u_selectcollect.pas

一个简单的学籍管理软件

unit U_SelectCollect;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, DateEdit, U_GlobalVar;

type
  TFm_SelectCollect = class(TForm)
    Btn_Cancel: TButton;
    Bevel1: TBevel;
    Btn_Ok: TButton;
    RdBtn_Class: TRadioButton;
    RdBtn_Rank: TRadioButton;
    RdBtn_ClassRank: TRadioButton;
    RdBtn_Score: TRadioButton;
    RdBtn_ClassScore: TRadioButton;
  private
  public
    RdBtn: array[1..5] of TRadioButton;
  end;

// 0 - 没有设定条件  1 - 班级  2 - 等级  3 - 分数段
// 4 - 班级与等级  5 - 班级与分数段
function Show_SelectCollect(CollectCode: integer): integer;

implementation

uses U_AllSubjectTable;

{$R *.DFM}

function Show_SelectCollect(CollectCode: integer): integer;
var
  Fm_SelectCollect: TFm_SelectCollect;
  i: integer;
begin
  Result := 0;
  Fm_SelectCollect := TFm_SelectCollect.Create(Application);

  with Fm_SelectCollect do
  try
    RdBtn[1] := RdBtn_Class;
    RdBtn[2] := RdBtn_Rank;
    RdBtn[3] := RdBtn_Score;
    RdBtn[4] := RdBtn_ClassRank;
    RdBtn[5] := RdBtn_ClassScore;

    if Fm_AllSubjectTable.CurClass <> '' then
    begin
      RdBtn[1].Enabled := False;
      RdBtn[4].Enabled := False;
      RdBtn[5].Enabled := False;
    end;
    //  条件
    if Fm_AllSubjectTable.UsedCondCode > 0 then
    begin
      RdBtn[2].Enabled := False;
      RdBtn[4].Enabled := False;
    end;

    if CollectCode = 0 then
      CollectCode := 1;
    if RdBtn[CollectCode].Enabled then
      RdBtn[CollectCode].Checked := True
    else
      for i := 1 to 5 do
      begin
        if RdBtn[i].Enabled then
        begin
          RdBtn[i].Checked := True;
          break;
        end;
      end;
    if ShowModal = mrOk then
    begin
      for i := 1 to 5 do
      begin
        if RdBtn[i].Checked then
        begin
          Result := i;
          break;
        end;
      end;
    end;
  finally
    Free;
  end;
end;

end.