【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供main_xfgl_xxllform.pas参考，解决您在main_xfgl_xxllform.pas学习中工作中的难题，参考学习。

    unit main_xfgl_xxllform;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, Buttons, DBCtrls, Grids, DBGrids, ExtCtrls, Db, DBTables,
      ComCtrls, ImgList, Mask, DBCGrids;
    
    type
      Tmain_xfgl_xxll = class(TForm)
        Panel1: TPanel;
        Panel2: TPanel;
        Panel3: TPanel;
        DBGrid1: TDBGrid;
        TreeView1: TTreeView;
        Panel4: TPanel;
        Panel15: TPanel;
        firstbutton: TButton;
        nextbutton: TButton;
        prebutton: TButton;
        lastbutton: TButton;
        Button7: TButton;
        BitBtn4: TBitBtn;
        BitBtn3: TBitBtn;
        BitBtn2: TBitBtn;
        BitBtn6: TBitBtn;
        BitBtn7: TBitBtn;
        Panel5: TPanel;
        DataSource1: TDataSource;
        Table1: TTable;
        Table1BDEDesigner: TStringField;
        Table1BDEDesigner2: TStringField;
        Table1BDEDesigner8: TStringField;
        Table1BDEDesigner3: TStringField;
        Table1BDEDesigner4: TStringField;
        Table1XF: TCurrencyField;
        Table1ZF: TCurrencyField;
        Table1KBF: TCurrencyField;
        Table1ZSF: TCurrencyField;
        Table1BF: TCurrencyField;
        Table1KGF: TCurrencyField;
        Table1BXF: TCurrencyField;
        Table1SJF: TCurrencyField;
        Table1JDF: TCurrencyField;
        Table1QTF: TCurrencyField;
        Table1MJF: TCurrencyField;
        Table1ZFY: TCurrencyField;
        Table1BDEDesigner5: TDateField;
        Table1BDEDesigner6: TStringField;
        DataSource2: TDataSource;
        Table2: TTable;
        ImageList1: TImageList;
        Table3: TTable;
        DataSource3: TDataSource;
        Timer1: TTimer;
        BitBtn5: TBitBtn;
        BitBtn1: TBitBtn;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        SpeedButton3: TSpeedButton;
        SpeedButton4: TSpeedButton;
        Label1: TLabel;
        BitBtn8: TBitBtn;
        BitBtn9: TBitBtn;
        BitBtn10: TBitBtn;
        BitBtn11: TBitBtn;
        procedure Table1CalcFields(DataSet: TDataSet);
        procedure TreeView1Click(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure Button7Click(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
        procedure BitBtn3Click(Sender: TObject);
        procedure firstbuttonClick(Sender: TObject);
        procedure prebuttonClick(Sender: TObject);
        procedure nextbuttonClick(Sender: TObject);
        procedure lastbuttonClick(Sender: TObject);
        procedure BitBtn7Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton3Click(Sender: TObject);
        procedure SpeedButton4Click(Sender: TObject);
        procedure DBGrid1DblClick(Sender: TObject);
        procedure BitBtn6Click(Sender: TObject);
        procedure BitBtn4Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure BitBtn5Click(Sender: TObject);
        procedure BitBtn8Click(Sender: TObject);
        procedure BitBtn9Click(Sender: TObject);
        procedure BitBtn10Click(Sender: TObject);
        procedure BitBtn11Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      main_xfgl_xxll: Tmain_xfgl_xxll;
    
    implementation
    
    uses main_xfgl_xxll_llszform, main_xfgl_xxll_xjkpform, printform,
      main_xfgl_xxll_jfxxform, findrecord, main_xfgl_xftjcxform, main_dyform,
      main_yggl_zhgl_jlczform;
    
    {$R *.DFM}
    
    procedure Tmain_xfgl_xxll.Table1CalcFields(DataSet: TDataSet);
    begin
      table1zfy.Value:=table1XF.Value+table1zf.Value+table1kbf.Value
            +table1zsf.Value+table1bf.Value+table1kgf.Value+table1bxf.Value
            +table1sjf.value +table1jdf.Value+table1qtf.Value-table1mjf.Value;
    end;
    
    procedure Tmain_xfgl_xxll.TreeView1Click(Sender: TObject);
    var
      stra:string;
    begin
      stra:=treeview1.Selected.Text;
      if treeview1.Selected.Parent=nil then
        begin
          table1.Filtered:=false;
          table1.Filter:='xf<10000000000';
          table1.Filtered:=true;
        end
      else
        begin
          if treeview1.Selected.Parent.Text='全院' then
            begin
              table1.Filtered:=false;
              table1.Filter:='所在系名='+''''+stra+'''';
              table1.Filtered:=true;
            end
          else
           begin
            table1.Filtered:=false;
            table1.Filter:='所在班级='+''''+stra+'''';
            table1.Filtered:=true;
          end;
       end;
    end;
    
    procedure Tmain_xfgl_xxll.FormShow(Sender: TObject);
    var
      i,j:integer;
      node,node1:ttreenode;
    begin
       treeview1.TopItem.DeleteChildren;
    
       table2.First;
       for i:=1 to table2.RecordCount do
         begin
           node:=treeview1.Items.AddChild(treeview1.topitem,table2.Fields[0].Value);
           table3.Filtered:=false;
           table3.Filter:='xm='+''''+node.Text+'''';
           table3.Filtere