decreasedetailunit.pas

学费管理系统,学校使用

unit decreasedetailUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DB, ADODB, StdCtrls, Buttons, ComCtrls,
  commonunit;

type
  TScholar=record
    Id:integer;
    Scholar:string;
  end;

  TDepartment=record
    id:integer;
    department:string;
  end;






  Tdecreasedetailform = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Label9: TLabel;
    Scholar_ComboBox: TComboBox;
    Label10: TLabel;
    Department_ComboBox: TComboBox;
    Departmentid_Edit: TEdit;
    Label13: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label12: TLabel;
    Length_ComboBox: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    search_bitbtn: TBitBtn;
    clear_bitbtn: TBitBtn;
    close_bitbtn: TBitBtn;
    oper_adoquery: TADOQuery;
    DataSource1: TDataSource;
    Scholarid_edit: TEdit;
    ChargeYearID_edit: TEdit;
    ChargeRangeId_edit: TEdit;
    oper_combobox: TComboBox;
    oper_edit: TEdit;
    output_bitbtn: TBitBtn;
    list_adoquery: TADOQuery;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label7: TLabel;
    DateTimePicker2: TDateTimePicker;
    CheckBox1: TCheckBox;
    ClassCode_Edit: TComboBox;
    name_Edit: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Scholar_ComboBoxChange(Sender: TObject);
    procedure Department_ComboBoxChange(Sender: TObject);
    procedure oper_comboboxChange(Sender: TObject);
    procedure clear_bitbtnClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure close_bitbtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure search_bitbtnClick(Sender: TObject);
    procedure ChargeRangeId_editKeyPress(Sender: TObject; var Key: Char);
    procedure ChargeYearID_editKeyPress(Sender: TObject; var Key: Char);
    procedure output_bitbtnClick(Sender: TObject);
    procedure ClassCode_EditChange(Sender: TObject);
  private
    { Private declarations }
    NewScholar:array of TScholar;
    NewDepartMent:array of TDepartment;
    NewOper:array of TOperator;
    procedure CloseWindow(var Msg:TMessage);message wm_user;
    procedure clearcontent;
  public
    { Public declarations }
  end;

var
  decreasedetailform: Tdecreasedetailform;

implementation

uses DMUnit;

{$R *.dfm}

procedure Tdecreasedetailform.FormCreate(Sender: TObject);
var
  i:integer;
begin
  with oper_adoquery do
  begin
{   close;
    sql.Clear;
    sql.Add('select * from department order by id');
    open;
    department_combobox.Items.Add(' ');
    if not isempty then
    begin
      setlength(Newdepartment,RecordCount);
      for i := 0 to RecordCount-1 do
      begin
        Newdepartment[i].Id :=fieldbyname('id').AsInteger ;
        Newdepartment[i].department :=fieldbyname('department').AsString ;
        department_combobox.Items.Add(fieldbyname('department').AsString) ;
        Next;
      end;
    end;   }

    close;
    sql.Clear;
    sql.Add('select * from Scholar order by id');
    open;
    scholar_combobox.Items.Add(' ');
    if not isempty then
    begin
      setlength(NewScholar,RecordCount);
      for i := 0 to RecordCount-1 do
      begin
        NewScholar[i].Id :=fieldbyname('id').AsInteger ;
        NewScholar[i].Scholar:=fieldbyname('Scholar').AsString ;
        scholar_combobox.Items.Add(fieldbyname('Scholar').AsString) ;
        Next;
      end;
    end;

    close;
    sql.Clear;
    sql.Add('select * from operator where code<>''admin''');
    open;
    oper_combobox.Items.Add(' ');
    if not isempty then
    begin
      setlength(newoper,RecordCount);
      for i := 0 to RecordCount-1 do
      begin
        newoper[i].code  :=fieldbyname('code').asstring ;
        newoper[i].name :=fieldbyname('name').AsString ;
        oper_combobox.Items.Add(fieldbyname('name').AsString) ;
        Next;
      end;
    end;

   { close;
    sql.Clear;
    sql.Add('select distinct(classcode) from student');
    open;
    ClassCode_Edit.Items.Add(' ');
    if not isempty then
    begin
      for i := 0 to RecordCount-1 do
      begin
        ClassCode_Edit.Items.Add(fieldbyname('classcode').AsString );
        Next;
      end;

    end;  }
  end;

end;

procedure Tdecreasedetailform.Scholar_ComboBoxChange(Sender: TObject);
var
  i:integer;
begin
  department_combobox.ItemIndex:=-1;
  department_combobox.Items.Clear;
  departmentid_edit.Text :='';
  scholarid_Edit.Text:='';
  ClassCode_edit.Items.Clear;
  ClassCode_edit.Text :='';
  name_edit.Items.Clear;
  name_edit.Text :='';
  if trim(scholar_combobox.text)='' then exit;
  scholarid_Edit.Text :=inttostr(NewScholar[scholar_combobox.itemindex-1].id);
  with oper_adoquery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from department where ScholarId=:ScholarId order by id');
    Parameters.ParamByName('ScholarId').Value :=scholarid_edit.Text ;
    open;
    if not isempty then
    begin
      setlength(NewDepartMent,RecordCount);
      department_combobox.Items.Add(' ') ;
      for i := 0 to RecordCount-1 do
      begin
        NewDepartMent[i].Id :=fieldbyname('id').AsInteger ;
        NewDepartMent[i].department :=fieldbyname('department').AsString ;
        department_combobox.Items.Add(fieldbyname('department').AsString) ;
        Next;
      end;
    end;
  end;
 { scholarid_Edit.Text :='';
  if trim(scholar_combobox.text)='' then exit;
  scholarid_Edit.Text :=inttostr(NewScholar[scholar_combobox.itemindex-1].id); }
end;

procedure Tdecreasedetailform.Department_ComboBoxChange(Sender: TObject);
var
  i:integer;
begin
  departmentid_edit.Text :='';
  ClassCode_edit.Items.Clear;
  ClassCode_edit.Text :='';
  name_edit.Items.Clear;
  name_edit.Text :='';
  if trim(Department_ComboBox.text)='' then exit;
  Departmentid_Edit.Text :=inttostr(Newdepartment[Department_ComboBox.itemindex-1].id);
  with oper_adoquery do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct(classcode) from student where departmentid='+trim(Departmentid_Edit.Text));
    open;
    ClassCode_Edit.Items.Add(' ');
    if not isempty then
    begin
      for i := 0 to RecordCount-1 do
      begin
        ClassCode_Edit.Items.Add(fieldbyname('classcode').AsString );
        Next;
      end;
    end;
  end;
 { Departmentid_Edit.Text :='';
  if trim(Department_ComboBox.Text) ='' then exit;
  Departmentid_Edit.Text :=inttostr(Newdepartment[Department_ComboBox.itemindex-1].id);  }
end;