uselectdepotpartmove.pas

天涯進銷存系統

unit uSelectDepotPartMove;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, LBDBScrollBar, Grids, LBDBGrid, LBCtrls,
  ActnList, DB, DBClient, SimpleDS, StdCtrls, LBMorphVCLBase, LBMorphButton;

type
  TfrmSelectDepotPartMove = class(TForm)
    Image2: TImage;
    Panel4: TPanel;
    Panel6: TPanel;
    Panel3: TPanel;
    Label2: TLabel;
    Label1: TLabel;
    BillCodeEdit: TLBEdit;
    OutDepotEdit: TLBComboBox;
    dsSelectBillData: TDataSource;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    LBSpeecButton1: TLBSpeecButton;
    LBSpeecButton2: TLBSpeecButton;
    DataDBGrid: TLBDBGrid;
    Panel2: TPanel;
    Label17: TLabel;
    Label21: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    LBDBScrollBar1: TLBDBScrollBar;
    Shape1: TShape;
    SysCloseButton: TLBMorphButton;
    sdsSelectBillData: TSimpleDataSet;
    StringField29: TStringField;
    SQLTimeStampField3: TSQLTimeStampField;
    StringField33: TStringField;
    sdsSelectBillDataDEPOTNAME: TStringField;
    WindowCaption: TLabel;
    Label3: TLabel;
    InDepotEdit: TLBComboBox;
    procedure FormShow(Sender: TObject);
    procedure OutDepotEditDropDown(Sender: TObject);
    procedure BillCodeEditChange(Sender: TObject);
    procedure BillCodeEditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SysCloseButtonClick(Sender: TObject);
    procedure DataDBGridKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Action2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure sdsSelectBillDataCalcFields(DataSet: TDataSet);
    procedure InDepotEditDropDown(Sender: TObject);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    procedure SelectData;
  public
    { Public declarations }
  end;

var
  frmSelectDepotPartMove: TfrmSelectDepotPartMove;

const
  sql ='Select BillCode, BillDate, OutPutDepotName, InPutDepotName '+
       'From DepotPartsMoveHand where not BillCode is Null';

implementation

uses uPublicvar, uDataMo, uConst;

{$R *.dfm}

procedure TfrmSelectDepotPartMove.SelectData;
var
  sqltext: string;
begin
  sqltext:=sql;
  if Trim(BillCodeEdit.Text)<>'' then
  sqltext:=sqltext+' and BillCode like '+#39+'%'+Trim(BillCodeEdit.Text)+'%'+#39;
  if Trim(OutDepotEdit.Text)<>'' then
  sqltext:=sqltext+' and OutPutDepotName like '+#39+'%'+Trim(OutDepotEdit.Text)+'%'+#39;
  if Trim(InDepotEdit.Text)<>'' then
  sqltext:=sqltext+' and InPutDepotName like '+#39+'%'+Trim(InDepotEdit.Text)+'%'+#39;
  OpenData(Sqltext+' Order By BillCode DESC', sdsSelectBillData);
end;

procedure TfrmSelectDepotPartMove.FormShow(Sender: TObject);
begin
  OpenData(Sql+' Order By BillCode DESC', sdsSelectBillData);
end;

procedure TfrmSelectDepotPartMove.OutDepotEditDropDown(Sender: TObject);
begin
  OpenData('select DepotCode, DepotName From Depot', dmData.sdsPublic);
  OutDepotEdit.Items.Clear;
  while not dmData.sdsPublic.Eof do
  begin
    OutDepotEdit.Items.Add(dmData.sdsPublic.Fieldbyname('DepotName').asstring);
    dmData.sdsPublic.Next;
  end;
end;

procedure TfrmSelectDepotPartMove.BillCodeEditChange(Sender: TObject);
begin
  SelectData;
end;

procedure TfrmSelectDepotPartMove.BillCodeEditKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then DataDBGrid.SetFocus;
end;

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

procedure TfrmSelectDepotPartMove.SysCloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmSelectDepotPartMove.DataDBGridKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=13 then Action2Execute(Sender);
  if key=VK_NEXT then
    if sdsSelectBillData.Eof then
       sdsSelectBillData.GetNextPacket;
end;

procedure TfrmSelectDepotPartMove.Action2Execute(Sender: TObject);
begin
  if sdsSelectBillData.IsEmpty then
  begin
    Application.MessageBox('没有选择任何入库单。',Hintinfo,$30);
    Exit;
  end;
  SelectBillCode:=Trim(sdsSelectBillData.Fieldbyname('BillCode').asstring);
  Close;
end;

procedure TfrmSelectDepotPartMove.Action1Execute(Sender: TObject);
begin
  FormShow(Nil);
end;

procedure TfrmSelectDepotPartMove.sdsSelectBillDataCalcFields(
  DataSet: TDataSet);
begin
  if sdsSelectBillData.FieldByName('ISEXECUTE').AsString='1' then
     sdsSelectBillData.FieldByName('STATE').AsString:='已入库'
  else
     sdsSelectBillData.FieldByName('STATE').AsString:='未入库';
end;

procedure TfrmSelectDepotPartMove.InDepotEditDropDown(Sender: TObject);
begin
  OpenData('select DepotCode, DepotName From Depot', dmData.sdsPublic);
  InDepotEdit.Items.Clear;
  while not dmData.sdsPublic.Eof do
  begin
    InDepotEdit.Items.Add(dmData.sdsPublic.Fieldbyname('DepotName').asstring);
    dmData.sdsPublic.Next;
  end;
end;

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

end.