uinput.pas

物业管理系统

unit uinput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls;

type
  Tfmadduser = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    DataSource1: TDataSource;
    Table1: TTable;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit8: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit11: TEdit;
    Label14: TLabel;
    Edit13: TEdit;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    DateTimePicker5: TDateTimePicker;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmadduser: Tfmadduser;

implementation

{$R *.dfm}

procedure Tfmadduser.Button1Click(Sender: TObject);
var cmend1:string;
begin
if not table1.Locate('chouseno',trim(edit1.Text),[]) then
begin
cmend1:='';
if  checkbox1.Checked=true then cmend1:='门窗';
if  checkbox2.Checked=true then cmend1:=cmend1+' 下水道';
if  checkbox3.Checked=true then cmend1:=cmend1+' 漏水';
if  checkbox4.Checked=true then cmend1:=cmend1+' 墙体';
if  checkbox5.Checked=true then cmend1:=cmend1+' 其他';


table1.Active:=true;
table1.Append;
table1.FieldValues['chouseno']:=trim(edit1.Text);
table1.FieldValues['cusername']:=trim(edit2.Text);
table1.FieldValues['cuserphone']:=trim(edit3.Text);
table1.FieldValues['nmj']:=strtofloat(trim(edit4.Text));
table1.FieldValues['djiaofang']:=datetimepicker1.Date;
table1.FieldValues['dwyfstart']:=datetimepicker2.Date;
table1.FieldValues['dwyfend']:=datetimepicker3.Date;
if length(trim(edit8.Text)) >0 then  table1.FieldValues['dwyfprice']:=strtofloat(trim(edit8.Text)) else table1.FieldValues['dwyfprice']:=0;
table1.FieldValues['dbikestart']:=datetimepicker4.Date;
table1.FieldValues['dbikeend']:=datetimepicker5.Date;
if length(trim(edit11.Text))>0 then table1.FieldValues['dbikeprice']:=strtofloat(trim(edit11.Text)) else table1.FieldValues['dbikeprice']:=0;
table1.FieldValues['cmend']:=cmend1;
table1.FieldValues['mbz']:=trim(edit13.Text);

table1.post;
end
else
showmessage('输入的楼号已经存在，请核对!');

end;

procedure Tfmadduser.Button2Click(Sender: TObject);
begin
if not table1.Eof then
begin
table1.Active:=true;
table1.Post;
showmessage('记录保存成功!');
end;
end;

procedure Tfmadduser.Button3Click(Sender: TObject);
begin
fmadduser.Close;
end;

procedure Tfmadduser.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit8.Text:='';
edit11.Text:='';
edit13.Text:='';
datetimepicker1.Date:=date();
datetimepicker2.Date:=date();
datetimepicker3.Date:=date();
datetimepicker4.Date:=date();
datetimepicker5.Date:=date();
end;

end.