【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了: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
      table

上一篇：HeaderSortDlg.cpp
下一篇：盘点士兵的各种搞笑失误，连老纳都笑了！