wjjsp1.pas

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

unit wjjsp1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, Db, DBTables, Menus, ExtCtrls, ADODB,
  ImgList, dxPSCore, dxPSTVLnk, dxCntner, dxTL, dxDBCtrl, dxDBTL,
  dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBTLLnk, dxDBGrid, dxEditor,
  dxExEdtr, dxEdLib, EHGrids, DBGridEh;

type
  Twjjsp = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    ADOQuery1code: TStringField;
    ADOQuery1name: TStringField;
    ADOQuery1barcode: TStringField;
    SaveDialog1: TSaveDialog;
    PopupMenu1: TPopupMenu;
    Excel1: TMenuItem;
    ADOQuery1jhj: TBCDField;
    ADOQuery1lsj: TBCDField;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1name: TdxDBGridMaskColumn;
    dxDBGrid1barcode: TdxDBGridMaskColumn;
    dxDBGrid1jhj: TdxDBGridMaskColumn;
    dxDBGrid1lsj: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Excel1Click(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
  private
    FParentValue: Variant;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wjjsp: Twjjsp;

implementation

uses MainForm1, spda1;

{$R *.DFM}

procedure Twjjsp.FormCreate(Sender: TObject);
begin
//  dxMemo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'readme.txt');
end;

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

procedure Twjjsp.Excel1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    dxDBGrid1.SaveToXLS(SaveDialog1.FileName, false);
  end;
end;

procedure Twjjsp.dxDBGrid1DblClick(Sender: TObject);
begin
  Mainform.N20.Click;
  try
    spdawh.Table1.Locate('code', ADOQuery1.fieldbyname('code').value, [loCaseInsensitive]);
    spdawh.BitBtn1.Click;
  except
  end;
end;

end.