unit6.pas

利用Modem的远程通信功能

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask, Buttons, Db, DBTables,
  ComCtrls;

type
  TDay_data = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Day_data: TDay_data;

implementation
uses
unit9, Unit12,unit4, Unit14;
{$R *.DFM}

procedure TDay_data.BitBtn1Click(Sender: TObject);
begin
  with Query1 do
  begin
    close;
    sql.Clear;
    try
    sql.Add('select * from '+'Day_'+combobox1.Text+' where 运行日期<:endtime and 运行日期>begintime' );
    parambyname('begintime').AsDate:=strtodate(maskedit1.Text);
    parambyname('endtime').AsDate:=strtodate(maskedit2.Text);
    except
     sql.clear;
     sql.Add('select * from '+'Day_'+combobox1.Text);
    end;
    open;
  end;
end;

procedure TDay_data.BitBtn3Click(Sender: TObject);
begin
  Day_curve.Label2.Caption:=ComboBox1.Text+'#流量计曲线';
  Day_curve.show;
end;

procedure TDay_data.BitBtn4Click(Sender: TObject);
begin
  with Day_rpt do
  begin
    qrlabel1.Caption:='地区污水排放监测日数据';
    Quickrep1.Preview;
  end;  
end;

procedure TDay_data.FormShow(Sender: TObject);
begin

  query1.Open;
end;

end.