todaymoney.pas

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

unit todaymoney;

interface

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

type
  Tfrmtodaymoney = class(Tbaseform)
    DBGridEh1: TDBGridEh;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiEdit1: TsuiEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure suiButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmtodaymoney: Tfrmtodaymoney;

implementation

uses umain, pub;

{$R *.dfm}

procedure Tfrmtodaymoney.suiButton1Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmtodaymoney.FormCreate(Sender: TObject);
begin
  inherited;
  with adoquery1 do
    begin
    sql.Clear;
    sql.Add('select a.*,b.sex,b.dep,b.major,b.grade,b.class from money as a,newstu as b where a.stuid=b.stuid and a.datetime=:v1');
    //showmessage(sql.Text);
    parameters.ParamByName('v1').Value :=formatdatetime('yyyy-mm-dd',now());
    open;
    end; 
end;

end.