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 '4e4df949a6'
${ noResults }
D6HECHUAN/新建文件夹/公用模块/数据模块/u_data_share.pas

732 lines
23 KiB
Plaintext
Raw Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

unit u_data_share;
interface
uses
SysUtils, Classes, DB, ADODB, bsColorCtrls,Variants,Dialogs, kbmMemTable,
kbmMemCSVStreamFormat;
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_price_ctn1: TDataSource;
t_code_price_ctn: TADOQuery;
t_code_voyage1: TDataSource;
t_code_voyage: TADOQuery;
t_code_send_head: TADOQuery;
t_code_send_head1: TDataSource;
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_weituo1: TDataSource;
t_crm_client_weituo: TADOQuery;
t_crm_client_daili1: TDataSource;
t_crm_client_daili: 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_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;
p_update: TADOStoredProc;
t_code_fee_type1: TDataSource;
t_code_fee_type: 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_package_edi: TADOQuery;
t_code_package_edi1: TDataSource;
t_code_subcomp: TADOQuery;
t_code_subcomp1: TDataSource;
t_code_source_dl: TADOQuery;
t_code_source_dl1: TDataSource;
t_sys_noset1: TDataSource;
t_sys_noset: TADOQuery;
p_wtno_get: TADOStoredProc;
p_wtno_del: TADOStoredProc;
P_GetMaxWTno: TADOStoredProc;
P_GetMaxDCno: TADOStoredProc;
p_getMaxHblno: TADOStoredProc;
t_crm_client_gndaili: TADOQuery;
t_crm_client_gndaili1: TDataSource;
kbmThreadDataSet1: TkbmThreadDataSet;
kbmCSVStreamFormat1: TkbmCSVStreamFormat;
t_AgentDc_no: TADOQuery;
t_code_stlmode1: TDataSource;
t_code_stlmode: TADOQuery;
t_code_cargo_yard: TADOQuery;
t_code_cargo_yard1: TDataSource;
t_code_cargo_port1: TDataSource;
t_code_cargo_port: TADOQuery;
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_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_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_code_fee_typeBeforePost(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_card_project_deNewRecord(DataSet: TDataSet);
procedure t_code_card_project_deBeforeInsert(DataSet: TDataSet);
procedure t_code_source_dlBeforeInsert(DataSet: TDataSet);
procedure t_code_source_dlAfterInsert(DataSet: TDataSet);
procedure t_code_subcompBeforePost(DataSet: TDataSet);
procedure t_code_subcompBeforeDelete(DataSet: TDataSet);
procedure t_code_state_project_deBeforeInsert(DataSet: TDataSet);
procedure t_code_stlmodeBeforePost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
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_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_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_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_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_card_project_deNewRecord(
DataSet: TDataSet);
begin
DataSet.FieldByName('CP_ID').AsInteger:=t_code_card_project.fieldbyName('CP_ID').AsInteger;
end;
procedure Tfrm_data_share.t_code_card_project_deBeforeInsert(
DataSet: TDataSet);
begin
if t_code_card_project.state in [dsedit,dsinsert] then t_code_card_project.Post;
end;
procedure Tfrm_data_share.t_code_source_dlBeforeInsert(DataSet: TDataSet);
begin
table_before_insert(t_code_source);
end;
procedure Tfrm_data_share.t_code_source_dlAfterInsert(DataSet: TDataSet);
begin
t_code_source_dl.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString:=t_code_source.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString;
end;
procedure Tfrm_data_share.t_code_subcompBeforePost(DataSet: TDataSet);
var
aQuery:TAdoQuery;
begin
if t_code_subcomp.FieldByName('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').OldValue=null then exit;
if t_code_subcomp.FieldByName('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').OldValue<>t_code_subcomp.FieldByName('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').AsString then begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('select count(*) as subcount from t_sys_department where <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='''+t_code_subcomp.FieldByName('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').OldValue+'''');
Open;
if fieldbyname('subcount').AsInteger<>0 then begin
MessageDlg('<27>˷ֲ<CBB7><D6B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD>ã<EFBFBD><C3A3>޷<EFBFBD><DEB7>޸ģ<DEB8>',mtWarning,[mbOk],0);
abort;
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
if t_code_subcomp.FieldByName('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString='' then begin
MessageDlg('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
abort;
end;
if t_code_subcomp.FieldByName('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString='' then begin
MessageDlg('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
abort;
end;
if t_code_subcomp.FieldByName('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString='' then begin
MessageDlg('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
abort;
end;
if t_code_subcomp.FieldByName('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString='' then begin
MessageDlg('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
abort;
end;
if t_code_subcomp.FieldByName('<27><><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD>').AsString='' then begin
MessageDlg('<27><><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
abort;
end;
if t_code_subcomp.FieldByName('<27><><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD>').AsString='' then begin
MessageDlg('<27><><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
abort;
end;
if t_code_subcomp.FieldByName('<27><><EFBFBD>ܳ<EFBFBD>').AsString='' then begin
MessageDlg('<27><><EFBFBD>ܳ<EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
abort;
end;
if t_code_subcomp.FieldByName('<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>').AsString='' then begin
MessageDlg('<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>',mtWarning,[mbOk],0);
abort;
end;
end;
procedure Tfrm_data_share.t_code_subcompBeforeDelete(DataSet: TDataSet);
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('select count(*) as subcount from t_sys_department where <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='''+t_code_subcomp.FieldByName('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
Open;
if fieldbyname('subcount').AsInteger<>0 then begin
MessageDlg('<27>˷ֲ<CBB7><D6B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD>ã<EFBFBD><C3A3>޷<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>',mtWarning,[mbOk],0);
abort;
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_data_share.t_code_state_project_deBeforeInsert(
DataSet: TDataSet);
begin
if t_code_state_project.State in [dsedit,dsinsert] then t_code_state_project.post;
end;
procedure Tfrm_data_share.t_code_stlmodeBeforePost(DataSet: TDataSet);
begin
table_before_post(t_code_stlmode,'<27><><EFBFBD>㷽ʽ');
end;
end.
Reference in New Issue View Git Blame Copy Permalink