syfkfsda1.pas

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

unit syfkfsda1;

interface

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

type
  Tsyfkfsda = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    ImageList1: TImageList;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1Insert: TwwNavButton;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    wwDBNavigator1Button: TwwNavButton;
    ADOTable1code: TStringField;
    ADOTable1name: TStringField;
    ADOTable1yn_ce: TStringField;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1name: TdxDBGridMaskColumn;
    dxDBGrid1yn_ce: TdxDBGridPickColumn;
    wwDBNavigator1Button1: TwwNavButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure wwDBNavigator1ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  syfkfsda: Tsyfkfsda;

implementation

uses MainForm1;

{$R *.DFM}

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

procedure Tsyfkfsda.wwDBNavigator1ButtonClick(Sender: TObject);
begin
  close;
end;

end.