spjqdy1.pas

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

unit spjqdy1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxPSCore, dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBGrLnk, Db, ADODB,
  dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, ComCtrls,
  StdCtrls, ExtCtrls, dxDBTL, UPTFrame, UPTSplitter;

type
  Tspjqdy = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1code: TStringField;
    ADOQuery1name: TStringField;
    ADOQuery1jldw: TStringField;
    ADOQuery1bzgg: TBCDField;
    ADOQuery1barcode: TStringField;
    ADOQuery1lsj: TBCDField;
    ADOQuery1hyj: TBCDField;
    ADOQuery1lbid: TIntegerField;
    ADOQuery1lbname: TStringField;
    ADOQuery1ghscode: TStringField;
    ADOQuery1ghsname: TStringField;
    Label1: TLabel;
    Edit1: TEdit;
    dxDBGrid1: TdxDBGrid;
    ADOTable1: TADOTable;
    ADOTable1spcode: TStringField;
    ADOTable1spname: TStringField;
    ADOTable1bzgg: TIntegerField;
    ADOTable1jldw: TStringField;
    ADOTable1lsj: TBCDField;
    ADOTable1hyj: TBCDField;
    ADOTable1pfj: TBCDField;
    ADOTable1barcode: TStringField;
    dxDBGrid1spcode: TdxDBGridMaskColumn;
    dxDBGrid1spname: TdxDBGridMaskColumn;
    dxDBGrid1bzgg: TdxDBGridMaskColumn;
    dxDBGrid1jldw: TdxDBGridMaskColumn;
    dxDBGrid1lsj: TdxDBGridMaskColumn;
    dxDBGrid1hyj: TdxDBGridMaskColumn;
    dxDBGrid1pfj: TdxDBGridMaskColumn;
    dxDBGrid1barcode: TdxDBGridMaskColumn;
    ADOQuery1pfj: TBCDField;
    Button3: TButton;
    Label2: TLabel;
    Button4: TButton;
    ADOQuery1cxj: TBCDField;
    ADOTable1cxj: TBCDField;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    ADOTable1cd: TStringField;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    ADOQuery1pybm: TStringField;
    ADOQuery1cd: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  spjqdy: Tspjqdy;

implementation

uses MainForm1, dycxspda1;

{$R *.DFM}

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

procedure Tspjqdy.Button1Click(Sender: TObject);
begin
  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    ADOTable1.InsertRecord([ADOQuery1.fieldbyname('code').asstring,
      ADOQuery1.fieldbyname('name').asstring,
        ADOQuery1.fieldbyname('bzgg').asstring,
        ADOQuery1.fieldbyname('jldw').asstring,
        ADOQuery1.fieldbyname('lsj').asstring,
        ADOQuery1.fieldbyname('hyj').asstring,
        ADOQuery1.fieldbyname('pfj').asstring,
        ADOQuery1.fieldbyname('barcode').asstring,
        ADOQuery1.fieldbyname('cxj').asstring,
        ADOQuery1.fieldbyname('cd').asstring]);
    ADOQuery1.Next;
  end;
  Edit1.SetFocus;
end;

procedure Tspjqdy.Button2Click(Sender: TObject);
begin
  Application.CreateForm(Tdycxspda, dycxspda);
  dycxspda.ShowModal;
end;

procedure Tspjqdy.Button3Click(Sender: TObject);
begin
  dxDBGrid1.DeleteSelection;
end;

procedure Tspjqdy.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
  begin
    ADOQuery1.Close;
    ADOQuery1.Parameters[0].Value := Edit1.Text;
    ADOQuery1.Parameters[1].Value := Edit1.Text;
    ADOQuery1.Open;
    Label2.Caption := ADOQuery1.fieldbyname('name').asstring;
    Button1.SetFocus;
  end;
end;

procedure Tspjqdy.Button4Click(Sender: TObject);
begin
  dxDBGrid1.SelectAll;
  dxDBGrid1.DeleteSelection;
end;

end.