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 'master'
${ noResults }
D6HECHUAN/公用模块/系统模块/u_open_info.~pas

752 lines
25 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_open_info;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, DB, ADODB,DateUtils;
type
Tfrm_open_info = class(TForm)
bsSkinPanel1: TbsSkinPanel;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinButton1: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton13: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinGroupBox2: TbsSkinGroupBox;
bsSkinButton16: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton17: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton15: TbsSkinButton;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton28: TbsSkinButton;
bsSkinGroupBox3: TbsSkinGroupBox;
bsSkinButton6: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinButton18: TbsSkinButton;
bsSkinButton19: TbsSkinButton;
bsSkinButton20: TbsSkinButton;
bsSkinGroupBox4: TbsSkinGroupBox;
bsSkinButton23: TbsSkinButton;
bsSkinButton24: TbsSkinButton;
bsSkinButton25: TbsSkinButton;
bsSkinButton30: TbsSkinButton;
bsSkinGroupBox5: TbsSkinGroupBox;
bsSkinButton21: TbsSkinButton;
bsSkinButton22: TbsSkinButton;
bsSkinButton26: TbsSkinButton;
bsSkinButton27: TbsSkinButton;
bsSkinButton29: TbsSkinButton;
bsSkinButton31: TbsSkinButton;
bsSkinButton32: TbsSkinButton;
p_kaoqin: TADOStoredProc;
bsSkinButton33: TbsSkinButton;
bsSkinButton34: TbsSkinButton;
bsSkinButton35: TbsSkinButton;
bsSkinButton36: TbsSkinButton;
bsSkinButton37: TbsSkinButton;
bsSkinButton38: TbsSkinButton;
bsSkinButton39: TbsSkinButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton17Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure bsSkinButton28Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton18Click(Sender: TObject);
procedure bsSkinButton20Click(Sender: TObject);
procedure bsSkinButton19Click(Sender: TObject);
procedure bsSkinPanel1Resize(Sender: TObject);
procedure bsSkinButton30Click(Sender: TObject);
procedure bsSkinButton31Click(Sender: TObject);
procedure bsSkinButton23Click(Sender: TObject);
procedure bsSkinButton24Click(Sender: TObject);
procedure bsSkinButton25Click(Sender: TObject);
procedure bsSkinButton27Click(Sender: TObject);
procedure bsSkinButton32Click(Sender: TObject);
procedure bsSkinButton29Click(Sender: TObject);
procedure bsSkinButton33Click(Sender: TObject);
procedure bsSkinButton34Click(Sender: TObject);
procedure bsSkinButton35Click(Sender: TObject);
procedure bsSkinButton36Click(Sender: TObject);
procedure bsSkinButton37Click(Sender: TObject);
procedure bsSkinButton38Click(Sender: TObject);
procedure bsSkinButton39Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_open_info: Tfrm_open_info;
implementation
uses u_main, u_crm_client, u_info_price_manage, u_crm_client_sales,
u_crm_client_check, u_crm_client_report, u_crm_client_contract,
u_info_price_agreement, u_crm_client_pet, u_info_plan_brother,
u_info_price_ask, u_info_price_release, u_info_price_other,
u_crm_client_ship, u_crm_client_brother, u_info_price_person,
my_sys_function, u_info_rules, u_info_criterion, u_info_bulletin_manage,
u_info_render_manager, u_info_plan_manage, u_info_card,
u_info_yijian_manage, u_info_kaoqin_shouquan, u_info_kaoqin_report,
u_info_law, u_crm_client_special, u_info_custom, u_info_price_cust,
u_sys_progress, u_info_price_managelist, u_crm_client_ty;
{$R *.dfm}
procedure Tfrm_open_info.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_open_info.Hide;
frm_open_info.ManualFloat(frm_open_info.BoundsRect );
frm_open_info:=nil;
end;
procedure Tfrm_open_info.bsSkinButton1Click(Sender: TObject);
begin
if not if_open('018') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_crm_client) then
frm_crm_client:=tfrm_crm_client.Create (self);
frm_crm_client.ManualDock(frm_main.SearchTabs('frm_crm_client',frm_crm_client.caption),nil,alClient);
frm_crm_client.show;
end;
procedure Tfrm_open_info.bsSkinButton3Click(Sender: TObject);
begin
if not if_open('053') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_price_manage) then
frm_info_price_manage:=tfrm_info_price_manage.Create (self);
frm_info_price_manage.ManualDock(frm_main.SearchTabs('frm_info_price_manage',frm_info_price_manage.caption),nil,alClient);
frm_info_price_manage.show;
end;
procedure Tfrm_open_info.bsSkinButton2Click(Sender: TObject);
begin
if not if_open('091') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_crm_client_sales) then
frm_crm_client_sales:=tfrm_crm_client_sales.Create (self);
frm_crm_client_sales.ManualDock(frm_main.SearchTabs('frm_crm_client_sales',frm_crm_client_sales.caption),nil,alClient);
frm_crm_client_sales.show;
end;
procedure Tfrm_open_info.bsSkinButton9Click(Sender: TObject);
begin
if not if_open('092') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_crm_client_check) then
frm_crm_client_check:=tfrm_crm_client_check.Create (self);
frm_crm_client_check.ManualDock(frm_main.SearchTabs('frm_crm_client_check',frm_crm_client_check.caption),nil,alClient);
frm_crm_client_check.show;
end;
procedure Tfrm_open_info.bsSkinButton10Click(Sender: TObject);
begin
if not if_open('093') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_crm_client_report) then
frm_crm_client_report:=tfrm_crm_client_report.Create (self);
frm_crm_client_report.ManualDock(frm_main.SearchTabs('frm_crm_client_report',frm_crm_client_report.caption),nil,alClient);
frm_crm_client_report.show;
end;
procedure Tfrm_open_info.bsSkinButton12Click(Sender: TObject);
begin
if not if_open('094') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_crm_client_contract) then
frm_crm_client_contract:=tfrm_crm_client_contract.Create (self);
frm_crm_client_contract.ManualDock(frm_main.SearchTabs('frm_crm_client_contract',frm_crm_client_contract.caption),nil,alClient);
frm_crm_client_contract.show;
end;
procedure Tfrm_open_info.bsSkinButton16Click(Sender: TObject);
begin
if not if_open('118') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_price_agreement) then
frm_info_price_agreement:=tfrm_info_price_agreement.Create (self);
frm_info_price_agreement.ManualDock(frm_main.SearchTabs('frm_info_price_agreement',frm_info_price_agreement.caption),nil,alClient);
frm_info_price_agreement.show;
end;
procedure Tfrm_open_info.bsSkinButton4Click(Sender: TObject);
begin
if not if_open('120') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_crm_client_pet) then
frm_crm_client_pet:=tfrm_crm_client_pet.Create (self);
frm_crm_client_pet.ManualDock(frm_main.SearchTabs('frm_crm_client_pet',frm_crm_client_pet.caption),nil,alClient);
frm_crm_client_pet.show;
end;
procedure Tfrm_open_info.bsSkinButton17Click(Sender: TObject);
begin
if not if_open('123') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_price_brother) then
frm_info_price_brother:=tfrm_info_price_brother.Create (self);
frm_info_price_brother.ManualDock(frm_main.SearchTabs('frm_info_price_brother',frm_info_price_brother.caption),nil,alClient);
frm_info_price_brother.show;
end;
procedure Tfrm_open_info.bsSkinButton5Click(Sender: TObject);
begin
if not if_open('124') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_price_ask) then
frm_info_price_ask:=tfrm_info_price_ask.Create (self);
frm_info_price_ask.ManualDock(frm_main.SearchTabs('frm_info_price_ask',frm_info_price_ask.caption),nil,alClient);
frm_info_price_ask.show;
end;
procedure Tfrm_open_info.bsSkinButton11Click(Sender: TObject);
begin
if not if_open('125') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_price_release) then
frm_info_price_release:=tfrm_info_price_release.Create (self);
frm_info_price_release.ManualDock(frm_main.SearchTabs('frm_info_price_release',frm_info_price_release.caption),nil,alClient);
frm_info_price_release.show;
end;
procedure Tfrm_open_info.bsSkinButton7Click(Sender: TObject);
begin
if not if_open('126') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_price_other) then
frm_info_price_other:=tfrm_info_price_other.Create (self);
frm_info_price_other.ManualDock(frm_main.SearchTabs('frm_info_price_other',frm_info_price_other.caption),nil,alClient);
frm_info_price_other.show;
end;
procedure Tfrm_open_info.bsSkinButton8Click(Sender: TObject);
begin
if not if_open('127') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_crm_client_ship) then
frm_crm_client_ship:=tfrm_crm_client_ship.Create (self);
frm_crm_client_ship.ManualDock(frm_main.SearchTabs('frm_crm_client_ship',frm_crm_client_ship.caption),nil,alClient);
frm_crm_client_ship.show;
end;
procedure Tfrm_open_info.bsSkinButton13Click(Sender: TObject);
begin
if not if_open('128') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_crm_client_brother) then
frm_crm_client_brother:=tfrm_crm_client_brother.Create (self);
frm_crm_client_brother.ManualDock(frm_main.SearchTabs('frm_crm_client_brother',frm_crm_client_brother.caption),nil,alClient);
frm_crm_client_brother.show;
end;
procedure Tfrm_open_info.bsSkinButton15Click(Sender: TObject);
begin
if not assigned(frm_info_price_release) then
frm_info_price_person:=tfrm_info_price_person.Create (self);
frm_info_price_person.ManualDock(frm_main.SearchTabs('frm_info_price_person',frm_info_price_person.caption),nil,alClient);
frm_info_price_person.show;
end;
procedure Tfrm_open_info.bsSkinButton28Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_open_info.bsSkinButton6Click(Sender: TObject);
begin
if not assigned(frm_info_rules) then
frm_info_rules:=tfrm_info_rules.Create (self);
frm_info_rules.ManualDock(frm_main.SearchTabs('frm_info_rules',frm_info_rules.caption),nil,alClient);
frm_info_rules.show;
end;
procedure Tfrm_open_info.bsSkinButton14Click(Sender: TObject);
begin
if not assigned(frm_info_criterion) then
frm_info_criterion:=tfrm_info_criterion.Create (self);
frm_info_criterion.ManualDock(frm_main.SearchTabs('frm_info_criterion',frm_info_criterion.caption),nil,alClient);
frm_info_criterion.show;
end;
procedure Tfrm_open_info.bsSkinButton18Click(Sender: TObject);
begin
if not if_open('166') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_bulletin_manage) then
frm_info_bulletin_manage:=tfrm_info_bulletin_manage.Create (self);
frm_info_bulletin_manage.ManualDock(frm_main.SearchTabs('frm_info_bulletin_manage',frm_info_bulletin_manage.caption),nil,alClient);
frm_info_bulletin_manage.show;
end;
procedure Tfrm_open_info.bsSkinButton20Click(Sender: TObject);
begin
if not if_open('020') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_render_manager) then
frm_info_render_manager:=tfrm_info_render_manager.Create (self);
frm_info_render_manager.ManualDock(frm_main.SearchTabs('frm_info_render_manager',frm_info_render_manager.caption),nil,alClient);
frm_info_render_manager.show;
end;
procedure Tfrm_open_info.bsSkinButton19Click(Sender: TObject);
begin
if not if_open('019') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_plan_manage) then
frm_info_plan_manage:=tfrm_info_plan_manage.Create (self);
frm_info_plan_manage.ManualDock(frm_main.SearchTabs('frm_info_plan_manage',frm_info_plan_manage.caption),nil,alClient);
frm_info_plan_manage.show;
end;
procedure Tfrm_open_info.bsSkinPanel1Resize(Sender: TObject);
var
i:integer;
begin
i:=round((bsSkinPanel1.width-bsSkinPanel2.width)/5);
bsSkinGroupBox1.width:=i;
bsSkinGroupBox2.width:=i;
bsSkinGroupBox3.width:=i;
bsSkinGroupBox5.width:=i;
begin
limited_button('018',bsSkinButton1);
limited_button('053',bsSkinButton3);
limited_button('091',bsSkinButton2);
limited_button('092',bsSkinButton9);
limited_button('093',bsSkinButton10);
limited_button('094',bsSkinButton12);
limited_button('118',bsSkinButton16);
limited_button('120',bsSkinButton4);
limited_button('123',bsSkinButton17);
limited_button('124',bsSkinButton5);
limited_button('125',bsSkinButton11);
limited_button('126',bsSkinButton7);
limited_button('127',bsSkinButton8);
limited_button('128',bsSkinButton13);
limited_button('020',bsSkinButton20);
limited_button('019',bsSkinButton19);
limited_button('166',bsSkinButton18);
limited_button('167',bsSkinButton31);
limited_button('168',bsSkinButton32);
limited_button('169',bsSkinButton29);
limited_button('181',bsSkinButton34);
limited_button('125',bsSkinButton36);
limited_button('234',bsSkinButton38);
end;
end;
procedure Tfrm_open_info.bsSkinButton30Click(Sender: TObject);
begin
if not assigned(frm_info_card) then
frm_info_card:=tfrm_info_card.Create (self);
frm_info_card.ManualDock(frm_main.SearchTabs('frm_info_card',frm_info_card.caption),nil,alClient);
frm_info_card.show;
end;
procedure Tfrm_open_info.bsSkinButton31Click(Sender: TObject);
begin
if not if_open('167') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_yijian_manage) then
frm_info_yijian_manage:=tfrm_info_yijian_manage.Create (self);
frm_info_yijian_manage.ManualDock(frm_main.SearchTabs('frm_info_yijian_manage',frm_info_yijian_manage.caption),nil,alClient);
frm_info_yijian_manage.show;
end;
procedure Tfrm_open_info.bsSkinButton23Click(Sender: TObject);
begin
p_kaoqin.Parameters.ParamByName('emp').value:=employee;
p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
p_kaoqin.Parameters.ParamByName('sh').value:='';
p_kaoqin.Parameters.ParamByName('sh_emp').value:='';
p_kaoqin.Parameters.ParamByName('shouquan_date').value:=date;
p_kaoqin.ExecProc;
if p_kaoqin.Parameters.ParamByName('i').value=1 then
begin
showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_open_info.bsSkinButton24Click(Sender: TObject);
begin
p_kaoqin.Parameters.ParamByName('emp').value:=employee;
p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
p_kaoqin.Parameters.ParamByName('sh').value:='';
p_kaoqin.Parameters.ParamByName('sh_emp').value:='';
p_kaoqin.Parameters.ParamByName('shouquan_date').value:=date;
p_kaoqin.ExecProc;
if p_kaoqin.Parameters.ParamByName('i').value=1 then
begin
showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if p_kaoqin.Parameters.ParamByName('i').value=2 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
exit;
end;
if p_kaoqin.Parameters.ParamByName('i').value=4 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
exit;
end;
end;
procedure Tfrm_open_info.bsSkinButton25Click(Sender: TObject);
begin
p_kaoqin.Parameters.ParamByName('emp').value:=employee;
p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
p_kaoqin.Parameters.ParamByName('sh').value:='';
p_kaoqin.Parameters.ParamByName('sh_emp').value:='';
p_kaoqin.Parameters.ParamByName('shouquan_date').value:=date;
p_kaoqin.ExecProc;
if p_kaoqin.Parameters.ParamByName('i').value=1 then
begin
showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if p_kaoqin.Parameters.ParamByName('i').value=2 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if p_kaoqin.Parameters.ParamByName('i').value=3 then
begin
showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD>13:00<30>Ժ<EFBFBD><D4BA><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_open_info.bsSkinButton27Click(Sender: TObject);
begin
p_kaoqin.Parameters.ParamByName('emp').value:=employee;
p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
p_kaoqin.Parameters.ParamByName('sh').value:='';
p_kaoqin.Parameters.ParamByName('sh_emp').value:='';
p_kaoqin.Parameters.ParamByName('shouquan_date').value:=date;
p_kaoqin.ExecProc;
if p_kaoqin.Parameters.ParamByName('i').value=1 then
begin
showmessage('<27><><EFBFBD><EFBFBD>ǩ<EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if p_kaoqin.Parameters.ParamByName('i').value=2 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
exit;
end;
if p_kaoqin.Parameters.ParamByName('i').value=5 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
exit;
end;
end;
procedure Tfrm_open_info.bsSkinButton32Click(Sender: TObject);
begin
if not if_open('168') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
try
if not assigned(frm_info_kaoqin_shouquan) then
frm_info_kaoqin_shouquan:=tfrm_info_kaoqin_shouquan.Create (self);
frm_info_kaoqin_shouquan.ShowModal;
finally
frm_info_kaoqin_shouquan.free;
frm_info_kaoqin_shouquan:=nil;
end;
end;
procedure Tfrm_open_info.bsSkinButton29Click(Sender: TObject);
begin
if not if_open('169') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_kaoqin_report) then
frm_info_kaoqin_report:=tfrm_info_kaoqin_report.Create (self);
frm_info_kaoqin_report.ManualDock(frm_main.SearchTabs('frm_info_kaoqin_report',frm_info_kaoqin_report.caption),nil,alClient);
frm_info_kaoqin_report.show;
end;
procedure Tfrm_open_info.bsSkinButton33Click(Sender: TObject);
begin
if not assigned(frm_info_law) then
frm_info_law:=tfrm_info_law.Create (self);
frm_info_law.ManualDock(frm_main.SearchTabs('frm_info_law',frm_info_law.caption),nil,alClient);
frm_info_law.show;
end;
procedure Tfrm_open_info.bsSkinButton34Click(Sender: TObject);
begin
if not if_open('181') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
try
if not assigned(frm_crm_client_special) then
frm_crm_client_special:=tfrm_crm_client_special.Create (self);
frm_crm_client_special.ShowModal;
finally
frm_crm_client_special.free;
frm_crm_client_special:=nil;
end;
end;
procedure Tfrm_open_info.bsSkinButton35Click(Sender: TObject);
begin
if not assigned(frm_info_custom) then
frm_info_custom:=tfrm_info_custom.Create (self);
frm_info_custom.ManualDock(frm_main.SearchTabs('frm_info_custom',frm_info_custom.caption),nil,alClient);
frm_info_custom.show;
end;
procedure Tfrm_open_info.bsSkinButton36Click(Sender: TObject);
begin
if not if_open('125') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_price_cust) then
frm_info_price_cust:=tfrm_info_price_cust.Create (self);
frm_info_price_cust.ManualDock(frm_main.SearchTabs('frm_info_price_cust',frm_info_price_cust.caption),nil,alClient);
frm_info_price_cust.show;
end;
procedure Tfrm_open_info.bsSkinButton37Click(Sender: TObject);
var
aQuery,aQuery3:TADOQuery;
function getstlDate(aetd:TDateTime;Cust,SaleID:String):TDate;
var
aQuery2:TADOQuery;
aYear,aMonth,aDay,bDay:word;
aStlDate:TDateTime;
begin
aQuery2:=CreateAdoQuery;
aStlDate:=aetd;
result:=aetd;
try
with aQuery2 do begin
Close;SQL.Clear;
SQL.Add('Select * from t_crm_client_sales where ״̬=''<27><><EFBFBD><EFBFBD>'' and <20><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><='''+FormatDateTime('YYYY-MM-DD',aetd)+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+FormatDateTime('YYYY-MM-DD',aetd)+''' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+Cust+''' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+SaleID+'''');
Open;
if not IsEmpty then begin
if FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString='<27>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD><EFBFBD>' then begin
Result:=aetd;
end else if FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString='Լ<><D4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
if not fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').IsNull then
result:=aetd+fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger;
end else if FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString='Լ<><D4BC>ʱ<EFBFBD><CAB1>' then begin
if FieldByName('<27><><EFBFBD><EFBFBD>ģʽ').AsString='<27>̶<EFBFBD>' then begin
DecodeDate(IncMonth(aStlDate,StrToIntDef(FieldByName('<27><><EFBFBD><EFBFBD>ģʽ').AsString,0)),aYear,aMonth,aDay);
bDay:=DaysInMonth(EncodeDate(aYear,aMonth,1));
if fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger>bDay then
result:=EncodeDate(aYear,aMonth,bDay)
else
result:=EncodeDate(aYear,aMonth,fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger);
end else
result:=IncMonth(aStlDate,StrToIntDef(FieldByName('<27><><EFBFBD><EFBFBD>ģʽ').AsString,0));
end else if FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString='<27>ֽ׶θ<D7B6><CEB8><EFBFBD>' then begin
DecodeDate(IncMonth(aStlDate,StrToIntDef(FieldByName('<27><><EFBFBD><EFBFBD>ģʽ').AsString,0)),aYear,aMonth,aDay);
if aDay>fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger then begin
bDay:=DaysInMonth(EncodeDate(aYear,aMonth,1));
if fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').AsInteger>bDay then
result:=EncodeDate(aYear,aMonth,bDay)
else
result:=EncodeDate(aYear,aMonth,fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2').AsInteger);
end else begin
bDay:=DaysInMonth(EncodeDate(aYear,aMonth,1));
if fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger>bDay then
result:=EncodeDate(aYear,aMonth,bDay)
else
result:=EncodeDate(aYear,aMonth,fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger);
result:=EncodeDate(aYear,aMonth,fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsInteger);
end;
end else begin
Result:=aetd;
end;
end else begin
Result:=aetd;
end;
end;
finally
FreeAndNil(aQuery2);
end;
end;
begin
if not if_open('018') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
aQuery:=CreateAdoQuery;
aQuery3:=CreateAdoQuery;
try
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('SELECT * FROM T_CH_FEE WHERE (t_ch_fee.<2E><><EFBFBD><EFBFBD><>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) ');
Open;
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(application);
frm_sys_progress.Show;
frm_sys_progress.bsSkinGauge1.MaxValue:=aQuery.RecordCount;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
First;
while not eof do begin
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
aQuery3.Close;
aQuery3.SQL.Clear;
aQuery3.SQL.Add('select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD>='''+aQuery.fieldbyName('<27><><EFBFBD><EFBFBD>').AsString+'''');
aQuery3.Open;
if not aQuery3.IsEmpty then begin
Edit;
FieldByName('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime:=getstlDate(aQuery3['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'],fieldbyName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,aQuery3['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
Post;
end;
Next;
end;
end;
finally
FreeAndNil(aQuery);
FreeAndNil(aQuery3);
freeAndNil(frm_sys_progress);
end;
showmessage('ִ<><D6B4><EFBFBD><EFBFBD><EFBFBD>ɣ<EFBFBD>');
except
showmessage('ִ<>й<EFBFBD><D0B9><EFBFBD><EFBFBD>г<EFBFBD><D0B3>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_open_info.bsSkinButton38Click(Sender: TObject);
begin
if not if_open('234') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_info_price_managelist) then
frm_info_price_managelist:=tfrm_info_price_managelist.Create (self);
frm_info_price_managelist.ManualDock(frm_main.SearchTabs('frm_info_price_managelist',frm_info_price_managelist.caption),nil,alClient);
frm_info_price_managelist.show;
end;
procedure Tfrm_open_info.bsSkinButton39Click(Sender: TObject);
begin
if not if_open('250') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not assigned(frm_crm_client_ty) then
frm_crm_client_ty:=tfrm_crm_client_ty.Create (self);
frm_crm_client_ty.ManualDock(frm_main.SearchTabs('frm_crm_client_ty',frm_crm_client_ty.caption),nil,alClient);
frm_crm_client_ty.show;
end;
end.