realtyc221.pas

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

unit RealtyC221;

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_RealtyC221 = class(TForm)
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit4: TEdit;
    Label9: TLabel;
    Button5: TButton;
    Button7: TButton;
    Edit2: TComboBox;
    GroupBox5: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox2: TComboBox;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;

    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);


    procedure RadioButton6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure getId;
    procedure Edit2Change(Sender: TObject);


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

var
    f_RealtyC221: Tf_RealtyC221;
    sNum:string;

implementation

uses data, main, RealtyA14,RealtyC22;

{$R *.dfm}

procedure Tf_RealtyC221.getId;
Var
    query:TADOQuery;
    s:string;
    i:integer;
begin
    s := 'select top 1 * from 收费时间 ORDER BY 编号 DESC';
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query.SQL.Add(s);
    Query.Open ;
    if query.recordcount > 0 then
    begin
        s:= Query.Fieldbyname('编号').AsString;
        s:= Copy(S, 1, 4);
        i:= strtoint(s)+1;
        if i<10 then edit1.text := '000'+inttostr(i)
        else if (i > 9) and (i<100) then edit1.text := '00'+inttostr(i)
        else if (i > 99) and (i<1000) then edit1.text := '0'+inttostr(i)
        else if i>999 then edit1.text := inttostr(i);
    end
    else  edit1.text := '0001';
      
    query.close;
    query.free;

end;

procedure Tf_RealtyC221.FormCreate(Sender: TObject);
Var
      query:TADOQuery;
      s:string;
      i:integer;
begin
    Edit2.Items.Add('收当月');
    Edit2.Items.Add('收上月');
    Edit2.Items.Add('收下月');
    Edit2.Items.Add('指定月');



      combobox2.Items.Add('1');
      combobox2.Items.Add('2');
      combobox2.Items.Add('3');
      combobox2.Items.Add('4');
      combobox2.Items.Add('5');
      combobox2.Items.Add('6');
      combobox2.Items.Add('7');
      combobox2.Items.Add('8');
      combobox2.Items.Add('9');
      combobox2.Items.Add('10');
      combobox2.Items.Add('11');
      combobox2.Items.Add('12');
      combobox2.Items.Add('13');
      combobox2.Items.Add('14');
      combobox2.Items.Add('15');
      combobox2.Items.Add('16');
      combobox2.Items.Add('17');
      combobox2.Items.Add('18');
      combobox2.Items.Add('19');
      combobox2.Items.Add('20');
      combobox2.Items.Add('21');
      combobox2.Items.Add('22');
      combobox2.Items.Add('23');
      combobox2.Items.Add('24');
      combobox2.Items.Add('25');
      combobox2.Items.Add('26');
      combobox2.Items.Add('27');
      combobox2.Items.Add('28');
      combobox2.Items.Add('29');
      combobox2.Items.Add('30');
      combobox2.Items.Add('31');




      Query:=TADOQuery.Create(nil);
      Query.Connection:=DataModuleADO.ADOConnection1;


      
      if f_realtyC22.bMod=true then
      begin
           query.SQL.Clear;
           query.SQL.Add('select * from 收费时间 where 编号='''+f_RealtyC22.listview1.selected.caption+'''');
           query.Open;
           if query.RecordCount>0 then
           begin
                edit1.Text:=query.fieldbyname('编号').Value;
                edit2.ItemIndex:=edit2.Items.IndexOf(query.fieldbyname('名称').Value);
                edit2.Text:=query.fieldbyname('名称').Value;
                edit4.Text:=query.fieldbyname('说明').Value;


                if query.fieldbyname('审核').Value='Y' then Button7.Enabled:=false;


                combobox2.ItemIndex:=combobox2.Items.IndexOf(query.fieldbyname('收费日期').Value);

                Edit2Change(Sender);

                if query.fieldbyname('名称').Value='指定月'  then
                begin
                     query.SQL.Clear;
                     query.SQL.Add('select * from 收费时间明细 where 编号='''+f_RealtyC22.listview1.selected.caption+'''');
                     query.Open;
                     while not query.Eof do
                     begin
                         if query.fieldbyname('月份').Value='01' then checkbox1.Checked:=true;
                         if query.fieldbyname('月份').Value='02' then checkbox2.Checked:=true;
                         if query.fieldbyname('月份').Value='03' then checkbox3.Checked:=true;
                         if query.fieldbyname('月份').Value='04' then checkbox4.Checked:=true;
                         if query.fieldbyname('月份').Value='05' then checkbox5.Checked:=true;
                         if query.fieldbyname('月份').Value='06' then checkbox6.Checked:=true;
                         if query.fieldbyname('月份').Value='07' then checkbox7.Checked:=true;
                         if query.fieldbyname('月份').Value='08' then checkbox8.Checked:=true;
                         if query.fieldbyname('月份').Value='09' then checkbox9.Checked:=true;
                         if query.fieldbyname('月份').Value='10' then checkbox10.Checked:=true;
                         if query.fieldbyname('月份').Value='11' then checkbox11.Checked:=true;
                         if query.fieldbyname('月份').Value='12' then checkbox12.Checked:=true;

                         query.Next;
                     end;
                end;
           end;
      end;

      Query.Close;
      Query.Free;

end;

//Tab
procedure Tf_RealtyC221.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_RealtyC221.RadioButton6Click(Sender: TObject);
begin
     combobox2.Enabled:=true;
end;

procedure Tf_RealtyC221.Button7Click(Sender: TObject);
Var
    query:TADOQuery;
    s,s1:String;
    i:integer;
begin
    if edit2.Text='' then
    begin
         showmessage('请输入名称!');
         edit2.SetFocus;
         exit;
    end;



    if combobox2.Text='' then
    begin
         showmessage('请输入日期!');
         combobox2.SetFocus;
         exit;
    end;

    if edit4.Text='' then edit4.Text:='-';



    query:=TADOquery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;

    if f_RealtyC22.bMod=true then
    begin
        edit1.Enabled:=true;

        s:='update 收费时间 set 编号='''+edit1.Text;
        s:=s+''',名称='''+edit2.Text;
        s:=s+''',说明='''+edit4.Text;
        s:=s+''',收费日期='+combobox2.Text;
        s:=s+' where 编号='''+f_RealtyC22.listview1.selected.caption;
        s:=s+'''';




        DataModuleADO.ADOConnection1.BeginTrans;
        query.SQL.Clear;
        query.SQL.Text:=s;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        query.SQL.Clear;
        query.SQL.Add('select * from 收费时间 where 编号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
             with f_RealtyC22.listview1.Selected do
             begin
                  Caption:=query.fieldbyname('编号').Value;
                  subitems[0]:=query.fieldbyname('名称').Value;
                  subitems[1]:=query.fieldbyname('说明').Value;
             end;
        end;



        DataModuleADO.ADOConnection1.BeginTrans;
        query.SQL.Text:='delete from 收费时间明细 where 编号='''+f_RealtyC22.listview1.selected.caption+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        if Edit2.Text='指定月' then
        begin
            if checkbox1.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='01';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox2.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='02';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox3.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='03';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox4.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='04';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox5.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.Text;
                query.Parameters.ParamByName('s2').Value:='05';
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            if checkbox6.Checked=true then
            begin
                s:='insert into 收费时间明细(编号,月份) values(:s1,:s2)';
                query.sql.clear;
                query.SQL.Add(s);