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('聯(lián)系人').Value);
                 SubItems.Add(Query1.FieldByName('電話').Value);
                 SubItems.Add(Query1.FieldByName('手機(jī)號').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('組織機(jī)構(gòu)',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.