www.pudn.com > xinshengruxue.rar > sjgl.pas

unit sjgl; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, Buttons; 
 
type 
  Tsjgl_Form = class(TForm) 
    Query1: TQuery; 
    DataSource1: TDataSource; 
    DBGrid1: TDBGrid; 
    GroupBox1: TGroupBox; 
    Label1: TLabel; 
    xm_LEdit: TEdit; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    procedure FormCreate(Sender: TObject); 
    procedure FormClose(Sender:TObject;var Action:TCloseAction); 
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
      DataCol: Integer; Column: TColumn; State: TGridDrawState); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  sjgl_Form: Tsjgl_Form; 
 
implementation 
 uses main; 
{$R *.dfm} 
 
 
 
 
procedure Tsjgl_Form.FormCreate(Sender: TObject); 
var sqlstr:string; 
begin 
    Query1.SessionName:=Main_Form.Database1.SessionName; 
    Query1.DatabaseName:=Main_Form.Database1.DatabaseName; 
     sqlstr:='select *from [xsb] order by 学号'; 
    Query1.SQL.Clear; 
   Query1.SQL.Add(sqlstr); 
   Query1.open; 
end; 
 
 
 
 
procedure Tsjgl_Form.FormClose(Sender:TObject;var Action:TCloseAction); 
begin 
     Main_Form.Open_Form_number:=Main_Form.Open_Form_number-1; 
   if  Main_Form.Open_Form_number=0 then 
   Main_Form.N15.Enabled:=true; 
     Main_Form.N51.Enabled:=True; 
     Action:=cafree; 
end; 
 
 
 
procedure Tsjgl_Form.DBGrid1DrawColumnCell(Sender: TObject; 
  const Rect: TRect; DataCol: Integer; Column: TColumn; 
  State: TGridDrawState); 
begin 
      if 
       gdSelected in state then Exit; 
       case Query1.FieldByName('状态').AsInteger of 
       0:(sender as TDBGrid).Canvas.Brush.Color:=clWindow; 
       1:(sender as TDBGrid).Canvas.Brush.Color:=clYellow; 
       2:(sender as TDBGrid).Canvas.Brush.Color:=clRed; 
       3:(sender as TDBGrid).Canvas.Brush.Color:=clgreen; 
      end; 
 
      DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); 
end; 
 
procedure Tsjgl_Form.BitBtn1Click(Sender: TObject); 
var xm,sqlstr:string; 
 
begin 
       xm:=Trim(xm_LEdit.Text); 
       if Length(xm)<1 then 
       begin 
        sqlstr:='select a.*,b.专业名称 as 专业名称,c.系别名称 as系别名称 from [xsb] a '; 
        sqlstr:=sqlstr+'inner Join [zydm] b on a.专业代码=b.专业代码 '; 
        sqlstr:=sqlstr+'inner Join [xbdm] c on a.系别代码=c.系别代码 order by a.学号'; 
       end 
       else 
       begin 
         xm:='%'+xm+'%'; 
         sqlstr:='select a.*,b.专业名称 as 专业名称,c.系别名称 as系别名称 from [xsb] a '; 
         sqlstr:=sqlstr+'inner Join [zydm] b on a.专业代码=b.专业代码 '; 
         sqlstr:=sqlstr+'inner Join [xbdm] c on a.系别代码=c.系别代码 '; 
         sqlstr:=sqlstr+'where(a.姓名 like '''+xm+''')order by a.学号'; 
       end; 
       Query1.Close; 
       Query1.SQL.Clear; 
       Query1.SQL.Add(sqlstr); 
       Query1.Open; 
end; 
procedure Tsjgl_Form.BitBtn2Click(Sender: TObject); 
begin 
      close; 
end; 
 
end.