unit7.pas

电费管理系统,DELPHI课程设计,需要重新连接数据库

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg;

type
  TForm7 = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Image1: TImage;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;
implementation

uses Unit1, Unit4;

{$R *.dfm}

procedure TForm7.SpeedButton4Click(Sender: TObject);
begin
form1.show;
close;
end;

procedure TForm7.SpeedButton3Click(Sender: TObject);
 var a:integer;
begin
   a:=strtoint(inputbox('按年月统计分析','请输入年月（如200802）','0'));
   form4.ADOQuery1.Active:=false;
   form4.ADOQuery1.SQL.Clear;
   form4.label1.caption:=inttostr(a);
   form4.ADOQuery1.SQL.Add('select SUM(用电量) AS 总用电量 from 用电收费 where 年度月份='+''+form4.label1.Caption+'');
   form4.ADOQuery1.Active:=true;
   form4.show;
end;

procedure TForm7.SpeedButton1Click(Sender: TObject);
   var a:integer;
begin
   a:=strtoint(inputbox('按宿舍统计分析','请输入宿舍号','0'));
   form4.ADOQuery1.Active:=false;
   form4.ADOQuery1.SQL.Clear;
   form4.label1.caption:=inttostr(a);
   form4.ADOQuery1.SQL.Add('select SUM(用电量) AS 总用电量 from 用电收费 where 宿舍='+''+form4.label1.Caption+'');
   form4.ADOQuery1.Active:=true;
   form4.Show;
end;

procedure TForm7.SpeedButton2Click(Sender: TObject);
 var a:integer;
begin
   a:=strtoint(inputbox('按寝室统计分析','请输入寝室号','0'));
   form4.ADOQuery1.Active:=false;
   form4.ADOQuery1.SQL.Clear;
   form4.label1.caption:=inttostr(a);
   form4.ADOQuery1.SQL.Add('select SUM(用电量) AS 总用电量 from 用电收费 where 寝室='+''+form4.label1.Caption+'');
   form4.ADOQuery1.Active:=true;
   form4.show;




end;

end.