cgthxzrkd1.pas

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

unit cgthxzrkd1;

interface

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

type
  Tcgthxzrkd = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    ADOQuery1: TADOQuery;
    dxDBGrid2: TdxDBGrid;
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1code: TStringField;
    ADOTable1kdrq: TDateTimeField;
    ADOTable1kdr: TStringField;
    ADOTable1zje: TBCDField;
    ADOTable1ywy: TStringField;
    ADOTable1bz: TStringField;
    ADOTable1zt: TStringField;
    ADOTable1fplx: TStringField;
    ADOTable1ck: TStringField;
    ADOTable1ckname: TStringField;
    ADOTable1yfje: TBCDField;
    ADOTable1ywyname: TStringField;
    ADOTable2code: TStringField;
    ADOTable2spcode: TStringField;
    ADOTable2spname: TStringField;
    ADOTable2jldw: TStringField;
    ADOTable2bzgg: TFloatField;
    ADOTable2js: TBCDField;
    ADOTable2ss: TBCDField;
    ADOTable2sl: TBCDField;
    ADOTable2dj: TBCDField;
    ADOTable2sui: TBCDField;
    ADOTable2je: TBCDField;
    ADOTable2ddcode: TStringField;
    ADOTable2id: TIntegerField;
    dxDBGrid2code: TdxDBGridMaskColumn;
    dxDBGrid2spcode: TdxDBGridMaskColumn;
    dxDBGrid2spname: TdxDBGridMaskColumn;
    dxDBGrid2jldw: TdxDBGridMaskColumn;
    dxDBGrid2bzgg: TdxDBGridMaskColumn;
    dxDBGrid2js: TdxDBGridMaskColumn;
    dxDBGrid2ss: TdxDBGridMaskColumn;
    dxDBGrid2sl: TdxDBGridMaskColumn;
    dxDBGrid2dj: TdxDBGridMaskColumn;
    dxDBGrid2sui: TdxDBGridMaskColumn;
    dxDBGrid2je: TdxDBGridMaskColumn;
    dxDBGrid2ddcode: TdxDBGridMaskColumn;
    dxDBGrid2id: TdxDBGridMaskColumn;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1kdrq: TdxDBGridDateColumn;
    dxDBGrid1khname: TdxDBGridMaskColumn;
    dxDBGrid1kdr: TdxDBGridMaskColumn;
    dxDBGrid1zje: TdxDBGridMaskColumn;
    dxDBGrid1bz: TdxDBGridMaskColumn;
    dxDBGrid1zt: TdxDBGridMaskColumn;
    dxDBGrid1fplx: TdxDBGridMaskColumn;
    dxDBGrid1ckname: TdxDBGridMaskColumn;
    dxDBGrid1yfje: TdxDBGridMaskColumn;
    dxDBGrid1ywyname: TdxDBGridMaskColumn;
    ADOTable1ghs: TStringField;
    ADOTable1ghsname: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cgthxzrkd: Tcgthxzrkd;

implementation

uses MainForm1, cgthd1;

{$R *.DFM}

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

procedure Tcgthxzrkd.BitBtn1Click(Sender: TObject);
begin
  if ADOTable2.FieldByName('spcode').asstring = '' then exit;
  cgthd.ADOTable1.Edit;
  cgthd.ADOTable1.FieldByName('ghs').asstring := ADOTable1.fieldbyname('ghs').asstring;
  cgthd.ADOTable1.Post;
  ADOQuery1.close;
  ADOQuery1.sql.clear;
  ADOQuery1.sql.add('delete from cgth002 where code=:code');
  ADOQuery1.Parameters[0].Value := cgthd.ADOTable1.FieldByName('code').asstring;
  ADOQuery1.ExecSQL;
  cgthd.ADOTable2.close;
  cgthd.ADOTable2.open;
  ADOTable2.First;
  while not ADOTable2.Eof do
  begin
    if ADOTable2.fieldbyname('sl').Value > 0 then
    begin
      cgthd.ADOTable2.Append;
      cgthd.ADOTable2.FieldByName('spcode').Value := ADOTable2.fieldbyname('spcode').Value;
      cgthd.ADOTable2.FieldByName('spname').Value := ADOTable2.fieldbyname('spname').Value;
      cgthd.ADOTable2.FieldByName('jldw').Value := ADOTable2.fieldbyname('jldw').Value;
      cgthd.ADOTable2.FieldByName('bzgg').Value := ADOTable2.fieldbyname('bzgg').Value;
      cgthd.ADOTable2.FieldByName('dj').Value := ADOTable2.fieldbyname('dj').Value;
      cgthd.ADOTable2.FieldByName('sl').Value := ADOTable2.fieldbyname('sl').Value;
      cgthd.ADOTable2.FieldByName('js').Value := ADOTable2.FieldByName('js').Value;
      cgthd.ADOTable2.FieldByName('ss').Value := ADOTable2.FieldByName('ss').Value;
      cgthd.ADOTable2.FieldByName('sui').Value := ADOTable2.fieldbyname('sui').Value;
      cgthd.ADOTable2.FieldByName('je').Value := ADOTable2.FieldByName('je').Value;
      cgthd.ADOTable2.FieldByName('ddcode').Value := ADOTable2.fieldbyname('code').Value;
      cgthd.ADOTable2.Post;
    end;
    ADOTable2.Next;
  end;
end;

end.