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.
443 lines
32 KiB
Plaintext
443 lines
32 KiB
Plaintext
program p_main;
|
|
|
|
{$R *.res}
|
|
|
|
uses
|
|
Forms,
|
|
windows,
|
|
u_ch_add_do in '..\财务管理\u_ch_add_do.pas' {fra_ch_add_do: TFrame},
|
|
t_ch_rate in '..\财务管理\t_ch_rate.pas' {frm_ch_rate},
|
|
u_ch_delete_do in '..\财务管理\u_ch_delete_do.pas' {fra_ch_delete_do: TFrame},
|
|
u_ch_balance_accept in '..\财务管理\u_ch_balance_accept.pas' {frm_ch_balance_accept},
|
|
u_ch_balance_pay in '..\财务管理\u_ch_balance_pay.pas' {frm_ch_balance_pay},
|
|
u_ch_shen_query in '..\财务管理\u_ch_shen_query.pas' {frm_ch_shen_query},
|
|
u_ch_balance_query in '..\财务管理\u_ch_balance_query.pas' {frm_ch_balance_query},
|
|
u_ch_check_check in '..\财务管理\u_ch_check_check.pas' {frm_ch_check_check},
|
|
u_ch_check_do in '..\财务管理\u_ch_check_do.pas' {frm_ch_check_do},
|
|
u_ch_check_shen in '..\财务管理\u_ch_check_shen.pas' {frm_ch_check_shen},
|
|
u_ch_invoice in '..\财务管理\u_ch_invoice.pas' {frm_ch_invoice},
|
|
u_ch_invoice_add in '..\财务管理\u_ch_invoice_add.pas' {frm_ch_invoice_add},
|
|
u_ch_invoice_check in '..\财务管理\u_ch_invoice_check.pas' {frm_ch_invoice_check},
|
|
u_ch_invoice_shen in '..\财务管理\u_ch_invoice_shen.pas' {frm_ch_invoice_shen},
|
|
u_code_vessel in '..\代码字典\u_code_vessel.pas' {frm_code_vessel},
|
|
u_code_country in '..\代码字典\u_code_country.pas' {frm_code_country},
|
|
u_code_ctn in '..\代码字典\u_code_ctn.pas' {frm_code_ctn},
|
|
u_code_ctn_kind in '..\代码字典\u_code_ctn_kind.pas' {frm_code_ctn_kind},
|
|
u_code_currency in '..\代码字典\u_code_currency.pas' {frm_code_currency},
|
|
u_code_fee in '..\代码字典\u_code_fee.pas' {frm_code_fee},
|
|
u_code_free in '..\代码字典\u_code_free.pas' {frm_code_free},
|
|
u_code_goods in '..\代码字典\u_code_goods.pas' {frm_code_goods},
|
|
u_code_items in '..\代码字典\u_code_items.pas' {frm_code_items},
|
|
u_code_package in '..\代码字典\u_code_package.pas' {frm_code_package},
|
|
u_code_port in '..\代码字典\u_code_port.pas' {frm_code_port},
|
|
u_code_trade in '..\代码字典\u_code_trade.pas' {frm_code_trade},
|
|
u_code_code in '..\代码字典\u_code_code.pas' {frm_code_code},
|
|
u_fee in '..\费用模块\u_fee.pas' {fra_fee: TFrame},
|
|
u_fee_check in '..\费用模块\u_fee_check.pas' {fra_fee_check: TFrame},
|
|
u_fee_check_shen in '..\费用模块\u_fee_check_shen.pas' {frm_fee_check_shen},
|
|
u_fee_modify in '..\费用模块\u_fee_modify.pas' {frm_fee_modify},
|
|
u_fee_zhu in '..\费用模块\u_fee_zhu.pas' {fra_fee_zhu: TFrame},
|
|
u_ch_fee_se in '..\费用模块\u_ch_fee_se.pas' {frm_ch_fee_sea},
|
|
u_ch_fee_sea_sales in '..\费用模块\u_ch_fee_sea_sales.pas' {frm_ch_fee_seae_sales},
|
|
u_ch_fee_zhupiao in '..\费用模块\u_ch_fee_zhupiao.pas' {frm_ch_fee_zhupiao},
|
|
u_ch_fee_check_seae in '..\费用模块\u_ch_fee_check_seae.pas' {frm_ch_fee_check_seae},
|
|
u_main in 'u_main.pas' {frm_main},
|
|
u_data_share in '..\公用模块\数据模块\u_data_share.pas' {frm_data_share: TDataModule},
|
|
u_sys_print_view in '..\公用模块\系统模块\u_sys_print_view.pas' {frm_sys_print_view},
|
|
u_open_code in '..\公用模块\系统模块\u_open_code.pas' {frm_open_code},
|
|
u_open_info in '..\公用模块\系统模块\u_open_info.pas' {frm_open_info},
|
|
u_open_operation in '..\公用模块\系统模块\u_open_operation.pas' {frm_open_operation},
|
|
u_open_report in '..\公用模块\系统模块\u_open_report.pas' {frm_open_report},
|
|
u_sys_about in '..\公用模块\系统模块\u_sys_about.pas' {frm_sys_about},
|
|
u_sys_data in '..\公用模块\系统模块\u_sys_data.pas' {fra_sys_data: TFrame},
|
|
u_sys_data_d in '..\公用模块\系统模块\u_sys_data_d.pas' {fra_sys_data_d: TFrame},
|
|
u_sys_data_v in '..\公用模块\系统模块\u_sys_data_v.pas' {fra_sys_data_v: TFrame},
|
|
u_sys_limited in '..\公用模块\系统模块\u_sys_limited.pas' {frm_sys_limited},
|
|
u_sys_login in '..\公用模块\系统模块\u_sys_login.pas' {frm_sys_login},
|
|
u_sys_print in '..\公用模块\系统模块\u_sys_print.pas' {frm_sys_print},
|
|
my_sys_function in '..\公用模块\系统模块\my_sys_function.pas',
|
|
u_op_memo in '..\公用模块\业务系统\u_op_memo.pas' {frm_op_memo},
|
|
u_op_seae_query in '..\海运业务\u_op_seae_query.pas' {frm_op_seae_query},
|
|
u_op_ctn in '..\海运业务\u_op_ctn.pas' {frm_op_ctn},
|
|
u_op_letter in '..\海运业务\u_op_letter.pas' {frm_op_letter},
|
|
u_op_seae in '..\海运业务\u_op_seae.pas' {frm_op_seae},
|
|
u_op_seae_add in '..\海运业务\u_op_seae_add.pas' {frm_op_seae_add},
|
|
u_op_seae_close in '..\海运业务\u_op_seae_close.pas' {frm_op_seae_close},
|
|
u_op_seae_excel in '..\海运业务\u_op_seae_excel.pas' {frm_op_seae_excel},
|
|
u_op_add_seai in '..\海运业务\u_op_add_seai.pas' {frm_op_add_seai},
|
|
u_info_tell_query in '..\信息资源\u_info_tell_query.pas' {frm_info_tell_query},
|
|
u_info_bulletin in '..\信息资源\u_info_bulletin.pas' {frm_info_bulletin},
|
|
u_info_bulletin_manage in '..\信息资源\u_info_bulletin_manage.pas' {frm_info_bulletin_manage},
|
|
u_info_bulletin_query in '..\信息资源\u_info_bulletin_query.pas' {frm_info_bulletin_query},
|
|
u_info_criterion in '..\信息资源\u_info_criterion.pas' {frm_info_criterion},
|
|
u_info_now_bulletin in '..\信息资源\u_info_now_bulletin.pas' {frm_info_now_bulletin},
|
|
u_info_plan in '..\信息资源\u_info_plan.pas' {frm_info_plan},
|
|
u_info_plan_individual in '..\信息资源\u_info_plan_individual.pas' {frm_info_plan_individual},
|
|
u_info_plan_manage in '..\信息资源\u_info_plan_manage.pas' {frm_info_plan_manage},
|
|
u_info_plan_over in '..\信息资源\u_info_plan_over.pas' {frm_info_plan_over},
|
|
u_info_plan_query in '..\信息资源\u_info_plan_query.pas' {frm_info_plan_query},
|
|
u_info_render in '..\信息资源\u_info_render.pas' {frm_info_render},
|
|
u_info_render_manager in '..\信息资源\u_info_render_manager.pas' {frm_info_render_manager},
|
|
u_info_render_query in '..\信息资源\u_info_render_query.pas' {frm_info_render_query},
|
|
u_info_rules in '..\信息资源\u_info_rules.pas' {frm_info_rules},
|
|
u_info_tell in '..\信息资源\u_info_tell.pas' {frm_info_tell},
|
|
u_info_tell_manage in '..\信息资源\u_info_tell_manage.pas' {frm_info_tell_manage},
|
|
u_crm_client in '..\信息资源\u_crm_client.pas' {frm_crm_client},
|
|
u_op_open_select in '..\业务模块\u_op_open_select.pas' {frm_op_open_select},
|
|
u_op_close_select in '..\业务模块\u_op_close_select.pas' {frm_op_close_select},
|
|
u_op_open_all in '..\业务模块\u_op_open_all.pas' {frm_op_open_all},
|
|
u_op_close_all in '..\业务模块\u_op_close_all.pas' {frm_op_close_all},
|
|
u_rp_yunjia_seae in '..\业务统计\u_rp_yunjia_seae.pas' {frm_rp_yunjia_seae},
|
|
u_rp_in_ch in '..\业务统计\u_rp_in_ch.pas' {frm_rp_in_ch},
|
|
u_rp_in_seae in '..\业务统计\u_rp_in_seae.pas' {frm_rp_in_seae},
|
|
u_rp_no_seae_accept in '..\业务统计\u_rp_no_seae_accept.pas' {frm_rp_no_seae},
|
|
u_rp_no_seae_query in '..\业务统计\u_rp_no_seae_query.pas' {frm_rp_no_seae_query},
|
|
u_rp_no_total in '..\业务统计\u_rp_no_total.pas' {frm_rp_no_total},
|
|
u_rp_query in '..\业务统计\u_rp_query.pas' {frm_rp_query},
|
|
u_rp_rp_seae in '..\业务统计\u_rp_rp_seae.pas' {frm_rp_rp_seae},
|
|
u_rp_tai_seae in '..\业务统计\u_rp_tai_seae.pas' {frm_rp_tai_seae},
|
|
u_rp_tai_total in '..\业务统计\u_rp_tai_total.pas' {frm_rp_tai_total},
|
|
u_rp_zj_seae in '..\业务统计\u_rp_zj_seae.pas' {frm_rp_zj_seae},
|
|
u_rp_zl_seae in '..\业务统计\u_rp_zl_seae.pas' {frm_rp_zl_seae},
|
|
u_rp_yunfeibl_seae in '..\业务统计\u_rp_yunfeibl_seae.pas' {frm_rp_yunfeibl_seae},
|
|
u_sys_company in '..\公用模块\企业资源\u_sys_company.pas' {frm_sys_company},
|
|
u_sys_employee in '..\公用模块\企业资源\u_sys_employee.pas' {frm_sys_employee},
|
|
u_sys_dep_emp in '..\公用模块\企业资源\u_sys_dep_emp.pas' {frm_sys_dep_emp},
|
|
u_sys_bank in '..\公用模块\企业资源\u_sys_bank.pas' {frm_sys_bank},
|
|
u_rp_fee_modify in '..\业务统计\u_rp_fee_modify.pas' {frm_rp_fee_modify},
|
|
u_rp_dui_accepttotal in '..\业务统计\u_rp_dui_accepttotal.pas' {frm_rp_dui_accepttotal},
|
|
u_op_seae_state in '..\海运业务\u_op_seae_state.pas' {frm_op_seae_state},
|
|
u_op_sate in '..\公用模块\业务系统\u_op_sate.pas' {fra_op_state: TFrame},
|
|
u_code_state in '..\代码字典\u_code_state.pas' {frm_code_state},
|
|
u_info_price_manage in '..\信息资源\u_info_price_manage.pas' {frm_info_price_manage},
|
|
u_op_seai in '..\海运业务\u_op_seai.pas' {frm_op_seai},
|
|
u_op_seai_add in '..\海运业务\u_op_seai_add.pas' {frm_op_seai_add},
|
|
u_op_seai_query in '..\海运业务\u_op_seai_query.pas' {frm_op_seai_query},
|
|
u_ch_fee_seai_sales in '..\费用模块\u_ch_fee_seai_sales.pas' {frm_ch_fee_seai_sales},
|
|
u_ch_fee_Recheck_seai in '..\费用模块\u_ch_fee_Recheck_seai.pas' {frm_ch_fee_Recheck_seai},
|
|
u_op_seai_close in '..\海运业务\u_op_seai_close.pas' {frm_op_seai_close},
|
|
u_rp_zl_seai in '..\业务统计\u_rp_zl_seai.pas' {frm_rp_zl_seai},
|
|
u_rp_in_seai in '..\业务统计\u_rp_in_seai.pas' {frm_rp_in_seai},
|
|
u_rp_no_seai in '..\业务统计\u_rp_no_seai.pas' {frm_rp_no_seai},
|
|
u_rp_zj_seai in '..\业务统计\u_rp_zj_seai.pas' {frm_rp_zj_seai},
|
|
u_rp_tai_seai in '..\业务统计\u_rp_tai_seai.pas' {frm_rp_tai_seai},
|
|
u_rp_rp_seai in '..\业务统计\u_rp_rp_seai.pas' {frm_rp_rp_seai},
|
|
u_rp_zou_seai in '..\业务统计\u_rp_zou_seai.pas' {frm_rp_zou_seai},
|
|
u_rp_fen_seai in '..\业务统计\u_rp_fen_seai.pas' {frm_rp_fen_seai},
|
|
u_code_print_head in '..\代码字典\u_code_print_head.pas' {frm_code_print_head},
|
|
u_rp_zj_zou in '..\业务统计\u_rp_zj_zou.pas' {frm_rp_zj_zou},
|
|
u_code_signbill in '..\代码字典\u_code_signbill.pas' {frm_code_signbill},
|
|
u_sys_progress in '..\公用模块\系统模块\u_sys_progress.pas' {frm_sys_progress},
|
|
u_op_aire in '..\空运业务\u_op_aire.pas' {frm_op_aire},
|
|
u_op_aire_add in '..\空运业务\u_op_aire_add.pas' {frm_op_aire_add},
|
|
u_ch_fee_aire_sales in '..\费用模块\u_ch_fee_aire_sales.pas' {frm_ch_fee_aire_sales},
|
|
u_ch_fee_check_aire in '..\费用模块\u_ch_fee_check_aire.pas' {frm_ch_fee_check_aire},
|
|
u_op_aire_close in '..\空运业务\u_op_aire_close.pas' {frm_op_aire_close},
|
|
u_op_aire_query in '..\空运业务\u_op_aire_query.pas' {frm_op_aire_query},
|
|
u_op_airtruck in '..\监管车业务\u_op_airtruck.pas' {frm_op_airtruck},
|
|
u_op_airtruck_add in '..\监管车业务\u_op_airtruck_add.pas' {frm_op_airtruck_add},
|
|
u_ch_fee_airi_sales in '..\费用模块\u_ch_fee_airi_sales.pas' {frm_ch_fee_airi_sales},
|
|
u_op_airtruck_close in '..\监管车业务\u_op_airtruck_close.pas' {frm_op_airtruck_close},
|
|
u_op_airtruck_query in '..\监管车业务\u_op_airtruck_query.pas' {frm_op_airtruck_query},
|
|
u_sys_close in '..\公用模块\系统模块\u_sys_close.pas' {frm_sys_close},
|
|
u_rp_tai_aire in '..\业务统计\u_rp_tai_aire.pas' {frm_rp_tai_aire},
|
|
u_rp_tai_airi in '..\业务统计\u_rp_tai_airi.pas' {frm_rp_tai_airi},
|
|
u_code_price in '..\代码字典\u_code_price.pas' {frm_code_price},
|
|
u_crm_client_sales in '..\信息资源\u_crm_client_sales.pas' {frm_crm_client_sales},
|
|
u_crm_client_query in '..\信息资源\u_crm_client_query.pas' {frm_crm_client_query},
|
|
u_crm_client_check in '..\信息资源\u_crm_client_check.pas' {frm_crm_client_check},
|
|
u_crm_client_report in '..\信息资源\u_crm_client_report.pas' {frm_crm_client_report},
|
|
u_crm_client_contract in '..\信息资源\u_crm_client_contract.pas' {frm_crm_client_contract},
|
|
u_sys_parameters in '..\公用模块\系统模块\u_sys_parameters.pas' {frm_sys_parameters},
|
|
u_sys_limited_group in '..\公用模块\系统模块\u_sys_limited_group.pas' {frm_sys_limited_group},
|
|
u_rp_no_aire in '..\业务统计\u_rp_no_aire.pas' {frm_rp_no_aire},
|
|
u_rp_no_airtruck in '..\业务统计\u_rp_no_airtruck.pas' {frm_rp_no_airtruck},
|
|
u_rp_zl_aire in '..\业务统计\u_rp_zl_aire.pas' {frm_rp_zl_aire},
|
|
u_rp_zl_airi in '..\业务统计\u_rp_zl_airi.pas' {frm_rp_zl_airi},
|
|
u_rp_zl_total in '..\业务统计\u_rp_zl_total.pas' {frm_rp_zl_total},
|
|
u_rp_in_aire in '..\业务统计\u_rp_in_aire.pas' {frm_rp_in_aire},
|
|
u_rp_in_airi in '..\业务统计\u_rp_in_airi.pas' {frm_rp_in_airi},
|
|
u_rp_in_total in '..\业务统计\u_rp_in_total.pas' {frm_rp_in_total},
|
|
u_rp_zj_aire in '..\业务统计\u_rp_zj_aire.pas' {frm_rp_zj_aire},
|
|
u_rp_zj_airi in '..\业务统计\u_rp_zj_airi.pas' {frm_rp_zj_airi},
|
|
u_rp_zj_total in '..\业务统计\u_rp_zj_total.pas' {frm_rp_zj_total},
|
|
u_rp_rp_aire in '..\业务统计\u_rp_rp_aire.pas' {frm_rp_rp_aire},
|
|
u_rp_rp_airi in '..\业务统计\u_rp_rp_airi.pas' {frm_rp_rp_airi},
|
|
u_rp_rp_monthtotal in '..\业务统计\u_rp_rp_monthtotal.pas' {frm_rp_rp_monthtotal},
|
|
u_rp_zou_aire in '..\业务统计\u_rp_zou_aire.pas' {frm_rp_zou_aire},
|
|
u_rp_zou_airi in '..\业务统计\u_rp_zou_airi.pas' {frm_rp_zou_airi},
|
|
u_rp_zou_total in '..\业务统计\u_rp_zou_total.pas' {frm_rp_zou_total},
|
|
u_rp_fen_aire in '..\业务统计\u_rp_fen_aire.pas' {frm_rp_fen_aire},
|
|
u_rp_fen_airi in '..\业务统计\u_rp_fen_airi.pas' {frm_rp_fen_airi},
|
|
u_rp_fen_total in '..\业务统计\u_rp_fen_total.pas' {frm_rp_fen_total},
|
|
u_rp_noself in '..\业务统计\u_rp_noself.pas' {frm_rp_noself},
|
|
u_sys_computer in '..\公用模块\系统模块\u_sys_computer.pas' {frm_sys_computer},
|
|
u_sys_bios in '..\公用模块\系统模块\u_sys_bios.pas',
|
|
u_sys_cupspeed in '..\公用模块\系统模块\u_sys_cupspeed.pas',
|
|
u_sys_sysinfo in '..\公用模块\系统模块\u_sys_sysinfo.pas',
|
|
u_sys_leave in '..\公用模块\系统模块\u_sys_leave.pas' {frm_sys_leave},
|
|
u_info_leaveword in '..\信息资源\u_info_leaveword.pas' {frm_info_leaveword},
|
|
u_info_leaveword_manage in '..\信息资源\u_info_leaveword_manage.pas' {frm_info_leaveword_manage},
|
|
u_info_leaveword_query in '..\信息资源\u_info_leaveword_query.pas' {frm_info_leaveword_query},
|
|
u_info_price_query in '..\信息资源\u_info_price_query.pas' {frm_info_price_query},
|
|
u_info_price_agreement in '..\信息资源\u_info_price_agreement.pas' {frm_info_price_agreement},
|
|
u_info_price_agreement_query in '..\信息资源\u_info_price_agreement_query.pas' {frm_info_price_agreement_query},
|
|
u_info_price_agreeview in '..\信息资源\u_info_price_agreeview.pas' {frm_info_price_agreeview},
|
|
u_code_client_parameter in '..\代码字典\u_code_client_parameter.pas' {frm_code_client_parameter},
|
|
u_crm_client_pet in '..\信息资源\u_crm_client_pet.pas' {frm_crm_client_pet},
|
|
u_code_contract in '..\代码字典\u_code_contract.pas' {frm_code_contract},
|
|
u_code_price_ctn in '..\代码字典\u_code_price_ctn.pas' {frm_code_price_ctn},
|
|
u_info_plan_brother in '..\信息资源\u_info_plan_brother.pas' {frm_info_price_brother},
|
|
u_info_price_brother_query in '..\信息资源\u_info_price_brother_query.pas' {frm_info_price_brother_query},
|
|
u_info_price_ask in '..\信息资源\u_info_price_ask.pas' {frm_info_price_ask},
|
|
u_sys_data_price in '..\公用模块\系统模块\u_sys_data_price.pas' {fra_sys_data_price: TFrame},
|
|
u_info_price_ask_query in '..\信息资源\u_info_price_ask_query.pas' {frm_info_price_ask_query},
|
|
u_info_price_release in '..\信息资源\u_info_price_release.pas' {frm_info_price_release},
|
|
u_info_price_release_query in '..\信息资源\u_info_price_release_query.pas' {frm_info_price_release_query},
|
|
u_info_price_other in '..\信息资源\u_info_price_other.pas' {frm_info_price_other},
|
|
u_crm_client_ship in '..\信息资源\u_crm_client_ship.pas' {frm_crm_client_ship},
|
|
u_crm_client_brother in '..\信息资源\u_crm_client_brother.pas' {frm_crm_client_brother},
|
|
u_rp_no_zou in '..\业务统计\u_rp_no_zou.pas' {frm_rp_no_zou},
|
|
u_op_aire_assistant in '..\空运业务\u_op_aire_assistant.pas' {frm_op_aire_assistant},
|
|
u_op_seae_edi_ym in '..\海运业务\u_op_seae_edi_ym.pas' {frm_op_seae_edi_ym},
|
|
u_sys_report_manage in '..\公用模块\系统模块\u_sys_report_manage.pas' {frm_sys_report_manage},
|
|
u_code_fee_project in '..\代码字典\u_code_fee_project.pas' {frm_code_fee_project},
|
|
u_code_fee_cargomainfest_add in '..\代码字典\u_code_fee_cargomainfest_add.pas' {frm_code_fee_cargomainfest_add},
|
|
u_sys_relogin in '..\公用模块\系统模块\u_sys_relogin.pas' {frm_sys_relogin},
|
|
u_op_seae_vessel in '..\海运业务\u_op_seae_vessel.pas' {frm_op_seae_vessel},
|
|
u_op_seae_vessel_change in '..\海运业务\u_op_seae_vessel_change.pas' {frm_op_seae_vessel_change},
|
|
u_code_truck_client in '..\代码字典\u_code_truck_client.pas' {frm_code_truck_client},
|
|
u_code_truck_changzhan in '..\代码字典\u_code_truck_changzhan.pas' {frm_code_truck_changzhan},
|
|
u_code_send_head in '..\代码字典\u_code_send_head.pas' {frm_code_send_head},
|
|
u_ch_invoice_query in '..\财务管理\u_ch_invoice_query.pas' {frm_ch_invoice_query},
|
|
u_op_card in '..\海运业务\u_op_card.pas' {fra_op_card: TFrame},
|
|
u_code_card in '..\代码字典\u_code_card.pas' {frm_code_card},
|
|
u_op_card_add in '..\海运业务\u_op_card_add.pas' {frm_op_card_add},
|
|
u_sys_grid in '..\公用模块\系统模块\u_sys_grid.pas' {frm_sys_grid},
|
|
u_sys_ask in '..\公用模块\系统模块\u_sys_ask.pas' {frm_sys_ask},
|
|
u_fee_history in '..\费用模块\u_fee_history.pas' {frm_fee_history},
|
|
u_rp_tai_seae_pin in '..\业务统计\u_rp_tai_seae_pin.pas' {frm_rp_tai_seae_pin},
|
|
u_rp_dui_freeformatrpt in '..\业务统计\u_rp_dui_freeformatrpt.pas' {frm_rp_dui_freeformatrpt},
|
|
u_rp_dui_seae_pay in '..\业务统计\u_rp_dui_seae_pay.pas' {frm_rp_dui_seae_pay},
|
|
u_rp_dui_seai_accept in '..\业务统计\u_rp_dui_seai_accept.pas' {frm_rp_dui_seai_accept},
|
|
u_rp_dui_seai_pay in '..\业务统计\u_rp_dui_seai_pay.pas' {frm_rp_dui_seai_pay},
|
|
u_rp_dui_aire_accept in '..\业务统计\u_rp_dui_aire_accept.pas' {frm_rp_dui_aire_accept},
|
|
u_rp_dui_aire_pay in '..\业务统计\u_rp_dui_aire_pay.pas' {frm_rp_dui_aire_pay},
|
|
u_rp_dui_airi_accept in '..\业务统计\u_rp_dui_airi_accept.pas' {frm_rp_dui_airi_accept},
|
|
u_rp_dui_airi_pay in '..\业务统计\u_rp_dui_airi_pay.pas' {frm_rp_dui_airi_pay},
|
|
u_rp_dui_query in '..\业务统计\u_rp_dui_query.pas' {frm_rp_dui_query},
|
|
u_op_seae_fenzhang in '..\海运业务\u_op_seae_fenzhang.pas' {frm_op_seae_fenzhang},
|
|
u_ch_fee_balance_view in '..\费用模块\u_ch_fee_balance_view.pas' {frm_ch_fee_balance_view},
|
|
u_ch_fee_dui_view in '..\费用模块\u_ch_fee_dui_view.pas' {frm_ch_fee_dui_view},
|
|
u_ch_fee_invoice_view in '..\费用模块\u_ch_fee_invoice_view.pas' {frm_ch_fee_invoice_view},
|
|
u_ch_fee_check_view in '..\费用模块\u_ch_fee_check_view.pas' {frm_ch_fee_check_view},
|
|
u_ch_fee_modify_view in '..\费用模块\u_ch_fee_modify_view.pas' {frm_ch_fee_modify_view},
|
|
u_info_price_person in '..\信息资源\u_info_price_person.pas' {frm_info_price_person},
|
|
u_info_price_person_query in '..\信息资源\u_info_price_person_query.pas' {frm_info_price_person_query},
|
|
u_info_price_person_view in '..\信息资源\u_info_price_person_view.pas' {frm_info_price_person_view},
|
|
u_sys_dep_emp_delete in '..\公用模块\企业资源\u_sys_dep_emp_delete.pas' {frm_sys_dep_emp_delete},
|
|
u_sys_dep_emp_department in '..\公用模块\企业资源\u_sys_dep_emp_department.pas' {frm_sys_dep_emp_department},
|
|
u_op_seae_fenzhang_his in '..\海运业务\u_op_seae_fenzhang_his.pas' {frm_op_seae_fenzhang_his},
|
|
u_fee_do_name in '..\费用模块\u_fee_do_name.pas' {frm_fee_do_name},
|
|
u_op_state_add in '..\公用模块\业务系统\u_op_state_add.pas' {frm_op_state_add},
|
|
u_fee_list in '..\费用模块\u_fee_list.pas' {frm_fee_list},
|
|
u_op_seae_double in '..\海运业务\u_op_seae_double.pas' {frm_op_seae_double},
|
|
u_op_seai_double in '..\海运业务\u_op_seai_double.pas' {frm_op_seai_double},
|
|
u_op_letter_his in '..\海运业务\u_op_letter_his.pas' {frm_op_letter_his},
|
|
u_crm_client_view in '..\信息资源\u_crm_client_view.pas' {frm_crm_client_view},
|
|
u_code_fee_color in '..\代码字典\u_code_fee_color.pas' {frm_code_fee_color},
|
|
u_ch_piliang_seae in '..\费用模块\u_ch_piliang_seae.pas' {frm_ch_piliang_seae},
|
|
u_ch_piliang_seai in '..\费用模块\u_ch_piliang_seai.pas' {frm_ch_piliang_seai},
|
|
u_ch_piliang_aire in '..\费用模块\u_ch_piliang_aire.pas' {frm_ch_piliang_aire},
|
|
u_ch_piliang_airi in '..\费用模块\u_ch_piliang_airi.pas' {frm_ch_piliang_airi},
|
|
u_code_opresult in '..\代码字典\u_code_opresult.pas' {frm_code_opresult},
|
|
u_op_seae_huanhuo_do in '..\海运业务\u_op_seae_huanhuo_do.pas' {frm_op_seae_huanhuo_do},
|
|
u_op_seae_huanhuo in '..\海运业务\u_op_seae_huanhuo.pas' {frm_op_seae_huanhuo},
|
|
u_rp_seae_query in '..\业务统计\u_rp_seae_query.pas' {frm_rp_seae_query},
|
|
u_rp_seai_query in '..\业务统计\u_rp_seai_query.pas' {frm_rp_seai_query},
|
|
u_rp_aire_query in '..\业务统计\u_rp_aire_query.pas' {frm_rp_aire_query},
|
|
u_rp_airtruck_query in '..\监管车业务\u_rp_airtruck_query.pas' {frm_rp_airtruck_query},
|
|
u_op_letter_free in '..\公用模块\业务系统\u_op_letter_free.pas' {fra_op_letter_free: TFrame},
|
|
u_code_letter in '..\代码字典\u_code_letter.pas' {frm_code_letter},
|
|
u_op_letter_free_his in '..\公用模块\业务系统\u_op_letter_free_his.pas' {frm_op_letter_free_his},
|
|
u_code_fee_type in '..\代码字典\u_code_fee_type.pas' {frm_code_fee_type},
|
|
u_code_port_air in '..\代码字典\u_code_port_air.pas' {frm_code_port_air},
|
|
u_sys_print_down in '..\公用模块\系统模块\u_sys_print_down.pas' {frm_sys_print_down},
|
|
u_info_card in '..\信息资源\u_info_card.pas' {frm_info_card},
|
|
u_info_card_query in '..\信息资源\u_info_card_query.pas' {frm_info_card_query},
|
|
u_rp_fenzhang in '..\业务统计\u_rp_fenzhang.pas' {frm_rp_fenzhang},
|
|
u_rp_fen_seae_ctn in '..\业务统计\u_rp_fen_seae_ctn.pas' {frm_rp_fen_seae_ctn},
|
|
u_op_seae_tuishui in '..\海运业务\u_op_seae_tuishui.pas' {frm_op_seae_tuishui},
|
|
u_op_seae_qiandan_add in '..\海运业务\u_op_seae_qiandan_add.pas' {frm_op_seae_qiandan_add},
|
|
u_op_truck in '..\公用模块\业务系统\u_op_truck.pas' {frm_op_truck},
|
|
u_op_kuaidi_shen in '..\公用模块\业务系统\u_op_kuaidi_shen.pas' {frm_op_kuaidi_shen},
|
|
u_op_kuaidi_check in '..\公用模块\业务系统\u_op_kuaidi_check.pas' {frm_op_kuaidi_check},
|
|
u_op_seae_letter in '..\海运业务\u_op_seae_letter.pas' {frm_op_seae_letter},
|
|
u_op_kuaidi_query in '..\公用模块\业务系统\u_op_kuaidi_query.pas' {frm_op_kuaidi_query},
|
|
u_code_send_address in '..\代码字典\u_code_send_address.pas' {frm_code_send_address},
|
|
u_op_kuaidi_shen_do in '..\公用模块\业务系统\u_op_kuaidi_shen_do.pas' {frm_op_kuaidi_shen_do},
|
|
u_code_empty in '..\代码字典\u_code_empty.pas' {frm_code_empty},
|
|
u_info_yijian in '..\信息资源\u_info_yijian.pas' {frm_info_yijian},
|
|
u_info_yijian_manage in '..\信息资源\u_info_yijian_manage.pas' {frm_info_yijian_manage},
|
|
u_info_kaoqin_shouquan in '..\信息资源\u_info_kaoqin_shouquan.pas' {frm_info_kaoqin_shouquan},
|
|
u_info_kaoqin_report in '..\信息资源\u_info_kaoqin_report.pas' {frm_info_kaoqin_report},
|
|
u_crm_client_check_do in '..\信息资源\u_crm_client_check_do.pas' {frm_crm_client_check_do},
|
|
my_sys_chat in '..\公用模块\系统模块\my_sys_chat.pas',
|
|
u_code_ctn_para in '..\代码字典\u_code_ctn_para.pas' {frm_code_ctn_para},
|
|
u_info_law in '..\信息资源\u_info_law.pas' {frm_info_law},
|
|
u_rp_rp_seae_pin in '..\业务统计\u_rp_rp_seae_pin.pas' {frm_rp_rp_seae_pin},
|
|
u_ch_balance_accept_deng in '..\财务管理\u_ch_balance_accept_deng.pas' {frm_ch_balance_accept_deng},
|
|
u_ch_balance_accept_hexiao in '..\财务管理\u_ch_balance_accept_hexiao.pas' {frm_ch_balance_accept_hexiao},
|
|
u_ch_balance_accept_check in '..\财务管理\u_ch_balance_accept_check.pas' {frm_ch_balance_accept_check},
|
|
u_op_date_change in '..\海运业务\u_op_date_change.pas' {frm_op_date_change},
|
|
u_ch_invoice_do in '..\财务管理\u_ch_invoice_do.pas' {frm_ch_invoice_do},
|
|
u_sys_message_tell in '..\公用模块\系统模块\u_sys_message_tell.pas' {frm_sys_message_tell},
|
|
u_sys_message_pri in '..\公用模块\系统模块\u_sys_message_pri.pas' {frm_sys_message_pri},
|
|
u_op_seae_print_mul in '..\海运业务\u_op_seae_print_mul.pas' {frm_op_seae_print_mul},
|
|
u_op_seae_unlock in '..\海运业务\u_op_seae_unlock.pas' {frm_op_seae_unlock},
|
|
u_op_seae_state_up in '..\海运业务\u_op_seae_state_up.pas' {frm_op_seae_state_up},
|
|
u_code_edi_port in '..\代码字典\u_code_edi_port.pas' {frm_code_edi_port},
|
|
u_code_port_modify in '..\代码字典\u_code_port_modify.pas' {frm_code_port_modify},
|
|
u_code_fee_project_copy in '..\代码字典\u_code_fee_project_copy.pas' {frm_code_fee_project_copy},
|
|
u_ch_fee_truck in '..\费用模块\u_ch_fee_truck.pas' {frm_ch_fee_truck},
|
|
u_rp_truck_du in '..\业务统计\u_rp_truck_du.pas' {frm_rp_truck_du},
|
|
u_sys_grid_sort in '..\公用模块\业务系统\u_sys_grid_sort.pas' {frm_sys_grid_sort},
|
|
u_crm_client_special in '..\信息资源\u_crm_client_special.pas' {frm_crm_client_special},
|
|
u_cw_design in '..\财务管理\u_cw_design.pas' {frm_cw_design},
|
|
u_op_kuaidi_manage in '..\公用模块\业务系统\u_op_kuaidi_manage.pas' {frm_op_kuaidi_manage},
|
|
u_op_kuaidi_manage_modify in '..\公用模块\业务系统\u_op_kuaidi_manage_modify.pas' {frm_op_kuaidi_manage_modify},
|
|
u_cw_kemu in '..\财务管理\u_cw_kemu.pas' {frm_cw_kemu},
|
|
u_cw_pingzheng in '..\财务管理\u_cw_pingzheng.pas' {frm_cw_pingzheng},
|
|
u_cw_load in '..\财务管理\u_cw_load.pas' {frm_cw_load},
|
|
u_cw_duibi in '..\财务管理\u_cw_duibi.pas' {frm_cw_duibi},
|
|
u_op_fee in '..\公用模块\业务系统\u_op_fee.pas' {frm_op_fee},
|
|
u_ch_fee_view in '..\费用模块\u_ch_fee_view.pas' {frm_ch_fee_view},
|
|
u_fee_do_fen in '..\费用模块\u_fee_do_fen.pas' {frm_fee_do_fen},
|
|
u_sys_update in '..\公用模块\系统模块\u_sys_update.pas' {frm_sys_update},
|
|
u_code_tiaokuan in '..\代码字典\u_code_tiaokuan.pas' {frm_code_tiaokuan},
|
|
u_op_delete in '..\业务模块\u_op_delete.pas' {frm_op_delete},
|
|
u_op_delete_insert in '..\业务模块\u_op_delete_insert.pas' {frm_op_delete_insert},
|
|
u_op_aire_double in '..\空运业务\u_op_aire_double.pas' {frm_op_aire_double},
|
|
u_op_airi_double in '..\空运业务\u_op_airi_double.pas' {frm_op_airi_double},
|
|
u_op_seae_apply in '..\海运业务\u_op_seae_apply.pas' {frm_op_seae_apply},
|
|
u_op_seai_apply in '..\海运业务\u_op_seai_apply.pas' {frm_op_seai_apply},
|
|
u_rp_ch_balance_accept in '..\业务统计\u_rp_ch_balance_accept.pas' {frm_rp_ch_balance_accept},
|
|
u_rp_ch_balance_pay in '..\业务统计\u_rp_ch_balance_pay.pas' {frm_rp_ch_balance_pay},
|
|
u_rp_dui_accept in '..\业务统计\u_rp_dui_accept.pas' {frm_rp_dui_accept},
|
|
u_rp_dui_pay in '..\业务统计\u_rp_dui_pay.pas' {frm_rp_dui_pay},
|
|
u_rp_ch_balance_rate in '..\业务统计\u_rp_ch_balance_rate.pas' {frm_rp_ch_balance_rate},
|
|
u_rp_ch_balance_view in '..\业务统计\u_rp_ch_balance_view.pas' {frm_rp_ch_balance_view},
|
|
u_rp_rp_sea_daili in '..\业务统计\u_rp_rp_sea_daili.pas' {frm_rp_rp_sea_daili},
|
|
u_op_seae_apply_add in '..\海运业务\u_op_seae_apply_add.pas' {frm_op_seae_apply_add},
|
|
u_op_seai_apply_add in '..\海运业务\u_op_seai_apply_add.pas' {frm_op_seai_apply_add},
|
|
u_code_shiyan in '..\代码字典\u_code_shiyan.pas' {frm_code_shiyan},
|
|
u_op_add_code in '..\海运业务\u_op_add_code.pas' {frm_op_add_code},
|
|
u_info_custom in '..\信息资源\u_info_custom.pas' {frm_info_custom},
|
|
u_ch_balance_truck_accept in '..\财务管理\u_ch_balance_truck_accept.pas' {frm_ch_balance_truck_accept},
|
|
u_ch_balance_truck_pay in '..\财务管理\u_ch_balance_truck_pay.pas' {frm_ch_balance_truck_pay},
|
|
u_rp_ch_currency_change in '..\业务统计\u_rp_ch_currency_change.pas' {frm_rp_ch_currency_change},
|
|
u_rp_ch_fee_state in '..\业务统计\u_rp_ch_fee_state.pas' {frm_rp_ch_fee_state},
|
|
u_rp_in_fenlei in '..\业务统计\u_rp_in_fenlei.pas' {frm_rp_in_fenlei},
|
|
u_ch_fee_modify_check in '..\费用模块\u_ch_fee_modify_check.pas' {frm_ch_fee_modify_check},
|
|
u_cw_date in '..\财务管理\u_cw_date.pas' {frm_cw_date},
|
|
u_op_seae_edi_cma in '..\海运业务\u_op_seae_edi_cma.pas' {frm_op_seae_edi_cma},
|
|
u_code_package_edi in '..\代码字典\u_code_package_edi.pas' {frm_code_package_edi},
|
|
u_code_shiper_edi in '..\代码字典\u_code_shiper_edi.pas' {frm_code_shiper_edi},
|
|
u_rp_no_truck in '..\业务统计\u_rp_no_truck.pas' {frm_rp_no_truck},
|
|
u_info_plan_add in '..\信息资源\u_info_plan_add.pas' {frm_info_plan_add},
|
|
u_info_render_check in '..\信息资源\u_info_render_check.pas' {frm_info_render_check},
|
|
u_rp_ch_clienttotal in '..\业务统计\u_rp_ch_clienttotal.pas' {frm_rp_ch_clienttotal},
|
|
u_rp_total_query in '..\业务统计\u_rp_total_query.pas' {frm_rp_total_query},
|
|
dmAccu in '..\凭证\dmAccu.pas' {dmAcc: TDataModule},
|
|
VouItemStlu in '..\凭证\VouItemStlu.pas' {FrmVouItemStl},
|
|
u_code_source in '..\代码字典\u_code_source.pas' {frm_code_source},
|
|
u_code_subcomp in '..\代码字典\u_code_subcomp.pas' {frm_code_subcomp},
|
|
u_code_zlset in '..\代码字典\u_code_zlset.pas' {frm_code_zlset},
|
|
u_rp_tell in '..\业务统计\u_rp_tell.pas' {frm_rp_tell},
|
|
u_rp_zou_seae in '..\业务统计\u_rp_zou_seae.pas' {frm_rp_zou_seae},
|
|
u_rp_fen_seae in '..\业务统计\u_rp_fen_seae.pas' {frm_rp_fen_seae},
|
|
u_op_seae_edi_bb in '..\海运业务\u_op_seae_edi_bb.pas' {frm_op_seae_edi_bb},
|
|
u_op_seae_card in '..\海运业务\u_op_seae_card.pas' {frm_op_seae_card},
|
|
u_code_customstatu in '..\代码字典\u_code_customstatu.pas' {frm_code_customstatu},
|
|
u_op_seae_word in '..\海运业务\u_op_seae_word.pas' {frm_op_seae_word},
|
|
u_code_line_edi in '..\代码字典\u_code_line_edi.pas' {frm_code_line_edi},
|
|
u_op_add_ctn in '..\海运业务\u_op_add_ctn.pas' {frm_op_add_ctn},
|
|
u_op_seae_assistant in '..\海运业务\u_op_seae_assistant.pas' {frm_op_seae_assistant},
|
|
u_ch_accept_do in '..\财务管理\u_ch_accept_do.pas' {frm_ch_accept_do},
|
|
u_ch_accept_shen in '..\财务管理\u_ch_accept_shen.pas' {frm_ch_accept_shen},
|
|
u_rp_dui_format in '..\业务统计\u_rp_dui_format.pas' {frm_rp_dui_format},
|
|
u_rp_dui_seae_accept in '..\业务统计\u_rp_dui_seae_accept.pas' {frm_rp_dui_seae_accept},
|
|
u_rp_chfree_total in '..\业务统计\u_rp_chfree_total.pas' {frm_rp_chfree_total},
|
|
u_rp_rp_total in '..\业务统计\u_rp_rp_total.pas' {frm_rp_rp_total},
|
|
u_ch_invoice_addone in '..\财务管理\u_ch_invoice_addone.pas' {frmch_invoice_addone},
|
|
u_op_seae_qiandan in '..\海运业务\u_op_seae_qiandan.pas' {frm_op_seae_qiandan},
|
|
u_op_add_aire in '..\空运业务\u_op_add_aire.pas' {frm_op_add_aire},
|
|
u_code_fee_project_cargomainfest in '..\代码字典\u_code_fee_project_cargomainfest.pas' {frm_project_fee_cargomainfest},
|
|
u_code_fee_project_add in '..\代码字典\u_code_fee_project_add.pas' {frm_code_fee_project_add},
|
|
u_op_seae_weituo in '..\海运业务\u_op_seae_weituo.pas' {frm_op_seae_weituo},
|
|
u_sys_sale_profitset in '..\公用模块\系统模块\u_sys_sale_profitset.pas' {frm_sys_sale_profitset},
|
|
u_rp_sales_profit in '..\业务统计\u_rp_sales_profit.pas' {frm_rp_sales_profit},
|
|
u_op_airi in '..\空运业务\u_op_airi.pas' {frm_op_airi},
|
|
u_op_airi_add in '..\空运业务\u_op_airi_add.pas' {frm_op_airi_add},
|
|
u_op_airi_query in '..\空运业务\u_op_airi_query.pas' {frm_op_airi_query},
|
|
u_ch_fee_check_airi in '..\费用模块\u_ch_fee_check_airi.pas' {frm_ch_fee_check_airi},
|
|
u_op_airi_close in '..\空运业务\u_op_airi_close.pas' {frm_op_airi_close},
|
|
u_ch_fee_check_airtruck in '..\费用模块\u_ch_fee_check_airtruck.pas' {frm_ch_fee_check_airtruck},
|
|
u_rp_airi_query in '..\业务统计\u_rp_airi_query.pas' {frm_rp_airi_query},
|
|
u_rp_no_airi in '..\业务统计\u_rp_no_airi.pas' {frm_rp_no_airi},
|
|
u_ch_prnFee_query in '..\财务管理\u_ch_prnFee_query.pas' {frm_ch_prnfee_query},
|
|
U_ch_prnFee in '..\财务管理\U_ch_prnFee.pas' {frm_cw_prnFee},
|
|
u_op_seae_edi_yh in '..\海运业务\u_op_seae_edi_yh.pas' {frm_op_seae_edi_yh},
|
|
u_op_seae_edi_nor in '..\海运业务\u_op_seae_edi_nor.pas' {frm_op_seae_edi_nor},
|
|
u_rp_sales_profitLcx in '..\业务统计\u_rp_sales_profitLcx.pas' {frm_rp_sales_profitLcx},
|
|
u_ch_piliang_prnfee in '..\财务管理\u_ch_piliang_prnfee.pas' {frm_ch_piliang_prnfee},
|
|
u_rp_ch_total in '..\业务统计\u_rp_ch_total.pas' {frm_rp_ch_total},
|
|
u_rp_dui_formatrpt in '..\业务统计\u_rp_dui_formatrpt.pas' {frm_rp_dui_formatrpt},
|
|
SmpExprCalc in '..\业务统计\SmpExprCalc.pas' {SmpExprCalc},
|
|
u_info_shareDoc in '..\信息资源\u_info_shareDoc.pas' {frm_info_shareDoc},
|
|
u_op_chkpart in '..\公用模块\业务系统\u_op_chkpart.pas' {frm_op_chkpart},
|
|
u_fee_Recheck in '..\费用模块\u_fee_Recheck.pas' {fra_fee_Recheck: TFrame},
|
|
u_lcxunit in '..\公用模块\系统模块\u_lcxunit.pas',
|
|
u_ch_fee_Recheck_seae in '..\费用模块\u_ch_fee_Recheck_seae.pas' {frm_ch_fee_Recheck_seae},
|
|
u_ch_fee_check_seai in '..\费用模块\u_ch_fee_check_seai.pas' {frm_ch_fee_check_seai},
|
|
u_ch_fee_Recheck_aire in '..\费用模块\u_ch_fee_Recheck_aire.pas' {frm_ch_fee_Recheck_aire},
|
|
u_ch_fee_Recheck_airi in '..\费用模块\u_ch_fee_Recheck_airi.pas' {frm_ch_fee_Recheck_airi},
|
|
U_rp_fee_outamt in '..\业务统计\U_rp_fee_outamt.pas' {frm_rp_ch_OutAmt},
|
|
u_Pcd_mx in '..\公用模块\业务系统\u_Pcd_mx.pas' {frm_Pcd_mx},
|
|
U_sys_crm_params in '..\公用模块\系统模块\U_sys_crm_params.pas' {frm_sys_crm_params},
|
|
u_rp_crm_credit in '..\业务统计\u_rp_crm_credit.pas' {frm_crm_credit},
|
|
u_special_price_qus in '..\信息资源\u_special_price_qus.pas' {frm_special_price_qus},
|
|
u_rp_apply_no in '..\业务统计\u_rp_apply_no.pas' {frm_rp_apply_no},
|
|
u_rp_truck_no in '..\业务统计\u_rp_truck_no.pas' {frm_rp_truck_no},
|
|
u_special_query in '..\信息资源\u_special_query.pas' {frm_special_query},
|
|
u_info_bunk in '..\信息资源\u_info_bunk.pas' {frm_info_bunk},
|
|
u_code_UsdExRate in '..\代码字典\u_code_UsdExRate.pas' {frm_code_UsdExRate},
|
|
u_code_fee_project_agent in '..\代码字典\u_code_fee_project_agent.pas' {frm_project_fee_agent},
|
|
u_code_fee_projectagent_add in '..\代码字典\u_code_fee_projectagent_add.pas' {frm_code_fee_projectagent_add},
|
|
u_rp_ch_out_query in '..\业务统计\u_rp_ch_out_query.pas' {frm_rp_ch_Out_query},
|
|
u_sys_tab_sort in '..\公用模块\系统模块\u_sys_tab_sort.pas' {frm_sys_tab_sort},
|
|
u_sys_frprint in '..\公用模块\系统模块\u_sys_frprint.pas' {frm_sys_frprint};
|
|
|
|
var
|
|
MutexHandle: THandle;
|
|
begin
|
|
MutexHandle := CreateMutex(nil, TRUE, '东胜物流信息管理系统');
|
|
if MutexHandle <> 0 then
|
|
begin
|
|
if GetLastError = ERROR_ALREADY_EXISTS then
|
|
begin
|
|
MessageBox(0, '程序已经运行...','警告：', mb_IconHand);
|
|
CloseHandle(MutexHandle);
|
|
Halt;
|
|
end;
|
|
end;
|
|
Application.Initialize;
|
|
Application.Title := '东胜物流信息管理系统';
|
|
Application.CreateForm(Tfrm_main, frm_main);
|
|
Application.CreateForm(Tfrm_data_share, frm_data_share);
|
|
Application.CreateForm(Tfrm_sys_tab_sort, frm_sys_tab_sort);
|
|
Application.CreateForm(Tfrm_sys_frprint, frm_sys_frprint);
|
|
Application.Run;
|
|
|
|
end.
|