todaytuikuan.pas

来自「老年人大学的学籍管理,主要是学费收取」· PAS 代码 · 共 56 行

unit todaytuikuan;

interface

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

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

var
  frmtodaytuikuan: Tfrmtodaytuikuan;

implementation

uses pub, umain;

{$R *.dfm}

procedure Tfrmtodaytuikuan.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 and a.status=2');
    //showmessage(sql.Text);
    parameters.ParamByName('v1').Value :=formatdatetime('yyyy-mm-dd',now());
    open;
    end;
end;

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

end.