qxgl_form.pas

来自「图书管理系统 SQL版 代码中的数据库不用任何设置」· PAS 代码 · 共 82 行

unit QXGL_Form;

interface

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

type
  TQXGL_F = class(TForm)
    Button1: TButton;
    QX_DS: TDataSource;
    FlatGroupBox5: TFlatGroupBox;
    QX_DG: TDBGrid;
    ADOTable1: TADOTable;
    FlatButton2: TFlatButton;
    Del_FBtn: TFlatButton;
    FlatButton1: TFlatButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure Del_FBtnClick(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QXGL_F: TQXGL_F;

implementation

uses
  Common_Unit, Main_Form;

{$R *.dfm}

var
  QXGL_T:TTable;
  QXGL_Q:TQuery;

procedure TQXGL_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TQXGL_F.FormDestroy(Sender: TObject);
begin
  QXGL_F:=nil;
end;
//***********************************************************************************
procedure TQXGL_F.Button1Click(Sender: TObject);
begin
  close;
end;


procedure TQXGL_F.FlatButton1Click(Sender: TObject);
begin
  ADOTable1.Append;
end;

procedure TQXGL_F.Del_FBtnClick(Sender: TObject);
begin
   ADOTable1.Delete;
end;

procedure TQXGL_F.FlatButton2Click(Sender: TObject);
begin
    try
     ADOTable1.Post;
    except
    end;
end;

end.