xzzhsp1.pas

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

unit xzzhsp1;

interface

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

type
  Txzzhsp = class(TForm)
    BitBtn3: TBitBtn;
    ADOTable1: TADOTable;
    dxDBGrid1: TdxDBGrid;
    ADOTable1code: TStringField;
    ADOTable1name: TStringField;
    ADOTable1jldw: TStringField;
    ADOTable1barcode: TStringField;
    ADOTable1lsj: TBCDField;
    ADOTable1hyj: TBCDField;
    ADOTable1pfj: TBCDField;
    ADOTable1cxj: TBCDField;
    ADOTable1czsp: TBooleanField;
    ADOTable1lb: TStringField;
    DataSource1: TDataSource;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1name: TdxDBGridMaskColumn;
    dxDBGrid1lb: TdxDBGridMaskColumn;
    dxDBGrid1jldw: TdxDBGridMaskColumn;
    dxDBGrid1barcode: TdxDBGridMaskColumn;
    dxDBGrid1lsj: TdxDBGridMaskColumn;
    dxDBGrid1hyj: TdxDBGridMaskColumn;
    dxDBGrid1pfj: TdxDBGridMaskColumn;
    dxDBGrid1cxj: TdxDBGridMaskColumn;
    dxDBGrid1czsp: TdxDBGridCheckColumn;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xzzhsp: Txzzhsp;

implementation

uses MainForm1, zhspda1, spda1;

{$R *.DFM}

procedure Txzzhsp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    zhspda.ADOTable2.Close;
    zhspda.ADOTable2.Open;
  except
  end;
  Action := cafree;
end;

procedure Txzzhsp.BitBtn1Click(Sender: TObject);
begin
  zhspda.ADOQuery1.close;
  zhspda.ADOQuery1.SQL.Clear;
  zhspda.ADOQuery1.SQL.Add('insert into zhspda(code,spcode,sl)');
  zhspda.ADOQuery1.SQL.Add('values (:code,:spcode,:sl)');
  zhspda.ADOQuery1.Parameters[0].Value := spdawh.Table1code.Value;
  zhspda.ADOQuery1.Parameters[1].Value := ADOTable1code.Value;
  zhspda.ADOQuery1.Parameters[2].Value := 1;
  zhspda.ADOQuery1.ExecSQL;
  zhspda.ADOTable1.Close;
  zhspda.ADOTable1.open;
end;

procedure Txzzhsp.FormActivate(Sender: TObject);
begin
  xzzhsp.Top := 1;
  xzzhsp.Left := 1;
end;

procedure Txzzhsp.dxDBGrid1DblClick(Sender: TObject);
begin
  BitBtn1.Click;
end;

end.