recordform.pas

某疗养院动脉硬化管理系统

unit RecordForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseUnit, ExtCtrls, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, DBCtrls, ADODB, StdCtrls,
  Buttons;

type
  TFrmRecord = class(TForm1)
    Panel1: TPanel;
    Panel2: TPanel;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    DBNavigator1: TDBNavigator;
    ADQ: TADOQuery;
    ds: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmRecord: TFrmRecord;

implementation

uses DataModule;

{$R *.dfm}

end.