72 lines
2.1 KiB
ObjectPascal
72 lines
2.1 KiB
ObjectPascal
|
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.
|