You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
88 lines
2.3 KiB
Plaintext
88 lines
2.3 KiB
Plaintext
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.
|