sjgl.pas

新生报名管理系统,适合于各级学校报名管理使用!

unit sjgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DBTables, StdCtrls, ExtCtrls, Menus,
  DB;

type
  Tsjgl_Form = class(TForm)
    GroupBox1: TGroupBox;
    cmdok: TButton;
    cmdclose: TButton;
    xm_LEdit: TLabeledEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure cmdokClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
    procedure cmddrClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjgl_Form: Tsjgl_Form;

implementation

uses main;

{$R *.dfm}

procedure Tsjgl_Form.cmdokClick(Sender: TObject);
var
    xm,sqlstr:string;
begin
    xm:=trim(xm_ledit.Text);
    if length(xm)<1 then
    begin
        sqlstr:='select a.*,b.zymc as zymc,c.xbmc as xbmc from [xsb] a';
        sqlstr:=sqlstr+' INNER JOIN  [zydm] b ON a.zydm = b.zydm ';
        sqlstr:=sqlstr+' INNER JOIN [xbdm] c ON a.xbdm = c.xbdm  ';
    end
    else
    begin
        xm:='%'+xm+'%';
        sqlstr:='select a.*,b.zymc as zymc,c.xbmc as xbmc from [xsb] a';
        sqlstr:=sqlstr+' INNER JOIN  [zydm] b ON a.zydm = b.zydm ';
        sqlstr:=sqlstr+' INNER JOIN [xbdm] c ON a.xbdm = c.xbdm  ';
        sqlstr:=sqlstr+' where(a.xm like '''+xm+''')';
    end;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
end;

procedure Tsjgl_Form.FormCreate(Sender: TObject);
begin
    Query1.sessionName:=main_Form.Database1.SessionName;
    Query1.DatabaseName:=main_Form.Database1.DatabaseName;
end;

procedure Tsjgl_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Tsjgl_Form.cmddrClick(Sender: TObject);
begin
//    Application.CreateForm(Tdrsj_form, drsj_Form);
//    drsj_form.Show;
end;

procedure Tsjgl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    main_form.N51.Enabled:=true;
end;

end.