unit Input_regu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, dxExEdtr, dxDBCtrl, dxDBGrid,
  dxDBTLCl, dxGrClms, dxTL, dxCntner, StdCtrls, RxLookup, DB, kbmMemTable,
  DBCtrls;

type
  Tfrm_input_reg = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1Column5: TdxDBGridDateColumn;
    dxDBGrid1Column7: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    Label1: TLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    memtbl1: TDataSource;
    memtbl: TkbmMemTable;
    memtblORDNO: TIntegerField;
    memtblField: TStringField;
    memtblField2: TStringField;
    memtblField3: TStringField;
    ComboBox1: TComboBox;
    memtblField4: TBooleanField;
    dxDBGrid1Column8: TdxDBGridCheckColumn;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_input_reg: Tfrm_input_reg;

implementation

uses u_main,my_sys_function;

{$R *.dfm}

procedure Tfrm_input_reg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin

  if ModalResult = mrYes then begin
    if trim(ComboBox1.Text) = '' then begin
      ShowMessage('上传类型不能为空！');
      abort;
    end;
    if(trim(ComboBox1.Text)='提单留底') and (if_open('448')=False) then
    begin
      //验证权限
        ShowMessage('您没有上传提单留底的权限!');
      abort;
    end;
    if trim(ComboBox1.Text)<>'' then
    begin
      if (trim(ComboBox1.Text)<>'托书')
         and (trim(ComboBox1.Text)<>'入货通知')
         and (trim(ComboBox1.Text)<>'提单OK件')
         and (trim(ComboBox1.Text)<>'费用确认')
         and (trim(ComboBox1.Text)<>'提单留底')
         and (trim(ComboBox1.Text)<>'提单确认')
         and (trim(ComboBox1.Text)<>'舱单')
         and (trim(ComboBox1.Text)<>'报关资料')
         and (trim(ComboBox1.Text)<>'提单COPY')
         and (trim(ComboBox1.Text)<>'船公司账单')
         and (trim(ComboBox1.Text)<>'保函')
         and (trim(ComboBox1.Text)<>'船公司挂单')
          then
      begin
        ShowMessage('上传类型不正确,请重新选择！');
        abort;
      end;
    end;
  end;
end;

end.