sjgl.pas

本程序是用delphi开发的新生报名管理系统 该程序的数据库是采用SQL server建的

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.