tmcf1.pas

来自「思微POS连锁超市管理系统 (商业代码),几年前的东西了」· PAS 代码 · 共 75 行

unit tmcf1;

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
  Ttmcf = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1name: TdxDBGridMaskColumn;
    dxDBGrid1barcode: TdxDBGridMaskColumn;
    ADOQuery1code: TStringField;
    ADOQuery1name: TStringField;
    ADOQuery1barcode: TStringField;
    SaveDialog1: TSaveDialog;
    PopupMenu1: TPopupMenu;
    Excel1: TMenuItem;
    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
  tmcf: Ttmcf;

implementation

uses MainForm1, spda1;

{$R *.DFM}

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

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

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

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

end.