frm_prope.~pas

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

unit frm_prope;

interface

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

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

var
  Form2: TForm2;

implementation

{$R *.dfm}
uses main, DataModule;
//---------设置初始状态
procedure TForm2.FormCreate(Sender: TObject);
begin
 Form2.Parent:=Frm_main.Panel1;
 Form2.BorderStyle:=bsNone;
 Form2.Align:=alClient;
end;
//-------添加一条记录
procedure TForm2.dxBarButton2Click(Sender: TObject);
begin
       DataModule1.ADOTb_prope.Append;
end;
//-------保存记录
procedure TForm2.dxBarButton3Click(Sender: TObject);
begin
     DataModule1.ADOTb_prope.Post;
end;
    //----修改记录
procedure TForm2.dxBarButton4Click(Sender: TObject);
begin
     DataModule1.ADOTb_prope.Edit;
end;
//---------删除记录
procedure TForm2.dxBarButton5Click(Sender: TObject);
begin
        DataModule1.ADOTb_prope.Delete;
end;
//------关闭窗体
procedure TForm2.dxBarButton6Click(Sender: TObject);
begin
        frm_prope.Form2.Close;
end;

end.