mainformunit.pas

学费管理系统,学校使用

      begin
        if returnform.WindowState <>wsmaximized then
          showwindow(returnform.Handle,SW_MAXIMIZE	)
        else
          returnform.BringToFront;
        exit;
      end;
      returnform:=Treturnform.Create(mainform);
      returnform.Show ;
    end;
    25://老生收费录入
    begin
      if assigned(oldregform) then
      begin
        if oldregform.WindowState <>wsmaximized then
          showwindow(oldregform.Handle,SW_MAXIMIZE	)
        else
          oldregform.BringToFront;
        exit;
      end;
      oldregform:=Toldregform.Create(mainform);
      oldregform.Show ;
    end;
    26://补印单据
    begin
      if assigned(printform) then
      begin
        if printform.WindowState <>wsmaximized then
          showwindow(printform.Handle,SW_MAXIMIZE	)
        else
          printform.BringToFront;
        exit;
      end;
      printform:=tprintform.Create(mainform);
      printform.Show ;
    end;
    27://补印设置
    begin
      if assigned(printsetform) then
        printsetform.BringToFront
      else
      begin
        printsetform:= Tprintsetform.Create(mainform);
        printsetform.Show ;
      end;
    end;
    31:// 统计报表
    begin
      if assigned(statform) then
      begin
        if statform.WindowState <>wsmaximized then
          showwindow(statform.Handle,SW_MAXIMIZE	)
        else
          statform.BringToFront;
        exit;
      end;
      statform:=Tstatform.Create(mainform);
      statform.Show ;
    end;
    32:// 缴费明细表
    begin
      if assigned(paydetailform) then
      begin
        if paydetailform.WindowState <>wsmaximized then
          showwindow(paydetailform.Handle,SW_MAXIMIZE	)
        else
          paydetailform.BringToFront;
        exit;
      end;
      paydetailform:=Tpaydetailform.Create(mainform);
      paydetailform.Show ;
    end;
    33://减免明细表
    begin
      if assigned(decreasedetailform) then
      begin
        if decreasedetailform.WindowState <>wsmaximized then
          showwindow(decreasedetailform.Handle,SW_MAXIMIZE	)
        else
          decreasedetailform.BringToFront;
        exit;
      end;
      decreasedetailform:=Tdecreasedetailform.Create(mainform);
      decreasedetailform.Show ;
    end;
    34://欠费明细表
    begin
      if assigned(owedetailform) then
      begin
        if owedetailform.WindowState <>wsmaximized then
          showwindow(owedetailform.Handle,SW_MAXIMIZE	)
        else
          owedetailform.BringToFront;
        exit;
      end;
      owedetailform:=Towedetailform.Create(mainform);
      owedetailform.Show ;
    end;
    35://退费明细表
    begin
      if assigned(returndetailform) then
      begin
        if returndetailform.WindowState <>wsmaximized then
          showwindow(returndetailform.Handle,SW_MAXIMIZE	)
        else
          returndetailform.BringToFront;
        exit;
      end;
      returndetailform:=Treturndetailform.Create(mainform);
      returndetailform.Show ;
    end;
    36://人数统计表
    begin
      if assigned(peopleform) then
      begin
        if peopleform.WindowState <>wsmaximized then
          showwindow(peopleform.Handle,SW_MAXIMIZE	)
        else
          peopleform.BringToFront;
        exit;
      end;
      peopleform:=Tpeopleform.Create(mainform);
      peopleform.Show ;
    end;
    41://个人信息查询
    begin
      if assigned(personinfosearchform) then
      begin
        if personinfosearchform.WindowState <>wsmaximized then
          showwindow(personinfosearchform.Handle,SW_MAXIMIZE	)
        else
          personinfosearchform.BringToFront;
        exit;
      end;
      personinfosearchform:=Tpersoninfosearchform.Create(mainform);
      personinfosearchform.Show ;
    end;
    42://个人信息修改
    begin
      if assigned(personinfoeditform) then
      begin
        if personinfoeditform.WindowState <>wsmaximized then
          showwindow(personinfoeditform.Handle,SW_MAXIMIZE	)
        else
          personinfoeditform.BringToFront;
        exit;
      end;
      personinfoeditform:=Tpersoninfoeditform.Create(mainform);
      personinfoeditform.Show ;
    end;
    43://学生信息查询
    begin
      if assigned(studentinfosearchform) then
      begin
        if studentinfosearchform.WindowState <>wsmaximized then
          showwindow(studentinfosearchform.Handle,SW_MAXIMIZE	)
        else
          studentinfosearchform.BringToFront;
        exit;
      end;
      studentinfosearchform:=Tstudentinfosearchform.Create(mainform);
      studentinfosearchform.Show ;
    end;
    44://票据信息查询
    begin
      if assigned(billcodesearchform) then
      begin
        if billcodesearchform.WindowState <>wsmaximized then
          showwindow(billcodesearchform.Handle,SW_MAXIMIZE	)
        else
          billcodesearchform.BringToFront;
        exit;
      end;
      billcodesearchform:=Tbillcodesearchform.Create(mainform);
      billcodesearchform.Show ;
    end;
    45://学生信息删除
    begin
      if assigned(personinfodelform) then
      begin
        if personinfodelform.WindowState <>wsmaximized then
          showwindow(personinfodelform.Handle,SW_MAXIMIZE	)
        else
          personinfodelform.BringToFront;
        exit;
      end;
      personinfodelform:=Tpersoninfodelform.Create(mainform);
      personinfodelform.Show ;
    end;
    46://票据号码修改
    begin
      if assigned(billcodeeditform) then
      begin
        if billcodeeditform.WindowState <>wsmaximized then
          showwindow(billcodeeditform.Handle,SW_MAXIMIZE	)
        else
          billcodeeditform.BringToFront;
        exit;
      end;
      billcodeeditform:=Tbillcodeeditform.Create(mainform);
      billcodeeditform.Show ;
    end;
    55://学号变更
    begin
      if assigned(classcodeform) then
      begin
        if classcodeform.WindowState <>wsmaximized then
          showwindow(classcodeform.Handle,SW_MAXIMIZE	)
        else
          classcodeform.BringToFront;
        exit;
      end;
      classcodeform:=Tclasscodeform.Create(mainform);
      classcodeform.Show ;
    end;
    51:  //学历类型代码
    begin
      if assigned(ScholarForm) then
        ScholarForm.BringToFront
      else
      begin
        ScholarForm:= TScholarForm.Create(mainform);
        ScholarForm.Show ;
      end;
    end;
    52://院系代码
    begin
      if assigned(Departmentform) then
        Departmentform.BringToFront
      else
      begin
        Departmentform:= TDepartmentform.Create(mainform);
        Departmentform.Show ;
      end;
    end;
    53://专业代码
    begin
      if assigned(specform) then
        specform.BringToFront
      else
      begin
        specform:= Tspecform.Create(mainform);
        specform.Show ;
      end;
    end;
  end;

end;



procedure Tmainform.UpdateTable;
var
  year,month,day:word;
begin
  DecodeDate(now,year,month,day);
  if not((year<=2005) and (month<=7) ) then exit;
  with dm.oper_adoquery do
  begin
    close;
    sql.Clear;
    sql.Add('ALTER TABLE student alter column tutor varchar(20)');
    ExecSQL ;
  end;

end;

procedure Tmainform.FormCreate(Sender: TObject);
var
  tmpstr:String;
begin
  tmpstr:=ExtractFilePath(ParamStr(0))+SKINNAME;
  if FileExists(tmpstr) then
  begin
    {SkinData1.LoadFromFile(TmpStr);
    SkinData1.Active :=true;   }
  end;
end;

procedure Tmainform.Timer2Timer(Sender: TObject);
begin
  skindata1.Active :=true;
  timer2.Enabled :=false;
end;

end.