newstufind.pas

老年人大学的学籍管理,主要是学费收取

unit newstufind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, base, ExtCtrls, SUIForm, SUIButton, StdCtrls, SUIEdit,
  SUIComboBox;

type
  Tfrmnewstufind = class(Tbaseform)
    cbx: TsuiComboBox;
    edt: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmnewstufind: Tfrmnewstufind;

implementation

uses newstu, pub;

{$R *.dfm}

procedure Tfrmnewstufind.suiButton2Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmnewstufind.suiButton1Click(Sender: TObject);
begin
  inherited;
  if (cbx.Text='')or(trim(edt.Text)='') then
    begin
    application.MessageBox('查询条件不完整！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  case cbx.ItemIndex of
    0:pub.showrecord(frmnewstu.adqstu,'*','newstu where stuid='+''''+edt.Text+'''','stuid');
    1:pub.showrecord(frmnewstu.adqstu,'*','newstu where stuname='+''''+edt.Text+'''','stuname');
    2:pub.showrecord(frmnewstu.adqstu,'*','newstu where edu='+''''+edt.Text+'''','edu');
    3:pub.showrecord(frmnewstu.adqstu,'*','newstu where race='+''''+edt.Text+'''','race');
    4:pub.showrecord(frmnewstu.adqstu,'*','newstu where phone='+''''+edt.Text+'''','phone');
  end;
  close;
end;

end.