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.Filtered:=true;

       for j:=1 to table3.RecordCount do
       begin
         node1:=treeview1.Items.Addchild(node,table3.Fields[1].value);
         node1.ImageIndex:=2;
         node1.SelectedIndex:=3;
          table3.Next;
       end;
       node.ImageIndex:=1;
       node.SelectedIndex:=1;
       table2.Next;
      end;
   table1.open;
end;

procedure Tmain_xfgl_xxll.Button7Click(Sender: TObject);
begin
   if main_yggl_zhgl_jlcz.ShowModal=mrok then
    begin
       if(main_yggl_zhgl_jlcz.RadioGroup1.Controls[0] as tradiobutton).checked then
            table1.filtered:=false;
               table1.filter:='学生编号='+''''+main_yggl_zhgl_jlcz.Edit1.Text+'''';
          table1.filtered:=true;

     end;

   if (main_yggl_zhgl_jlcz.RadioGroup1.Controls[1] as tradiobutton).checked then
        begin
          with table1 do
              try
                disablecontrols;
                filtered:=false;
                filter:='学生姓名='+''''+main_yggl_zhgl_jlcz.Edit2.Text+'''';
                filtered:=true;
              finally
              enablecontrols;
         end;
    end;
end;

procedure Tmain_xfgl_xxll.Timer1Timer(Sender: TObject);
begin
   timer1.Interval:=strtoint(main_xfgl_xxll_llsz.Label3.Caption);
    table1.MoveBy(main_xfgl_xxll_llsz.sppp.Value);
   if table1.Eof then table1.First;
end;

procedure Tmain_xfgl_xxll.BitBtn3Click(Sender: TObject);
begin
   
  if bitbtn3.Caption='自动浏览' then
   begin
     if main_xfgl_xxll_llsz.ShowModal=mrok then
       begin
          bitbtn3.Caption:='关闭自动浏览';
          bitbtn7.Enabled:=true;
         timer1.Enabled:=true;
        end;
    end
   else
    begin
     bitbtn3.Caption:='自动浏览';
      timer1.Enabled:=false;
      bitbtn7.Enabled:=false;
    end;

end;

procedure Tmain_xfgl_xxll.firstbuttonClick(Sender: TObject);
begin
  table1.First;
  firstbutton.Enabled:=false;
  prebutton.Enabled:=false;
  nextbutton.Enabled:=true;
  lastbutton.Enabled:=true;
end;

procedure Tmain_xfgl_xxll.prebuttonClick(Sender: TObject);
begin
  table1.Prior;
  if table1.Bof then
    begin
    prebutton.Enabled:=false;
    firstbutton.Enabled:=false;
    end
   else
       begin
       nextbutton.Enabled:=true;
       lastbutton.Enabled:=true;
     end;  
end;

procedure Tmain_xfgl_xxll.nextbuttonClick(Sender: TObject);
begin
   table1.Next;
  if table1.Eof then
    begin
     nextbutton.Enabled:=false;
     lastbutton.Enabled:=false;
     end
    else
    begin
      prebutton.Enabled:=true;
      firstbutton.Enabled:=true
    end;
end;

procedure Tmain_xfgl_xxll.lastbuttonClick(Sender: TObject);
begin
   table1.Last;
  lastbutton.Enabled:=false;
  nextbutton.Enabled:=false;
  firstbutton.Enabled:=true;
  prebutton.Enabled:=true;
end;

procedure Tmain_xfgl_xxll.BitBtn7Click(Sender: TObject);
begin
  if bitbtn7.Caption='暂停自动浏览' then
    begin
      timer1.Interval:=0;
      bitbtn7.Caption:='继续自动浏览';
    end
    else
    begin
       bitbtn7.Caption:='暂停自动浏览';
      timer1.Interval:=strtoint(main_xfgl_xxll_llsz.Label3.Caption);
      table1.MoveBy(main_xfgl_xxll_llsz.sppp.Value);
    end;
end;

procedure Tmain_xfgl_xxll.SpeedButton2Click(Sender: TObject);
begin
  table1.CachedUpdates:=true;
  speedbutton1.Enabled:=true;
  speedbutton3.Enabled:=true;
  speedbutton4.Enabled:=true;
end;

procedure Tmain_xfgl_xxll.SpeedButton1Click(Sender: TObject);
begin
  table1.CachedUpdates:=false;
   speedbutton1.Enabled:=false;
  speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
end;

procedure Tmain_xfgl_xxll.SpeedButton3Click(Sender: TObject);
begin
  table1.ApplyUpdates;
  speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
end;

procedure Tmain_xfgl_xxll.SpeedButton4Click(Sender: TObject);
begin
  table1.CancelUpdates;
  speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
end;

procedure Tmain_xfgl_xxll.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_xxll.BitBtn6Click(Sender: TObject);
begin
   main_xfgl_xxll_xjkp.Table1.open;
    main_xfgl_xxll_xjkp.table1.IndexFieldNames:='学生编号';
    main_xfgl_xxll_xjkp.table1.SetKey;
    main_xfgl_xxll_xjkp.table1.FieldByName('学生编号').value:=dbgrid1.Fields[0].value;
    main_xfgl_xxll_xjkp.table1.GotoKey;
    main_xfgl_xxll_xjkp.ShowModal;
end;

procedure Tmain_xfgl_xxll.BitBtn4Click(Sender: TObject);
begin
  main_dy.Table1.Filtered:=false;
  main_dy.Table1.Filter:=table1.Filter;
  main_dy.table1.Filtered:=true;
  main_dy.ShowModal;
end;

procedure Tmain_xfgl_xxll.BitBtn2Click(Sender: TObject);
begin
  main_xfgl_xftjcx:=tmain_xfgl_xftjcx.Create(nil);
  try
    main_xfgl_xftjcx.ShowModal;
  finally
   main_xfgl_xftjcx.free;
  end;
end;

procedure Tmain_xfgl_xxll.BitBtn5Click(Sender: TObject);
begin
 close;
end;

procedure Tmain_xfgl_xxll.BitBtn8Click(Sender: TObject);
begin
   bitbtn10.Enabled:=true;
   bitbtn11.Enabled:=true;
   table1.edit;
end;

procedure Tmain_xfgl_xxll.BitBtn9Click(Sender: TObject);
begin
   if messagebox(main_xfgl_xxll.Handle,'确定要删除本条记录吗？','请确认',mb_okcancel)=idok then
    begin
      table1.delete;
    end;
end;

procedure Tmain_xfgl_xxll.BitBtn10Click(Sender: TObject);
begin
  table1.Post;
  bitbtn10.Enabled:=false;
  bitbtn11.Enabled:=false;
end;

procedure Tmain_xfgl_xxll.BitBtn11Click(Sender: TObject);
begin
  table1.cancel;
   bitbtn10.Enabled:=false;
  bitbtn11.Enabled:=false;
end;

procedure Tmain_xfgl_xxll.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.close;
end;

end.