uselectpaymenttype.pas

天涯進銷存系統

unit uSelectPaymentType;

interface

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

type
  TfrmSelectPaymentType = class(TForm)
    Image2: TImage;
    SysCloseButton: TLBMorphButton;
    WindowCaption: TLabel;
    Panel4: TPanel;
    Panel6: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    PayMentTypeEdit: TLBComboBox;
    EnterButton: TLBButton;
    CancelButton: TLBButton;
    procedure EnterButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
    procedure PayMentTypeEditKeyDown(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
  frmSelectPaymentType: TfrmSelectPaymentType;

implementation

uses uMain, uDataMo, uPublicvar, uConst;

{$R *.dfm}

procedure TfrmSelectPaymentType.EnterButtonClick(Sender: TObject);
var
  s: string;
begin
  case SelectBillType of
   1: s:='请选择付款类型。'; 2: s:='请选择收款类型。';
  end;
  if Trim(PayMentTypeEdit.Text)='' then
  begin
    Application.MessageBox(PChar(S), Hintinfo, $30);
    PayMentTypeEdit.SetFocus;
    Exit;
  end;
  PayMentType:=PayMentTypeEdit.ItemIndex;
  PayMentModel:=PayMentTypeEdit.Text;
  isSelectPayMentModel:=True;
  Close;
end;

procedure TfrmSelectPaymentType.FormShow(Sender: TObject);
begin
  isSelectPayMentModel:=False;
  with PayMentTypeEdit.Items do
  begin
    case SelectBillType of
    1:
      begin
        Add('采购付款');
        Add('销售退货付款');
        Add('预付款');
        Add('内部调入付款');
      end;
    2:
      begin
        Add('销售收款');
        Add('采购退货收款');
        Add('预收款');
        Add('内部调出收款');
      end;
    end;
  end;
  PayMentTypeEdit.ItemIndex:=0;
end;

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

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

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

end.