yhzgl_form.pas

sql版功能齐全

unit YHZGL_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatEditUnit, TFlatRadioButtonUnit, TFlatButtonUnit,
  Grids, DBGrids, TFlatGroupBoxUnit, ExtCtrls, TFlatPanelUnit,DB,DBTables,
  ADODB;

type
  TYHZGL_F = class(TForm)
    YHZ_DS: TDataSource;
    FlatGroupBox5: TFlatGroupBox;
    YHZ_DG: TDBGrid;
    Del_FBtn: TFlatButton;
    Close_Btn: TButton;
    ADOTable1: TADOTable;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Close_BtnClick(Sender: TObject);
    procedure Del_FBtnClick(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YHZGL_F: TYHZGL_F;

implementation

uses Common_Unit, Main_Form;

{$R *.dfm}


procedure TYHZGL_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TYHZGL_F.FormDestroy(Sender: TObject);
begin
  YHZGL_F:=nil;
end;
//***********************************************************************************
procedure TYHZGL_F.Close_BtnClick(Sender: TObject);
begin
  close;
end;
procedure TYHZGL_F.Del_FBtnClick(Sender: TObject);           //删除组
begin
  adotable1.Delete;

end;

procedure TYHZGL_F.FlatButton1Click(Sender: TObject);
begin
    adotable1.Append;
end;

procedure TYHZGL_F.FlatButton2Click(Sender: TObject);
begin
  try
  adotable1.Post;
  except
  end;
end;

end.