yj_select.pas

来自「汽配前台收费,一个具有详细功能的小系统」· PAS 代码 · 共 81 行

unit yj_select;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  Tfrm_yj_select = class(TForm)
    Panel1: TPanel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    combo_fs: TComboBox;
    procedure cmdOKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    intpos: integer;
  public
    { Public declarations }
  end;

var
  frm_yj_select: Tfrm_yj_select;

implementation

{$R *.DFM}

uses
  log, cl_dj;
  
procedure Tfrm_yj_select.cmdOKClick(Sender: TObject);
begin
  if combo_fs.ItemIndex = -1 then begin
    MessageBox(Handle, '请选择结算方式', '沈阳信德', MB_ICONQUESTION or MB_OK);
    combo_fs.SetFocus;
    Exit;
  end else begin
    intpos := combo_fs.ItemIndex + 1;
    frm_log.yj_jsfs := intpos;
    //
    Close;
  end;
end;

procedure Tfrm_yj_select.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if intpos > 0 then
    //
  else begin
    intpos := -1;
    frm_log.yj_jsfs := intpos;
  end;
  Action := caFree;
end;

procedure Tfrm_yj_select.FormDestroy(Sender: TObject);
begin
  frm_yj_select := nil;
end;

procedure Tfrm_yj_select.cmdCancelClick(Sender: TObject);
begin
  Close;
end;

procedure Tfrm_yj_select.FormShow(Sender: TObject);
begin
  intpos := 0;
  //
  combo_fs.SetFocus;
end;

end.