jiaofei.pas

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

unit jiaofei;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, base, SUIPageControl, SUITabControl, ExtCtrls, SUIForm, Grids,
  DBGridEh, SUIButton, DB, ADODB;

type
  Tfrmjiaofei = class(Tbaseform)
    suiPageControl1: TsuiPageControl;
    suiTabSheet2: TsuiTabSheet;
    DBGridEh2: TDBGridEh;
    btnclose: TsuiButton;
    adonew: TADOQuery;
    adoold: TADOQuery;
    datanew: TDataSource;
    dataold: TDataSource;
    procedure btncloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmjiaofei: Tfrmjiaofei;

implementation

uses pub, umain;

{$R *.dfm}

procedure Tfrmjiaofei.btncloseClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmjiaofei.FormCreate(Sender: TObject);
begin
  inherited;
  pub.showrecord(adonew,'*','newstu where status=1','id');
  pub.showrecord(adoold,'*','oldstu where status=1','id');
end;

end.