main_xfgl_jftjform.pas

校园综合管理系统

unit main_xfgl_jftjform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ComCtrls, Db, DBTables, ImgList,
  mxgrid, ExtCtrls, mxpivsrc, mxDB, mxtables, mxstore;

type
  Tmain_xfgl_jftj = class(TForm)
    ListView1: TListView;
    ListView2: TListView;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ImageList2: TImageList;
    RadioButton3: TRadioButton;
    Table2: TTable;
    ImageList3: TImageList;
    ImageList4: TImageList;
    Table3: TTable;
    ImageList5: TImageList;
    ListView3: TListView;
    ImageList6: TImageList;
    ImageList7: TImageList;
    Table4: TTable;
    Label2: TLabel;
    BitBtn3: TBitBtn;
    Label3: TLabel;
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource1: TDecisionSource;
    DecisionPivot1: TDecisionPivot;
    DecisionGrid1: TDecisionGrid;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    Bevel3: TBevel;
    BitBtn10: TBitBtn;
    Table3BDEDesigner: TStringField;
    Table3BDEDesigner2: TStringField;
    Table3BDEDesigner3: TStringField;
    Table3BDEDesigner4: TStringField;
    Table3BDEDesigner5: TStringField;
    Table3XF: TCurrencyField;
    Table3ZF: TCurrencyField;
    Table3KBF: TCurrencyField;
    Table3ZSF: TCurrencyField;
    Table3BF: TCurrencyField;
    Table3KGF: TCurrencyField;
    Table3BXF: TCurrencyField;
    Table3SJF: TCurrencyField;
    Table3JDF: TCurrencyField;
    Table3QTF: TCurrencyField;
    Table3MJF: TCurrencyField;
    Table3BDEDesigner6: TDateField;
    Table3BDEDesigner7: TStringField;
    Table3zfy: TCurrencyField;
    procedure FormShow(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView2DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ListView3DblClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure ListView3Click(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Table3CalcFields(DataSet: TDataSet);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_xfgl_jftj: Tmain_xfgl_jftj;

implementation
      uses main_xfgl_xxll_jfxxform, main_xfgl_xxll_xjkpform,
  main_xjgl_xjll_xjkpform;
{$R *.DFM}

procedure Tmain_xfgl_jftj.FormShow(Sender: TObject);
var
   i:integer;
   item:tlistitem;
 begin
  table1.open;
  decisionquery1.Active:=true;
  table1.First;
listview1.Items.Clear;
  for i:=1 to table1.RecordCount do
   begin
   item:=listview1.Items.Add;
   item.Caption:=table1.Fields[0].value;
    item.ImageIndex:=0;
     table1.Next;
    end;
  table3.open;  
 end;
procedure Tmain_xfgl_jftj.RadioButton1Click(Sender: TObject);

begin

  listview1.ViewStyle:=vsIcon;
     listview2.ViewStyle:=vsIcon;
   listview3.ViewStyle:=vsIcon;   
end;

procedure Tmain_xfgl_jftj.RadioButton2Click(Sender: TObject);
begin
  listview1.ViewStyle:=vssmallicon;
  listview2.ViewStyle:=vssmallicon;
  listview3.ViewStyle:=vssmallicon;
end;

procedure Tmain_xfgl_jftj.RadioButton3Click(Sender: TObject);
begin
  listview1.ViewStyle:=vsList;
   listview2.ViewStyle:=vsList;
    listview3.ViewStyle:=vsList;
end;

procedure Tmain_xfgl_jftj.ListView1DblClick(Sender: TObject);
var
  item:tlistitem;
  i:integer;
  begin
        label1.Caption:=listview1.Selected.Caption;
        bitbtn1.Enabled:=true;
        listview3.Visible:=true;
        listview3.Items.Clear;
        table4.First;
          for i:=1 to table4.RecordCount do
            begin
              item:=listview3.Items.add;
              item.Caption:=table4.Fields[0].value;
              table4.Next;
             end;
        
end;


procedure Tmain_xfgl_jftj.ListView2DblClick(Sender: TObject);
var
  item:tlistitem;
  i:integer;
  begin
 label3.Caption:=listview2.Selected.Caption;
  bitbtn1.Visible:=false;
  bitbtn2.Visible:=false;
  bitbtn3.Visible:=true;

 listview2.Items.Clear;
 listview2.LargeImages:=imagelist5;
 listview2.SmallImages:=imagelist5;
    table3.Filtered:=false;
     table3.Filter:='所在班级='+''''+label3.Caption+'''';
     table3.Filtered:=true;
     table3.first;
     for i:=1 to table3.RecordCount do
          begin
           item:=listview2.Items.add;
           item.Caption:=table3.Fields[1].value;
          table3.Next;
          end;

end;
procedure Tmain_xfgl_jftj.BitBtn1Click(Sender: TObject);
begin
   bitbtn1.Enabled:=false;
   listview3.Visible:=false;
end;

procedure Tmain_xfgl_jftj.BitBtn2Click(Sender: TObject);

 //var
  //item:tlistitem;
  //i:integer;
  begin
    listview2.Visible:=false;
    bitbtn2.Visible:=false;
    bitbtn1.Visible:=true;
 end;

procedure Tmain_xfgl_jftj.ListView3DblClick(Sender: TObject);
var
    i:integer;
  item:tlistitem;
 
begin
//  label2.Caption:='';
 label2.Caption:=listview3.Selected.Caption;
 //listview2.Visible:=true;
 bitbtn1.Visible:=false;
 bitbtn2.Visible:=true;
 listview2.Visible:=true;
 listview2.Items.Clear;

    table2.Filtered:=false;
     table2.Filter:='xm='+''''+label1.Caption+''''+' and '+'yj='+''''+label2.Caption+'''';
     table2.Filtered:=true;
        table2.First;
     for i:=1 to table2.RecordCount do
          begin
           item:=listview2.Items.add;
           item.Caption:=table2.Fields[1].value;
          table2.Next;
          end;

end;

procedure Tmain_xfgl_jftj.BitBtn3Click(Sender: TObject);
var
  i:integer;
  item:tlistitem;
begin
   bitbtn3.Visible:=false;
   bitbtn2.Visible:=true;
   listview2.Items.Clear;
    table2.Filtered:=false;
     table2.Filter:='xm='+''''+label1.Caption+''''+' and '+'yj='+''''+label2.Caption+'''';
     table2.Filtered:=true;
        table2.First;
     for i:=1 to table2.RecordCount do
          begin
           item:=listview2.Items.add;
           item.Caption:=table2.Fields[1].value;
          table2.Next;
     end;
end;

procedure Tmain_xfgl_jftj.ListView1Click(Sender: TObject);
begin
  table3.Filtered:=false;
  table3.Filter:='所在系名='+''''+listview1.Selected.Caption+'''';
  table3.Filtered:=true;

end;

procedure Tmain_xfgl_jftj.ListView3Click(Sender: TObject);
begin
    table3.Filtered:=false;
  table3.Filter:='所在年级='+''''+listview3.Selected.Caption+'''';
  table3.Filtered:=true;
end;

procedure Tmain_xfgl_jftj.ListView2Click(Sender: TObject);
begin
  if bitbtn3.Visible then
    begin
      table3.Filtered:=false;
  table3.Filter:='学生姓名='+''''+listview2.Selected.Caption+'''';
  table3.Filtered:=true;
   end
   else
   begin
  table3.Filtered:=false;
  table3.Filter:='所在班级='+''''+listview2.Selected.Caption+'''';
  table3.Filtered:=true;
    end;
end;

procedure Tmain_xfgl_jftj.DBGrid1DblClick(Sender: TObject);
begin
   main_xfgl_xxll_jfxx.Table1.open;
   main_xfgl_xxll_jfxx.table1.IndexFieldNames:='学生编号';
   main_xfgl_xxll_jfxx.table1.SetKey;
   main_xfgl_xxll_jfxx.table1.FieldByName('学生编号').value:=dbgrid1.Fields[0].value;
   main_xfgl_xxll_jfxx.table1.GotoKey;
   main_xfgl_xxll_jfxx.ShowModal;
end;

procedure Tmain_xfgl_jftj.BitBtn9Click(Sender: TObject);
begin
    main_xjgl_xjll_xjkp.Table1.open;
    main_xjgl_xjll_xjkp.table1.IndexFieldNames:='学生编号';
    main_xjgl_xjll_xjkp.table1.SetKey;
    main_xjgl_xjll_xjkp.table1.FieldByName('学生编号').value:=dbgrid1.Fields[0].value;
    main_xjgl_xjll_xjkp.table1.GotoKey;
    main_xjgl_xjll_xjkp.ShowModal;
end;

procedure Tmain_xfgl_jftj.BitBtn5Click(Sender: TObject);
begin
  bevel1.Visible:=false;
  bevel2.Visible:=false;
  groupbox1.Visible:=false;
  decisiongrid1.Visible:=false;
  decisionpivot1.Visible:=false;
  listview1.Visible:=false;
  listview2.Visible:=false;
  listview3.Visible:=false;
  bitbtn1.Visible:=false;
  bitbtn2.Visible:=false;
  bitbtn3.Visible:=false;
   bitbtn4.Visible:=false;
  bitbtn5.Visible:=false;
  bitbtn7.Visible:=false;
  bitbtn8.Visible:=false;
  bitbtn9.Visible:=false;
  bitbtn10.Visible:=true;
  dbgrid1.Left:=8;
  dbgrid1.Width:=bevel3.Width-12;
  dbgrid1.Height:=bevel3.Height-40;
end;

procedure Tmain_xfgl_jftj.BitBtn10Click(Sender: TObject);
begin
  decisionquery1.Active:=false;
  table3.close;
close;
end;

procedure Tmain_xfgl_jftj.BitBtn7Click(Sender: TObject);
begin
  dbgrid1.Visible:=false;
  groupbox1.Visible:=false;
  listview1.Visible:=false;
  listview2.Visible:=false;
  listview3.Visible:=false;
  bitbtn1.Visible:=false;
  bitbtn2.Visible:=false;
  bitbtn3.Visible:=false;
  bevel1.Visible:=false;
  bevel2.Visible:=false;
  bitbtn4.Visible:=false;
  bitbtn5.Visible:=false;
  bitbtn7.Visible:=false;
  bitbtn8.Visible:=false;
  bitbtn9.Visible:=false;
  decisionpivot1.Left:=12;
  decisionpivot1.Top:=8;
  decisionpivot1.Width:=bevel3.Width-62;
  decisiongrid1.Top:=decisionpivot1.Height+12;
  decisiongrid1.Width:=bevel3.Width-20;
  decisiongrid1.Height:=bevel3.Height-40;
end;

procedure Tmain_xfgl_jftj.Table3CalcFields(DataSet: TDataSet);
begin
    table3zfy.Value:=table3XF.Value+table3zf.Value+table3kbf.Value
        +table3zsf.Value+table3bf.Value+table3kgf.Value+table3bxf.Value
        +table3sjf.value +table3jdf.Value+table3qtf.Value-table3mjf.Value;
end;

procedure Tmain_xfgl_jftj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  decisionquery1.Active:=false;
  table3.close;
end;

end.