caiwutongji.pas

DELPHI语言制作的音象管理系统 很经典的例子噢 欢迎下载参考

unit caiwutongji;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, DB, ADODB, Buttons, Grids, DBGrids;

type
  TForm12 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    m1: TComboBox;
    d1: TComboBox;
    y1: TComboBox;
    Label2: TLabel;
    m2: TComboBox;
    d2: TComboBox;
    y2: TComboBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

uses datamoban;

{$R *.dfm}

procedure TForm12.SpeedButton1Click(Sender: TObject);
begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 adoquery1.SQL.Add('select sum(实付金额) as 查询后总收入 from 普通客户 where 归还日期>=');
 adoquery1.sql.add(format('#%s/%s/%s#',[m1.text,d1.text,y1.text]));
 adoquery1.sql.add(' and  归还日期<=');
 adoquery1.sql.add(format('#%s/%s/%s#',[m2.text,d2.text,y2.text]));
 ADOQuery1.Open;
end;

procedure TForm12.SpeedButton2Click(Sender: TObject);
begin
close;
end;

end.