realtya27.pas

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

unit RealtyA27;

interface

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

type
    Tf_RealtyA27 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    ComboBox2: TComboBox;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    ComboBox3: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Edit3: TEdit;
    Label24: TLabel;
    Label25: TLabel;
    ComboBox1: TComboBox;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure GetID;
    procedure Edit2Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure ComboBox3Select(Sender: TObject);
    procedure ComboBox2Select(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
     bMod:bool;
     sTable:string;
     cols:integer;
     sNum:string;
  end;
var
  f_RealtyA27: Tf_RealtyA27;

implementation

uses data, main,Car4s931;
{$R *.dfm}

//初始化**************************************
procedure Tf_RealtyA27.FormCreate(Sender: TObject);
var
    query:TADOquery;
begin
    query:=TADOquery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;

    edit1.Text:='-';

    query.SQL.Add('select * from 停车场');
    query.Open;
    while not query.Eof do
    begin
        combobox1.Items.Add(query.fieldbyname('编号').value+'--'+query.fieldbyname('名称').Value);
        query.Next;
    end;

    combobox2.Items.Add('新增权属类型');
    query.sql.clear;
    query.SQL.Add('select distinct 名称 from 辅助资料 where 类别='''+'权属类型'+'''');
    query.Open;
    while not query.Eof do
    begin
        combobox2.Items.Add(query.fieldbyname('名称').Value);
        query.Next;
    end;

    combobox3.Items.Add('新增用途');
    query.sql.clear;
    query.SQL.Add('select distinct 名称 from 辅助资料 where 类别='''+'用途'+'''');
    query.Open;
    while not query.Eof do
    begin
        combobox3.Items.Add(query.fieldbyname('名称').Value);
        query.Next;
    end;

    query.Close;
    query.free;
end;

procedure Tf_RealtyA27.GetID;
Var
    Query:TADOQuery;
    s:string;
    i:integer;
begin
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;

    s := 'select top 1 * from 车位 ORDER BY 编号 DESC';
    Query.SQL.Add(s);
    Query.Open ;
    if query.recordcount > 0 then
    begin
        s:= Query.Fieldbyname('编号').AsString;
        s:= Copy(S, 1, 7);
        i:= strtoint(s)+1;
        if i<10 then sNum := '000000'+inttostr(i)
        else if (i > 9) and (i<100) then sNum := '00000'+inttostr(i)
        else if (i > 99) and (i<1000) then sNum := '0000'+inttostr(i)
        else if (i > 999) and (i<10000) then sNum := '000'+inttostr(i)
        else if (i > 9999) and (i<100000) then sNum := '00'+inttostr(i)
        else if (i > 99999) and (i<1000000) then sNum := '0'+inttostr(i)
        else if i>999999 then sNum := inttostr(i);
    end
    else  sNum := '0000001';

    query.Close;
    query.free;
end;

//Add***********************************
procedure Tf_RealtyA27.Button1Click(Sender: TObject);
var
    query:TADOquery;
    s,ss,s1,s2,s3,s4,s5,t2,t3,r2,r3:string;
    i:integer;
begin
    s1:='-';
    s2:='-';
    s3:='-';
    s4:='-';


    if combobox1.Text='' then
    begin
        showmessage('请选择停车场!');
        combobox1.SetFocus;
        exit;
    end;
    if edit2.Text='' then
    begin
        showmessage('车位号不能为空!');
        edit2.SetFocus;
        exit;
    end;
    if edit3.Text='' then
    begin
        showmessage('车位号不能为空!');
        edit3.SetFocus;
        exit;
    end;

    if edit7.Text='' then edit7.text:='-';
    if edit8.Text='' then edit8.text:='-';


    r2:='-';
    r3:='-';

    if combobox2.Text<>'' then r2:=combobox2.Text;
    if combobox3.Text<>'' then r3:=combobox3.Text;



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

    query.SQL.Add('select * from 停车场 where 编号='''+mainform.getNum(combobox1.Text)+'''');
    query.Open;
    if query.RecordCount>0 then
    begin
         s1:=query.fieldbyname('管理处').Value;
         s2:=query.fieldbyname('管理区').Value;
         s3:=query.fieldbyname('编号').Value;
    end;


    if (getStatus(Edit3.Text)='0') and (getStatus(Edit2.Text)='0') then
    begin
        for i:=strtoint(edit2.Text) to strtoint(edit3.Text) do
        begin
            getID;
            s4:=inttostr(i);
            if i<10 then s4:='0'+inttostr(i);
            s5:=Edit4.text+Edit1.text+s4;

            s:='select * from 车位 where 编号='''+sNum;
            s:=s+'''';

            query.sql.Clear;
            query.SQL.Add(s);
            query.Open;
            if query.RecordCount=0 then
            begin
                s:='insert into  车位(编号,名称,管理处,管理区,停车场,';
                s:=s+'建筑面积,使用面积,权属类型,用途,配套设施,说明)';
                s:=s+' Values(:s1,:s2,:s3,:s4,:s5,';
                s:=s+':s6,:s7,:s8,:s9,:s10,:s11)';

                query.SQL.Clear;
                query.SQL.Add(s);

                query.Parameters.ParamByName('s1').Value:=sNum;
                query.Parameters.ParamByName('s2').Value:=s5;
                query.Parameters.ParamByName('s3').Value:=s1;
                query.Parameters.ParamByName('s4').Value:=s2;
                query.Parameters.ParamByName('s5').Value:=s3;

                query.Parameters.ParamByName('s6').Value:=mainform.stddou2(edit5.Text);
                query.Parameters.ParamByName('s7').Value:=mainform.stddou2(edit6.Text);
                query.Parameters.ParamByName('s8').Value:=r2;
                query.Parameters.ParamByName('s9').Value:=r3;
                query.Parameters.ParamByName('s10').Value:=edit7.Text;

                query.Parameters.ParamByName('s11').Value:=edit8.Text;

                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;
        end;
    end;

    t2:= Edit2.Text;
    t3:= Edit3.Text;


    if (getStatus(Edit3.Text)='5') and (getStatus(Edit2.Text)='5') then
    begin
        for i:=ord(t2[1]) to ord(t3[1]) do
        begin
            getID;
            s4:=chr(i);
            s5:=Edit4.text+Edit1.text+s4;

            s:='select * from 车位 where 编号='''+sNum;
            s:=s+'''';

            query.sql.Clear;
            query.SQL.Add(s);
            query.Open;
            if query.RecordCount=0 then
            begin
                s:='insert into  车位(编号,名称,管理处,管理区,停车场,';
                s:=s+'建筑面积,使用面积,权属类型,用途,配套设施,说明)';
                s:=s+' Values(:s1,:s2,:s3,:s4,:s5,';
                s:=s+':s6,:s7,:s8,:s9,:s10,:s11)';

                query.SQL.Clear;
                query.SQL.Add(s);

                query.Parameters.ParamByName('s1').Value:=sNum;
                query.Parameters.ParamByName('s2').Value:=s5;
                query.Parameters.ParamByName('s3').Value:=s1;
                query.Parameters.ParamByName('s4').Value:=s2;
                query.Parameters.ParamByName('s5').Value:=s3;

                query.Parameters.ParamByName('s6').Value:=mainform.stddou2(edit5.Text);
                query.Parameters.ParamByName('s7').Value:=mainform.stddou2(edit6.Text);
                query.Parameters.ParamByName('s8').Value:=r2;
                query.Parameters.ParamByName('s9').Value:=r3;
                query.Parameters.ParamByName('s10').Value:=edit7.Text;

                query.Parameters.ParamByName('s11').Value:=edit8.Text;

                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;
        end;
    end;

    query.Close;
    query.free;   

    showmessage('车位批量新增成功!');
end;

//Tab******************************************
procedure Tf_RealtyA27.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_RealtyA27.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

//Close*********************************
procedure Tf_RealtyA27.Button2Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyA27.Edit2Exit(Sender: TObject);
begin
    Edit2.text:=getDS(Edit2.text);
end;

procedure Tf_RealtyA27.Edit3Exit(Sender: TObject);
begin
    Edit3.text:=getDS(Edit3.text);
end;

procedure Tf_RealtyA27.ComboBox3Select(Sender: TObject);
begin
    if ComboBox3.Text='新增用途' then
    begin
        mainform.t1:='用途';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            ComboBox3.Items.Add(mainform.t1);
            ComboBox3.ItemIndex:=ComboBox3.Items.IndexOf(mainform.t1);
        end
        else ComboBox3.ItemIndex:=ComboBox3.Items.IndexOf('');
    end;
end;

procedure Tf_RealtyA27.ComboBox2Select(Sender: TObject);
begin
    if ComboBox2.Text='新增权属类型' then
    begin
        mainform.t1:='权属类型';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            ComboBox2.Items.Add(mainform.t1);
            ComboBox2.ItemIndex:=ComboBox2.Items.IndexOf(mainform.t1);
        end
        else ComboBox2.ItemIndex:=ComboBox2.Items.IndexOf('');
    end;
end;

end.