frm_carfeeu.~pas

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

unit frm_carFeeU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids,ADOdb,db,Config, Mask, bsSkinBoxCtrls,
  ComCtrls;

type
  Tfrm_carFee = class(TForm)
    DBGridCarFee: TDBGrid;
    btn_add: TButton;
    btn_edit: TButton;
    btn_del: TButton;
    btn_close: TButton;
    edt_car: TEdit;
    edt_user: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    DataS: TDataSource;
    Label3: TLabel;
    edt_carNumber: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    date_begin: TDateTimePicker;
    date_end: TDateTimePicker;
    procedure btn_closeClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure btn_addClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_delClick(Sender: TObject);
    procedure DBGridCarFeeCellClick(Column: TColumn);
  private
    procedure FillUI;
    procedure EditCar;
    procedure AddCar;
    procedure ShowInfo;
    procedure Del(carID:integer);
  public
    { Public declarations }
  end;

var
  frm_carFee: Tfrm_carFee;

implementation

uses DataMU,classesU,control_carfeeU;

{$R *.dfm}
procedure Tfrm_carFee.Del(carID:integer);
begin
  if(DataS.DataSet.FieldValues['id']<>null) then
    begin
      if MessageBox(Handle, '你确定要增删除该车位吗?', '小区物业', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
      begin
      if Control_carfeeU.DelCar(carID) then
        MessageBox(Handle, '删除成功', '信息', MB_ICONASTERISK)
      else
        MessageBox(Handle, '删除失败', '信息', MB_ICONEXCLAMATION);
      end;
    end;
      
end;
procedure Tfrm_carFee.ShowInfo;
var
  sql:string;
begin
  if(DataS.DataSet.FieldValues['id']<>null) then
    begin
      Edt_car.Text:=DataS.DataSet.FieldValues['车位号'];
      Edt_user.Text:=DataS.DataSet.FieldValues['用户'];
      Edt_carNumber.Text:=DataS.DataSet.FieldValues['车牌号'];
      date_begin.DateTime:=DataS.DataSet.FieldValues['合同开始日期'];
      date_end.DateTime:=DataS.DataSet.FieldValues['合同结束日期'];
    end;
end;
procedure Tfrm_carFee.AddCar;
var
  sql,feeStyle:string;
  carfee:Tcarfee;
begin
  if(self.edt_car.Text =null) or (trim(self.edt_car.Text) ='') then
    begin
      MessageBox(Handle, '车位不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if  self.Edt_user.Text=null then
    begin
      self.Edt_user.Text:='';
    end;
  if Control_CarFeeU.SearchCarNo(trim(self.edt_car.Text)) then
    begin
      MessageBox(Handle, '车位名称出现重复,请重新输入！', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if(self.edt_carNumber.Text =null) or (trim(self.edt_carNumber.Text) ='') then
    begin
      MessageBox(Handle, '车牌号不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if(DateToStr(date_begin.Date)=DateToStr(date_end.Date)) or (date_begin.Date>date_end.Date) then
    begin
      MessageBox(Handle, '合同日期设置有误', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  carfee:=Tcarfee.Create();
  carfee.CarNo:=trim(self.edt_car.Text);
  carfee.UserName:=trim(self.edt_user.Text);
  carfee.carNumber:=trim(self.edt_carNumber.Text);
  carfee.beginDate:=DateToStr(date_begin.Date);
  carfee.endDate:=DateToStr(date_end.Date);
  if Control_carfeeU.AddCarFee(carfee) then
    begin
      MessageBox(Handle, '添加成功', '小区物业', MB_ICONASTERISK);
      fillUI;
    end
  else
    MessageBox(Handle, '添加有误,请检查!', '小区物业', MB_ICONEXCLAMATION);
  carfee:=nil;
end;
procedure Tfrm_carFee.EditCar;
var
  sql,feeStyle:string;
  carfee:Tcarfee;
begin
  if(self.edt_car.Text =null) or (trim(self.edt_car.Text) ='') then
    begin
      MessageBox(Handle, '车位不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if  self.Edt_user.Text=null then
    begin
      self.Edt_user.Text:='';
    end;
  if(self.edt_carNumber.Text =null) or (trim(self.edt_carNumber.Text) ='') then
    begin
      MessageBox(Handle, '车牌号不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if(DateToStr(date_begin.Date)=DateToStr(date_end.Date)) or (date_begin.Date>date_end.Date) then
    begin
      MessageBox(Handle, '合同日期设置有误', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  carfee:=Tcarfee.Create();
  carfee.id:=DataS.DataSet.FieldValues['id'];
  carfee.CarNo:=trim(self.edt_car.Text);
  carfee.UserName:=trim(self.Edt_user.Text);
  carfee.carNumber:=trim(self.edt_carNumber.Text);
  carfee.beginDate:=DateToStr(date_begin.Date);
  carfee.endDate:=DateToStr(date_end.Date);
  if Control_CarFeeU.EditCar(carfee) then
    begin
      MessageBox(Handle, '修改成功', '小区物业', MB_ICONASTERISK);
      fillUI;
    end
  else
    MessageBox(Handle, '修改有误,请检查!', '小区物业', MB_ICONEXCLAMATION);
  carfee:=nil;
end;
procedure Tfrm_carFee.FillUI;
var
  sql:string;
begin
  DataS.DataSet:=Control_carfeeU.GetCarFeeSetArray;
  self.DBGridCarFee.DataSource:=DataS;
  self.DBGridCarFee.DataSource.DataSet.Fields[0].Visible:=false;
end;
procedure Tfrm_carFee.btn_closeClick(Sender: TObject);
begin
close;
end;

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

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

procedure Tfrm_carFee.btn_addClick(Sender: TObject);
begin
self.AddCar;
end;

procedure Tfrm_carFee.btn_editClick(Sender: TObject);
begin
self.EditCar;
end;

procedure Tfrm_carFee.btn_delClick(Sender: TObject);
var
  carID:integer;
begin
if DataS.DataSet.FieldByName('id').Value<>null then
    begin
      if MessageBox(Handle, '你确定要删除该记录吗', '信息', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
        begin
          DataS.DataSet.Delete;
          FillUI;
        end;
    end
else
  MessageBox(Handle, '请选择要删除的车位', '信息', MB_ICONEXCLAMATION);
end;

procedure Tfrm_carFee.DBGridCarFeeCellClick(Column: TColumn);
begin
ShowInfo;
end;   

end.