sptmda1.pas

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

unit sptmda1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxPSCore, dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBGrLnk, Db, ADODB,
  dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, ComCtrls,
  StdCtrls, ExtCtrls, wwSpeedButton, wwDBNavigator, wwclearpanel, ImgList;

type
  Tsptmda = class(TForm)
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOTable1spcode: TStringField;
    ADOTable1barcode: TStringField;
    ADOTable1id: TAutoIncField;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1spcode: TdxDBGridMaskColumn;
    dxDBGrid1barcode: TdxDBGridMaskColumn;
    ImageList1: TImageList;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1Insert: TwwNavButton;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    wwDBNavigator1Button: TwwNavButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sptmda: Tsptmda;

implementation

uses MainForm1, spda1;

{$R *.DFM}

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

end.