chargeitemunit.pas

这是一个用Delphi编写的物业管理系统源代码.

unit ChargeItemUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ToolWin, ComCtrls, DBCtrls, Mask, Grids,
  DBGrids, ExtCtrls;

type
  TChargeItemForm = class(TForm)
    ToolBar1: TToolBar;
    btadd: TBitBtn;
    btok: TBitBtn;
    Btdel: TBitBtn;
    btno1: TBitBtn;
    Panel3: TPanel;
    Panel2: TPanel;
    Label6: TLabel;
    Label8: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    TS_ID: TDBEdit;
    TS_User: TDBEdit;
    User_ID: TDBEdit;
    DBMemo1: TDBMemo;
    SpeedButton1: TSpeedButton;
    DBGrid1: TDBGrid;
    ChargeRecycle: TDBEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure btaddClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure BtdelClick(Sender: TObject);
    procedure btno1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChargeItemForm: TChargeItemForm;

implementation

uses udm, SelectTextUnit, DateUnit;
{$R *.dfm}

procedure TChargeItemForm.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TSelectTextForm, SelectTextForm);
  SelectTextForm.Caption := '收费周期选择';
  with SelectTextForm.ComboBox1 do
  begin
    clear;
    items.Add('每月一次');
    items.Add('两月一次');
    items.Add('一季一次');
    items.Add('半年一次');
    items.Add('一年一次');
    items.Add('一次收取');
    itemindex := 0;
  end;
  if SelectTextForm.ShowModal = mrOk then
  begin
    ChargeRecycle.Text := '';
    ChargeRecycle.Text := SelectTextForm.combobox1.Text;
  end;
  SelectTextForm.Free;
end;

procedure TChargeItemForm.btaddClick(Sender: TObject);
begin
  try
    adodm.ChargeItem.Append;
  except
    showmessage('产生例外错误，请联系开发人员或者程序供应商');
  end;
end;

procedure TChargeItemForm.btokClick(Sender: TObject);
begin
  try
    adodm.ChargeItem.Post;
  except
    showmessage('产生例外错误，请联系开发人员或者程序供应商');
  end;
end;

procedure TChargeItemForm.BtdelClick(Sender: TObject);
begin
  try
    if MessageDlg('您确定要删除录入的数据吗？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      adodm.ChargeItem.Delete;
  except
    showmessage('产生例外错误，请联系开发人员或者程序供应商');
  end;
end;


procedure TChargeItemForm.btno1Click(Sender: TObject);
begin
  try
    adodm.ChargeItem.Cancel;
  except
    showmessage('产生例外错误，请联系开发人员或者程序供应商');
  end;
  close;
end;

end.