jgwhunt.pas

商品销售系统完全的功能SQL和JAVA

unit jgwhunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, StdCtrls, Buttons, ComCtrls, DB;

type
  Tjgwhfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    DBGridEh1: TDBGridEh;
    Edit2: TEdit;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jgwhfrm: Tjgwhfrm;

implementation
     uses data;
{$R *.dfm}
var
  godno:string;
procedure Tjgwhfrm.FormActivate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
end;

procedure Tjgwhfrm.BitBtn1Click(Sender: TObject);
begin
  with dataman.vipQuery do
    begin
      close;
      sql.Clear;
      sql.Add('select 货物条形码,单价 from kc where 货物条形码='''+edit1.text+'''');
      open;
    end;
end;

procedure Tjgwhfrm.DBGridEh1CellClick(Column: TColumnEh);
begin
 edit2.Text:=floattostr(dbgrideh1.Fields[1].Value);
 godno:=dbgrideh1.Fields[0].Value;
end;

procedure Tjgwhfrm.BitBtn2Click(Sender: TObject);
begin
  try
   dataman.ADOCon.BeginTrans;
   with dataman.xfztQuery do
    begin
     close;
     sql.Clear;
     sql.Add('update kc set 单价=:xg where 货物条形码=:gno');
     parameters.ParamByName('xg').Value:=strtofloat(trim(edit2.Text));
     parameters.ParamByName('gno').Value:=godno;
     execsql;
    end;
   dataman.ADOCon.CommitTrans;
   showmessage('修改成功！');
  except
   begin
    dataman.ADOCon.RollbackTrans;
    showmessage('操作失败！');
   end;
  end;
end;

procedure Tjgwhfrm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tjgwhfrm.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
with dbgrideh1 do
  begin
      Canvas.Pen.Mode:=pmmask;
          if gdSelected in State  then
            begin
              Canvas.Brush.Color:=clinfobk;
              Canvas.FillRect(Rect);
              Canvas.Font.Color:=clred;
              Canvas.Font.Style:=[fsBold];
            end;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

procedure Tjgwhfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
jgwhfrm:=nil;
jgwhfrm.Free;
end;

procedure Tjgwhfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Tjgwhfrm.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=clSkyBlue;
end;

procedure Tjgwhfrm.Edit1Exit(Sender: TObject);
begin
Edit1.color:=clWindow;
end;

procedure Tjgwhfrm.Edit2Enter(Sender: TObject);
begin
Edit2.Color:=clSkyBlue;
end;

procedure Tjgwhfrm.Edit2Exit(Sender: TObject);
begin
Edit2.color:=clWindow;
end;

end.