xzbm1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit xzbm1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls, Buttons,
  ExtCtrls;

type
  Txzbm = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    dxDBGrid1: TdxDBGrid;
    DataSource1: TDataSource;
    Table1: TADOTable;
    dxDBGrid1bmname: TdxDBGridMaskColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xzbm: Txzbm;

implementation

uses MainForm1;

{$R *.DFM}

procedure Txzbm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

end.