wyglbweihu.pas

这是一个小区物业管理系统

unit wyglbweihu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ImgList, ComCtrls, ToolWin, ExtCtrls,
  DB, ADODB;

type
  Tfrmwyglbweihu = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Bevel1: TBevel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    Bevel2: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Bevel3: TBevel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwyglbweihu: Tfrmwyglbweihu;

implementation

{$R *.dfm}

procedure Tfrmwyglbweihu.ToolButton1Click(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') then
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from wyglfei where doornumber='+edit1.Text);
  ADOQuery1.Prepared;
  ADOQuery1.Open;
  if ADOQuery1.RecordCount=0 then 
   begin
     ADOQuery1.Close;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('insert into wyglfei (doornumber,price) values(:num,:money)');
     ADOQuery1.Parameters.ParamByName('num').Value:=strtoint(edit1.Text);
     ADOQuery1.Parameters.ParamByName('money').Value:=strtoint(edit2.Text);
     ADOQuery1.Prepared;
     ADOQuery1.ExecSQL;
     showmessage('添加成功！');
   end
 else
  begin
    showmessage('此用户已经存在！');
    edit1.Clear;
    edit1.SetFocus;
  end;
end
else
 showmessage('不能出现空值！');
 end;

procedure Tfrmwyglbweihu.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;

procedure Tfrmwyglbweihu.ToolButton5Click(Sender: TObject);
begin
 self.Close;
end;

procedure Tfrmwyglbweihu.ToolButton4Click(Sender: TObject);
begin
if edit1.Text<>'' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select doornumber as 门牌号,price as 费用 from wyglfei where doornumber= '+edit1.Text );
ADOQuery1.Prepared;
ADOQuery1.Open;
end
else
 showmessage('请输入门牌号！');
end;

procedure Tfrmwyglbweihu.ToolButton3Click(Sender: TObject);
begin
if edit1.Text<>'' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('delete from wyglfei where doornumber= '+edit1.Text);
ADOQuery1.Prepared;
ADOQuery1.ExecSQL;
showmessage('删除成功！');
end
else
 showmessage('请输入门牌号！');
end;
procedure Tfrmwyglbweihu.ToolButton2Click(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') then
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('update wyglfei set price=:money where doornumber=:num');
    ADOQuery1.Parameters.ParamByName('money').Value:=strtoint(edit2.Text);
    ADOQuery1.Parameters.ParamByName('num').Value:=strtoint(edit1.Text);
    ADOQuery1.Prepared;
    ADOQuery1.ExecSQL;
    showmessage('修改成功！');
  end
else
showmessage('不能输入空值！');

end;

end.