frm_feesetu.pas

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

unit frm_FeeSetU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,DataMU,Config,ADOdb, Grids, DBGrids,DB;

type
  Tfrm_FeeSet = class(TForm)
    GroupBox1: TGroupBox;
    btn_edit: TButton;
    btn_cancel: TButton;
    Edt_Name: TEdit;
    Edt_price: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    rb_du: TRadioButton;
    rb_hu: TRadioButton;
    Label1: TLabel;
    DBGridFeeSet: TDBGrid;
    btn_add: TButton;
    btn_del: TButton;
    DataS: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edt_shuiBKeyPress(Sender: TObject; var Key: Char);
    procedure Edt_dianBKeyPress(Sender: TObject; var Key: Char);
    procedure Edt_meiqiBKeyPress(Sender: TObject; var Key: Char);
    procedure Edt_priceKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_addClick(Sender: TObject);
    procedure DBGridFeeSetCellClick(Column: TColumn);
    procedure btn_delClick(Sender: TObject);
  private
    procedure FillUI;
    procedure EditFeeSet;
    procedure AddFee;
    procedure ShowInfo;
    procedure Del(feeID:integer);
  public

  end;

var
  frm_FeeSet: Tfrm_FeeSet;

implementation
uses Control_feeU,ClassesU;
{$R *.dfm}
procedure Tfrm_FeeSet.Del(feeID:integer);
begin
  if MessageBox(Handle, '你确定要增删除该项目吗?', '小区物业', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
    begin
      if Control_feeU.DelFeeSet(feeID) then
        MessageBox(Handle, '删除成功', '信息', MB_ICONASTERISK)
      else
        MessageBox(Handle, '删除失败', '信息', MB_ICONEXCLAMATION);
    end;
end;
procedure Tfrm_FeeSet.ShowInfo;
var
  sql:string;
begin
  Edt_name.Text:=DataS.DataSet.FieldValues['项目'];
  Edt_price.Text:=DataS.DataSet.FieldValues['价格'];
  if DataS.DataSet.FieldValues['收费方式']='按度数' then
     rb_du.Checked:=true
  else
     rb_hu.Checked:=true;
end;
procedure Tfrm_FeeSet.AddFee;
var
  sql,feeStyle:string;
  feeSet:TFeeSet;
begin
  if(self.edt_Name.Text =null) or (self.Edt_price.Text=null) then
    begin
      MessageBox(Handle, '项目不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if(trim(self.edt_Name.Text) ='') or (trim(self.Edt_price.Text)='') then
    begin
      MessageBox(Handle, '项目不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;

  if Control_feeU.SearchFeeName(trim(self.edt_Name.Text)) then
    begin
      MessageBox(Handle, '项目名称出现重复,请重新输入！', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  feeSet:=TfeeSet.Create();
  feeSet.FeeName:=trim(self.edt_Name.Text);
  feeSet.Price:=strtofloat(trim(self.Edt_price.Text));
  if(rb_du.Checked) then
    feeSet.FeeStyle:=rb_du.Caption
  else
    feeSet.FeeStyle:=rb_hu.Caption;
  if Control_feeU.AddFee(feeSet) then
    begin
      MessageBox(Handle, '添加成功', '小区物业', MB_ICONASTERISK);
      fillUI;
    end
  else
    MessageBox(Handle, '添加有误,请检查!', '小区物业', MB_ICONEXCLAMATION);
  feeSet:=nil;
end;
procedure Tfrm_FeeSet.EditFeeSet;
var
  sql,feeStyle:string;
  feeSet:TFeeSet;
begin
  if(self.edt_Name.Text =null) or (self.Edt_price.Text=null) then
    begin
      MessageBox(Handle, '项目不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if(trim(self.edt_Name.Text) ='') or (trim(self.Edt_price.Text)='') then
    begin
      MessageBox(Handle, '项目不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  feeSet:=TfeeSet.Create();
  feeSet.id:=DataS.DataSet.FieldValues['id'];
  feeSet.FeeName:=trim(self.edt_Name.Text);
  feeSet.Price:=strtofloat(trim(self.Edt_price.Text));
  if(rb_du.Checked) then
    feeSet.FeeStyle:=rb_du.Caption
  else
    feeSet.FeeStyle:=rb_hu.Caption;
  if Control_feeU.EditFee(feeSet) then
    begin
      MessageBox(Handle, '修改成功', '小区物业', MB_ICONASTERISK);
      fillUI;
    end
  else
    MessageBox(Handle, '修改有误,请检查!', '小区物业', MB_ICONEXCLAMATION);
  feeSet:=nil;
end;
procedure Tfrm_FeeSet.FillUI;
begin
  DataS.DataSet:=Control_feeU.GetFeeSetArray;
  self.DBGridFeeSet.DataSource:=DataS;
end;

procedure Tfrm_FeeSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_FeeSet.edt_shuiBKeyPress(Sender: TObject; var Key: Char);
begin
if not((key in ['0'..'9',#8,#13,#46]) ) then
    key := #0;
end;

procedure Tfrm_FeeSet.Edt_dianBKeyPress(Sender: TObject; var Key: Char);
begin
if not((key in ['0'..'9',#8,#13,#46]) ) then
    key := #0;
end;

procedure Tfrm_FeeSet.Edt_meiqiBKeyPress(Sender: TObject; var Key: Char);
begin
if not((key in ['0'..'9',#8,#13,#46]) ) then
    key := #0;
end;

procedure Tfrm_FeeSet.Edt_priceKeyPress(Sender: TObject; var Key: Char);
begin
if not((key in ['0'..'9',#8,#13,#46]) ) then
    key := #0;
end;

procedure Tfrm_FeeSet.FormShow(Sender: TObject);
begin
FillUI;
end;

procedure Tfrm_FeeSet.btn_cancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_FeeSet.btn_editClick(Sender: TObject);
begin
EditFeeSet;
end;

procedure Tfrm_FeeSet.btn_addClick(Sender: TObject);
begin
if MessageBox(Handle, '你确定要增加该项目吗?', '小区物业', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
  AddFee;
end;

procedure Tfrm_FeeSet.DBGridFeeSetCellClick(Column: TColumn);
begin
if(DataS.DataSet.FieldByName('id').Value)<>null then
    begin
      ShowInfo;
    end
end;

procedure Tfrm_FeeSet.btn_delClick(Sender: TObject);
var
  feeID:integer;
begin
if DataS.DataSet.FieldByName('id').Value<>null then
    begin
      feeID:=DataS.DataSet.FieldByName('id').Value;
      del(feeID);
      FillUI;
    end
else
  MessageBox(Handle, '请选择要删除的条目', '信息', MB_ICONEXCLAMATION);
end;

end.