ufmjiaofeicc.pas

物业管理系统

unit Ufmjiaofeicc;

interface

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

type
  TFmjiaofeicc = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit7: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit6: TEdit;
    Button1: TButton;
    CheckBox6: TCheckBox;
    Edit8: TEdit;
    Edit9: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    DataSource1: TDataSource;
    Table1: TTable;
    Table2: TTable;
    Table4: TTable;
    Table1Wyno: TStringField;
    Table1Xingm: TStringField;
    Table1Dianh: TStringField;
    Table1Zhuzh: TStringField;
    Table1Ddate: TDateField;
    Table1Jiezh: TDateField;
    Table1Ccf: TFloatField;
    Table1Sfj: TBooleanField;
    Table1Beizh: TStringField;
    Table1Cx: TStringField;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Table4Feil: TStringField;
    Table4Feij: TFloatField;
    Table4Biaoji: TBooleanField;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit9Exit(Sender: TObject);
 private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fmjiaofeicc: TFmjiaofeicc;

implementation

uses wuyeform;


{$R *.dfm}

procedure TFmjiaofeicc.Button1Click(Sender: TObject);
begin
if table2.Locate('wyno',trim(edit1.Text),[]) then
begin
edit2.Text:=table2.FieldValues['xingm'];
edit4.Text:=table2.FieldValues['dianh'];
edit8.Text:=table2.FieldValues['zhuzh'];
end
else
begin
showmessage('你输入的物业编号不存在，请核查!!');
fmjiaofeicc.OnCreate(sender);
edit1.SetFocus;
end;
end;

procedure TFmjiaofeicc.FormCreate(Sender: TObject);
var i:integer;
begin
application.OnMessage:=wuye.doenterastab;
edit1.Text:='';
edit2.Text:='';
edit4.Text:='';
edit8.Text:='';
edit9.Text:='0';
edit7.Text:='';
edit6.Text:='';
combobox1.Items.Clear;
table4.First;
for i:=1 to table4.RecordCount do
begin
if table4.FieldValues['biaoji']<>true then
combobox1.Items.Add(table4.FieldValues['feil']);
table4.Next;
end;
end;

procedure TFmjiaofeicc.BitBtn4Click(Sender: TObject);
begin
table1.Active:=true;

if (edit1.Text<>'') and (edit2.Text<>'') and (edit4.Text<>'') and (edit8.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') then
begin

if  table1.Locate('wyno;cx',vararrayof([edit1.Text,combobox1.text]),[]) then
begin
if MessageDlg('你输入的物业编号: '+edit1.Text+chr(13)+'车型:'+combobox1.Text+' 已经存在!'+chr(13)+'截止日期为:'+datetostr(table1.FieldByName('jiezh').Value)+chr(13)+'是否更新记录？',mtConfirmation, [mbYes,mbNo],0)=mryes
then
begin
table1.Active:=true;
table1.edit;
table1.FieldByName('wyno').Value:=edit1.Text;
table1.FieldByName('xingm').Value:=edit2.Text;;
table1.FieldByName('dianh').Value:=edit4.Text;
table1.FieldByName('zhuzh').Value:=edit8.Text;
table1.FieldByName('cx').Value:=combobox1.Text;

table1.FieldByName('ddate').Value:=datetimepicker1.Date;
table1.FieldByName('jiezh').Value:=datetimepicker2.Date;
table1.FieldByName('beizh').Value:=edit6.Text;
table1.FieldByName('ccf').Value:=strtofloat(edit7.Text);
table1.FieldByName('sfj').Value:=checkbox6.Checked;
table1.Post;
end;
end
else
begin
table1.Active:=true;
table1.append;
table1.FieldByName('wyno').Value:=edit1.Text;
table1.FieldByName('xingm').Value:=edit2.Text;;
table1.FieldByName('dianh').Value:=edit4.Text;
table1.FieldByName('zhuzh').Value:=edit8.Text;
table1.FieldByName('cx').Value:=combobox1.Text;

table1.FieldByName('ddate').Value:=datetimepicker1.Date;
table1.FieldByName('jiezh').Value:=datetimepicker2.Date;
table1.FieldByName('beizh').Value:=edit6.Text;
table1.FieldByName('ccf').Value:=strtofloat(edit7.Text);
table1.FieldByName('sfj').Value:=checkbox6.Checked;
table1.Post;
fmjiaofeicc.OnCreate(sender);
end;
fmjiaofeicc.OnCreate(sender);
end
else
showmessage('你输入的记录不完整，请核查!');

end;

procedure TFmjiaofeicc.BitBtn5Click(Sender: TObject);
begin
table1.Active:=true;
table1.Edit;
if not table1.Eof then
table1.Delete else showmessage('没有可删除的记录!');

end;

procedure TFmjiaofeicc.BitBtn6Click(Sender: TObject);
begin
table1.Active:=true;
table1.Edit;
table1.Post;
fmjiaofeicc.Close;
end;

procedure TFmjiaofeicc.FormActivate(Sender: TObject);
begin
fmjiaofeicc.DateTimePicker1.Date:=date();
fmjiaofeicc.DateTimePicker2.Date:=date();
edit1.SetFocus;
end;

procedure TFmjiaofeicc.Edit9Exit(Sender: TObject);
var i:integer;
begin
datetimepicker2.Date:=datetimepicker1.Date+strtoint(edit9.Text)*30;
i:=dayof(datetimepicker2.Date)-dayof(datetimepicker1.Date);
if i>0  then
datetimepicker2.Date:=datetimepicker2.Date+i;
if i<0  then
datetimepicker2.Date:=datetimepicker2.Date-i;

if table4.Locate('feil',combobox1.Text,[]) then
edit7.Text:=floattostr(table4.FieldByName('feij').Value*strtoint(edit9.Text));
edit7.SetFocus;
end;



end.