unit Ord120_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_04, wwDialog, Wwlocate, ActnList, DB, ADODB, ComCtrls,
  ToolWin, ExtCtrls, dxtree, dxdbtree, dxdbtrel, StdCtrls, Mask, DBCtrls,
  Menus;

type
  TOrd120_01Form = class(TBas200_04Form)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    dxTreeViewEdit1: TdxTreeViewEdit;
    ADOQuery1O120_001: TAutoIncField;
    ADOQuery1O120_002: TStringField;
    ADOQuery1O120_003: TIntegerField;
    ADOQuery1O120_004: TBooleanField;
    qryOrd120: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ActInsertExecute(Sender: TObject);
    procedure ActUpdateExecute(Sender: TObject);
    procedure ActDeleteExecute(Sender: TObject);
    procedure ActSaveExecute(Sender: TObject);
    procedure dxTreeViewEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    { Public declarations }
  end;

var
  Ord120_01Form: TOrd120_01Form;

implementation

uses CommFun, SYSDATA;

{$R *.dfm}

procedure TOrd120_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ORD12001001');  //地區資料維護
  Label1.Caption:=GetDBString('ORD12001002');  //地區名稱
  Label2.Caption:=GetDBString('ORD12001003');  //上級地區
  ADOQuery1O120_002.DisplayLabel:=GetDBString('ORD12001002');  //地區名稱
  ADOQuery1O120_003.DisplayLabel:=GetDBString('ORD12001003');  //上級地區
end;

procedure TOrd120_01Form.FormCreate(Sender: TObject);
begin
  inherited;
//
end;

procedure TOrd120_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TOrd120_01Form.ActInsertExecute(Sender: TObject);
begin
  inherited;
//新增
  dxTreeViewEdit1.Items:=dxDBTreeView1.Items;
  dxTreeViewEdit1.Text:='';
  dxTreeViewEdit1.Enabled:=True;
  DBEdit1.SetFocus;
end;

procedure TOrd120_01Form.ActUpdateExecute(Sender: TObject);
begin
  inherited;
//修改
  dxTreeViewEdit1.Items:=dxDBTreeView1.Items;
  if dxDBTreeView1.Selected.Parent<>nil then
    dxTreeViewEdit1.Text:=dxDBTreeView1.Selected.Parent.Text
  else
    dxTreeViewEdit1.Text:='';
  DBEdit1.SetFocus;
end;

procedure TOrd120_01Form.ActDeleteExecute(Sender: TObject);
var
  ATreeNode:TTreeNode;
begin
//刪除
  ATreeNode:=nil;
  if dxDBTreeView1.Selected<>nil then
    if dxDBTreeView1.Selected.Parent<>nil then ATreeNode:=dxDBTreeView1.Selected.Parent;

  //檢查地區資料是否已經在使用
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select 1 from ORD120 where O120_004='+IntToStr(ADOQuery1O120_001.Value));
  SYSDM.qryQuery.Open;
  if not SYSDM.qryQuery.IsEmpty then
  begin
    ShowMsg('UMS10000085');  //該記錄已存在相關資料，不能刪除該記錄
    Abort;
  end;

  inherited;
  //修改"最低層否"標識
  if ATreeNode=nil then Exit;
  if not ATreeNode.HasChildren then
  begin
    ADOQuery1.Edit;
    ADOQuery1O120_004.Value:=True;
    ADOQuery1.Post;
  end;
end;

procedure TOrd120_01Form.ActSaveExecute(Sender: TObject);
var
  AUpdateFlag:Boolean;
  AName:string;
begin
//保存
  AUpdateFlag:=False;
  //設置上級地區編號
  if dxTreeViewEdit1.Text='' then
    ADOQuery1O120_003.Value:=0
  else
  begin
    qryOrd120.Close;
    qryOrd120.Open;
    if qryOrd120.Locate('O120_002',dxTreeViewEdit1.Text,[loCaseInsensitive]) then
    begin
      qryOrd120.Edit;
      qryOrd120.FieldByName('O120_004').Value:=False;
      qryOrd120.Post;
      ADOQuery1O120_003.Value:=qryOrd120.FieldByName('O120_001').Value;
      ADOQuery1O120_004.Value:=True;
    end;
  end;
  ADOQuery1O120_004.Value:=True;  //最低層否
  AName:=trim(DBEdit1.Text);

  //檢查上級地區是否已在使用   客戶資料中的地區
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select 1 from ORD150 where O150_011='+IntToStr(ADOQuery1O120_003.Value));
  SYSDM.qryQuery.Open;
  if not SYSDM.qryQuery.IsEmpty then
  begin
    if ShowDialog('UMS10000136')<>IDYES then Abort;  //上級地區已存在相關資料，如果增加下級地區，則相關記錄會被替換，是否繼續？
    AUpdateFlag:=True;
  end;

  inherited;
  ADOQuery1.Refresh;
  ADOQuery1.Locate('O120_002',AName,[loCaseInsensitive]);

  //替換上級地區
  if AUpdateFlag then
  begin
    SYSDM.qryQuery.Close;
    SYSDM.qryQuery.SQL.Clear;
    SYSDM.qryQuery.SQL.Add('update ORD150 set O150_011='+IntToStr(ADOQuery1O120_001.Value)+' where O150_011='+IntToStr(ADOQuery1O120_003.Value));
    SYSDM.qryQuery.ExecSQL;
  end;
end;

procedure TOrd120_01Form.dxTreeViewEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if (Key=vk_delete) or (key=vk_back) then dxTreeViewEdit1.Text:='';
end;

initialization
  RegisterClass(TOrd120_01Form);

finalization
  UnRegisterClass(TOrd120_01Form);

end.