zhspda1.pas

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

unit zhspda1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, Db, dxCntner, ADODB,
  StdCtrls, Buttons, dxEditor, dxEdLib, dxDBELib, wwSpeedButton,
  wwDBNavigator, ExtCtrls, wwclearpanel;

type
  Tzhspda = class(TForm)
    ADOTable1: TADOTable;
    dxDBGrid1: TdxDBGrid;
    DataSource1: TDataSource;
    ADOTable1spcode: TStringField;
    ADOTable1name: TStringField;
    ADOTable1sl: TBCDField;
    ADOTable1code: TStringField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOQuery1: TADOQuery;
    ADOTable1id: TAutoIncField;
    dxDBGrid1spcode: TdxDBGridMaskColumn;
    dxDBGrid1name: TdxDBGridMaskColumn;
    dxDBGrid1sl: TdxDBGridMaskColumn;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1id: TdxDBGridMaskColumn;
    ADOTable2: TADOTable;
    dxDBEdit1: TdxDBEdit;
    DataSource2: TDataSource;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure dxDBEdit1Exit(Sender: TObject);
    procedure dxDBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhspda: Tzhspda;

implementation

uses MainForm1, spda1, xzzhsp1;

{$R *.DFM}

procedure Tzhspda.BitBtn1Click(Sender: TObject);
begin
  Application.CreateForm(Txzzhsp, xzzhsp);
  xzzhsp.ShowModal;
end;

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

procedure Tzhspda.BitBtn2Click(Sender: TObject);
var I: integer;
begin
  for I := 0 to dxDBGrid1.SelectedCount - 1 do
  begin
    ADOQuery1.close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('delete from zhspda where id=:id');
    ADOQuery1.Parameters[0].Value := ADOTable1id.Value;
    ADOQuery1.ExecSQL;
  end;
  ADOTable1.Close;
  ADOTable1.open;
end;

procedure Tzhspda.dxDBEdit1Exit(Sender: TObject);
begin
  if ADOTable2.State in dsEditModes then
  begin
    ADOTable2.Post;
    ADOTable1.close;
    ADOTable1.open;
  end;
end;

procedure Tzhspda.dxDBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then dxDBGrid1.SetFocus;
end;

end.