datesum.pas

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

unit datesum;

interface

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

type
  Tfrmdatesum = class(Tbaseform)
    DBGridEh1: TDBGridEh;
    suiButton1: TsuiButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DateTimePicker1: TDateTimePicker;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    procedure suiButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdatesum: Tfrmdatesum;

implementation

uses pub, umain;

{$R *.dfm}

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

procedure Tfrmdatesum.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');
    //showmessage(sql.Text);
    open;
    end;
end;

procedure Tfrmdatesum.suiButton2Click(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',datetimepicker1.DateTime);
    open;
    end;
end;

procedure Tfrmdatesum.suiButton3Click(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.tuikuandate=:v1');
    //showmessage(sql.Text);
    parameters.ParamByName('v1').Value :=formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime);
    open;
    end;
end;

end.