unit_zkdy.pas

基本信息：房屋基本信息、客户基本信息、职工基本信息 房屋交易：客户订购、退房、购买 信息查询：销售、订购、结款、交易记录查询 报表查询：日报表、月报表

unit Unit_zkdy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, ADODB, Grids, DBGrids, RpCon, RpConDS,
  RpDefine, RpRave;

type
  TForm_zkdy = class(TForm)
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_zkdy: TForm_zkdy;

implementation

{$R *.dfm}

procedure TForm_zkdy.Button1Click(Sender: TObject);
var sql:string;
    com1,com2:string;
begin
   com1:=datetostr(datetimepicker1.Date);
   com2:=datetostr(datetimepicker2.Date);
   sql:='select * from zhanghu where (data1 >='''+com1+''') and (data1 <='''+com2+''')';
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add(sql);
   adoquery1.Open;
end;

procedure TForm_zkdy.Button3Click(Sender: TObject);
begin
if messagedlg('你确定要关闭窗口吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
 close
 else
 exit;
end;

procedure TForm_zkdy.Button2Click(Sender: TObject);
begin
 RvProject1.Execute;
end;

end.