dbmanage.pas

来自「某疗养院动脉硬化管理系统」· PAS 代码 · 共 47 行

unit DBManage;

interface

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

type
  TFrmDB = class(TFrmRecord)
    cxGrid1DBTableView1DBFile: TcxGridDBColumn;
    cxGrid1DBTableView1CreateDate: TcxGridDBColumn;
    cxGrid1DBTableView1Memo: TcxGridDBColumn;
    EdtFile: TEdit;
    Edit1: TEdit;
    Memo: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmDB: TFrmDB;

implementation

{$R *.dfm}

procedure TFrmDB.BitBtn1Click(Sender: TObject);
begin
  inherited;
  close;
end;

end.