|
|
|
|
|
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('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
|
|
|
|
|
|
abort;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if(trim(ComboBox1.Text)='<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>') and (if_open('448')=False) then
|
|
|
|
|
|
begin
|
|
|
|
|
|
//<2F><>֤Ȩ<D6A4><C8A8>
|
|
|
|
|
|
ShowMessage('<27><>û<EFBFBD><C3BB><EFBFBD>ϴ<EFBFBD><CFB4>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>!');
|
|
|
|
|
|
abort;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if trim(ComboBox1.Text)<>'' then
|
|
|
|
|
|
begin
|
|
|
|
|
|
if (trim(ComboBox1.Text)<>'<27><><EFBFBD><EFBFBD>')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27><><EFBFBD><EFBFBD>֪ͨ')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27>ᵥOK<4F><4B>')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27>ᵥȷ<E1B5A5><C8B7>')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27>յ<EFBFBD>')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27>ᵥCOPY')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27><><EFBFBD><EFBFBD>˾<EFBFBD>˵<EFBFBD>')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27><><EFBFBD><EFBFBD>')
|
|
|
|
|
|
and (trim(ComboBox1.Text)<>'<27><><EFBFBD><EFBFBD>˾<EFBFBD>ҵ<EFBFBD>')
|
|
|
|
|
|
then
|
|
|
|
|
|
begin
|
|
|
|
|
|
ShowMessage('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>ȷ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>');
|
|
|
|
|
|
abort;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
