convertdbgriddemomain.pas

来自「DevExpress ExpressQuantumGrid Suite v5.9」· PAS 代码 · 共 72 行

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.