xschxzdd1.pas

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

unit xschxzdd1;

interface

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

type
  Txschxzxsdd = class(TForm)
    ADOTable1: TADOTable;
    ADOTable1code: TStringField;
    ADOTable1kdrq: TDateTimeField;
    ADOTable1kdr: TStringField;
    ADOTable1jhrq: TDateTimeField;
    ADOTable1jhdz: TStringField;
    ADOTable1zje: TBCDField;
    ADOTable1ywy: TStringField;
    ADOTable1bz: TStringField;
    DataSource1: TDataSource;
    ADOTable1zzzx: TBooleanField;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    ADOTable2code: TStringField;
    ADOTable2spcode: TStringField;
    ADOTable2spname: TStringField;
    ADOTable2sl: TBCDField;
    ADOTable2dj: TBCDField;
    ADOTable2sui: TBCDField;
    ADOTable2je: TBCDField;
    ADOTable2shsl: TBCDField;
    ADOTable1zt: TStringField;
    ADOQuery1: TADOQuery;
    ADOTable2jldw: TStringField;
    ADOTable2bzgg: TBCDField;
    ADOTable2js: TBCDField;
    ADOTable2ss: TBCDField;
    ADOTable1khname: TStringField;
    ADOTable1kh: TStringField;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2spcode: TdxDBGridMaskColumn;
    dxDBGrid2spname: TdxDBGridMaskColumn;
    dxDBGrid2sl: TdxDBGridMaskColumn;
    dxDBGrid2dj: TdxDBGridMaskColumn;
    dxDBGrid2sui: TdxDBGridMaskColumn;
    dxDBGrid2je: TdxDBGridMaskColumn;
    dxDBGrid2shsl: TdxDBGridMaskColumn;
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1kdrq: TdxDBGridDateColumn;
    dxDBGrid1ghsname: TdxDBGridMaskColumn;
    dxDBGrid1jhrq: TdxDBGridDateColumn;
    dxDBGrid1jhdz: TdxDBGridMaskColumn;
    dxDBGrid1zje: TdxDBGridMaskColumn;
    dxDBGrid1ywy: TdxDBGridMaskColumn;
    dxDBGrid1kdr: TdxDBGridMaskColumn;
    dxDBGrid1bz: TdxDBGridMaskColumn;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xschxzxsdd: Txschxzxsdd;

implementation

uses MainForm1, xschd1;

{$R *.DFM}

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

procedure Txschxzxsdd.BitBtn1Click(Sender: TObject);
begin
  if ADOTable2.FieldByName('spcode').asstring = '' then exit;
  xschd.ADOTable1.Edit;
  xschd.ADOTable1.FieldByName('kh').asstring := ADOTable1.fieldbyname('kh').asstring;
  xschd.ADOTable1.Post;
  ADOQuery1.close;
  ADOQuery1.sql.clear;
  ADOQuery1.sql.add('delete from xsch002 where code=:code');
  ADOQuery1.Parameters[0].Value := xschd.ADOTable1.FieldByName('code').asstring;
  ADOQuery1.ExecSQL;
  xschd.ADOTable2.close;
  xschd.ADOTable2.open;
  ADOTable2.First;
  while not ADOTable2.Eof do
  begin
    if ADOTable2.fieldbyname('sl').Value - ADOTable2.fieldbyname('shsl').Value > 0 then
    begin
      xschd.ADOTable2.Append;
      xschd.ADOTable2.FieldByName('spcode').Value := ADOTable2.fieldbyname('spcode').Value;
      xschd.ADOTable2.FieldByName('spname').Value := ADOTable2.fieldbyname('spname').Value;
      xschd.ADOTable2.FieldByName('jldw').Value := ADOTable2.fieldbyname('jldw').Value;
      xschd.ADOTable2.FieldByName('bzgg').Value := ADOTable2.fieldbyname('bzgg').Value;
      xschd.ADOTable2.FieldByName('dj').Value := ADOTable2.fieldbyname('dj').Value;
      xschd.ADOTable2.FieldByName('sl').Value := ADOTable2.fieldbyname('sl').Value - ADOTable2.fieldbyname('shsl').Value;
      xschd.ADOTable2.FieldByName('js').Value := xschd.ADOTable2.FieldByName('sl').Value div xschd.ADOTable2.FieldByName('bzgg').Value;
      xschd.ADOTable2.FieldByName('ss').Value := xschd.ADOTable2.FieldByName('sl').Value mod xschd.ADOTable2.FieldByName('bzgg').Value;
      xschd.ADOTable2.FieldByName('sui').Value := ADOTable2.fieldbyname('sui').Value;
      xschd.ADOTable2.FieldByName('je').Value := (xschd.ADOTable2.FieldByName('sl').Value * xschd.ADOTable2.FieldByName('dj').Value) * (1 + xschd.ADOTable2.FieldByName('sui').Value);
      xschd.ADOTable2.FieldByName('ddcode').Value := ADOTable2.fieldbyname('code').Value;
      xschd.ADOTable2.Post;
    end;
    ADOTable2.Next;
  end;
end;

end.