zhbxunit.pas

企业经营管理系统开发实例导航-小区物业管理

unit ZHBXUnit;

interface

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

type
  TZHBXForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    ToolBar1: TToolBar;
    btadd: TBitBtn;
    btok: TBitBtn;
    btno: TBitBtn;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBMemo1: TDBMemo;
    Panel4: TPanel;
    Btdel: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure btaddClick(Sender: TObject);
    procedure btnoClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure DBEdit7Change(Sender: TObject);
    procedure DBEdit8Change(Sender: TObject);
    procedure btdelClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    function checkdata: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZHBXForm: TZHBXForm;

implementation

uses UDM, dateUnit, SelectDataUnit;
{$R *.dfm}

function TZHBXForm.checkdata: boolean;
begin
  result := true;
  if trim(DBedit1.Text) = '' then
  begin
    showmessage('单据编号不能为空!');
    result := false;
    DBedit1.SetFocus;
    exit;
  end;

  if trim(DBedit2.Text) = '' then
  begin
    showmessage('投诉用户不能为空!');
    result := false;
    DBedit2.SetFocus;
    exit;
  end;

  if trim(DBedit3.Text) = '' then
  begin
    showmessage('住户编号不能为空!');
    result := false;
    DBedit3.SetFocus;
    exit;
  end;
  if trim(DBedit4.Text) = '' then
  begin
    showmessage('投诉日期不能为空!');
    result := false;
    DBedit4.SetFocus;
    exit;
  end;
  if trim(DBedit5.Text) = '' then
  begin
    showmessage('维修人员不能为空!');
    result := false;
    DBedit5.SetFocus;
    exit;
  end;
  if trim(DBedit7.Text) = '' then
  begin
    showmessage('服务费用不能为空!');
    result := false;
    DBedit7.SetFocus;
    exit;
  end;
  if trim(DBedit8.Text) = '' then
  begin
    showmessage('物料费用不能为空!');
    result := false;
    DBedit8.SetFocus;
    exit;
  end;
  {if trim(TS_Com.Text)='' then
  begin
  showmessage('处理日期不能为空!');
  result:=false;
  TS_Com.SetFocus;
  exit;
  end; }
{    if trim(Com_Person.Text)='' then
  begin
  showmessage('处理人员不能为空!');
  result:=false;
  Com_Person.SetFocus;
  exit;
  end;}

  if trim(DBMemo1.Text) = '' then
  begin
    showmessage('投诉内容不能为空!');
    result := false;
    DBMemo1.SetFocus;
    exit;
  end;
end;

procedure TZHBXForm.btaddClick(Sender: TObject);
var
  NewID: string;
begin
  if checkdata then
    adodm.ZHBX.Last; //返到记录的最后一个
  if adodm.ZHBX.FieldCount = 0 then
  begin
    adodm.ZHBX.Append; //增加新记录
    DBedit1.Text := '1'; //把新记录的编号
  end
  else
  begin
    NewID := IntToStr(adodm.ZHBX.FieldByName('单据编号').AsInteger + 1);
      //新记录的编号
    adodm.ZHBX.Append; //增加新记录
    DBedit1.Text := NewID; //把新记录的编号
  end;
end;

procedure TZHBXForm.btnoClick(Sender: TObject);
begin
  adodm.ZHBX.Cancel;
  close;
end;

procedure TZHBXForm.btdelClick(Sender: TObject);
begin
  if MessageDlg('您确定要删除录入的数据吗？', mtConfirmation, [mbYes, mbNo], 0)
    = mrYes then
  begin
    adodm.ZHBX.Delete;
  end;
end;

procedure TZHBXForm.btokClick(Sender: TObject);
begin
  if checkdata then
    adodm.ZHBX.Post;
  // close;
end;

procedure TZHBXForm.DBEdit7Change(Sender: TObject);
begin
  if (DBedit7.Text <> '') and (DBedit8.Text <> '') then
    //当DBedit7和DBedit8的内容均不为空时候,两者相加,结果显示在DBedit9
    DBedit9.Text := FloatToStr(StrToFloat(DBedit7.Text) +
      StrToFloat(DBedit8.Text));
end;

procedure TZHBXForm.DBEdit8Change(Sender: TObject);
  //当DBedit7和DBedit8的内容均不为空时候,两者相加,结果显示在DBedit9
begin
  if (DBedit7.Text <> '') and (DBedit8.Text <> '') then
    DBedit9.Text := FloatToStr(StrToFloat(DBedit7.Text) +
      StrToFloat(DBedit8.Text));

end;

procedure TZHBXForm.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TdateForm, dateForm);
  if (dateForm.ShowModal = mrOk) then // 显示日期选择窗体
  begin
    DBedit4.Text := '';
    DBedit4.Text := DateTimeToStr(dateForm.date1.date);
  end; //得到当前选择日期
  dateForm.Free;
end;

procedure TZHBXForm.SpeedButton2Click(Sender: TObject);
begin
  Application.CreateForm(TdateForm, dateForm);
  if (dateForm.ShowModal = mrOk) then // 显示日期选择窗体
  begin
    DBedit6.Text := '';
    DBedit6.Text := DateTimeToStr(dateForm.date1.date);
  end; //得到当前选择日期
  dateForm.Free;
end;

procedure TZHBXForm.SpeedButton3Click(Sender: TObject);
begin
  Application.CreateForm(TSelectDataForm, SelectDataForm);
  SelectDataForm.Caption := '请选择住户名称';
  with SelectDataForm.DBLookupComboBox1 do
  begin
    with adodm.search3 do
    begin //从数据库中得到所有的住户名称
      Close;
      CommandText := 'SELECT 住户名称,住户编号 FROM ClientTable';
      open;
    end;
    ListSource := adodm.dssearch3;
    KeyField := '住户名称';
    if adodm.search3.RecordCount > 0 then
      ListFieldIndex := 0;
    if adodm.search3.RecordCount = 0 then
      //如果房型资料的数据库为空的话,提示出错信息
      ShowMessage('没有住户名称');
  end;
  if SelectDataForm.ShowModal = mrOk then
    DBEdit2.Text := SelectDataForm.DBLookupComboBox1.Text;
  DBEdit3.Text := adodm.search3.FieldByName('住户编号').AsString;
  SelectDataForm.Free;
end;

end.