realtyb41b.pas

来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 302 行

unit RealtyB41B;

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_RealtyB41B = class(TForm)
    L1: TLabel;
    L2: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    Button2: TButton;
    Button5: TButton;
    Button7: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);

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

var
  f_RealtyB41B: Tf_RealtyB41B;
  sNum:string;

implementation

uses data, main, RealtyA12,RealtyA14,RealtyB22,RealtyB41;

{$R *.dfm}

procedure Tf_RealtyB41B.FormCreate(Sender: TObject);
Var
      query,query1:TADOQuery;
      s,s1,s2:string;
      i:integer;
begin
     if f_RealtyB41.ListView1.SelCount=0 then exit;

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




      if f_realtyB41.bNew=true then
      begin
          query.SQL.Clear;
          query.SQL.Add('select * from 客户迁入 where 编号='''+f_RealtyB41.ListView1.Selected.SubItems[12]+'''');
          query.Open;
          if query.RecordCount>0 then
          begin
              s2:=mainform.getName('房间',query.fieldbyname('房间').Value);
              edit1.Text:=query.fieldbyname('房间').Value+'--'+s2;
              edit2.Text:=query.fieldbyname('客户').Value;
          end;
      end;

      if f_realtyB41.bNew=false then
      begin
          query.SQL.Clear;
          query.SQL.Add('select * from 客户迁出 where 迁入编号='''+f_RealtyB41.ListView1.Selected.SubItems[12]+'''');
          query.Open;
          if query.RecordCount>0 then
          begin
              s2:=mainform.getName('房间',query.fieldbyname('房间').Value);
              edit1.Text:=query.fieldbyname('房间').Value+'--'+s2;
              edit2.Text:=query.fieldbyname('客户').Value;
              edit3.Text:=query.fieldbyname('迁出说明').Value;
              datetimepicker1.Date:=strtodate(query.fieldbyname('迁出日期').Value);
          end;
      end;
end;

//Tab
procedure Tf_RealtyB41B.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_RealtyB41B.Button1Click(Sender: TObject);
begin
     f_RealtyA14:=Tf_RealtyA14.Create(self);
     f_RealtyA14.ToolButton6.Visible:=true;
     f_RealtyA14.ShowModal;

     if  f_RealtyA14.bOk=true then
     begin
        edit1.Text:=f_RealtyA14.sNum+'--'+f_RealtyA14.sName;
        edit2.enabled:=true;
     end;
end;

procedure Tf_RealtyB41B.Button2Click(Sender: TObject);
var
    query,query1:TADOQuery;
    s,s1:string;
begin
     f_RealtyB22:=Tf_RealtyB22.Create(self);

     f_RealtyB22.ToolButton6.Visible:=true;
     f_RealtyB22.Button1.enabled:=false;
     f_RealtyB22.TreeView1.Enabled:=false;

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

     f_RealtyB22.ListView1.Items.Clear;
     
     s:='select * from 客户迁入 where 房间='''+mainform.getNum(edit1.text)+''' and 是否迁出='''+'N'+'''';
     query.sql.add(s);
     query.open;
     while not query.eof do
     begin
         s1:='select * from 客户资料 where 客户名称 = '''+query.fieldbyname('客户').value+'''';

         query1.SQL.Clear;
         Query1.SQL.Add(s1);
         Query1.Open ;
         if query1.recordcount>0 then
         begin
             with f_RealtyB22.ListView1.Items.Add do
             begin
                 Caption:=Query1.FieldByName('客户代码').Value;
                 SubItems.Add(Query1.FieldByName('客户名称').Value);
                 SubItems.Add(Query1.FieldByName('联系人').Value);
                 SubItems.Add(Query1.FieldByName('电话').Value);
                 SubItems.Add(Query1.FieldByName('手机号').Value);
                 SubItems.Add(Query1.FieldByName('性别').Value);
                 SubItems.Add(Query1.FieldByName('客户类型').Value);
                 SubItems.Add(Query1.FieldByName('身份证号码').Value);
                 SubItems.Add(Query1.FieldByName('出生日期').Value);
                 SubItems.Add(Query1.FieldByName('文化程度').Value);
                 SubItems.Add(Query1.FieldByName('电子邮件').Value);
                 SubItems.Add(Query1.FieldByName('工作单位').Value);
                 SubItems.Add(Query1.FieldByName('传真').Value);
                 SubItems.Add(Query1.FieldByName('籍贯').Value);
                 SubItems.Add(Query1.FieldByName('地址').Value);
                 SubItems.Add(Query1.FieldByName('邮编').Value);
                 SubItems.Add(Query1.FieldByName('MSN').Value);
                 SubItems.Add(Query1.FieldByName('备注').Value);
                 SubItems.Add(mainform.getName('组织机构',Query1.FieldByName('管理处').Value));
             end;
         end;
         query.next;
     end;

     f_RealtyB22.ShowModal;

     if  f_RealtyB22.bOk=true then
     begin
         edit2.Text:=f_RealtyB22.ListView1.Selected.SubItems[0];
     end;
end;

procedure Tf_RealtyB41B.Button7Click(Sender: TObject);
Var
    query,query1:TADOQuery;
    s,s1:String;
    r1,r2:string;
    i:integer;
begin
    r1:=mainform.getNum(edit1.Text);

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

    if edit2.Text='' then
    begin
         showmessage('请输入客户!');
         edit2.SetFocus;
         exit;
    end;

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

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

    if f_realtyB41.bNew=false then
    begin
          s:='update 客户迁出 set 迁入编号='''+f_RealtyB41.ListView1.Selected.SubItems[12];
          s:=s+''',房间='''+r1;
          s:=s+''',客户='''+edit2.Text;
          s:=s+''',迁出日期='''+datetostr(datetimepicker1.Date);
          s:=s+''',迁出说明='''+edit3.Text;
          s:=s+''' where 迁入编号='''+f_RealtyB41.ListView1.Selected.SubItems[12]+'''';

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

          query.SQL.Clear;
          Query.SQL.Add('select * from 客户迁出 where 迁入编号 ='''+f_RealtyB41.ListView1.Selected.SubItems[12]+'''');
          Query.Open ;
          if query.RecordCount>0 then
          begin
              with f_realtyB41.ListView1.Selected do
              begin
                  SubItems[5]:=Query.FieldByName('迁出日期').Value;
              end;
          end;
          query.Close;
          query.Free;
          close;
    end
    else
    begin
        query.sql.clear;
        query.sql.add('select * from 客户迁入 where 房间 ='''+r1+''' and 客户='''+edit2.text+'''');
        query.open;
        if query.recordcount>0 then s1:=query.fieldbyname('编号').value;

        s:='insert into 客户迁出 (迁入编号,房间,客户,迁出日期,迁出说明)';
        s:=s+'values(:s1,:s2,:s3,:s4,:s5)';

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

        query.Parameters.ParamByName('s1').Value:=s1;
        query.Parameters.ParamByName('s2').Value:=r1;
        query.Parameters.ParamByName('s3').Value:=edit2.Text;
        query.Parameters.ParamByName('s4').Value:=datetostr(datetimepicker1.Date);
        query.Parameters.ParamByName('s5').Value:=edit3.Text;

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

        s:='update 客户迁入 set 是否迁出 ='''+'Y'+''' where 编号='''+s1+'''';
        DataModuleADO.ADOConnection1.BeginTrans;
        query.SQL.Clear;
        query.SQL.Text:=s;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;


        showmessage('保存成功!');

        query.sql.Clear;
        query.sql.add('select * from 客户迁出 where 迁入编号='''+s1+'''');
        Query.Open ;
        if query.recordcount>0 then
        begin
            with f_realtyB41.ListView1.selected do
            begin
                SubItems[5]:=Query.FieldByName('迁出日期').Value;
            end;
        end;
        query.Close;
        query.Free; 

        edit1.Text:='';
        edit2.Text:='';
        edit3.Text:='';
        datetimepicker1.date:=date;
    end;
end;

procedure Tf_RealtyB41B.Button5Click(Sender: TObject);
begin
    CLOSE;
end;

end.