columnssimpledemocities.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 73 行

unit ColumnsSimpleDemoCities;

{$I ..\..\cxVer.inc}

interface

uses
  Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  StdCtrls, cxButtons, cxGridLevel, cxControls,
  cxGridCustomView, cxGrid, ExtCtrls, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxEdit, DB, cxDBData, cxClasses, cxLookAndFeelPainters,
  cxDataStorage, Menus;

type
  TColumnsSimpleDemoCitiesForm = class(TForm)
    pnlCustomize: TPanel;
    tvCities: TcxGridDBTableView;
    lvCities: TcxGridLevel;
    GridCities: TcxGrid;
    btnSet: TcxButton;
    btnAdd: TcxButton;
    btnDelete: TcxButton;
    btnCancel: TcxButton;
    tvCitiesCity: TcxGridDBColumn;
    lbDescription: TLabel;
    procedure tvCitiesKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnAddClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
  private
    function GetValue: Variant;
    { Private declarations }
  public
    { Public declarations }
    property Value: Variant read GetValue;
  end;

var
  ColumnsSimpleDemoCitiesForm: TColumnsSimpleDemoCitiesForm;

implementation

uses ColumnsSimpleDemoData;

{$R *.dfm}

function TColumnsSimpleDemoCitiesForm.GetValue: Variant;
begin
  Result := tvCities.Controller.FocusedRecord.Values[0];
end;

procedure TColumnsSimpleDemoCitiesForm.tvCitiesKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_RETURN) and not tvCities.Controller.IsEditing then
    ModalResult := mrOk;
end;

procedure TColumnsSimpleDemoCitiesForm.btnAddClick(Sender: TObject);
begin
  tvCities.DataController.Insert;
  tvCities.DataController.Edit;
end;

procedure TColumnsSimpleDemoCitiesForm.btnDeleteClick(Sender: TObject);
begin
  tvCities.Controller.DeleteSelection;
end;

end.