unitincept.pas

初中成绩录入系统网络版(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;
    ClassRoomList: TCheckListBox;
    RGPSubject: TRadioGroup;
    procedure RGPSubjectClick(Sender: TObject);
    procedure yingyuListClickCheck(Sender: TObject);
    procedure shuxueListClickCheck(Sender: TObject);
    procedure yuwen2ListClickCheck(Sender: TObject);
    procedure ClassRoomListClickCheck(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);
var
  SubjectName:String;
begin
  case RGPSubject.ItemIndex of
    0:SubjectName:='zhengzhi';
    1:subjectName:='yuwen';
    2:subjectName:='waiyu';
    3:subjectName:='shuxue';
    4:subjectName:='wuli';
    5:subjectName:='huaxue';
    6:subjectName:='lishi';
    7:subjectName:='dili_a';
    8:subjectName:='shengwu_a';
  end;
  if SchoolList.ItemIndex=-1 then
    exit;
  cr.readClassroomList(SchoolList.Items[SchoolList.itemindex],ClassRoomList,subjectName);
end;

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

procedure TfmIncept.ClassRoomListClickCheck(Sender: TObject);
var
  SubjectName:String;
begin
  case RGPSubject.ItemIndex of
    0:SubjectName:='zhengzhi';
    1:subjectName:='yuwen';
    2:subjectName:='waiyu';
    3:subjectName:='shuxue';
    4:subjectName:='wuli';
    5:subjectName:='huaxue';
    6:subjectName:='lishi';
    7:subjectName:='dili_a';
    8:subjectName:='shengwu_a';
  end;
  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,SubjectName) 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,SubjectName)
  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;

procedure TfmIncept.RGPSubjectClick(Sender: TObject);
begin
  SchoolListClick(nil);
end;

end.