unit4.pas

从同学哪里拷贝来的程序,毕业设计用的,大家看看,有帮助的哦

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, QuickRpt, QRCtrls, ExtCtrls, TeEngine, Series,
  TeeProcs, Chart, DbChart, QRTEE, Mask, StdCtrls;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit6;



{$R *.dfm}

procedure TForm4.Button2Click(Sender: TObject);
begin
 form4.Close;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
form6.Table1.close;
form6.Table1.Filtered:=false;
memo1.Text:='';
if (MaskEdit1.text<>'') and (MaskEdit2.text<>'')  then
      memo1.Text:='观测日期>='+''''+MaskEdit1.text+''''+' and 观测日期<='+''''+MaskEdit2.text+'''';
if memo1.Text<>'' then
begin
form6.table1.Filter:=memo1.Text;
form6.table1.Filtered:=true;
form6.Table1.Open;
end;
form6.QRLabel1.Caption:='日期--应力值';
form6.QuickRep1.Preview;
  end;
end.