qtsysz1.pas

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

unit qtsysz1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, dxCntner, dxEditor, dxEdLib, dxDBELib, Db, ADODB,
  wwSpeedButton, wwDBNavigator, ExtCtrls, wwclearpanel, ImgList, dxTL,
  dxDBCtrl, dxDBGrid, dxExEdtr, dxExGrEd, dxExELib, dxLayout;

type
  Tpossz = class(TForm)
    GroupBox1: TGroupBox;
    ADOTable1: TADOTable;
    ADOTable1passw: TStringField;
    DataSource1: TDataSource;
    dxDBEdit1: TdxDBEdit;
    ImageList1: TImageList;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    GroupBox2: TGroupBox;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    ADOTable2text: TStringField;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1text: TdxDBGridMaskColumn;
    wwDBNavigator2: TwwDBNavigator;
    wwDBNavigator1Insert: TwwNavButton;
    wwNavButton1: TwwNavButton;
    wwNavButton2: TwwNavButton;
    wwNavButton3: TwwNavButton;
    GroupBox3: TGroupBox;
    ADOTable3: TADOTable;
    ADOTable3code: TStringField;
    ADOTable3name: TStringField;
    ADOTable3dz: TStringField;
    ADOTable3dh: TStringField;
    ADOTable3cz: TStringField;
    ADOTable3lxr: TStringField;
    ADOTable3bz: TStringField;
    DataSource3: TDataSource;
    dxDBGridLayoutList1: TdxDBGridLayoutList;
    dxDBGridLayoutList1Item1: TdxDBGridLayout;
    Ed3: TdxDBExtLookupEdit;
    ADOTable4: TADOTable;
    ADOTable4code: TStringField;
    ADOTable4ckname: TStringField;
    wwDBNavigator3: TwwDBNavigator;
    wwNavButton5: TwwNavButton;
    wwNavButton6: TwwNavButton;
    DataSource4: TDataSource;
    wwDBNavigator2Button: TwwNavButton;
    dxDBCheckEdit1: TdxDBCheckEdit;
    ADOTable1gj: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  possz: Tpossz;

implementation

uses MainForm1;

{$R *.DFM}

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

end.