xzrzxzxsd1.pas

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

unit xzrzxzxsd1;

interface

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

type
  Txsskdxzxsd = class(TForm)
    DataSource1: TDataSource;
    ADOTable1: TADOQuery;
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    Panel2: TPanel;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1kdrq: TdxDBGridDateColumn;
    dxDBGrid1kdr: TdxDBGridMaskColumn;
    dxDBGrid1fplx: TdxDBGridMaskColumn;
    dxDBGrid1ckname: TdxDBGridMaskColumn;
    dxDBGrid1ywyname: TdxDBGridMaskColumn;
    dxDBGrid1bz: TdxDBGridMaskColumn;
    dxDBGrid1zje: TdxDBGridCurrencyColumn;
    dxDBGrid1yfje: TdxDBGridCurrencyColumn;
    ADOTable1code: TStringField;
    ADOTable1kdrq: TDateTimeField;
    ADOTable1kdr: TStringField;
    ADOTable1fplx: TStringField;
    ADOTable1KHname: TStringField;
    ADOTable1ckname: TStringField;
    ADOTable1zje: TBCDField;
    ADOTable1yfje: TBCDField;
    ADOTable1ywyname: TStringField;
    ADOTable1bz: TStringField;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1KH: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsskdxzxsd: Txsskdxzxsd;

implementation

uses MainForm1, xsskd1;

{$R *.DFM}

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

procedure Txsskdxzxsd.FormCreate(Sender: TObject);
begin
  ADOTable1.Parameters[0].Value := xsskd.Ed3.Text;
  ADOTable1.Open;
end;

end.