unit1.pas

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    E1: TMenuItem;
    Memo1: TMemo;
    Button1: TButton;
    procedure Panel4Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit5, Unit7, Unit3;

{$R *.dfm}

procedure TForm1.Panel4Click(Sender: TObject);
 var ff:word;
begin
   ff:=messagedlg('真的要注销吗？',mtinformation,[mbYES,mbNO],0);
    if ff=6 then
    begin
   panel1.Enabled:=false;
   panel2.Enabled:=false;
   panel3.Enabled:=false;
   panel4.Enabled:=false;
   bitbtn1.Enabled:=false;
   form2.Edit2.Text:=''  ;
   end
   else
   form1.show;

end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
  form5.show;
  form5.RadioButton1.Checked:=false;
  form5.RadioButton2.Checked:=false;
  form5.RadioButton3.Checked:=false;
  end;
procedure TForm1.Panel3Click(Sender: TObject);
begin
   form7.show;
end;

procedure TForm1.E1Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
 form2.Show;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
 form3.show;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
memo1.Lines.Add(form2.ComboBox1.Text+'：');
memo1.Lines.Add(inputbox('留言系统','留言   ',''));
memo1.Lines.SaveToFile('D:\我的文档\My Delphi Files\电费管理系统\新建文件夹\001.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
 var ff:word;
begin
   ff:=messagedlg('真的要清空吗？',mtinformation,[mbYES,mbNO],0);
    if ff=6 then
    begin
   memo1.Clear;
   memo1.Lines.SaveToFile('D:\我的文档\My Delphi Files\电费管理系统\新建文件夹\001.txt');
end;
end;

end.