personinfosearchunit.pas

学费管理系统,学校使用

unit personinfosearchUnit;

interface

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

type

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

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

  TSpec=record
    id:integer;
    Spec:String;
  end;



  Tpersoninfosearchform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label46: TLabel;
    id_edit: TEdit;
    ChargeYearID_ComboBox: TComboBox;
    StudentName_Edit: TEdit;
    Sex_ComboBox: TComboBox;
    Address_Edit: TEdit;
    Scholar_ComboBox: TComboBox;
    Department_ComboBox: TComboBox;
    Spec_ComboBox: TComboBox;
    ClassCode_Edit: TEdit;
    ClassCode_BitBtn: TBitBtn;
    Length_ComboBox: TComboBox;
    Source_Edit: TEdit;
    Tutor_Edit: TEdit;
    Circs_Edit: TEdit;
    Memo_Edit: TEdit;
    Scholarid_Edit: TEdit;
    Departmentid_Edit: TEdit;
    Specid_edit: TEdit;
    Code_Edit: TEdit;
    Panel2: TPanel;
    save_BitBtn: TBitBtn;
    new_BitBtn: TBitBtn;
    close_BitBtn: TBitBtn;
    oper_adoquery: TADOQuery;
    Panel3: TPanel;
    search_BitBtn: TBitBtn;
    StudentN_Edit: TEdit;
    Label18: TLabel;
    BitBtn1: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn6: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn7: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    TabSheet2: TTabSheet;
    cxGrid2: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn8: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    TabSheet3: TTabSheet;
    cxGrid3: TcxGrid;
    cxGridDBTableView2: TcxGridDBTableView;
    cxGridDBColumn9: TcxGridDBColumn;
    cxGridDBColumn10: TcxGridDBColumn;
    cxGridDBColumn11: TcxGridDBColumn;
    cxGridDBColumn12: TcxGridDBColumn;
    cxGridDBColumn13: TcxGridDBColumn;
    cxGridDBColumn14: TcxGridDBColumn;
    cxGridDBColumn15: TcxGridDBColumn;
    cxGridDBColumn16: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    TabSheet4: TTabSheet;
    cxGrid4: TcxGrid;
    cxGridDBTableView3: TcxGridDBTableView;
    cxGridDBColumn17: TcxGridDBColumn;
    cxGridDBColumn18: TcxGridDBColumn;
    cxGridDBColumn19: TcxGridDBColumn;
    cxGridDBColumn20: TcxGridDBColumn;
    cxGridDBColumn21: TcxGridDBColumn;
    cxGridDBColumn22: TcxGridDBColumn;
    cxGridDBColumn23: TcxGridDBColumn;
    cxGridDBColumn24: TcxGridDBColumn;
    cxGridLevel3: TcxGridLevel;
    TabSheet5: TTabSheet;
    cxGrid5: TcxGrid;
    cxGridDBTableView4: TcxGridDBTableView;
    cxGridDBColumn25: TcxGridDBColumn;
    cxGridDBColumn26: TcxGridDBColumn;
    cxGridDBColumn27: TcxGridDBColumn;
    cxGridDBColumn28: TcxGridDBColumn;
    cxGridDBColumn29: TcxGridDBColumn;
    cxGridDBColumn30: TcxGridDBColumn;
    cxGridDBColumn31: TcxGridDBColumn;
    cxGridDBColumn32: TcxGridDBColumn;
    cxGridLevel4: TcxGridLevel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Scholar_ComboBoxChange(Sender: TObject);
    procedure Department_ComboBoxChange(Sender: TObject);
    procedure Spec_ComboBoxChange(Sender: TObject);
    procedure ClassCode_BitBtnClick(Sender: TObject);
    procedure save_BitBtnClick(Sender: TObject);
    procedure close_BitBtnClick(Sender: TObject);
    procedure new_BitBtnClick(Sender: TObject);
    procedure StudentN_EditKeyPress(Sender: TObject; var Key: Char);
    procedure search_BitBtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    { Private declarations }
    NewScholar:array of TScholar;
    NewDepartMent:array of TDepartment;
    NewSpec:array of TSpec;
    procedure CloseWindow(var Msg:TMessage);message wm_user;
    procedure ClearContent;
    procedure ButtonUse(CanUse:boolean);
  public
    { Public declarations }
  end;

var
  personinfosearchform: Tpersoninfosearchform;


implementation

uses DMUnit, commonunit, tipUnit, MainformUnit;

{$R *.dfm}

procedure Tpersoninfosearchform.CloseWindow(var Msg: TMessage);
begin
  FreeAndNil(personinfosearchform);
end;

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

procedure Tpersoninfosearchform.FormShow(Sender: TObject);
begin
  clearcontent;
end;

procedure Tpersoninfosearchform.FormCreate(Sender: TObject);
var
  i:integer;
  Year, Month, Day: Word;
begin
  decodedate(now,year,month,day);
  ChargeYearID_ComboBox.Items.Clear;
  for i :=year-5  to year+5 do
  begin
    ChargeYearID_ComboBox.Items.Add(inttostr(i));
  end;

  with oper_adoquery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from Scholar order by id');
    open;
    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;
  end;
end;

procedure Tpersoninfosearchform.Scholar_ComboBoxChange(Sender: TObject);
var
  i:integer;
begin
  department_combobox.ItemIndex:=-1;
  departmentid_edit.Text :='';
  department_combobox.Items.Clear;
  scholarid_Edit.Text:='';
  spec_combobox.ItemIndex:=-1;
  specid_edit.Text :='';
  spec_combobox.Items.Clear;
  ClassCode_Edit.Text :='';
  if scholar_combobox.ItemIndex<0 then exit;
  scholarid_Edit.Text :=inttostr(NewScholar[scholar_combobox.itemindex].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);
      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;
end;

procedure Tpersoninfosearchform.ClearContent;
var
  Year, Month, Day: Word;
begin
  decodedate(now,year,month,day);
  id_edit.Text :='';
  ChargeYearID_ComboBox.ItemIndex:=ChargeYearID_ComboBox.Items.IndexOf(inttostr(year));
  StudentN_Edit.Text :='';
  StudentName_Edit.Text :='';
  Sex_ComboBox.ItemIndex:=-1;
  Address_Edit.text:='';
  Scholar_ComboBox.ItemIndex :=-1;
  Scholarid_Edit.Text :='';
  Department_ComboBox.ItemIndex :=-1;
  Departmentid_Edit.Text :='';
  Spec_ComboBox.ItemIndex:=-1;
  Specid_edit.Text :='';
  Length_ComboBox.ItemIndex:=-1;
  ClassCode_Edit.Text :='';
  Code_Edit.Text :='';
  Source_Edit.Text :='';
  Tutor_Edit.Text :='';
  Circs_Edit.Text :='';
  Memo_Edit.Text :='';


end;

procedure Tpersoninfosearchform.Department_ComboBoxChange(Sender: TObject);
var
  i:integer;
begin

  departmentid_edit.Text :='';
  spec_combobox.ItemIndex:=-1;
  specid_edit.Text :='';
  spec_combobox.Items.Clear;
  ClassCode_Edit.Text :='';
  if Department_ComboBox.ItemIndex<0 then exit;
  departmentid_edit.Text :=inttostr(NewDepartment[Department_ComboBox.itemindex].id);
  with oper_adoquery do
  begin
    close;