unitmain.pas.~80~

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

unit unitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons,unitLogin,UnitSchoolManager,UnitClassRoom;

type
  TfmMain = class(TForm)
    SchoolList: TListBox;
    Label1: TLabel;
    ClassRoomList: TListBox;
    RGPSubject: TRadioGroup;
    btnInput: TBitBtn;
    btnCancel: TBitBtn;
    procedure btnInputClick(Sender: TObject);
    procedure SchoolListClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    SM:TSchoolManager;
    CR:TClassRoom;
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

uses unitInput, UnitDatamodule, UnitGlobal;

{$R *.dfm}

procedure TfmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('真的要离开本软件么','离开',MB_OKCancel)=idOK then
    Canclose:=true
  else
    Canclose:=false;
end;

procedure TfmMain.FormCreate(Sender: TObject);
var
  fmLogin:TfmLogin;
begin
  fmLogin:=TfmLogin.Create(nil);
  if fmLogin.ShowModal()<>mrOK then
  begin
    FreeAndNil(fmLogin);
    Application.Terminate;
  end;
  FreeAndNil(fmLogin);
  sm:=TSchoolManager.Create;
  sm.SchoolList(SchoolList.Items);
  CR:=TClassRoom.Create;
end;

procedure TfmMain.FormDestroy(Sender: TObject);
begin
  sm.Free;
  cr.Free;
end;

procedure TfmMain.SchoolListClick(Sender: TObject);
begin
  cr.readClassroomList(SchoolList.Items[SchoolList.itemindex],ClassRoomList.Items);
end;

procedure TfmMain.btnInputClick(Sender: TObject);
var
  fmInput:TfmInput;
  schorder,SubjectName,startZkzh:String;
begin
  if (SchoolList.ItemIndex=-1) or (ClassRoomList.ItemIndex=-1) then
    exit;
  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;
  dm.IBTrans1.Active:=false;
  dm.IBQuery1.Close;
  dm.IBQuery1.SQL.Text:='select schorder from school where schname='''+SchoolList.Items[SchoolList.ItemIndex]+'''';
  dm.IBQuery1.Open;
  schorder:=dm.IBQuery1.FieldByName('schorder').AsString;
  if ClassRoomList.ItemIndex<9 then
    startZkzh:=schorder+'0'+Inttostr(classRoomList.ItemIndex+1)
  else
    startZkzh:=schorder+Inttostr(classRoomList.ItemIndex+1);
  dm.IBQuery1.Close;
  dm.IBQuery1.SQL.Text:='select count(*) as cnt from incepted where zkzh='''+
    startZkzh+''' and subject='''+SubjectName+'''';
  dm.IBQuery1.Open;
  if dm.IBQuery1.FieldByName('cnt').AsInteger>0 then
  begin
    Application.MessageBox('本考室已经被锁定!','提示',MB_OK or MB_ICONINFORMATION);
    exit;
  end;

  fmInput:=TfmInput.Create(nil);
  fmInput.lbSchool.Caption:=SchoolList.Items[SchoolList.ItemIndex];
  fmInput.lbKS.Caption:=ClassRoomList.Items[ClassRoomList.itemindex];
  fmInput.lbKM.Caption:=RGPSubject.Items[RGPSubject.itemindex];
  fmInput.lbLLY.Caption:=UserName;
  fmInput.IBQuery1.Transaction.Active:=false;
  fmInput.IBQuery1.Transaction.StartTransaction;
  fmInput.IBQuery1.Close;
  fmInput.IBQuery1.SQL.Text:='select a.zkzh,b.stdname,a.'+SubjectName+
    ' from '+CurrentACH+' a,STUDENT b where a.zkzh=b.zkzh and substring(a.zkzh from 2 for 6)='''+
    startZkzh+''' order by a.zkzh';
  fmInput.SubjectName:=SubjectName;//当前科目
  fmInput.ShowModal;
  FreeAndNil(fmInput);
end;

end.