shuifeidj.pas

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

unit shuifeidj;

interface

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

type
  Tfrmshuifeidj = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Bevel1: TBevel;
    Image1: TImage;
    Bevel2: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Bevel3: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmshuifeidj: Tfrmshuifeidj;

implementation

{$R *.dfm}

procedure Tfrmshuifeidj.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (edit4.Text='') then
  showmessage('输入值不能为空')
else
  begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('insert into shuifei(doornumber,s1,s2,price,amout) values(:a,:b,:c,:d,:e)');
    adoquery1.Parameters.ParamByName('a').Value:=strtoint(edit1.Text);
    adoquery1.Parameters.ParamByName('b').Value:=strtoint(edit3.Text);
    adoquery1.Parameters.ParamByName('c').Value:=strtoint(edit4.Text);
    adoquery1.Parameters.ParamByName('d').Value:=strtofloat(edit2.Text);
    adoquery1.Parameters.ParamByName('e').Value:=(strtoint(edit4.Text)-strtoint(edit3.Text))*strtofloat(edit2.Text);
    adoquery1.ExecSQL;
    showmessage('登记成功');
  end;
end;

procedure Tfrmshuifeidj.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;

procedure Tfrmshuifeidj.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tfrmshuifeidj.BitBtn2Click(Sender: TObject);
begin
 if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (edit4.Text='') then
  showmessage('输入值不能为空')
else
 begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('update shuifei set s1=:ss1,s2=:ss2,price=:p,amout=:a where doornumber=:num');
  ADOQuery1.Parameters.ParamByName('num').Value:=strtoint(edit1.Text);
  ADOQuery1.Parameters.ParamByName('ss1').Value:=strtoint(edit3.Text);
  ADOQuery1.Parameters.ParamByName('ss2').Value:=strtoint(edit4.Text);
  ADOQuery1.Parameters.ParamByName('p').Value:=strtofloat(edit2.Text);
  ADOQuery1.Parameters.ParamByName('a').Value:=(strtoint(edit4.Text)-strtoint(edit3.Text))*strtofloat(edit2.Text);
  ADOQuery1.ExecSQL;
  showmessage('修改成功');
 end;

end;

procedure Tfrmshuifeidj.BitBtn3Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('delete from shuifei where ')
end;

end.