decreaseunit.pas

学费管理系统,学校使用

unit DecreaseUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, ADODB, frxDesgn, frxClass;

type
  TDecreaseform = class(TForm)
    Panel3: TPanel;
    Label6: TLabel;
    Label53: TLabel;
    StudentName_Edit: TEdit;
    search_BitBtn: TBitBtn;
    ChargeRangeId_combobox: TComboBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label46: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    id_edit: TEdit;
    Address_Edit: TEdit;
    ClassCode_Edit: TEdit;
    Source_Edit: TEdit;
    Tutor_Edit: TEdit;
    Circs_Edit: TEdit;
    Memo_Edit: TEdit;
    Scholar_Edit: TEdit;
    Department_Edit: TEdit;
    Spec_edit: TEdit;
    Code_Edit: TEdit;
    ChargeYearID_Edit: TEdit;
    Length_edit: TEdit;
    sex_edit: TEdit;
    StudyYear_edit: TEdit;
    Panel2: TPanel;
    save_BitBtn: TBitBtn;
    new_BitBtn: TBitBtn;
    close_BitBtn: TBitBtn;
    cancel_BitBtn: TBitBtn;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    decreasename_edit: TEdit;
    decreasenum_edit: TEdit;
    tuition_be_Edit: TEdit;
    tuition_re_Edit: TEdit;
    GroupBox2: TGroupBox;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    list_adoquery: TADOQuery;
    oper_adoquery: TADOQuery;
    DataSource1: TDataSource;
    cxGrid1DBTableView1DecreaseName: TcxGridDBColumn;
    cxGrid1DBTableView1DecreaseNum: TcxGridDBColumn;
    cxGrid1DBTableView1RegDate: TcxGridDBColumn;
    Label10: TLabel;
    decreasecode_Edit: TEdit;
    print_BitBtn: TBitBtn;
    frxDesigner1: TfrxDesigner;
    frxReport1: TfrxReport;
    ADOQuery1: TADOQuery;
    Label22: TLabel;
    tuition_rr_Edit: TEdit;
    procedure FormShow(Sender: TObject);
    procedure decreasenum_editKeyPress(Sender: TObject; var Key: Char);
    procedure decreasenum_editExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cancel_BitBtnClick(Sender: TObject);
    procedure new_BitBtnClick(Sender: TObject);
    procedure close_BitBtnClick(Sender: TObject);
    procedure save_BitBtnClick(Sender: TObject);
    procedure StudentName_EditKeyPress(Sender: TObject; var Key: Char);
    procedure search_BitBtnClick(Sender: TObject);
    procedure ChargeRangeId_comboboxChange(Sender: TObject);
    procedure print_BitBtnClick(Sender: TObject);
    procedure decreasenum_editEnter(Sender: TObject);
    procedure frxReport1BeforePrint(Sender: TfrxReportComponent);
  private
    { Private declarations }
    print:boolean;
    procedure CloseWindow(var Msg:TMessage);message wm_user;
    procedure ClearContent;
    procedure ButtonUse(CanUse:boolean);
  public
    { Public declarations }
  end;

var
  Decreaseform: TDecreaseform;

implementation

uses DMUnit, MainformUnit, tipUnit, commonunit;

{$R *.dfm}

{ TDecreaseform }

procedure TDecreaseform.ButtonUse(CanUse: boolean);
begin
  save_BitBtn.Enabled  :=CanUse;
  new_BitBtn.Enabled  :=not canuse;
  panel3.Enabled :=canuse;
  print_bitbtn.Enabled :=not canuse;
  cancel_bitbtn.Enabled :=false;
  GroupBox1.Enabled :=canuse;
end;

procedure TDecreaseform.ClearContent;
begin
  id_edit.Text :='';
  ChargeRangeId_combobox.ItemIndex:=-1;
  ChargeRangeId_combobox.items.Clear;
  StudyYear_edit.text:='';
  StudentName_Edit.Text :='';
  Sex_Edit.Text :='';
  ChargeYearID_Edit.Text :='';
  Address_Edit.text:='';
  Scholar_Edit.Text :='';
  Department_Edit.Text :='';
  Spec_Edit.Text :='';
  Length_Edit.Text :='';
  ClassCode_Edit.Text :='';
  Code_Edit.Text :='';
  Source_Edit.Text :='';
  Tutor_Edit.Text :='';
  Circs_Edit.Text :='';
  Memo_Edit.Text :='';
  decreasecode_Edit.Text :='';
  tuition_be_Edit .Text :='0';
  tuition_re_Edit.Text :='0';
  decreasename_edit.Text :='';
  decreasenum_edit.Text :='0';
  tuition_rr_Edit.Text :='0';
  print:=false;
  list_adoquery.Close;
end;

procedure TDecreaseform.CloseWindow(var Msg: TMessage);
begin
  freeandnil(Decreaseform);
end;

procedure TDecreaseform.FormShow(Sender: TObject);
var
  wpath:string;
begin
  clearcontent;
  WPath := ExtractFilePath(Application.ExeName);
  frxReport1.LoadFromFile(WPath + '减免单.fr3');
end;

procedure TDecreaseform.decreasenum_editKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in['0'..'9','.',#8,#13]) then key:=#0;
end;

procedure TDecreaseform.decreasenum_editExit(Sender: TObject);
var
  Cash:Currency;
begin
  if close_bitbtn.Focused then exit;
  if trim((sender as tedit).Text )='' then (sender as tedit).Text:='0';
  try
    cash:= strtofloat(trim((sender as tEdit).text) );
    if cash<0 then
    begin
      MessageBox(application.handle,pchar('金额输入错误!'),'错误',MB_ICONWARNING+MB_OK);
      (sender as TEdit).SetFocus ;
    end;
  except
    MessageBox(application.handle,pchar('金额输入错误!'),'错误',MB_ICONWARNING+MB_OK);
    (sender as TEdit).SetFocus ;
  end;
end;

procedure TDecreaseform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
  postmessage(handle,wm_user,0,0);
end;

procedure TDecreaseform.cancel_BitBtnClick(Sender: TObject);
begin
  buttonUse(true);
  ClearContent ;
  StudentName_Edit.Enabled :=true;
  search_BitBtn.Enabled :=true;
  cancel_bitbtn.Enabled :=false;
  ChargeRangeId_combobox.Enabled :=false;
  groupbox1.enabled:=false;
  StudentName_Edit.SetFocus ;
end;

procedure TDecreaseform.new_BitBtnClick(Sender: TObject);
begin
  if not print then
    if messagebox(handle,pchar('减免票据没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  buttonUse(true);
  ClearContent ;
  StudentName_Edit.Enabled :=true;
  search_BitBtn.Enabled :=true;
  cancel_bitbtn.Enabled :=false;
  ChargeRangeId_combobox.Enabled :=false;
  groupbox1.enabled:=false;
  StudentName_Edit.SetFocus ;
end;

procedure TDecreaseform.close_BitBtnClick(Sender: TObject);
begin
  if save_BitBtn.Enabled  then
  begin
    self.Close;
    exit;
  end;
  if not print then
    if messagebox(handle,pchar('减免票据没有打印,是否打印'),'请选择',MB_ICONQUESTION	+MB_YESNO)=6 then exit;
  self.Close;
end;

procedure TDecreaseform.save_BitBtnClick(Sender: TObject);
var
  TmpID,tmpstr:String;
  tmpmoney:currency;
  i:integer;
begin
  if trim(StudentName_Edit.Text )='' then
  begin
    MessageBox(application.handle,pchar('姓名没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    StudentName_Edit.SetFocus ;
    exit;
  end;
  if trim(ChargeRangeId_combobox.Text )='' then
  begin
    MessageBox(application.handle,pchar('收费年份没有选择!'),'错误',MB_ICONWARNING+MB_OK);
    ChargeRangeId_combobox.SetFocus ;
    exit;
  end;
  if trim(decreasenum_edit.Text )='0' then
  begin
    MessageBox(application.handle,pchar('减免金额没有填写!'),'错误',MB_ICONWARNING+MB_OK);
    decreasenum_edit.SetFocus ;
    exit;
  end;
  if trim(decreasenum_edit.Text )<>'0' then
    if trim(decreasecode_Edit.Text )='' then
    begin
      MessageBox(application.handle,pchar('减免单号没有填写!'),'错误',MB_ICONWARNING+MB_OK);
      decreasecode_Edit.SetFocus ;
      exit;
    end;

  try
    with oper_adoquery do
    begin
      tmpid:=trim(id_edit.text);
      close;
      sql.clear;
      sql.Add('select * from income where');
      sql.Add(' StudentID =:StudentID and ChargeRangeId =:ChargeRangeId');
      sql.Add(' and ChargeItemId=:ChargeItemId ');
      Parameters.ParamByName('StudentID').Value :=tmpid;
      Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_combobox.Text ;
      Parameters.ParamByName('ChargeItemId').Value := 1;
      open;
      tmpstr:=trim(fieldbyname('deratename').AsString) ;
      tmpmoney:=fieldbyname('derate').AsFloat ;

      //收支总表- 学费
      close;
      sql.Clear;
      sql.Add('update income set Derate=:Derate, DerateName =:DerateName where');
      sql.Add(' StudentID =:StudentID and ChargeRangeId =:ChargeRangeId');