chaxun.pas

来自「这是用delphi作的人力资源管理系统」· PAS 代码 · 共 56 行

unit chaxun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids;

type
  TCX = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    select: TButton;
    return: TButton;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    procedure selectClick(Sender: TObject);
    procedure returnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CX: TCX;

implementation

uses Datamodal, Unit1;

{$R *.dfm}

procedure TCX.selectClick(Sender: TObject);
Var
    Xh,Sql:String;
begin
    Xh:=Edit1.Text;
    Sql:='select XH,XM,XBM,CSSJ,ZY,ZXF,BZ from XS,xbm where XH ='+''''+Xh+''' and XBM.XB=XS.XB' ;
    XSCJDM.XSCJADODataSet.Active:=false;
    XSCJDM.XSCJADODataSet.CommandText:=Sql;
    XSCJDM.XSCJADODataSet.Active:=true;
    if  (XSCJDM.XSCJADODataSet.FieldValues['XH']= NULL)  then
         showmessage('要查询的学生记录不存在!');
end;

procedure TCX.returnClick(Sender: TObject);
begin
    XSCJGL.Visible:=true;
    CX.Visible:=false;
end;

end.