main_xjgl_xjllform.pas

校园综合管理系统源码 校园综合管理系统源码

unit main_xjgl_xjllform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ImgList, DBTables, StdCtrls, Buttons, DBCtrls, ComCtrls, Grids,
  DBGrids, ExtCtrls, DBCGrids, Mask;

type
  Tmain_xjgl_xjcx = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    TreeView1: TTreeView;
    DataSource1: TDataSource;
    Table1: TTable;
    DataSource2: TDataSource;
    Table2: TTable;
    ImageList1: TImageList;
    Table3: TTable;
    DataSource3: TDataSource;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TStringField;
    Table1BDEDesigner8: TStringField;
    Table1BDEDesigner9: TStringField;
    Table1BDEDesigner10: TStringField;
    Table1BDEDesigner11: TStringField;
    DBCtrlGrid1: TDBCtrlGrid;
    bh: TDBEdit;
    xmm: TDBEdit;
    DBImage1: TDBImage;
    Table1BDEDesigner12: TMemoField;
    Table1BDEDesigner13: TGraphicField;
    bz: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    yl: TDBEdit;
    jt: TDBEdit;
    xb: TDBComboBox;
    zzmm: TDBComboBox;
    xm: TDBComboBox;
    yj: TDBComboBox;
    bj: TDBComboBox;
    zy: TDBComboBox;
    Table4: TTable;
    DataSource4: TDataSource;
    Button1: TButton;
    Timer1: TTimer;
    Label12: TLabel;
    Panel4: TPanel;
    Panel15: TPanel;
    firstbutton: TButton;
    nextbutton: TButton;
    prebutton: TButton;
    lastbutton: TButton;
    Button7: TButton;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    Panel5: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    BitBtn3: TBitBtn;
    BitBtn7: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure firstbuttonClick(Sender: TObject);
    procedure lastbuttonClick(Sender: TObject);
    procedure nextbuttonClick(Sender: TObject);
    procedure prebuttonClick(Sender: TObject);
    procedure Button7Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_xjgl_xjcx: Tmain_xjgl_xjcx;

implementation

uses findrecord, printform,main_xjgl_tjcxform, main_xfgl_xxll_llszform,
  main_xfgl_xxll_xjkpform, main_xfgl_xxll_jfxxform;

{$R *.DFM}

procedure Tmain_xjgl_xjcx.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;
      table4.open;
      xm.DropDownCount:=table4.RecordCount;
      table4.First;
      for i:=1 to table4.RecordCount do
       begin
        xm.Items.Add(table4.Fields[0].value);
        table4.Next;
      end;
        table4.close;
        table4.TableName:='yj';
        table4.TableType:=ttparadox;
        table4.open;
        yj.DropDownCount:=table4.RecordCount;
      for i:=1 to table4.RecordCount do
       begin
        yj.Items.Add(table4.Fields[0].value);
        table4.Next;
       end;

       table4.close;
        table4.TableName:='bj';
        table4.TableType:=ttparadox;
        table4.open;
        bj.DropDownCount:=table4.RecordCount;
      for i:=1 to table4.RecordCount do
       begin
        bj.Items.Add(table4.Fields[1].value);
        table4.Next;
       end;
        table4.close;
        table4.TableName:='zy';
        table4.TableType:=ttparadox;
        table4.open;
        zy.DropDownCount:=table4.RecordCount;
      for i:=1 to table4.RecordCount do
       begin
        zy.Items.Add(table4.Fields[0].value);
        table4.Next;
       end;
      table4.close;
     DBCtrlGrid1.Visible:=false;
     table1.open;
   end;

procedure Tmain_xjgl_xjcx.TreeView1Click(Sender: TObject);
var
  stra:string;
begin
  stra:=treeview1.Selected.Text;
  if treeview1.Selected.Parent=nil then
    begin
      table1.Filtered:=false;
      table1.Filter:='学生姓名<>'+''''+'dog'+'''';
      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_xjgl_xjcx.Button1Click(Sender: TObject);
begin
   if button1.Caption='直观浏览方式' then
      begin
        button1.Caption:='详细浏览方式';
        DBCtrlGrid1.Visible:=true;
      end
      else
       begin
         button1.Caption:='直观浏览方式';
         DBCtrlGrid1.Visible:=false;
       end;
end;

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

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

procedure Tmain_xjgl_xjcx.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_xjgl_xjcx.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_xjgl_xjcx.Button7Click(Sender: TObject);
begin
   if findrecorddlg.ShowModal=mrok then
    begin
       if(findrecorddlg.RadioGroup1.Controls[0] as tradiobutton).checked then
            table1.filtered:=false;
            table1.filter:='学生编号='+''''+findrecorddlg.Edit1.Text+'''';
           table1.filtered:=true;
       end

  else if (findrecorddlg.RadioGroup1.Controls[1] as tradiobutton).checked then
        begin
               table1.filtered:=false;
                table1.filter:='学生姓名='+''''+findrecorddlg.Edit2.Text+'''';
                table1.filtered:=true;
         end;


end;

procedure Tmain_xjgl_xjcx.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_xjgl_xjcx.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_xjgl_xjcx.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_xjgl_xjcx.Button8Click(Sender: TObject);
begin
  table1.edit;
 end;

procedure Tmain_xjgl_xjcx.Button9Click(Sender: TObject);
begin
  table1.Post;
end;

procedure Tmain_xjgl_xjcx.Button10Click(Sender: TObject);
begin
  table1.Cancel;
 end;

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

procedure Tmain_xjgl_xjcx.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_xjgl_xjcx.BitBtn4Click(Sender: TObject);
begin
  prints.Table2.Filtered:=false;
    prints.Table2.Filter:=table1.Filter;
   prints.Table2.Filtered:=true;
      prints.ShowModal;
end;

procedure Tmain_xjgl_xjcx.DBGrid1DblClick(Sender: TObject);
begin
     main_xfgl_xxll_jfxx.table1.open;
     main_xfgl_xxll_jfxx.Table1.Locate('学生编号',dbgrid1.Fields[0].value,[]);
     main_xfgl_xxll_jfxx.ShowModal;
end;

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

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

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

procedure Tmain_xjgl_xjcx.BitBtn2Click(Sender: TObject);
begin
  main_xjgl_tjcx:=tmain_xjgl_tjcx.Create(nil);
  try
    main_xjgl_tjcx.ShowModal;
   finally
    main_xjgl_tjcx.free;
  end;   
end;

procedure Tmain_xjgl_xjcx.BitBtn13Click(Sender: TObject);
begin
   table1.cancel;
    bitbtn12.Enabled:=false;
    bitbtn13.Enabled:=false;
end;

procedure Tmain_xjgl_xjcx.BitBtn12Click(Sender: TObject);
begin
    table1.Post;
    bitbtn12.Enabled:=false;
    bitbtn13.Enabled:=false;
end;

procedure Tmain_xjgl_xjcx.BitBtn10Click(Sender: TObject);
begin
    table1.edit;
    bitbtn12.Enabled:=true;
    bitbtn13.Enabled:=true;
end;

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

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

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

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

end.