oldstufind.pas

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

unit oldstufind;

interface

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

type
  Tfrmoldstufind = 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
  frmoldstufind: Tfrmoldstufind;

implementation

uses oldstu, newstu, pub;

{$R *.dfm}

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

procedure Tfrmoldstufind.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(frmoldstu.adqstu,'*','oldstu where stuid='+''''+edt.Text+'''','stuid');
    1:pub.showrecord(frmoldstu.adqstu,'*','oldstu where stuname='+''''+edt.Text+'''','stuname');
    2:pub.showrecord(frmoldstu.adqstu,'*','oldstu where dep='+''''+edt.Text+'''','dep');
    3:pub.showrecord(frmoldstu.adqstu,'*','oldstu where major='+''''+edt.Text+'''','major');
    4:pub.showrecord(frmoldstu.adqstu,'*','oldstu where grade='+''''+edt.Text+'''','grade');
    5:pub.showrecord(frmoldstu.adqstu,'*','oldstu where class='+''''+edt.Text+'''','class');
  end;
  close;
end;

end.