uselectstorage.pas

天涯進銷存系統

unit uSelectStorage;

interface

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

type
  TfrmSelectStorage = class(TForm)
    Image2: TImage;
    SysCloseButton: TLBMorphButton;
    WindowCaption: TLabel;
    Panel4: TPanel;
    Panel6: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    StirageEdit: TLBComboBox;
    EnterButton: TLBButton;
    CancelButton: TLBButton;
    procedure StirageEditEnter(Sender: TObject);
    procedure EnterButtonClick(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
    procedure StirageEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSelectStorage: TfrmSelectStorage;

implementation

uses uMain, uDataMo, uPublicvar, uConst;

{$R *.dfm}

procedure TfrmSelectStorage.StirageEditEnter(Sender: TObject);
begin
  OpenData('select DepotCode, DepotName From Depot', dmData.sdsPublic);
  StirageEdit.Items.Clear;
  while not dmData.sdsPublic.Eof do
  begin
    New(List);
    List.Code:=dmData.sdsPublic.Fieldbyname('DepotCode').asstring;
    StirageEdit.Items.AddObject(dmData.sdsPublic.Fieldbyname('DepotName').asstring, TObject(List));
    dmData.sdsPublic.Next;
  end;
  if (Trim(StirageEdit.Text)='') and (StirageEdit.Items.Count>0) then
     StirageEdit.ItemIndex:=0;
end;

procedure TfrmSelectStorage.EnterButtonClick(Sender: TObject);
begin
  if Trim(StirageEdit.Text)='' then
  begin
    Application.MessageBox('请选择盘点仓库。',Hintinfo,$30);
    StirageEdit.SetFocus;
    Exit;
  end;
  TObject(List):=StirageEdit.Items.Objects[StirageEdit.ItemIndex];
  CheckDepotCode:=List.Code;
  CheckDepotName:=Trim(StirageEdit.Text);
//  isNullCheckBill:='1';
  isNewCheckBill:=True;  
  Close;
end;

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

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

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

end.