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

unit gygl; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Menus, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, Buttons; 
 
type 
  Tgygl_Form = class(TForm) 
    PopupMenu1:TPopupMenu; 
    Query1: TQuery; 
    DataSource1: TDataSource; 
    DBGrid1: TDBGrid; 
    N1: TMenuItem; 
    N2: TMenuItem; 
    GroupBox1: TGroupBox; 
    Label1: TLabel; 
    xm_LEdit: TEdit; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    procedure DBGrid1DrawColunmnCell(sender: TObject;const Rect:TRect;DataCol:Integer; 
    Column:TColumn;State:TGridDrawState); 
    procedure N1Click(Sender: TObject); 
    procedure N2Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure FormClose(Sender:TObject;var Action:TCloseAction); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
 
 
 
 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
   modi:Boolean; 
  end; 
 
var 
  gygl_Form: Tgygl_Form; 
 
implementation 
 uses main, modigy; 
{$R *.dfm} 
 
 
 
 /////////////////////////////////////////// 
 procedure Tgygl_Form.DBGrid1DrawColunmnCell(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 Tgygl_Form.N1Click(Sender: TObject); 
begin 
      if Query1.FieldByName('״̬').AsInteger=1 then 
      begin 
       modi:=false; 
       Application.CreateForm(Tmodigy_Form,modigy_Form); 
       modigy_Form.Show; 
      end 
      else 
       if Query1.FieldByName('״̬').AsInteger=0 then 
         begin 
          ShowMessage('¸Ãͬѧ»¹Ã»µ½£¬ÇëÑ¡ÔñÆäËûͬѧ!'); 
          exit; 
          end 
          else 
          begin 
              ShowMessage('¸ÃͬѧÒѾ­°²ÅŹ«Ô¢£¬ÇëÑ¡ÔñÆäËûͬѧ!'); 
              exit; 
          end; 
 
 
 
end; 
 
procedure Tgygl_Form.N2Click(Sender: TObject); 
begin 
    if (Query1.FieldByName('״̬').AsInteger=2) or (Query1.FieldByName('״̬').AsInteger=3) then 
     begin 
     modi:=true; 
     Application.CreateForm(TModigy_Form,modigy_Form); 
     modigy_Form.Show; 
     end 
     else if Query1.FieldByName('״̬').AsInteger=0 then 
      begin 
         ShowMessage('¸Ãͬѧ»¹Ã»µ½£¬ÇëÑ¡ÔñÆäËûͬѧ!'); 
          exit; 
      end 
        else 
        ShowMessage('¸Ãͬѧ»¹Ã»°²ÅŹ«Ô¢,ÇëÑ¡ÔñÆäËûͬѧ!'); 
      exit; 
      
 
 
end; 
 
 
////////////////////////////////////// 
procedure Tgygl_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 Tgygl_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.N31.Enabled:=True; 
 Action:=caFree; 
end; 
 
 
 
 
////////////////////////////////////////////////// 
procedure Tgygl_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; 
      if Query1.RecordCount>0 then 
      begin 
          N1.Enabled:=true; 
          N2.Enabled:=true; 
         end 
        else 
         begin 
          N1.Enabled:=false; 
          N2.Enabled:=false; 
         end; 
 
end; 
 
 
procedure Tgygl_Form.BitBtn2Click(Sender: TObject); 
begin 
 
close; 
end; 
 
end.