ufrmcqgpslevel.pas

来自「msc map program to control client of too」· PAS 代码 · 共 107 行

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.