unit8.pas

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

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, Word2000, ExtCtrls, QuickRpt, Mask, StdCtrls;

type
  TForm8 = class(TForm)
    Edit3: TEdit;
    Edit4: TEdit;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Panel2: TPanel;
    Label5: 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
  Form8: TForm8;

implementation



{$R *.dfm}

procedure TForm8.Button2Click(Sender: TObject);
begin
{form9.Table1.close;
form9.Table1.Filtered:=false;
memo1.Text:='';
if (MaskEdit1.text<>'') and (MaskEdit2.text<>'')  then
      memo1.Text:='观测日期>='+''''+MaskEdit1.text+''''+' and 观测日期<='+''''+MaskEdit2.text+'''';
if edit3.text<>'' then
   if memo1.text<>'' then
   memo1.Text:=memo1.Text+' and 水平号='+''''+edit3.text+''''
   else  memo1.text:='水平号='+MaskEdit1.text;
if edit4.text<>'' then
   if memo1.text<>'' then
      memo1.Text:=memo1.Text+' and 孔号='+edit4.text
   else  memo1.text:='孔号='+''''+edit4.text+'''';
if memo1.Text<>'' then
begin
form9.table1.Filter:=memo1.Text;
form9.table1.Filtered:=true;
form9.Table1.Open;
end;

form9.qrlabel1.Caption:=form8.MaskEdit1.text+' ~~ '+form8.MaskEdit2.text+'孔号为'+form8.Edit3.text+'水平号为'+form8.edit4.text+'的记录';
form9.QuickRep1.PreviewModal;  }

end;

procedure TForm8.Button1Click(Sender: TObject);
begin
close;
end;

end.