choose.pas

Monitor.dfm Meter.dpr pasMain.pas

unit choose;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  Tchooserdt = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    ComboBox3: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox4: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chooserdt: Tchooserdt;

implementation

uses pasmain,DM, Moduler, Report, Info,global, Report2;

{$R *.DFM}

procedure Tchooserdt.Button1Click(Sender: TObject);
begin
    if printitem=0 then
    begin

        frmreport.Query1.SQL.Clear;
        frmreport.Query1.SQL.Add('select mtr.mno,mtr.name,mtr.address,rmt.uno,dst.name,max(rmt.fig) as curfig,min(rmt.fig) as prefig,(max(rmt.fig)-min(rmt.fig)) as consumer,max(rmt.frefig) as curfrefig,min(rmt.frefig) as prefrefig,(max(rmt.frefig)-min(rmt.frefig)) as confrefig ');
        frmreport.Query1.SQL.Add('from RMT,mtr,dst ');
        frmreport.Query1.SQL.Add('where (RMT.RDT =:ParRDT or rmt.rdt=:ParRDT1) ');
        frmreport.Query1.SQL.Add('and (rmt.uno=mtr.uno) ');
        frmreport.Query1.SQL.Add('and (rmt.dno=mtr.dno) ');
        frmreport.Query1.SQL.Add('and (rmt.dno=:pardno) ');
        frmreport.Query1.SQL.Add('and (dst.dno=:pardno) ');
        frmreport.Query1.SQL.Add('group by mtr.mno,mtr.name,mtr.address,rmt.uno,dst.name ');
        case combobox3.ItemIndex of
        0:   frmreport.query1.sql.add(' order by mtr.address ');
        1:   frmreport.query1.SQL.add(' order by mtr.mno ');
        2:   frmreport.query1.SQL.add(' order by mtr.name ');
        3:   frmreport.query1.SQL.add(' order by rmt.uno ');
        end;
        case combobox4.ItemIndex of
        0:   frmreport.query1.SQL.add(' asc;');
        1:   frmreport.query1.SQL.add(' desc;');
        end;
        frmReport.Query1.ParamByName('ParRDT').AsString := chooserdt.combobox1.text;
        frmReport.Query1.ParamByName('ParRDT1').AsString := chooserdt.combobox2.text;
        frmReport.Query1.ParamByName('ParDNO').AsString := DNOstr;

        frmReport.Query1.Close;
        frmReport.Query1.Prepare;
        frmReport.Query1.Open;
        frmreport.QRRDT1.Caption:=chooserdt.combobox1.text;
        frmreport.QRRDT2.Caption:=chooserdt.combobox2.text;
        frmReport.QuickRep1.Preview;
    end;
    if printitem=1 then
    begin
        frmreport2.Query1.sql.clear;
        frmreport2.Query1.SQL.Add('select mtr.mno,mtr.name,mtr.address,mtr.amp, ');
        frmreport2.Query1.SQL.Add('rmt.uno,dst.name, ');
        frmreport2.Query1.SQL.Add('max(rmt.fig) as curfig,min(rmt.fig) as prefig, ');
        frmreport2.Query1.SQL.Add('(max(rmt.fig)-min(rmt.fig)) as consumer, ');
        frmreport2.Query1.SQL.Add('bill.rate,bill.mcharge,bill.ocharge, ');
        frmreport2.Query1.SQL.Add('(max(rmt.fig)-min(rmt.fig))*bill.rate as charges, ');
        frmreport2.Query1.SQL.Add('(max(rmt.fig)-min(rmt.fig))*bill.rate*mtr.amp+bill.mcharge+bill.ocharge as month_char, ');
        frmreport2.Query1.SQL.Add('(max(rmt.fig)-min(rmt.fig))*bill.rate*mtr.amp+bill.mcharge+bill.ocharge as allsum  ');
        frmreport2.Query1.SQL.Add('from RMT,mtr,dst,bill ');
        frmreport2.Query1.SQL.Add('where (RMT.RDT =:parrdt or rmt.rdt=:parrdt1) ');
        frmreport2.Query1.SQL.Add('and (rmt.uno=mtr.uno) ');
        frmreport2.Query1.SQL.Add('and (rmt.dno=mtr.dno) ');
        frmreport2.Query1.SQL.Add('and (rmt.dno=:pardno) ');
        frmreport2.Query1.SQL.Add('and (dst.dno=:pardno) ');
        frmreport2.Query1.SQL.Add('and (MTR.USG = Bill.USG) ');
        frmreport2.Query1.SQL.Add('group by mtr.mno,mtr.name,mtr.address,mtr.amp,rmt.uno,dst.name,Bill.Rate, Bill.MCharge, Bill.OCharge ');
        case combobox3.ItemIndex of
        0:   frmreport2.query1.sql.add(' order by mtr.address ');
        1:   frmreport2.query1.SQL.add(' order by mtr.mno ');
        2:   frmreport2.query1.SQL.add(' order by mtr.name ');
        3:   frmreport2.query1.SQL.add(' order by rmt.uno ');
        end;
        case combobox4.ItemIndex of
        0:   frmreport2.query1.SQL.add(' asc;');
        1:   frmreport2.query1.SQL.add(' desc;');
        end;
        frmReport2.Query1.ParamByName('ParRDT').AsString := chooserdt.combobox1.text;
        frmReport2.Query1.ParamByName('ParDNO').AsString := DNOstr;
        frmReport2.Query1.ParamByName('Parrdt1').AsString := chooserdt.combobox2.text;
        frmReport2.Query1.Close;
        frmReport2.Query1.Prepare;
        frmReport2.Query1.Open;
        frmreport2.QRRDT1.Caption:=chooserdt.combobox1.text;
        frmreport2.QRRDT2.Caption:=chooserdt.combobox2.text;
        frmReport2.QuickRep1.Preview;
    end;
    close;
end;

procedure Tchooserdt.Button2Click(Sender: TObject);
begin
        close;
end;

procedure Tchooserdt.FormCreate(Sender: TObject);
begin
      chooserdt.ComboBox3.Text:='用户地址';
      chooserdt.combobox3.Items.Add('用户地址');
      chooserdt.combobox3.Items.Add('条形码');
      chooserdt.combobox3.Items.Add('用户名');
      chooserdt.combobox3.Items.Add('表号');
      chooserdt.ComboBox3.ItemIndex :=0;
      chooserdt.ComboBox4.Text:='升序';
      chooserdt.combobox4.Items.Add('升序');
      chooserdt.combobox4.Items.Add('降序');
      chooserdt.ComboBox4.ItemIndex :=0;
end;

end.