convertdbgriddemomain.pas

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

unit ConvertDBGridDemoMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, cxControls, cxLookupGrid, cxLookupDBGrid, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomView, cxGrid,
  cxGridCardView, cxGridDBCardView, cxMaskEdit, StdCtrls, ExtCtrls,
  cxContainer, cxEdit, cxTextEdit, cxDropDownEdit, cxDBEdit, cxStyles,
  Menus, ActnList, ImgList, ComCtrls, cxLookAndFeels, DB,
  DBTables, cxCustomData, cxGraphics, cxFilter, cxData, cxDBData, cxClasses,
  Grids, DBGrids, cxDataStorage;

type
  TConvertDBGridDemoMainForm = class(TForm)
    mmMain: TMainMenu;
    miAbout: TMenuItem;
    miFile: TMenuItem;
    miExit: TMenuItem;
    sbMain: TStatusBar;
    lbDescription: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    cxGrid: TcxGrid;
    cxStyleRepository1: TcxStyleRepository;
    cxGridLevel1: TcxGridLevel;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridDBTableView1ID: TcxGridDBColumn;
    cxGridDBTableView1FIRSTNAME: TcxGridDBColumn;
    cxGridDBTableView1SECONDNAME: TcxGridDBColumn;
    cxGridDBTableView1BIRTHNAME: TcxGridDBColumn;
    cxGridDBTableView1GENDER: TcxGridDBColumn;
    cxGridDBTableView1DATEOFBIRTH: TcxGridDBColumn;
    cxGridDBTableView1BIRTHCOUNTRY: TcxGridDBColumn;
    cxGridDBTableView1LOCATIONOFBIRTH: TcxGridDBColumn;
    cxGridDBTableView1BIOGRAPHY: TcxGridDBColumn;
    cxGridDBTableView1NICKNAME: TcxGridDBColumn;
    cxGridDBTableView1HOMEPAGE: TcxGridDBColumn;
    cxStyle1: TcxStyle;
    cxStyle2: TcxStyle;
    LookAndFeelController: TcxLookAndFeelController;
    procedure miAboutClick(Sender: TObject);
    procedure miExitClick(Sender: TObject);
  private
  end;

var
  ConvertDBGridDemoMainForm: TConvertDBGridDemoMainForm;

implementation

{$R *.dfm}

uses
  ConvertDBGridDemoData, AboutDemoForm;

procedure TConvertDBGridDemoMainForm.miAboutClick(Sender: TObject);
begin
  ShowAboutDemoForm;
end;

procedure TConvertDBGridDemoMainForm.miExitClick(Sender: TObject);
begin
  Close;
end;

end.