realtyc351.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit RealtyC351;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
  StrUtils, ExtDlgs, ComCtrls, math, Menus, ImgList, ToolWin;

type
    Tf_RealtyC351 = class(TForm)
    Button5: TButton;
    Button7: TButton;
    Label1: TLabel;
    L1: TLabel;
    L2: TLabel;
    L3: TLabel;
    Label2: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    datetimepicker1: TDateTimePicker;
    Edit7: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Edit6: TEdit;
    Edit4: TEdit;
    edit1: TComboBox;
    Label12: TLabel;
    DateTimePicker2: TDateTimePicker;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure getid;
    procedure Edit3Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure edit1Select(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
       bOK:bool;
  end;

var
  f_RealtyC351: Tf_RealtyC351;
  sNum:string;

implementation

uses data, main, RealtyC35,RealtyC33,RealtyA14;

{$R *.dfm}

procedure Tf_RealtyC351.FormCreate(Sender: TObject);
var
     query,query1:TADOquery;
     s,stemp,rr:string;
     i:integer;
begin
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;
    query1:=TADOQuery.Create(nil);
    query1.Connection:=DataModuleADO.ADOConnection1;


    If f_RealtyC35.bMod = false Then
    begin
        getid;
        datetimepicker1.date:=date;
        datetimepicker2.date:=date;
    end;
    If f_RealtyC35.bMod = True Then
    begin
        edit1.Enabled:=true;
        s:='select * from 房间抄表 where 编号='''+f_RealtyC35.ListView1.Selected.SubItems[8]+'''';
        query.sql.add(s);
        query.Open;
        if query.RecordCount>0 then
        begin
            datetimepicker1.Date:=strtodate(query.fieldbyname('读数日期').Value);
            Edit6.Text:=query.fieldbyname('上次读数日期').Value;
            edit2.Text:=query.fieldbyname('上次读数').Value;
            edit3.Text:=query.fieldbyname('本次读数').Value;
            edit4.Text:=query.fieldbyname('实际行度').Value;
            edit5.Text:=query.fieldbyname('房间').Value+'--'+mainform.getName('房间',query.fieldbyname('房间').Value);
            edit7.Text:=query.fieldbyname('编号').Value;

            rr:=query.fieldbyname('抄表月份').value+'-01';
            datetimepicker2.Date:=strtodate(rr);

            query1.SQL.Add('select * from 房间仪表 where 房间='''+mainform.getNum(edit5.text)+'''');
            query1.Open;
            if query1.recordcount>0 then
            edit1.Items.Add(query1.fieldbyname('编号').Value+'--'+query1.fieldbyname('仪表种类').Value);


            query1.SQL.Clear;
            query1.SQL.Add('select * from 房间仪表 where 编号='''+query.fieldbyname('房间仪表').Value+'''');
            query1.open;
            if query1.RecordCount>0 then stemp:=query1.fieldbyname('仪表种类').value;

            edit1.ItemIndex:=edit1.Items.IndexOf(query.fieldbyname('房间仪表').Value+'--'+stemp);

        end;
    end;
    query.Close;
    query.free;
end;

//Tab
procedure Tf_RealtyC351.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
        Begin
            key:=0;
            perform(WM_NEXTDLGCTL,0,0);
        end
    else if key=VK_ESCAPE then close;
end;


procedure Tf_RealtyC351.Button7Click(Sender: TObject);
Var
    query,query1:TADOQuery;
    s,stemp,stemp1,stemp2,stemp11,ss:String;
    i:integer;
    d1,d2:double;
    r1,r2:string;
begin
    ss:=mainform.getNum(edit1.Text);
    
    if edit1.Text='' then
    begin
         showmessage('请输入房间仪表!');
         edit1.SetFocus;
         exit;
    end;

    if edit5.Text='' then
    begin
         showmessage('请输入房间!');
         edit5.SetFocus;
         exit;
    end;

    edit2.Text:=mainform.StdDou2(edit2.text);
    edit3.Text:=mainform.StdDou2(edit3.text);
    edit4.Text:=mainform.StdDou2(edit4.text);

    Edit3Exit(Sender);
 
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;
    query1:=TADOQuery.Create(nil);
    query1.Connection:=DataModuleADO.ADOConnection1;

    if DataModuleADO.ADOConnection1.InTransaction=true then
       DataModuleADO.ADOConnection1.RollbackTrans;

    if f_RealtyC35.bMod=true then
    begin
        s:='update 房间抄表 set 房间仪表='''+ss;
        s:=s+''',读数日期='''+datetostr(datetimepicker1.date);
        s:=s+''',上次读数日期='''+edit6.Text;
        s:=s+''',房间='''+mainform.getNum(Edit5.Text);
        s:=s+''',上次读数='+edit2.Text;
        s:=s+',本次读数='+edit3.Text;
        s:=s+',实际行度='+edit4.Text;
        s:=s+',编号='''+edit7.Text;
        s:=s+''',抄表月份='''+copy(datetostr(datetimepicker2.Date),1,7);
        s:=s+''' where 编号='''+f_RealtyC35.ListView1.Selected.SubItems[8]+'''';


        query.SQL.Clear;
        query.sql.Add(s);
        DataModuleADO.ADOConnection1.BeginTrans;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        s:='select * from 房间抄表 where  编号= '''+edit7.text+'''';
        query.sql.clear;
        query.sql.add(s);
        query.Open;
        if query.RecordCount>0 then
        begin
            query1.sql.clear;
            query1.SQL.add('select * from 房间 where 编号='''+query.fieldbyname('房间').Value+'''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                stemp1:=query1.fieldbyname('管理区').Value;
            end;

            query1.SQL.Clear;
            query1.SQL.Add('select * from 房间仪表 where 编号='''+query.fieldbyname('房间仪表').Value+'''');
            query1.open;
            if query1.RecordCount>0 then stemp:=query1.fieldbyname('仪表种类').value;

            with f_RealtyC35.ListView1.Selected do
            begin
                Caption:=mainform.getName('房间',Query.FieldByName('房间').Value);
                SubItems[0]:=stemp;//Query.FieldByName('房间仪表').Value;
                SubItems[1]:=Query.FieldByName('读数日期').Value;
                SubItems[2]:=Query.FieldByName('上次读数日期').Value;
                SubItems[3]:=Query.FieldByName('本次读数').Value;
                SubItems[4]:=Query.FieldByName('本次读数').Value;
                SubItems[5]:=Query.FieldByName('实际行度').Value;
                SubItems[6]:=Query.FieldByName('是否计费').Value;
                SubItems[7]:=mainform.getName('管理区',stemp1);
                SubItems[8]:=Query.FieldByName('编号').Value;
                SubItems[9]:=Query.FieldByName('抄表月份').Value;
                //SubItems[9]:=stemp;
            end;
        end;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;
        CLOSE;
    end
    else
    begin
        query.SQL.clear;
        query.SQL.Add('select * from 房间抄表 where 编号 ='''+edit7.text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            showmessage('编号重复');
            query.Close;
            query.Free;
            exit;
        end;

        s:='insert into  房间抄表(编号,房间仪表,读数日期,上次读数日期,上次读数,';
        s:=s+'本次读数,实际行度,房间,是否计费,审核,抄表月份)';
        s:=s+' Values(:s1,:s2,:s3,:s4,:s5,';