hanxuntao
/
D6HECHUAN
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '1e33b63851'
${ noResults }
D6HECHUAN/公用模块/数据模块/u_data_share.pas

901 lines
28 KiB
Plaintext
Raw Normal View History Unescape Escape

1
1 year ago
unit u_data_share;
interface
uses
SysUtils, Classes, DB, ADODB, bsColorCtrls,Dialogs,Windows;
type
Tfrm_data_share = class(TDataModule)
t_sys_company: TADOQuery;
t_sys_company1: TDataSource;
t_sys_employee1: TDataSource;
t_sys_employee: TADOQuery;
t_sys_bank1: TDataSource;
t_sys_bank: TADOQuery;
t_code_currency1: TDataSource;
t_code_currency: TADOQuery;
p_id: TADOStoredProc;
t_code_fee1: TDataSource;
t_code_fee: TADOQuery;
t_code_goods1: TDataSource;
t_code_goods: TADOQuery;
t_code_items1: TDataSource;
t_code_items: TADOQuery;
t_code_ctn1: TDataSource;
t_code_ctn: TADOQuery;
t_code_country1: TDataSource;
t_code_country: TADOQuery;
t_code_disport1: TDataSource;
t_code_disport: TADOQuery;
t_code_trade1: TDataSource;
t_code_trade: TADOQuery;
t_code_vessel1: TDataSource;
t_code_vessel: TADOQuery;
t_code_package1: TDataSource;
t_code_package: TADOQuery;
t_sys_code_emp: TADOQuery;
t_sys_code_data: TADOQuery;
t_code_ctn_de: TADOQuery;
t_code_ctn_de1: TDataSource;
t_crm_client1: TDataSource;
t_crm_client: TADOQuery;
t_code_free1: TDataSource;
t_code_free: TADOQuery;
t_sys_department1: TDataSource;
t_sys_department: TADOQuery;
p_no_replace: TADOStoredProc;
p_no_get: TADOStoredProc;
t_code_code1: TDataSource;
t_code_code: TADOQuery;
t_code_ctn_kind1: TDataSource;
t_code_ctn_kind: TADOQuery;
t_code_loaport1: TDataSource;
t_code_loaport: TADOQuery;
t_sys_parameters_value: TADOQuery;
t_code_state: TADOQuery;
t_code_state1: TDataSource;
t_sys_report_head1: TDataSource;
t_sys_report_head: TADOQuery;
t_load_employee1: TDataSource;
t_load_employee: TADOQuery;
t_code_signbill1: TDataSource;
t_code_signbill: TADOQuery;
t_code_price1: TDataSource;
t_code_price: TADOQuery;
t_code_client_parameter1: TDataSource;
t_code_client_parameter: TADOQuery;
t_code_contract1: TDataSource;
t_code_contract: TADOQuery;
t_code_price_ctn1: TDataSource;
t_code_price_ctn: TADOQuery;
t_code_voyage1: TDataSource;
t_code_voyage: TADOQuery;
t_code_truck_client: TADOQuery;
t_code_truck_client1: TDataSource;
t_code_truck_changzhan: TADOQuery;
t_code_truck_changzhan1: TDataSource;
t_code_send_head: TADOQuery;
t_code_send_head1: TDataSource;
t_code_card1: TDataSource;
t_code_card: TADOQuery;
t_code_card_project1: TDataSource;
t_code_card_project: TADOQuery;
t_code_card_project_de1: TDataSource;
t_code_card_project_de: TADOQuery;
t_crm_client_all1: TDataSource;
t_crm_client_all: TADOQuery;
t_crm_client_ship1: TDataSource;
t_crm_client_ship: TADOQuery;
t_crm_client_changzhan1: TDataSource;
t_crm_client_changzhan: TADOQuery;
t_crm_client_truck1: TDataSource;
t_crm_client_truck: TADOQuery;
t_crm_client_baoguan1: TDataSource;
t_crm_client_baoguan: TADOQuery;
t_crm_client_weituo1: TDataSource;
t_crm_client_weituo: TADOQuery;
t_crm_client_daili1: TDataSource;
t_crm_client_daili: TADOQuery;
t_crm_client_huodai1: TDataSource;
t_crm_client_huodai: TADOQuery;
t_crm_client_shiper1: TDataSource;
t_crm_client_shiper: TADOQuery;
t_crm_client_shouhuo1: TDataSource;
t_crm_client_shouhuo: TADOQuery;
t_crm_client_tongzhi1: TDataSource;
t_crm_client_tongzhi: TADOQuery;
t_crm_client_hangkong1: TDataSource;
t_crm_client_hangkong: TADOQuery;
t_crm_client_other1: TDataSource;
t_crm_client_other: TADOQuery;
t_code_state_project1: TDataSource;
t_code_state_project: TADOQuery;
t_code_state_project_de1: TDataSource;
t_code_state_project_de: TADOQuery;
t_code_fee_color1: TDataSource;
t_code_fee_color: TADOQuery;
t_code_source1: TDataSource;
t_code_source: TADOQuery;
t_op_letter_free1: TDataSource;
t_op_letter_free: TADOQuery;
t_op_letter_free_detail1: TDataSource;
t_op_letter_free_detail: TADOQuery;
p_update: TADOStoredProc;
t_code_fee_type1: TDataSource;
t_code_fee_type: TADOQuery;
t_code_port_air1: TDataSource;
t_code_port_air: TADOQuery;
t_crm_client_kuaidi1: TDataSource;
t_crm_client_kuaidi: TADOQuery;
t_code_send_address1: TDataSource;
t_code_send_address: TADOQuery;
t_code_empty1: TDataSource;
t_code_empty: TADOQuery;
v_employee_shenhe: TADOQuery;
v_employee_other: TADOQuery;
t_code_edi_port: TADOQuery;
t_code_edi_port1: TDataSource;
t_code_tiaokuan1: TDataSource;
t_code_tiaokuan: TADOQuery;
t_code_shiyan1: TDataSource;
t_code_shiyan: TADOQuery;
t_code_package_edi: TADOQuery;
t_code_package_edi1: TDataSource;
t_code_shiper_edi: TADOQuery;
t_code_shiper_edi1: TDataSource;
t_code_line_ctn: TADOQuery;
ds_code_line_ctn1: TDataSource;
t_code_ctn_detail: TADOQuery;
ds_code_ctn_detail1: TDataSource;
t_code_ctn_detailID: TAutoIncField;
t_code_ctn_detailDSDesigner: TStringField;
t_code_ctn_detailDSDesigner2: TStringField;
t_code_ctn_detailDSDesigner3: TStringField;
t_code_ctn_detailDSDesigner4: TBCDField;
t_crm_client_cd: TADOQuery;
t_crm_client_cd1: TDataSource;
WebServiceURLQry: TADOQuery;
t_crm_client_sales: TADOQuery;
t_code_filetype1: TDataSource;
t_code_filetype: TADOQuery;
t_sys_skjlset: TADOQuery;
t_sys_skjlset1: TDataSource;
t_crm_client_full1: TDataSource;
t_crm_client_full: TADOQuery;
t_code_billstatus: TADOQuery;
t_code_billstatus1: TDataSource;
procedure t_sys_bankBeforePost(DataSet: TDataSet);
procedure t_code_currencyBeforePost(DataSet: TDataSet);
procedure t_code_feeBeforePost(DataSet: TDataSet);
procedure t_code_goodsBeforePost(DataSet: TDataSet);
procedure t_code_itemsBeforePost(DataSet: TDataSet);
procedure t_code_ctnBeforePost(DataSet: TDataSet);
procedure t_code_countryBeforePost(DataSet: TDataSet);
procedure t_code_tradeBeforePost(DataSet: TDataSet);
procedure t_code_vesselBeforePost(DataSet: TDataSet);
procedure t_code_packageBeforePost(DataSet: TDataSet);
procedure t_code_freeBeforePost(DataSet: TDataSet);
procedure t_code_codeBeforePost(DataSet: TDataSet);
procedure t_code_codeAfterInsert(DataSet: TDataSet);
procedure t_code_ctn_deBeforeInsert(DataSet: TDataSet);
procedure t_code_ctn_dePostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_code_ctnPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_code_ctn_kindBeforePost(DataSet: TDataSet);
procedure t_code_ctn_kindPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
procedure t_code_disportPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_code_loaportBeforePost(DataSet: TDataSet);
procedure t_code_loaportPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_code_stateBeforePost(DataSet: TDataSet);
procedure t_code_signbillBeforePost(DataSet: TDataSet);
procedure t_code_stateAfterInsert(DataSet: TDataSet);
procedure t_code_priceBeforePost(DataSet: TDataSet);
procedure t_code_priceAfterInsert(DataSet: TDataSet);
procedure t_code_client_parameterBeforePost(DataSet: TDataSet);
procedure t_code_contractBeforePost(DataSet: TDataSet);
procedure t_code_voyageAfterInsert(DataSet: TDataSet);
procedure t_code_voyageBeforePost(DataSet: TDataSet);
procedure t_code_voyageBeforeInsert(DataSet: TDataSet);
procedure t_code_truck_clientBeforePost(DataSet: TDataSet);
procedure t_code_truck_changzhanBeforePost(DataSet: TDataSet);
procedure t_code_send_headBeforePost(DataSet: TDataSet);
procedure t_code_cardBeforePost(DataSet: TDataSet);
procedure t_code_card_projectBeforePost(DataSet: TDataSet);
procedure t_code_card_projectAfterInsert(DataSet: TDataSet);
procedure t_code_card_project_deBeforePost(DataSet: TDataSet);
procedure t_code_card_project_deBeforeDelete(DataSet: TDataSet);
procedure t_code_state_projectAfterInsert(DataSet: TDataSet);
procedure t_code_state_projectBeforeDelete(DataSet: TDataSet);
procedure t_code_state_projectBeforePost(DataSet: TDataSet);
procedure t_code_state_project_deBeforePost(DataSet: TDataSet);
procedure t_code_sourceBeforePost(DataSet: TDataSet);
procedure t_op_letter_freeBeforePost(DataSet: TDataSet);
procedure t_op_letter_free_detailBeforePost(DataSet: TDataSet);
procedure t_op_letter_freeAfterInsert(DataSet: TDataSet);
procedure t_op_letter_freeAfterPost(DataSet: TDataSet);
procedure t_op_letter_freeAfterCancel(DataSet: TDataSet);
procedure t_op_letter_freeAfterDelete(DataSet: TDataSet);
procedure t_op_letter_free_detailBeforeInsert(DataSet: TDataSet);
procedure t_op_letter_free_detailBeforeDelete(DataSet: TDataSet);
procedure t_op_letter_freeBeforeDelete(DataSet: TDataSet);
procedure t_code_fee_typeBeforePost(DataSet: TDataSet);
procedure t_code_port_airBeforePost(DataSet: TDataSet);
procedure t_op_letter_free_detailAfterInsert(DataSet: TDataSet);
procedure t_code_send_addressBeforePost(DataSet: TDataSet);
procedure t_code_send_addressBeforeInsert(DataSet: TDataSet);
procedure t_code_truck_changzhanBeforeInsert(DataSet: TDataSet);
procedure t_code_truck_clientBeforeInsert(DataSet: TDataSet);
procedure t_code_stateBeforeInsert(DataSet: TDataSet);
procedure t_code_send_headBeforeEdit(DataSet: TDataSet);
procedure t_code_countryBeforeEdit(DataSet: TDataSet);
procedure t_code_tradeBeforeEdit(DataSet: TDataSet);
procedure t_code_edi_portBeforePost(DataSet: TDataSet);
procedure t_code_tiaokuanBeforePost(DataSet: TDataSet);
procedure t_code_shiyanBeforePost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
function AnsiStringToWideString(const strAnsi: AnsiString;codepage: Word): WideString;
function countString(_s1,s2:string):integer;
function GettimePotion(n:integer;c:string;s:string):integer;
function GetXMLValue(c:string;s:string):string;
function REHH(str: string): string;
end;
var
frm_data_share: Tfrm_data_share;
if_all_letter:boolean;
implementation
uses u_main, my_sys_function;
{$R *.dfm}
procedure Tfrm_data_share.t_sys_bankBeforePost(DataSet: TDataSet);
begin
table_before_post(t_sys_bank,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_sys_bank,'<27>ұ<EFBFBD>');
table_before_post(t_sys_bank,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_sys_bank,'<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>');
end;
procedure Tfrm_data_share.t_code_currencyBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_currency,'<27>ұ<EFBFBD>');
table_before_post(t_code_currency,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_code_currency,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_feeBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_fee,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_fee,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_code_fee,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_goodsBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_goods,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_goods,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_itemsBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_items,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_items,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_ctnBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_ctn,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_ctn,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_ctn,'<27>ߴ<EFBFBD>');
table_before_post(t_code_ctn,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ');
if (t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring<>'20')and
(t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring<>'40')and
(t_code_ctn.FieldByName('<27>ߴ<EFBFBD>').asstring<>'45')then
begin
showmessage('<27><><EFBFBD>ߴ<EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>20<32><30>40<34><30>45<34><35><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_countryBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_country,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_country,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_code_country,'<27><>');
end;
procedure Tfrm_data_share.t_code_tradeBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_trade,'<27><><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>');
table_before_post(t_code_trade,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_vesselBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_vessel,'Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>');
table_before_post(t_code_vessel,'<27><><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_packageBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_package,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_package,'<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_freeBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_free,'<27><><EFBFBD>ѷ<EFBFBD>ʽ');
end;
procedure Tfrm_data_share.t_code_codeBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_code,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_code,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_code,'<27><><EFBFBD><EFBFBD>');
if (t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asboolean=false)and
(t_code_code.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asboolean=false)and
(t_code_code.fieldbyname('֪ͨ<CDA8><D6AA>').asboolean=false)and
(t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false)then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>ˡ<EFBFBD><CBA1>ջ<EFBFBD><D5BB>ˡ<EFBFBD>֪ͨ<CDA8>˱<EFBFBD><CBB1><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_codeAfterInsert(DataSet: TDataSet);
begin
if t_code_code.Filtered=true then
begin
if copy(t_code_code.Filter,1,2)='<27><>'then
t_code_code['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=1;
if copy(t_code_code.Filter,1,2)='<27><>'then
t_code_code['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=1;
if copy(t_code_code.Filter,1,2)='ͨ'then
t_code_code['֪ͨ<CDA8><D6AA>']:=1;
end;
end;
procedure Tfrm_data_share.t_code_ctn_deBeforeInsert(DataSet: TDataSet);
begin
abort;
end;
procedure Tfrm_data_share.t_code_ctn_dePostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
table_post_error_primary('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>',E);
end;
procedure Tfrm_data_share.t_code_ctnPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
table_post_error_primary('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>',E);
table_post_error_index('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ',E);
end;
procedure Tfrm_data_share.t_code_ctn_kindBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_ctn_kind,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_ctn_kind,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_ctn_kindPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
table_post_error_primary('<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>',E);
end;
procedure Tfrm_data_share.t_code_disportPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
table_post_error_primary('<27>ۿڴ<DBBF><DAB4><EFBFBD>',E);
table_post_error_index('<27>ۿ<EFBFBD>Ӣ<EFBFBD><D3A2><EFBFBD><EFBFBD>',E);
end;
procedure Tfrm_data_share.t_code_loaportBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_loaport,'<27>ۿڴ<DBBF><DAB4><EFBFBD>');
table_before_post(t_code_loaport,'Ӣ<><D3A2><EFBFBD><EFBFBD>');
table_before_post(t_code_loaport,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_loaportPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
table_post_error_primary('<27>ۿڴ<DBBF><DAB4><EFBFBD>',E);
table_post_error_index('<27>ۿ<EFBFBD>Ӣ<EFBFBD><D3A2><EFBFBD><EFBFBD>',E);
end;
procedure Tfrm_data_share.t_code_stateBeforePost(DataSet: TDataSet);
begin
if t_code_state.fieldbyname('ҵ<><D2B5>״̬').AsString='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>״̬Ϊϵͳʹ<CDB3><CAB9>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
abort;
end;
table_before_post(t_code_state,'ҵ<><D2B5>״̬');
table_before_post(t_code_state,'<27><>ɫ');
table_before_post(t_code_state,'ҵ<><D2B5>״̬');
table_before_post(t_code_state,'ҵ<><D2B5>״̬');
table_before_post(t_code_state,'ҵ<><D2B5>״̬');
end;
procedure Tfrm_data_share.t_code_signbillBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_signbill,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_signbill,'ǩ<><C7A9><EFBFBD><EFBFBD>ʽ');
end;
procedure Tfrm_data_share.t_code_stateAfterInsert(DataSet: TDataSet);
begin
t_code_state['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=copy(t_code_state.Filter,11,8);
t_code_state['ҵ<><D2B5><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>']:=1;
end;
procedure Tfrm_data_share.t_code_priceBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_price,'<27>ͻ<EFBFBD><CDBB><EFBFBD>ֵ');
table_before_post(t_code_price,'<27><>ɫ');
table_before_post(t_code_price,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_code_price,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_priceAfterInsert(DataSet: TDataSet);
begin
t_code_price['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_code_price['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
end;
procedure Tfrm_data_share.t_code_client_parameterBeforePost(
DataSet: TDataSet);
begin
if t_code_client_parameter.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asfloat<=0 then
begin
showmessage('<27><><EFBFBD><EFBFBD>С<EFBFBD>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD>㣡<EFBFBD><E3A3A1>');
abort;
end;
if t_code_client_parameter.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat<=0 then
begin
showmessage('<27><><EFBFBD><EFBFBD>С<EFBFBD>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD>㣡<EFBFBD><E3A3A1>');
abort;
end;
if t_code_client_parameter.fieldbyname('<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>').asfloat<=0 then
begin
showmessage('<27><><EFBFBD><EFBFBD>С<EFBFBD>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD>㣡<EFBFBD><E3A3A1>');
abort;
end;
if t_code_client_parameter.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asfloat<=0 then
begin
showmessage('<27><><EFBFBD><EFBFBD>С<EFBFBD>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD>㣡<EFBFBD><E3A3A1>');
abort;
end;
t_code_client_parameter['<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>']:=t_code_client_parameter['<27><><EFBFBD><EFBFBD>ֵ']/t_code_client_parameter['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_data_share.t_code_contractBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_contract,'<27><>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_voyageAfterInsert(DataSet: TDataSet);
begin
t_code_voyage['VS_ID']:=t_code_vessel['VS_ID'];
end;
procedure Tfrm_data_share.t_code_voyageBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_voyage,'<27><><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_voyageBeforeInsert(DataSet: TDataSet);
begin
if t_code_vessel.state=dsinsert then
t_code_vessel.Post;
end;
procedure Tfrm_data_share.t_code_truck_clientBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_truck_client,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_truck_changzhanBeforePost(
DataSet: TDataSet);
begin
table_before_post(t_code_truck_changzhan,'<27><>վ<EFBFBD><D5BE><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_send_headBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_send_head,'HEAD_TO');
end;
procedure Tfrm_data_share.t_code_cardBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_card,'<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_card_projectBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_card_project,'<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_card_projectAfterInsert(
DataSet: TDataSet);
begin
t_code_card_project['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_code_card_project['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
end;
procedure Tfrm_data_share.t_code_card_project_deBeforePost(
DataSet: TDataSet);
begin
table_before_post(t_code_card_project_de,'<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_card_project_deBeforeDelete(
DataSet: TDataSet);
begin
if t_code_card_project.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').asstring<>employee then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>֤<EFBFBD><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+employee+'<27><><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_state_projectAfterInsert(
DataSet: TDataSet);
begin
t_code_state_project['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_code_state_project['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_code_state_project['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=copy(t_code_state_project.Filter,11,8);
end;
procedure Tfrm_data_share.t_code_state_projectBeforeDelete(
DataSet: TDataSet);
begin
if t_code_state_project.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').asstring<>employee then
begin
showmessage('<27><>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+t_code_state_project.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').asstring+'<27><><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_state_projectBeforePost(
DataSet: TDataSet);
begin
table_before_post(t_code_state_project,'״̬<D7B4><CCAC><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_state_project_deBeforePost(
DataSet: TDataSet);
begin
table_before_post(t_code_state_project_de,'״̬<D7B4><CCAC><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_sourceBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_source,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_source,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
end;
procedure Tfrm_data_share.t_op_letter_freeBeforePost(DataSet: TDataSet);
begin
if t_op_letter_free.State=dsinsert then
begin
t_op_letter_free['LF']:=trim(get_id);
end;
table_before_post(t_op_letter_free,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_letter_free,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_op_letter_free_detailBeforePost(
DataSet: TDataSet);
var
str:widestring;
begin
table_before_post(t_op_letter_free_detail,'<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_letter_free_detail,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
IF t_op_letter_free_detail.State=dsinsert then
begin
str:='alter TABLE t_op_letter_free'+t_op_letter_free.fieldbyname('LF').asstring
+' add '+t_op_letter_free_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring
+' varchar(400) null';
p_update.Parameters.ParamByName('SQLStr').VALUE:=STR;
p_update.ExecProc;
end
else
begin
if t_op_letter_free_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_op_letter_free_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring then
begin
str:='alter TABLE t_op_letter_free'+t_op_letter_free.fieldbyname('LF').asstring
+' drop column '+t_op_letter_free_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').OldValue;
p_update.Parameters.ParamByName('SQLStr').VALUE:=STR;
p_update.ExecProc;
str:='alter TABLE t_op_letter_free'+t_op_letter_free.fieldbyname('LF').asstring
+' add '+t_op_letter_free_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring
+' varchar(400) null';
p_update.Parameters.ParamByName('SQLStr').VALUE:=STR;
p_update.ExecProc;
end;
end;
end;
procedure Tfrm_data_share.t_op_letter_freeAfterInsert(DataSet: TDataSet);
begin
t_op_letter_free['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=copy(t_op_letter_free.Filter,11,8);
if_all_letter:=true;
end;
procedure Tfrm_data_share.t_op_letter_freeAfterPost(DataSet: TDataSet);
var
str:widestring;
begin
if if_all_letter then
begin
str:='CREATE TABLE [t_op_letter_free'+t_op_letter_free.fieldbyname('LF').asstring
+'] ( [ID] [int] IDENTITY (1, 1) NOT NULL ,'
+'[LE_ID] INT NULL '
+'CONSTRAINT [PK_t_op_letter_free'+t_op_letter_free.fieldbyname('LF').asstring
+'] PRIMARY KEY CLUSTERED ([ID]) ON [PRIMARY]'
+' ) ON [PRIMARY] ';
p_update.Parameters.ParamByName('SQLStr').VALUE:=STR;
p_update.ExecProc;
end;
if_all_letter:=false;
end;
procedure Tfrm_data_share.t_op_letter_freeAfterCancel(DataSet: TDataSet);
begin
if_all_letter:=false;
end;
procedure Tfrm_data_share.t_op_letter_freeAfterDelete(DataSet: TDataSet);
begin
if_all_letter:=false;
end;
procedure Tfrm_data_share.t_op_letter_free_detailBeforeInsert(
DataSet: TDataSet);
begin
table_post(t_op_letter_free);
end;
procedure Tfrm_data_share.t_op_letter_free_detailBeforeDelete(
DataSet: TDataSet);
var
str:widestring;
begin
str:='alter TABLE t_op_letter_free'+t_op_letter_free.fieldbyname('LF').asstring
+' drop column '+t_op_letter_free_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring;
p_update.Parameters.ParamByName('SQLStr').VALUE:=STR;
p_update.ExecProc;
end;
procedure Tfrm_data_share.t_op_letter_freeBeforeDelete(DataSet: TDataSet);
var
str:widestring;
begin
if not if_all_letter then
begin
p_update.CLOSE;
str:='select * from t_op_letter where LF='+''''+t_op_letter_free.fieldbyname('LF').asstring+'''';
p_update.Parameters.ParamByName('SQLStr').VALUE:=STR;
p_update.OPEN;
IF NOT p_update.IsEmpty THEN
BEGIN
SHOWMESSAGE('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD>Ѿ<EFBFBD>ʹ<EFBFBD>ã<EFBFBD><C3A3><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ABORT;
END;
str:='drop TABLE t_op_letter_free'+t_op_letter_free.fieldbyname('LF').asstring;
p_update.Parameters.ParamByName('SQLStr').VALUE:=STR;
p_update.ExecProc;
end;
end;
procedure Tfrm_data_share.t_code_fee_typeBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_fee_type,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_fee_type,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_port_airBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_port_air,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_port_air,'Ӣ<><D3A2><EFBFBD><EFBFBD>');
table_before_post(t_code_port_air,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_op_letter_free_detailAfterInsert(
DataSet: TDataSet);
begin
t_op_letter_free_detail['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>';
end;
procedure Tfrm_data_share.t_code_send_addressBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_send_address,'<27>ռ<EFBFBD><D5BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_code_send_address,'<27>ռ<EFBFBD><D5BC>˹<EFBFBD>˾');
table_before_post(t_code_send_address,'<27>ռ<EFBFBD><D5BC>˵<EFBFBD>ַ');
table_before_post(t_code_send_address,'Ŀ<>ĵ<EFBFBD>');
table_before_post(t_code_send_address,'<27>ռ<EFBFBD><D5BC>˵绰');
table_before_post(t_code_send_address,'<27>ռ<EFBFBD><D5BC><EFBFBD><EFBFBD>ʱ<EFBFBD>');
end;
procedure Tfrm_data_share.t_code_send_addressBeforeInsert(
DataSet: TDataSet);
begin
if not if_open('164') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_truck_changzhanBeforeInsert(
DataSet: TDataSet);
begin
if not if_open('143') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_truck_clientBeforeInsert(
DataSet: TDataSet);
begin
if not if_open('142') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_stateBeforeInsert(DataSet: TDataSet);
begin
if not if_open('052') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_send_headBeforeEdit(DataSet: TDataSet);
begin
if not if_open('144') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_countryBeforeEdit(DataSet: TDataSet);
begin
if not if_open('010') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_tradeBeforeEdit(DataSet: TDataSet);
begin
if not if_open('012') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
abort;
end;
end;
procedure Tfrm_data_share.t_code_edi_portBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_edi_port,'EDI<44><49><EFBFBD><EFBFBD>');
table_before_post(t_code_edi_port,'<27>ۿ<EFBFBD><DBBF><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_tiaokuanBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_tiaokuan,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_tiaokuan,'<27><><EFBFBD><EFBFBD>');
table_before_post(t_code_tiaokuan,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_data_share.t_code_shiyanBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_shiyan,'ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
function Tfrm_data_share.AnsiStringToWideString(const strAnsi: AnsiString;codepage:word): WideString;
var
Len: integer;
begin
Result := '';
if strAnsi = '' then Exit;
Len := MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@strAnsi[1]), -1, nil, 0);
SetLength(Result, Len - 1);
if Len > 1 then
MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@strAnsi[1]), -1, PWideChar(@Result[1]), Len - 1);
end;
function Tfrm_data_share.countString(_s1,s2:string):integer;
var s1:string;
begin
result:=0;
s1:='<'+_s1+'>';
while pos(s1,s2)>0 do
begin
s2:=copy(s2,pos(s1,s2)+1,length(s2)); //<2F><><EFBFBD><EFBFBD>s2<73><32><EFBFBD>󳤶<EFBFBD>Ϊ9999<39><39><EFBFBD>ַ<EFBFBD>
result:=result+1 ;
end;
s1:='<'+_s1+' />';
while pos(s1,s2)>0 do
begin
s2:=copy(s2,pos(s1,s2)+1,length(s2)); //<2F><><EFBFBD><EFBFBD>s2<73><32><EFBFBD>󳤶<EFBFBD>Ϊ9999<39><39><EFBFBD>ַ<EFBFBD>
result:=result+1 ;
end;
end;
function Tfrm_data_share.GettimePotion(n:integer;c:string;s:string):integer;
var
p,i:integer;
begin
result:=0;
p:=0;
for i:=1 to length(s) do
begin
if copy(s,i,length(c))=c then
p:=p+1;
if p=n then
begin
result:=i;
break;
end;
end;
end;
function Tfrm_data_share.GetXMLValue(c:string;s:string):string;
var
p1,p2:integer;
_c1,_c2,_c3,_r:string;
begin
_c1:='<'+c+ ' />';
_c2:='<'+c+ '>';
_c3:='</'+c+ '>';
if (Pos(_c1,s)>0) then begin
result:=''; //ֵΪ<D6B5><CEAA>
end else if (Pos(_c2,s)>0) then
begin
p1:=pos(_c2,s)+length(_c2);
p2:=pos(_c3,s)-p1;
result:=copy(s,p1,p2);
//WriteLog(inttostr(P1)+'_'+inttostr(P2)+'__'+s);
end else result:='';
end;
function Tfrm_data_share.REHH(str: string): string;
var _r:string;
begin
_r:=StringReplace (str, '\\\\', #13#10, [rfReplaceAll]);
result:=_r;
end;
end.