unit5.pas

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

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Image1: TImage;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit4, Unit2, Unit3;

{$R *.dfm}

procedure TForm5.RadioButton1Click(Sender: TObject);
begin
   if radiobutton1.Checked then
   begin
   if(form2.combobox1.ItemIndex=0) then
  begin
   form4.ADOQuery1.Active:=false;
   form4.ADOQuery1.SQL.Clear;
   form4.label1.caption:=inputbox('按帐户查询','请输入帐户  ','0');
   form4.ADOQuery1.SQL.Add('select *  from  用电收费  where 帐户='+''''+form4.label1.caption+'''');
   form4.ADOQuery1.Active:=true;
   form4.Show;
   end ;
    if(form2.combobox1.ItemIndex<>0) then
  begin
   form4.ADOQuery1.Active:=false;
   form4.ADOQuery1.SQL.Clear;
   form4.ADOQuery1.SQL.Add('select * from 用电收费 where 帐户='+''''+form2.ComboBox1.Text+'''');
   form4.ADOQuery1.Active:=true;
   form4.Show;
   end;
end;
end;

procedure TForm5.RadioButton2Click(Sender: TObject);

   var a:integer;
begin
if radiobutton2.Checked then
if(form2.combobox1.ItemIndex=0) then
  begin
   a:=strtoint(inputbox('按宿舍查询','请输入宿舍号','0'));
   form4.ADOQuery1.Active:=false;
   form4.ADOQuery1.SQL.Clear;
   form4.label1.caption:=inttostr(a);
   form4.ADOQuery1.SQL.Add('select * from 用电收费 where 宿舍='+''+form4.label1.Caption+'');
   form4.ADOQuery1.Active:=true;
   if(a<>0) then
   form4.Show;
   end;
 if(form2.combobox1.ItemIndex<>0) then
 showmessage('您无此权限');

   end;
procedure TForm5.RadioButton3Click(Sender: TObject);
 var a:integer;
begin
if radiobutton3.Checked then
if(form2.combobox1.ItemIndex=0) then
  begin
   a:=strtoint(inputbox('按年月查询','请输入年月(如200710)','0'));
   form4.ADOQuery1.Active:=false;
   form4.ADOQuery1.SQL.Clear;
   form4.label1.caption:=inttostr(a);
   form4.ADOQuery1.SQL.Add('select * from 用电收费 where 年度月份='+''+form4.label1.Caption+'');
   form4.ADOQuery1.Active:=true;
   if(a<>0) then
   form4.Show;
   close;
   end;
   if(form2.combobox1.ItemIndex<>0) then
    begin
   a:=strtoint(inputbox('按年月查询','请输入年月(如200710)','0'));
   form4.ADOQuery1.Active:=false;
   form4.ADOQuery1.SQL.Clear;
   form4.label1.caption:=inttostr(a);
   form4.ADOQuery1.SQL.Add('select * from 用电收费 where 年度月份='+''+form4.label1.Caption+''+' and 帐户='+''''+form2.ComboBox1.Text+'''');
   form4.ADOQuery1.Active:=true;
   if(a<>0) then
   form4.Show;
   close;
   end;
end;
end.