xsrzdcx1.pas

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

unit xsrzdcx1;

interface

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

type
  Txsskdcx = class(TForm)
    DataSource1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    ADOQuery1code: TStringField;
    ADOQuery1khname: TStringField;
    ADOQuery1fkfs: TStringField;
    ADOQuery1fkje: TBCDField;
    ADOQuery1ryname: TStringField;
    ADOQuery1kdrq: TDateTimeField;
    ADOQuery1czyname: TStringField;
    ADOQuery1ysk: TBooleanField;
    ADOQuery1bz: TStringField;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1khname: TdxDBGridMaskColumn;
    dxDBGrid1fkfs: TdxDBGridMaskColumn;
    dxDBGrid1ryname: TdxDBGridMaskColumn;
    dxDBGrid1kdrq: TdxDBGridDateColumn;
    dxDBGrid1czyname: TdxDBGridMaskColumn;
    dxDBGrid1bz: TdxDBGridMaskColumn;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1zt: TStringField;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1fkje: TdxDBGridCurrencyColumn;
    dxDBGrid1ysk: TdxDBGridCheckColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsskdcx: Txsskdcx;

implementation

uses MainForm1, xsskd1;

{$R *.DFM}

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

procedure Txsskdcx.BitBtn1Click(Sender: TObject);
begin
  if ADOQuery1.fieldbyname('code').asstring = '' then exit;
  xsskd.ADOTable1.Locate('code', ADOQuery1.fieldbyname('code').Value, [loCaseInsensitive]);
end;

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

end.