unit ufrmCQGPSLevel;

interface

uses
  Windows, DB, Classes,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, Graphics, SysUtils, 
  uBaseDBForm, uBaseDBDefs,  ufrmCQGPSLevelEdit, cxLookAndFeelPainters,
  cxMemo, ImgList, dxNavBarCollns, dxNavBarBase, dxNavBar, ufrmBaseDBPurview,
  uBaseSystemNavForm, uBaseDBFormInfor;
type

  TfrmCQGPSLevel = class(TBaseDBForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    lvOilType: TTbListView;
    Panel1: TPanel;
    dxDockSite2: TdxDockSite;
    dxDockPanel3: TdxDockPanel;
    dxLayoutDockSite3: TdxLayoutDockSite;
    gbPlan: TRzGroupBox;
    Name: TcxTextEdit;
    cxLabel4: TcxLabel;
    cxLabel1: TcxLabel;
    LevelNO: TcxTextEdit;
    btnRefresh: TcxButton;
    btnEdit: TcxButton;
    btnDelete: TcxButton;
    btnAdd: TcxButton;
    ilSmall: TImageList;
    ilLarge: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure lvOilTypeCustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  private
    { Private declarations }
  public
    IsEdit: Boolean;
    IsAdd: Boolean;
    SelectedItem: TListItem;

    procedure CommandExecuteDelete; override;

    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

procedure TfrmCQGPSLevel.CommandExecuteDelete;
var
  record_id : Integer;
begin
  if Assigned(lvOilType.Selected) then
  begin
    record_id := TBaseDBUtility.ExtractRecordID(TList(lvOilType.Selected.Data));
    if record_id = 1 then exit;
  end;

  inherited;
end;

procedure TfrmCQGPSLevel.FormCreate(Sender: TObject);
begin
  DBListView      := lvOilType;
  ButtonNew       := btnAdd;
  ButtonEdit      := btnEdit;
  ButtonDelete    := btnDelete;
  ButtonRefresh   := btnRefresh;

  DBTableName     := 'MSC_GroupLevel';
  DBTableCHNName  := '分級管理';

  EditFormClass := TfrmCQGPSLevelEdit;

  AddField('ID', '編號', 50, ftInteger, False, False, True);
  AddField('Name', '等級名稱', 150, ftString, False, True);
  AddField('LevelNO', '等級編號', 100, ftInteger, False, True);

  InitialInfo;
end;

procedure TfrmCQGPSLevel.lvOilTypeCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  record_id : Integer;
begin
  DefaultDraw := True;

  if TryStrToInt(Item.Caption, record_id) then
  begin
    if record_id = 1 then
       Sender.Canvas.Font.Color := clTeal
    else
       Sender.Canvas.Font.Color := clBlack;
  end;
end;

end.