upartdepotplace.pas

天涯進銷存系統

unit uPartDepotPlace;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, LBCtrls, jpeg, DBCtrls, LBMorphVCLBase, LBMorphButton;

type
  TfrmPartDepotPlace = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    Image2: TImage;
    WindowCaption: TLabel;
    SysCloseButton: TLBMorphButton;
    Panel4: TPanel;
    Panel6: TPanel;
    Panel3: TPanel;
    Shape1: TShape;
    Shape2: TShape;
    EnterButton: TLBButton;
    CancelButton: TLBButton;
    DepotPlaceEdit: TLBEdit;
    procedure DepotPlaceEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EnterButtonClick(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPartDepotPlace: TfrmPartDepotPlace;

implementation

uses uDataMo, uStorageRedressal, uConst;

{$R *.dfm}

procedure TfrmPartDepotPlace.DepotPlaceEditKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then  EnterButtonClick(Sender);
end;

procedure TfrmPartDepotPlace.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then Close;
end;

procedure TfrmPartDepotPlace.EnterButtonClick(Sender: TObject);
var
  ESql: string;
begin
  if Trim(DepotPlaceEdit.Text)='' then
    if Application.MessageBox('确实要把仓位设置为空吗？',Hintinfo, $24)=idNo then
       Exit;
  ESql:='Update PartInfo set '+
        ' DepotPlace='+#39+DepotPlaceEdit.Text+#39+
        ' where Code='+#39+frmStorageRedressal.StoragePartDataHand.Fieldbyname('Code').asstring+#39;
  with  dmData.SQLQuery do
  begin
    Close;
    SQL.Clear;
    Sql.text:=ESql;
    ExecSQL;
  end;
  frmStorageRedressal.StoragePartDataHand.Refresh;
  Close;
end;

procedure TfrmPartDepotPlace.CancelButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmPartDepotPlace.Image2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand ,$F012, 0);
end;

end.