hbspda1.pas

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

unit hbspda1;

interface

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

type
  Thbspda = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    Edit3: TEdit;
    Edit4: TEdit;
    ADOStoredProc1: TADOStoredProc;
    ADOTable1: TADOTable;
    ADOTable1code1: TStringField;
    ADOTable1code2: TStringField;
    ADOTable1czy: TStringField;
    ADOTable1rq: TDateTimeField;
    ADOTable1id: TAutoIncField;
    DataSource1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1code1: TdxDBGridMaskColumn;
    dxDBGrid1code2: TdxDBGridMaskColumn;
    dxDBGrid1czy: TdxDBGridMaskColumn;
    dxDBGrid1rq: TdxDBGridDateColumn;
    dxDBGrid1id: TdxDBGridMaskColumn;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hbspda: Thbspda;

implementation

uses MainForm1;

{$R *.DFM}

procedure Thbspda.Edit1Change(Sender: TObject);
begin
Edit3.text:='';
end;

procedure Thbspda.Edit2Change(Sender: TObject);
begin
Edit4.text:='';
end;

procedure Thbspda.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
 begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select name from spda where code=:code');
   ADOQuery1.Parameters[0].Value:=Edit1.Text;
   ADOQuery1.open;
   Edit3.text:=ADOQuery1.Fields[0].AsString;
   if Edit3.text<>'' then Edit2.SetFocus;
 end;
end;

procedure Thbspda.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
 begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select name from spda where code=:code');
   ADOQuery1.Parameters[0].Value:=Edit2.Text;
   ADOQuery1.open;
   Edit4.text:=ADOQuery1.Fields[0].AsString;
   if Edit3.text<>'' then BitBtn1.SetFocus;
 end;
end;

procedure Thbspda.BitBtn1Click(Sender: TObject);
begin
  if Edit3.Text='' then
   begin
    application.MessageBox('请输入商品编码。','提示',MB_OK+MB_ICONWARNING);
    Edit1.SetFocus;
    exit;
   end;
  if Edit4.Text='' then
   begin
    application.MessageBox('请输入商品编码。','提示',MB_OK+MB_ICONWARNING);
    Edit2.SetFocus;
    exit;
   end;
  if Edit1.Text=Edit2.text then
   begin
    application.MessageBox('两个商品编码不能相同。','提示',MB_OK+MB_ICONWARNING);
    Edit1.SetFocus;
    exit;
   end;
  if application.MessageBox('合并后将不能恢复，是否继续？','提示',MB_YESNO+MB_ICONQUESTION)=IDYES then
   begin
    ADOStoredProc1.Close;
    ADOStoredProc1.Parameters[0].Value:=Edit1.text;
    ADOStoredProc1.Parameters[1].Value:=Edit2.text;
    ADOStoredProc1.Parameters[2].Value:=Mainform.label4.Caption;
    ADOStoredProc1.ExecProc;
    Edit1.Clear;
    Edit2.Clear;
    application.MessageBox('商品资料档案合并成功。','提示',MB_OK+MB_ICONINFORMATION);
   end;
end;

procedure Thbspda.PageControl1Change(Sender: TObject);
begin
ADOTable1.Close;
ADOTable1.Open;
end;

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

end.