form_db.pas

来自「这是我的一个Delphi测试的一个链接access的一点代码」· PAS 代码 · 共 72 行

unit form_db;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ExtCtrls, dxBar, DBGrids;

type
  TFrm_db = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarButton1: TdxBarButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    dxBarButton2: TdxBarButton;
    dxBarButton3: TdxBarButton;
    dxBarButton4: TdxBarButton;
    procedure dxBarButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxBarButton2Click(Sender: TObject);
    procedure dxBarButton3Click(Sender: TObject);
    procedure dxBarButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_db: TFrm_db;

implementation

{$R *.dfm}

uses main, DataModule;


//-------窗体初始化
procedure TFrm_db.FormCreate(Sender: TObject);
begin
  Frm_db.Parent:=Frm_main.Panel1;
  Frm_db.BorderStyle:=bsNone;
  Frm_db.Align:=alClient;
end;

//--------打开数据库
procedure TFrm_db.dxBarButton1Click(Sender: TObject);
begin
  DataModule1.ADOTable1.Open;
end;

//--------添加按钮
procedure TFrm_db.dxBarButton2Click(Sender: TObject);
begin
  DataModule1.ADOTable1.Append;
end;

//--------保存按钮
procedure TFrm_db.dxBarButton3Click(Sender: TObject);
begin
  DataModule1.ADOTable1.Post;
end;

//---------修改按钮
procedure TFrm_db.dxBarButton4Click(Sender: TObject);
begin
  DataModule1.ADOTable1.Edit;
end;

end.