main_yggl_zhglform.pas

腾龙校园综合管理系统delphi源码 也是在网络上找到的 不过很好

unit main_yggl_zhglform;

interface

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

type
  Tmain_yggl_zhgl = class(TForm)
    ImageList1: TImageList;
    ImageList2: TImageList;
    Table2: TTable;
    ImageList3: TImageList;
    Table1: TTable;
    Panel2: TPanel;
    Table3: TTable;
    DataSource1: TDataSource;
    mys: TTable;
    Timer1: TTimer;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabControl1: TTabControl;
    TreeView1: TTreeView;
    ListView1: TListView;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox2: TGroupBox;
    BitBtn6: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    DBCtrlGrid1: TDBCtrlGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit9: TDBEdit;
    DBEdit6: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit11: TDBEdit;
    DBEdit10: TDBEdit;
    DBComboBox4: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBImage1: TDBImage;
    Panel1: TPanel;
    DecisionPivot1: TDecisionPivot;
    DecisionGrid1: TDecisionGrid;
    Panel5: TPanel;
    BitBtn1: TBitBtn;
    BitBtn5: TBitBtn;
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource1: TDecisionSource;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    Image1: TImage;
    BitBtn13: TBitBtn;
    Panel6: TPanel;
    Label13: TLabel;
    Panel4: TPanel;
    Panel15: TPanel;
    firstbutton: TButton;
    nextbutton: TButton;
    prebutton: TButton;
    lastbutton: TButton;
    Button7: TButton;
    BitBtn3: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    BitBtn2: TBitBtn;
    procedure TabControl1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Image1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure firstbuttonClick(Sender: TObject);
    procedure prebuttonClick(Sender: TObject);
    procedure nextbuttonClick(Sender: TObject);
    procedure lastbuttonClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_yggl_zhgl: Tmain_yggl_zhgl;

implementation

uses findrecord, main_yggl_zhgl_zgkpform,
  printform, main_yggl_tjcxform, main_xfgl_xxll_llszform;

{$R *.DFM}

procedure Tmain_yggl_zhgl.TabControl1Change(Sender: TObject);
var
  nub:integer;
  node:ttreenode;
begin
     node:=treeview1.TopItem;
   case tabcontrol1.TabIndex of
       0:
        begin

          treeview1.TopItem.DeleteChildren;
          treeview1.Items.AddChild(node,'男');
          treeview1.Items.AddChild(node,'女');
       end;
        1:
        begin
           table2.close;
           table2.TableName:='gzbm';
           table2.open;
           treeview1.TopItem.DeleteChildren;
           for nub:=1 to table2.RecordCount do
             begin
              treeview1.Items.AddChild(node,table2.Fields[0].value);
          table2.Next
             end;
             node.Expand(true);
        end;
        2:
          begin
           table2.close;
           table2.TableName:='xzzw';
           table2.open;
           treeview1.TopItem.DeleteChildren;
           for nub:=1 to table2.RecordCount do
             begin
              treeview1.Items.AddChild(node,table2.Fields[0].value);
               table2.Next
             end;

        end;
        3:
          begin
           table2.close;
           table2.TableName:='jszc';
           table2.open;
           treeview1.TopItem.DeleteChildren;
           for nub:=1 to table2.RecordCount do
             begin
              treeview1.Items.AddChild(node,table2.Fields[0].value);
              table2.Next
             end;
           table2.close;
        end;
 end;
   node.Expand(true);
end;

procedure Tmain_yggl_zhgl.FormShow(Sender: TObject);
var
  i:integer;
  nodd:ttreenode;
  item:tlistitem;
begin
   table3.open;
   DecisionQuery1.Active:=true;
   treeview1.TopItem.DeleteChildren;
   nodd:=treeview1.TopItem;
   treeview1.Items.addchild(nodd,'男');
   treeview1.Items.addchild(nodd,'女');
   nodd.Expand(true);
    listview1.Items.Clear;
    table1.open;
       table1.first;
     for i:=1 to table1.RecordCount do
          begin
           item:=listview1.Items.add;
           item.Caption:=table1.Fields[1].Text;
          table1.Next;
          end;
      table1.close;

end;

procedure Tmain_yggl_zhgl.TreeView1Click(Sender: TObject);
var
   stringa:string;
   item:tlistitem;
   i:integer;
begin
    if treeview1.Selected.Parent=nil then
      begin
        table1.open;
        table1.Filtered:=false;
        table1.Filter:='职工姓名<>'+''''+'dog'+'''';
        table1.Filtered:=true;
        table1.first;
        listview1.Items.Clear;
        for i:=1 to table1.RecordCount do
            begin
              item:=listview1.Items.add;
              item.Caption:=table1.Fields[1].Text;
              table1.Next;
            end;
          table1.close;
       end
     else
       begin
          case tabcontrol1.TabIndex of
             0:stringa:='职工性别=';
             1:stringa:='工作部门=';
             2:stringa:='行政职务=';
             3:stringa:='技术职称=';
           end;
             table1.Open;
             table1.Filtered:=false;
             table1.Filter:=stringa+''''+treeview1.Selected.Text+'''';
             table1.Filtered:=true;
             table1.First;
             listview1.Items.Clear;
                for i:=1 to table1.RecordCount do
                  begin
                     item:=listview1.Items.add;
                     item.Caption:=table1.Fields[1].Text;
                     table1.Next;
                  end;
     end;
end;

procedure Tmain_yggl_zhgl.RadioButton1Click(Sender: TObject);
begin
  listview1.ViewStyle:=vsicon;
end;

procedure Tmain_yggl_zhgl.RadioButton2Click(Sender: TObject);
begin
  listview1.ViewStyle:=vssmallicon;
end;

procedure Tmain_yggl_zhgl.RadioButton3Click(Sender: TObject);
begin
   listview1.ViewStyle:=vslist;
end;

procedure Tmain_yggl_zhgl.BitBtn3Click(Sender: TObject);
begin

  if bitbtn3.Caption='自动浏览' then
   begin
     if main_xfgl_xxll_llsz.ShowModal=mrok then
       begin
          bitbtn3.Caption:='关闭自动浏览';
          bitbtn12.Enabled:=true;
        //timer1.Interval:=strtoint(dhsd.Label3.Caption);
       // table1.MoveBy(dhsd.sppp.Value);
         timer1.Enabled:=true;
        end;
    end
   else
    begin
     bitbtn3.Caption:='自动浏览';
      timer1.Enabled:=false;
      bitbtn12.Enabled:=false;
    end;

end;

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

procedure Tmain_yggl_zhgl.BitBtn7Click(Sender: TObject);