unitincept.pas.~43~

初中成绩录入系统网络版(firebird) firebird下的网络编程

unit unitIncept;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,UnitClassRoom, CheckLst;

type
  TfmIncept = class(TForm)
    Label1: TLabel;
    SchoolList: TListBox;
    yuwen1List: TCheckListBox;
    RadioGroup1: TRadioGroup;
    procedure yingyuListClickCheck(Sender: TObject);
    procedure shuxueListClickCheck(Sender: TObject);
    procedure yuwen2ListClickCheck(Sender: TObject);
    procedure yuwen1ListClickCheck(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure SchoolListClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    CR:TClassRoom;
  public
    { Public declarations }
  end;

implementation

uses UnitSchoolManager;

{$R *.dfm}

procedure TfmIncept.FormCreate(Sender: TObject);
var
  SM:TSchoolManager;
begin
  sm:=TSchoolManager.Create;
  sm.SchoolList(SchoolList.Items);
  sm.Free;
  CR:=TClassRoom.Create;
end;

procedure TfmIncept.SchoolListClick(Sender: TObject);
begin
  if SchoolList.ItemIndex=-1 then
    exit;

  cr.readClassroomList(SchoolList.Items[SchoolList.itemindex],yuwen1List,'YUWEN1');
end;

procedure TfmIncept.FormDestroy(Sender: TObject);
begin
  CR.Free;
end;

procedure TfmIncept.yuwen1ListClickCheck(Sender: TObject);
begin
  if (Sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]=true then
  begin
    if not cr.inceptClassroom(schoolList.Items[schoolList.itemindex],(Sender as TCheckListBox).ItemIndex+1,'YUWEN1') then
      (sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]:=false
    else
      Application.MessageBox('接收成绩成功!','提示',MB_OK or MB_ICONINFORMATION);
  end
  else if Application.MessageBox('您要清除此考室的成绩么?','确认',MB_YESNO or MB_ICONWARNING)=IDYES then
    cr.DeleteClassroom(schoolList.Items[schoolList.itemindex],(Sender as TCheckListBox).ItemIndex+1,'YUWEN1')
  else
    (sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]:=true;
end;

procedure TfmIncept.yuwen2ListClickCheck(Sender: TObject);
begin
  if (Sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]=true then
  begin
    if not cr.inceptClassroom(schoolList.Items[schoolList.itemindex],(Sender as TCheckListBox).ItemIndex+1,'YUWEN2') then
      (sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]:=false
    else
      Application.MessageBox('接收成绩成功!','提示',MB_OK or MB_ICONINFORMATION);
  end
  else if Application.MessageBox('您要清除此考室的成绩么?','确认',MB_YESNO or MB_ICONWARNING)=IDYES then
    cr.DeleteClassroom(schoolList.Items[schoolList.itemindex],(Sender as TCheckListBox).ItemIndex+1,'YUWEN2')
  else
    (sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]:=true;
end;

procedure TfmIncept.shuxueListClickCheck(Sender: TObject);
begin
  if (Sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]=true then
  begin
    if not cr.inceptClassroom(schoolList.Items[schoolList.itemindex],(Sender as TCheckListBox).ItemIndex+1,'SHUXUE') then
      (sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]:=false
    else
      Application.MessageBox('接收成绩成功!','提示',MB_OK or MB_ICONINFORMATION);
  end
  else if Application.MessageBox('您要清除此考室的成绩么?','确认',MB_YESNO or MB_ICONWARNING)=IDYES then
    cr.DeleteClassroom(schoolList.Items[schoolList.itemindex],(Sender as TCheckListBox).ItemIndex+1,'SHUXUE')
  else
    (sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]:=true;
end;

procedure TfmIncept.yingyuListClickCheck(Sender: TObject);
begin
  if (Sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]=true then
  begin
    if not cr.inceptClassroom(schoolList.Items[schoolList.itemindex],(Sender as TCheckListBox).ItemIndex+1,'YINGYU') then
      (sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]:=false
    else
      Application.MessageBox('接收成绩成功!','提示',MB_OK or MB_ICONINFORMATION);
  end
  else if Application.MessageBox('您要清除此考室的成绩么?','确认',MB_YESNO or MB_ICONWARNING)=IDYES then
    cr.DeleteClassroom(schoolList.Items[schoolList.itemindex],(Sender as TCheckListBox).ItemIndex+1,'YINGYU')
  else
    (sender as TCheckListBox).Checked[(Sender as TCheckListBox).ItemIndex]:=true;
end;

end.