unit u_crm_client;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
dxDBTLCl, dxGrClms, StdCtrls, DBCtrls, wwdblook, Mask, RxLookup,
bsdbctrls, BusinessSkinForm, DB, ADODB, ComCtrls, bsSkinTabs, ExtCtrls,
wwdbedit, Wwdotdot, Wwdbcomb, wwdbdatetimepicker, Menus;
type
Tfrm_crm_client = class(TForm)
bsSkinPanel2: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinPanel1: TbsSkinPanel;
t_crm_client1: TDataSource;
t_crm_client: TADOQuery;
v_all_client: TADOQuery;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
t_crm_client_limited: TADOQuery;
t_crm_client_limited1: TDataSource;
bsSkinButton8: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinGroupBox1: TbsSkinGroupBox;
Label14: TLabel;
wwDBComboBox1: TwwDBComboBox;
Label15: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label16: TLabel;
Label17: TLabel;
Edit3: TEdit;
Label18: TLabel;
RxDBLookupCombo2: TRxDBLookupCombo;
t_crm_client_linkman1: TDataSource;
t_crm_client_linkman: TADOQuery;
bsSkinPageControl1: TbsSkinPageControl;
bskntbsht1: TbsSkinTabSheet;
bskntbsht2: TbsSkinTabSheet;
bsSkinPanel3: TbsSkinPanel;
Label4: TLabel;
Label12: TLabel;
Label5: TLabel;
Label2: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label10: TLabel;
Label11: TLabel;
Label3: TLabel;
Label13: TLabel;
DBEdit4: TDBEdit;
DBEdit1: TDBEdit;
DBEdit5: TDBEdit;
DBEdit2: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit10: TDBEdit;
DBEdit9: TDBEdit;
RxDBLookupCombo14: TRxDBLookupCombo;
RxDBLookupCombo1: TRxDBLookupCombo;
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox12: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
bsSkinPageControl2: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
Label1: TLabel;
Label9: TLabel;
DBMemo2: TDBMemo;
DBMemo1: TDBMemo;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinPanel4: TbsSkinPanel;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
bsSkinPanel5: TbsSkinPanel;
bsSkinButton10: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
dxDBGrid3: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
bsSkinDBCheckRadioBox13: TbsSkinDBCheckRadioBox;
bsSkinPanel6: TbsSkinPanel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label40: TLabel;
Label39: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label52: TLabel;
Label51: TLabel;
Label53: TLabel;
dxDBGrid4: TdxDBGrid;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridMaskColumn;
dxDBGrid4Column4: TdxDBGridColumn;
dxDBGrid2Column3: TdxDBGridMaskColumn;
bsSkinButton7: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton13: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
DBEdit35: TDBEdit;
wwDBComboBox2: TwwDBComboBox;
DBEdit37: TDBEdit;
DBEdit39: TDBEdit;
DBEdit38: TDBEdit;
DBEdit36: TDBEdit;
DBEdit40: TDBEdit;
DBEdit41: TDBEdit;
DBEdit42: TDBEdit;
DBEdit43: TDBEdit;
DBEdit44: TDBEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBDateTimePicker4: TwwDBDateTimePicker;
wwDBDateTimePicker3: TwwDBDateTimePicker;
DBMemo3: TDBMemo;
Label19: TLabel;
Edit4: TEdit;
Label20: TLabel;
Edit5: TEdit;
Label21: TLabel;
DBEdit3: TDBEdit;
bsSkinGroupBox2: TbsSkinGroupBox;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
dbedt1: TDBEdit;
dbedt2: TDBEdit;
dbedt3: TDBEdit;
dbedt4: TDBEdit;
dbedt5: TDBEdit;
dbedt6: TDBEdit;
DBEdit11: TDBEdit;
Label22: TLabel;
Label23: TLabel;
DBEdit12: TDBEdit;
Label24: TLabel;
DBEdit13: TDBEdit;
Label25: TLabel;
DBEdit14: TDBEdit;
bsSkinDBCheckRadioBox14: TbsSkinDBCheckRadioBox;
bsSkinButton15: TbsSkinButton;
dxDBGrid1Column4: TdxDBGridColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
Label26: TLabel;
DBEdit15: TDBEdit;
bsSkinButton16: TbsSkinButton;
Label27: TLabel;
DBEdit16: TDBEdit;
Label28: TLabel;
DBEdit17: TDBEdit;
Label29: TLabel;
DBEdit18: TDBEdit;
Label30: TLabel;
DBEdit19: TDBEdit;
Label31: TLabel;
DBEdit20: TDBEdit;
Label63: TLabel;
DBEdit78: TDBEdit;
Label32: TLabel;
bsSkinButton65: TbsSkinButton;
bsSkinButton17: TbsSkinButton;
DBEdit21: TDBEdit;
Label33: TLabel;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
Label34: TLabel;
bsSkinButton93: TbsSkinButton;
bsSkinTabSheet3: TbsSkinTabSheet;
dxDBGrid5: TdxDBGrid;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
CustAccount1: TDataSource;
CustAccount: TADOQuery;
dxDBGrid5Column5: TdxDBGridColumn;
dxDBGrid5Column6: TdxDBGridColumn;
dxDBGrid5Column7: TdxDBGridColumn;
dxDBGrid5Column8: TdxDBGridColumn;
CustInvoice: TADOQuery;
CustInvoice1: TDataSource;
bsSkinTabSheet4: TbsSkinTabSheet;
dxDBGrid6: TdxDBGrid;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridColumn5: TdxDBGridColumn;
dxDBGridColumn6: TdxDBGridColumn;
CustContact1: TDataSource;
CustContact: TADOQuery;
bsSkinTabSheet5: TbsSkinTabSheet;
dxDBGrid7: TdxDBGrid;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGrid7Column7: TdxDBGridColumn;
dxDBGrid7Column8: TdxDBGridColumn;
dxDBGrid7Column9: TdxDBGridColumn;
dxDBGrid7Column10: TdxDBGridColumn;
dxDBGrid7Column11: TdxDBGridColumn;
dxDBGrid7Column12: TdxDBGridColumn;
Label35: TLabel;
DBEdit24: TDBEdit;
Label45: TLabel;
wwDBComboBox4: TwwDBComboBox;
bsSkinButton18: TbsSkinButton;
dxDBGrid1Column5: TdxDBGridColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
bsSkinSplitter1: TbsSkinSplitter;
bsSkinTabSheet6: TbsSkinTabSheet;
dxDBGrid8: TdxDBGrid;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGridColumn10: TdxDBGridColumn;
dxDBGridColumn11: TdxDBGridColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridColumn13: TdxDBGridColumn;
t_crm_client_sales: TADOQuery;
ds_crm_client_sales1: TDataSource;
Label46: TLabel;
DBEdit25: TDBEdit;
bsSkinDBCheckRadioBox15: TbsSkinDBCheckRadioBox;
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure client_filtered(str:string);
procedure bsSkinCheckRadioBox2Click(Sender: TObject);
procedure OnShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure t_crm_clientAfterInsert(DataSet: TDataSet);
procedure t_crm_clientBeforePost(DataSet: TDataSet);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox11KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox8KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox7KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox6KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox12KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
var Key: Char);
procedure t_crm_clientDeleteError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_crm_clientPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure t_crm_clientAfterScroll(DataSet: TDataSet);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure t_crm_clientBeforeDelete(DataSet: TDataSet);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinPanel2Resize(Sender: TObject);
procedure t_crm_client_limitedAfterInsert(DataSet: TDataSet);
procedure t_crm_client_limitedBeforeInsert(DataSet: TDataSet);
procedure bsSkinDBCheckRadioBox13KeyPress(Sender: TObject;
var Key: Char);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure t_crm_clientAfterPost(DataSet: TDataSet);
procedure t_crm_clientBeforeCancel(DataSet: TDataSet);
procedure t_crm_clientBeforeEdit(DataSet: TDataSet);
procedure t_crm_clientBeforeInsert(DataSet: TDataSet);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure bsSkinButton17Click(Sender: TObject);
procedure bsSkinButton65Click(Sender: TObject);
procedure DBEdit21Change(Sender: TObject);
procedure bsSkinButton93Click(Sender: TObject);
procedure bsSkinButton18Click(Sender: TObject);
private
function CreateNewDjyCustStr():string;
{ Private declarations }
public
{ Public declarations }
end;
var
frm_crm_client: Tfrm_crm_client;
frm_crm_client_num:integer;
implementation
uses u_main, my_sys_function, u_data_share, my_sys_chat, u_crm_import;
{$R *.dfm}
procedure Tfrm_crm_client.client_filtered(str:string);
begin
t_crm_client.Filtered:=false;
t_crm_client.Filter:=str+'=1';
t_crm_client.Filtered:=true;
end;
procedure Tfrm_crm_client.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_crm_client.bsSkinButton1Click(Sender: TObject);
begin
t_crm_client.Insert;
end;
procedure Tfrm_crm_client.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_crm_client);
end;
procedure Tfrm_crm_client.bsSkinButton4Click(Sender: TObject);
begin
t_crm_client.Edit;
t_crm_client.FieldByName('isdelete').AsString:='1';
t_crm_client.Post;
InsertSysLog('<27> ͻ<EFBFBD> ɾ<EFBFBD> <C9BE> ',t_crm_client.FieldByName('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring);
table_delete(t_crm_client);
end;
procedure Tfrm_crm_client.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(t_crm_client);
end;
procedure Tfrm_crm_client.bsSkinCheckRadioBox2Click(Sender: TObject);
begin
t_crm_client.Filtered:=false;
end;
procedure Tfrm_crm_client.OnShow(Sender: TObject);
begin
t_crm_client.open;
ShowMessage('1');
// v_all_client.open;
ShowMessage('2');
t_crm_client_linkman.Open;
ShowMessage('3');
CustAccount.Open;
ShowMessage('4');
CustInvoice.Open;
ShowMessage('5');
CustContact.Open;
t_crm_client_sales.Open;
ShowMessage('6');
if employee='<27> ¹<EFBFBD> <C2B9> <EFBFBD> ' then
bsSkinButton16.Visible:=true
else bsSkinButton16.Visible:=false;
frm_data_share.t_sys_employee.Requery();
ShowMessage('7');
frm_data_share.t_sys_department.Requery();
ShowMessage('8');
if not strtobool(get_parameters_value(4,'false')) then
begin
bsSkinTabSheet2.TabVisible:=false;
end
else
begin
bsSkinTabSheet2.TabVisible:=true;
t_crm_client_limited.open;
end;
if if_open('511') then begin
bsSkinButton17.Enabled:=True;
bsSkinButton65.Enabled:=True;
end else begin
bsSkinButton17.Enabled:=false;
bsSkinButton65.Enabled:=false;
end;
end;
procedure Tfrm_crm_client.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
with frm_data_share do
begin
t_crm_client.requery;
t_crm_client_all.requery;
t_crm_client_ship.requery;
t_crm_client_changzhan.requery;
t_crm_client_truck.requery;
t_crm_client_hangkong.requery;
t_crm_client_baoguan.requery;
t_crm_client_weituo.requery;
t_crm_client_daili.requery;
t_crm_client_huodai.requery;
t_crm_client_shiper.requery;
t_crm_client_shouhuo.requery;
t_crm_client_tongzhi.requery;
t_crm_client_other.requery;
end;
frm_crm_client.Hide;
frm_crm_client.ManualFloat(frm_crm_client.BoundsRect );
frm_main.freeTabs('frm_crm_client');
action:=cafree;
frm_crm_client:=nil;
end;
procedure Tfrm_crm_client.t_crm_clientAfterInsert(DataSet: TDataSet);
begin
t_crm_client['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ']:='<27> <> <EFBFBD> <EFBFBD> ';
frm_crm_client_num:=1;
t_crm_client['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:='Լ<> <D4BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ';
end;
procedure Tfrm_crm_client.t_crm_clientBeforePost(DataSet: TDataSet);
var
aQuery:TADOQuery;
begin
table_before_post(t_crm_client,'<27> <> <EFBFBD> <EFBFBD> ');
table_before_post(t_crm_client,'<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ');
table_before_post(t_crm_client,'<27> ͻ<EFBFBD> ȫ<EFBFBD> <C8AB> ');
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('select * from t_crm_client where (<28> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ='''+t_crm_client.fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString+''') and clientid<>'''+t_crm_client.fieldbyname('CLIENTID').AsString+'''');
Open;
if not IsEmpty then begin
ShowMessage('ϵͳ<CFB5> <CDB3> <EFBFBD> Ѵ <EFBFBD> <D1B4> ڴ˿ͻ<CBBF> <CDBB> <EFBFBD> <EFBFBD> ƣ<EFBFBD> <C6A3> <EFBFBD> <EFBFBD> 룺'+fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').AsString+';<3B> <> <EFBFBD> ƣ<EFBFBD> '+fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString+',<2C> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ظ<EFBFBD> ');
abort;
end;
Close;SQL.Clear;
SQL.Add('select * from t_crm_client where (<28> <> <EFBFBD> <EFBFBD> ='''+t_crm_client.fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').AsString+''') and clientid<>'''+t_crm_client.fieldbyname('CLIENTID').AsString+'''');
Open;
if not IsEmpty then begin
ShowMessage('ϵͳ<CFB5> <CDB3> <EFBFBD> Ѵ <EFBFBD> <D1B4> ڴ˿ͻ<CBBF> <CDBB> <EFBFBD> <EFBFBD> 룬<EFBFBD> <EBA3AC> <EFBFBD> 룺'+fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').AsString+';<3B> <> <EFBFBD> ƣ<EFBFBD> '+fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString+',<2C> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ظ<EFBFBD> ');
abort;
end;
end;
finally
FreeAndNil(aQuery);
end;
if pos(' ',t_crm_client.FieldByName('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString)>0 then
begin
showmessage('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> Ʋ<EFBFBD> <C6B2> <EFBFBD> <EFBFBD> пո <D5B8> <F1A3ACB2> ܱ<EFBFBD> <DCB1> 棡');
abort;
end;
t_crm_client['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ']:=trim(t_crm_client['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ']);
if (t_crm_client.fieldbyname('<27> <> <EFBFBD> <EFBFBD> ˾').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> վ').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asboolean=false)and
(t_crm_client.fieldbyname('ί<> е <EFBFBD> λ').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').asboolean=false)and
(t_crm_client.fieldbyname('<27> ջ<EFBFBD> <D5BB> <EFBFBD> ').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asboolean=false)and
(t_crm_client.fieldbyname('֪ͨ<CDA8> <D6AA> ').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> <EFBFBD> չ<EFBFBD> ˾').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ͻ<EFBFBD> ').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').asboolean=false)and
(t_crm_client.fieldbyname('<27> <> <EFBFBD> ݹ<EFBFBD> ˾').asboolean=false)then
begin
showmessage('<27> <> <EFBFBD> <EFBFBD> ˾<EFBFBD> <CBBE> <EFBFBD> <EFBFBD> վ<EFBFBD> <D5BE> <EFBFBD> <EFBFBD> <EFBFBD> ӡ<EFBFBD> <D3A1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> С <EFBFBD> ί<EFBFBD> е <EFBFBD> λ<EFBFBD> <CEBB> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ջ<EFBFBD> <D5BB> ˡ<EFBFBD> <CBA1> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ˡ<EFBFBD> ֪ͨ<CDA8> ˡ<EFBFBD> <CBA1> <EFBFBD> <EFBFBD> չ<EFBFBD> ˾<EFBFBD> <CBBE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ݹ<EFBFBD> ˾<EFBFBD> <CBBE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ѡ <EFBFBD> <D1A1> <EFBFBD> <EFBFBD> һ <EFBFBD> <D2BB> ');
abort;
end;
if t_crm_client.State=dsedit then
begin
if t_crm_client.fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').OldValue<>t_crm_client.fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString then
begin
frm_crm_client_num:=2;
end
else
frm_crm_client_num:=0;
end;
end;
procedure Tfrm_crm_client.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit1);
end;
procedure Tfrm_crm_client.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit2);
end;
procedure Tfrm_crm_client.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit6);
end;
procedure Tfrm_crm_client.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit7);
end;
procedure Tfrm_crm_client.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit8);
end;
procedure Tfrm_crm_client.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit10);
end;
procedure Tfrm_crm_client.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit9);
end;
procedure Tfrm_crm_client.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo14);
end;
procedure Tfrm_crm_client.RxDBLookupCombo14KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox2);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox3);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox4);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox11);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox11KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox9);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox9KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox8);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox8KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox7);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox7KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox6);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox6KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox5);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox12);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox12KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox10);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox10KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox13);
end;
procedure Tfrm_crm_client.t_crm_clientDeleteError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
showmessage('<27> ͻ<EFBFBD> <CDBB> Ѿ<EFBFBD> ʹ <EFBFBD> ã<EFBFBD> <C3A3> <EFBFBD> <EFBFBD> <EFBFBD> ɾ<EFBFBD> <C9BE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ');
end;
procedure Tfrm_crm_client.t_crm_clientPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
var
aQuery:TAdoQuery;
begin
{
if (pos('<27> <> <EFBFBD> <EFBFBD> ',UpperCase(E.Message))<>0) then
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('select * from t_crm_client where <20> <> <EFBFBD> <EFBFBD> ='''+t_crm_client['<27> <> <EFBFBD> <EFBFBD> ']+''' OR <20> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ='''+t_crm_client['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ']+'''');
Open;
if not IsEmpty then begin
ShowMessage('ϵͳ<CFB5> <CDB3> <EFBFBD> Ѵ <EFBFBD> <D1B4> ڴ˿ͻ<CBBF> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ƣ<EFBFBD> <C6A3> <EFBFBD> <EFBFBD> 룺'+fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').AsString+';<3B> <> <EFBFBD> ƣ<EFBFBD> '+fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString);
end;
end;
finally
FreeAndNil(aQuery);
end;
abort;
end;
if (pos('PRIMARY KEY',UpperCase(E.Message))<>0) then
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('select * from t_crm_client where <20> <> <EFBFBD> <EFBFBD> ='''+t_crm_client['<27> <> <EFBFBD> <EFBFBD> ']+''' OR <20> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ='''+t_crm_client['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ']+'''');
Open;
if not IsEmpty then begin
ShowMessage('ϵͳ<CFB5> <CDB3> <EFBFBD> Ѵ <EFBFBD> <D1B4> ڴ˿ͻ<CBBF> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ƣ<EFBFBD> <C6A3> <EFBFBD> <EFBFBD> 룺'+fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').AsString+';<3B> <> <EFBFBD> ƣ<EFBFBD> '+fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString);
end;
end;
finally
FreeAndNil(aQuery);
end;
abort;
end;
}
end;
procedure Tfrm_crm_client.t_crm_clientAfterScroll(DataSet: TDataSet);
begin
if v_all_client.IsEmpty then
begin
DBEdit4.ReadOnly:=false;
DBEdit5.ReadOnly:=false;
end
else
begin
DBEdit4.ReadOnly:=true;
DBEdit5.ReadOnly:=true;
end;
end;
procedure Tfrm_crm_client.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_crm_client,'<27> <> <EFBFBD> <EFBFBD> ');
end;
procedure Tfrm_crm_client.t_crm_clientBeforeDelete(DataSet: TDataSet);
begin
if not if_open('202') then
begin
showmessage('<27> Բ<EFBFBD> <D4B2> <EFBFBD> <EFBFBD> <EFBFBD> û<EFBFBD> д<EFBFBD> ģ<EFBFBD> <C4A3> <EFBFBD> IJ<EFBFBD> <C4B2> <EFBFBD> Ȩ<EFBFBD> ޣ<EFBFBD> ');
abort;
end;
if not v_all_client.IsEmpty then
begin
showmessage('<27> <> ǰ<EFBFBD> ͻ<EFBFBD> <CDBB> Ѿ<EFBFBD> ʹ <EFBFBD> ã<EFBFBD> <C3A3> <EFBFBD> <EFBFBD> <EFBFBD> ɾ<EFBFBD> <C9BE> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ');
abort;
end;
{
if t_crm_client.State<>dsinsert then
SendMsg_gonggao('54','');
}
end;
procedure Tfrm_crm_client.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit5);
end;
procedure Tfrm_crm_client.RxDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1);
end;
procedure Tfrm_crm_client.bsSkinButton6Click(Sender: TObject);
begin
table_post(t_crm_client);
IF t_crm_client.IsEmpty then
exit;
frm_data_share.t_sys_department.first;
while not frm_data_share.t_sys_department.eof do
begin
if not t_crm_client_limited.Locate('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ',frm_data_share.t_sys_department.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring,[])then
begin
t_crm_client_limited.insert;
t_crm_client_limited['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:=frm_data_share.t_sys_department.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring;
t_crm_client_limited.post;
end;
frm_data_share.t_sys_department.next;
end;
end;
procedure Tfrm_crm_client.bsSkinButton10Click(Sender: TObject);
begin
table_post(t_crm_client);
IF t_crm_client.IsEmpty then
exit;
if not t_crm_client_limited.Locate('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ',frm_data_share.t_sys_department.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring,[])then
begin
t_crm_client_limited.insert;
t_crm_client_limited['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:=frm_data_share.t_sys_department.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring;
t_crm_client_limited.post;
end;
end;
procedure Tfrm_crm_client.bsSkinButton11Click(Sender: TObject);
begin
if t_crm_client_limited.IsEmpty then
exit;
t_crm_client_limited.Delete;
end;
procedure Tfrm_crm_client.bsSkinPanel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel2.Width/11);
bsSkinButton1.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton8.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton15.Width:=i;
bsSkinButton17.Width:=i;
bsSkinButton65.Width:=i;
end;
procedure Tfrm_crm_client.t_crm_client_limitedAfterInsert(
DataSet: TDataSet);
begin
t_crm_client_limited['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ']:=t_crm_client['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> '];
end;
procedure Tfrm_crm_client.t_crm_client_limitedBeforeInsert(
DataSet: TDataSet);
begin
table_post(t_crm_client);
end;
procedure Tfrm_crm_client.bsSkinDBCheckRadioBox13KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo1);
end;
procedure Tfrm_crm_client.bsSkinButton9Click(Sender: TObject);
begin
wwDBComboBox1.text:='';
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
RxDBLookupCombo2.ClearValue;
end;
procedure Tfrm_crm_client.bsSkinButton8Click(Sender: TObject);
var
str:widestring;
begin
str:='where <20> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> <>'+''''+'Ŀ<> <C4BF> '+'''';
if wwDBComboBox1.text<>'' then
begin
str:=str+' and '+wwDBComboBox1.text+'=1';
end;
if Edit1.text<>''then
begin
str:=str+' and <20> <> <EFBFBD> <EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
end;
if Edit2.text<>''then
begin
str:=str+' and <20> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> like '+''''+'%'+Edit2.text+'%'+'''';
end;
if Edit3.text<>''then
begin
str:=str+' and <20> ͻ<EFBFBD> ȫ<EFBFBD> <C8AB> like '+''''+'%'+Edit3.text+'%'+'''';
end;
if Edit4.text<>''then
begin
str:=str+' and <20> 绰 like '+''''+'%'+Edit4.text+'%'+'''';
end;
if Edit5.text<>''then
begin
str:=str+' and <20> <> <EFBFBD> <EFBFBD> like '+''''+'%'+Edit5.text+'%'+'''';
end;
if RxDBLookupCombo2.DisplayValue<>''then
begin
str:=str+' and EXISTS (select 1 from t_crm_client_sales WHERE t_crm_client.<2E> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> =t_crm_client_sales.<2E> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> and t_crm_client_sales.<2E> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ='+''''+RxDBLookupCombo2.DisplayValue+''')';
end;
t_crm_client.close;
t_crm_client.sql.clear;
t_crm_client.sql.add('select *,(select TOP 1 <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> +''_''+<2B> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> from t_crm_client_sales where ״̬=''<27> <> <EFBFBD> <EFBFBD> '' and <20> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> =t_crm_client.<2E> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> order by <20> <> ʼ <EFBFBD> <CABC> <EFBFBD> <EFBFBD> desc) SALE from t_crm_client '+str+' order by <20> <> <EFBFBD> <EFBFBD> ');
t_crm_client.open;
end;
procedure Tfrm_crm_client.wwDBComboBox1KeyPress(Sender: TObject;
var Key: Char);
begin
IF key=#13 then
begin
key:=#0;
frm_crm_client.bsSkinButton8Click(Sender);
end;
end;
procedure Tfrm_crm_client.t_crm_clientAfterPost(DataSet: TDataSet);
begin
{
if frm_crm_client_num=1 then
SendMsg_gonggao('53','<27> ¿ͻ<C2BF> :'+t_crm_client['<27> <> <EFBFBD> <EFBFBD> ']+','+t_crm_client['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ']);
if frm_crm_client_num=2 then
SendMsg_gonggao('54','');
}
frm_crm_client_num:=0;
end;
procedure Tfrm_crm_client.t_crm_clientBeforeCancel(DataSet: TDataSet);
begin
frm_crm_client_num:=0;
end;
procedure Tfrm_crm_client.t_crm_clientBeforeEdit(DataSet: TDataSet);
begin
if not if_open('202') 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_crm_client.t_crm_clientBeforeInsert(DataSet: TDataSet);
begin
if not if_open('202') 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_crm_client.bsSkinButton7Click(Sender: TObject);
begin
t_crm_client_linkman.insert;
end;
procedure Tfrm_crm_client.bsSkinButton12Click(Sender: TObject);
begin
table_post(t_crm_client_linkman);
end;
procedure Tfrm_crm_client.bsSkinButton13Click(Sender: TObject);
begin
table_delete(t_crm_client_linkman);
end;
procedure Tfrm_crm_client.bsSkinButton14Click(Sender: TObject);
begin
table_cancel(t_crm_client_linkman);
end;
procedure Tfrm_crm_client.bsSkinButton15Click(Sender: TObject);
begin
try
frm_crm_Import:=tfrm_crm_Import.Create (self);
frm_crm_Import.ShowModal;
finally
frm_crm_Import.Free;
end;
end;
procedure Tfrm_crm_client.N1Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_crm_client.bsSkinButton16Click(Sender: TObject);
var Protocolrec:TProtocolrec;
aAdoQuery,aAdoQueryUpdate:TAdoQuery;
begin
aAdoQuery:=CreateAdoQuery;
aAdoQueryUpdate:=CreateAdoQuery;
with aAdoQueryUpdate do
begin
close;sql.Clear;
sql.Add('update t_op_seae ');
sql.Add('set <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> =:<3A> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ,Ӧ<> <D3A6> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> =:Ӧ<> <D3A6> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ');
sql.Add('where <20> <> <EFBFBD> <EFBFBD> =:<3A> <> <EFBFBD> <EFBFBD> ');
end;
with aAdoQuery do
try
close;sql.Clear;
sql.Add('select * from t_op_seae');
sql.Add('where <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >=''2015-5-1'' and <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <=''2017-1-1''');
sql.Add('Order by ί<> е <EFBFBD> λ,<2C> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ');
Open;First;
WriteLog(sql.Text);
while not eof do
begin
Protocolrec:=getProtocol(fieldbyname('ί<> е <EFBFBD> λ').asstring,fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring,fieldbyname('Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime);
if trim(Protocolrec.protocolType)<>'' then
begin
WriteLog(fieldbyname('ί<> е <EFBFBD> λ').asstring+' '+fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').asstring+'ʵ<> ʿ<EFBFBD> <CABF> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '+FormatDateTime('YYYY-MM-DD',fieldbyname('Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime)+ '<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '+Protocolrec.protocolType+'Ӧ<> <D3A6> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '+FormatDateTime('YYYY-MM-DD',Protocolrec.protocolDate));
if (Protocolrec.protocolDate<>null) and (Protocolrec.protocolDate<>0) then
begin
aAdoQueryUpdate.Close;
aAdoQueryUpdate.Parameters.ParamByName('<27> <> <EFBFBD> <EFBFBD> ').Value:=fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').asstring;
aAdoQueryUpdate.Parameters.ParamByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').Value:=Protocolrec.protocolType;
aAdoQueryUpdate.Parameters.ParamByName('Ӧ<> <D3A6> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').Value:=Protocolrec.protocolDate;
WriteLog(aAdoQueryUpdate.sql.Text+' '+ fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').asstring+ ' '+Protocolrec.protocolType+' '+FormatDateTime('YYYY-MM-DD',Protocolrec.protocolDate));
aAdoQueryUpdate.ExecSQL;
end;
end;
Next;
end;
finally
Free;
aAdoQueryUpdate.Free;
end;
end;
procedure Tfrm_crm_client.bsSkinButton17Click(Sender: TObject);
begin
if not (t_crm_client.State in [dsedit,dsinsert]) then t_crm_client.Edit;
t_crm_client.FieldByName('<27> ۵ <EFBFBD> ״̬').AsString:='<27> ۵ <EFBFBD> ';
t_crm_client.Post;
end;
procedure Tfrm_crm_client.bsSkinButton65Click(Sender: TObject);
begin
if not (t_crm_client.State in [dsedit,dsinsert]) then t_crm_client.Edit;
t_crm_client.FieldByName('<27> ۵ <EFBFBD> ״̬').AsString:='<27> ŵ<EFBFBD> ';
t_crm_client.Post;
end;
procedure Tfrm_crm_client.DBEdit21Change(Sender: TObject);
begin
if (DBEdit21.Text='<27> ۵ <EFBFBD> ') then
DBEdit21.Color:=clred
else DBEdit21.Color:=clWhite;
end;
function Tfrm_crm_client.CreateNewDjyCustStr(): string;
var
str,str2,codetype,codestr,strsql,typestr,propstr:string;
aAdoQuery:TAdoQuery;
isfirst:Boolean;
TempStr:TStringlist;
begin
if t_crm_client.FieldByName('ί<> е <EFBFBD> λ').AsBoolean then
propstr:=propstr+'[consignor]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').AsBoolean then
propstr:=propstr+'[fleet]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsBoolean then
propstr:=propstr+'[customs_broker]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> մ<EFBFBD> <D5B4> <EFBFBD> ').AsBoolean then
propstr:=propstr+'[booking_agent]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').AsBoolean then
propstr:=propstr+'[out_agent]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> ˾').AsBoolean then
propstr:=propstr+'[carrier]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').AsBoolean then
propstr:=propstr+'[forwarder]';
if t_crm_client.FieldByName('<27> <> վ').AsBoolean then
propstr:=propstr+'[yard]';
if t_crm_client.FieldByName('<27> ջ<EFBFBD> <D5BB> <EFBFBD> ').AsBoolean then
propstr:=propstr+'[shipper]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsBoolean then
propstr:=propstr+'[consignee]';
if t_crm_client.FieldByName('֪ͨ<CDA8> <D6AA> ').AsBoolean then
propstr:=propstr+'[notifyparty]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').AsBoolean then
propstr:=propstr+'[shipagency]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> ݹ<EFBFBD> ˾').AsBoolean then
propstr:=propstr+'[courier]';
if t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ͻ<EFBFBD> ').AsBoolean then
propstr:=propstr+'[othercustomers]';
aAdoQuery:=CreateAdoQuery;
str:=str+'{';
TempStr:=TStringList.Create;
try
str:=str+'"codeName":"'+ t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').asstring+'"';
str:=str+',"shortName":"'+t_crm_client.FieldByName('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring+'"';
str:=str+',"fullName":"'+ t_crm_client.FieldByName('<27> ͻ<EFBFBD> ȫ<EFBFBD> <C8AB> ').asstring+'"';
str:=str+',"chief":"'+ t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').asstring+'"';
str:=str+',"tel":"'+ t_crm_client.FieldByName('<27> 绰').asstring+'"';
str:=str+',"email":"'+ t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').asstring+'"';
str:=str+',"qq":""';
str:=str+',"webUrl":"'+ t_crm_client.FieldByName('<27> <> վ').asstring+'"';
str:=str+',"city":"'+ t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').asstring+'"';
str:=str+',"addr":"'+ t_crm_client.FieldByName('ͨѶ<CDA8> <D1B6> ַ').asstring+'"';
str:=str+',"fullNameEN":"'+ t_crm_client.FieldByName('Ӣ<> <D3A2> ȫ<EFBFBD> <C8AB> ').asstring+'"';
str:=str+',"addrEN":""';
str:=str+',"propString":"'+propstr+'"';
str:=str+',"invTitle":"'+ t_crm_client.FieldByName('<27> <> Ʊ̧ͷ').asstring+'"';
str:=str+',"taxNO":""';
str:=str+',"invAddrTel":""';
str:=str+',"rmbBank":"'+ t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> RMB').asstring+'"';
str:=str+',"rmbAccount":"'+ t_crm_client.FieldByName('<27> ʺ<EFBFBD> RMB').asstring+'"';
str:=str+',"usdBank":"'+ t_crm_client.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> USD').asstring+'"';
str:=str+',"usdAccount":"'+ t_crm_client.FieldByName('<27> ʺ<EFBFBD> USD').asstring+'"';
str:=str+',"CUSTSERVICE":"'+ t_crm_client.FieldByName('<27> ͷ<EFBFBD> Ա').asstring+'"';
str:=str+',"remark":"'+ t_crm_client.FieldByName('<27> <> ע').asstring+'"';
strsql:='select * from t_crm_client_sales where ״̬=''<27> <> <EFBFBD> <EFBFBD> '' and <20> <> ʼ <EFBFBD> <CABC> <EFBFBD> <EFBFBD> <=cast(GETDATE()as date) and <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >=cast(GETDATE()as date) and <20> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ='
+#39+t_crm_client.FieldByName('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring+#39;
aAdoQuery.Close;
aAdoQuery.SQL.Text:=strsql;
aAdoQuery.Open;
if (not aAdoQuery.IsEmpty) then
str:=str+',"sale":"'+ aAdoQuery.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring+'"';
strsql:='select * from t_crm_client_class where <20> <> ʼ <EFBFBD> <CABC> <EFBFBD> <EFBFBD> <=cast(GETDATE()as date) and <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >=cast(GETDATE()as date) and <20> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ='
+#39+t_crm_client.FieldByName('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring+#39;
aAdoQuery.Close;
aAdoQuery.SQL.Text:=strsql;
aAdoQuery.Open;
if (not aAdoQuery.IsEmpty) then
str:=str+',"level":"'+ aAdoQuery.FieldByName('<27> ͻ<EFBFBD> <CDBB> ȼ<EFBFBD> ').asstring+'"';
str:=str+',"contactList":[';
strsql:='select * from t_crm_client_linkman where <20> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ='
+#39+t_crm_client.FieldByName('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring+#39;
aAdoQuery.Close;
aAdoQuery.SQL.Text:=strsql;
aAdoQuery.Open;
aAdoQuery.First;
isfirst:=true;
while not aAdoQuery.Eof do begin
if (isfirst) then str:=str+'{' else str:=str+',{';
str:=str+'"name":"'+StringReplace(aAdoQuery.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').asstring,'''','',[])+'"';
str:=str+',"tel":'+aAdoQuery.FieldByName('<27> 칫<EFBFBD> 绰').asstring;
str:=str+',"email":"'+aAdoQuery.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').asstring+'"';
// str:=str+',"qq":"'+aAdoQuery.FieldByName('QQ').asstring+'"';
str:=str+',"remark":"'+aAdoQuery.FieldByName('<27> <> ע').asstring+'"';
str:=str+'}';
isfirst:=false;
aAdoQuery.Next;
end;
str:=str+']';
str:=str+'}';
finally
FreeAndNil(aAdoQuery);
FreeAndNil(TempStr);
end;
Result:=str;
end;
procedure Tfrm_crm_client.bsSkinButton93Click(Sender: TObject);
var
i:Integer;
str:string;
dsstr,PostUrl,custstr,ScriptPath,filenamestr:string;
sl:TStringList;
begin
if strtobool(get_parameters_value(3309,'false'))then exit;
if t_crm_client.IsEmpty then
exit;
if dxDBGrid1.SelectedCount<1 then
begin
showmessage('<27> <> ѡ <EFBFBD> <D1A1> Ҫ<EFBFBD> ϴ<EFBFBD> <CFB4> <EFBFBD> <EFBFBD> ݵ<EFBFBD> ҵ<EFBFBD> <EFBFBD> ');
exit;
end;
sl:=TStringList.Create;
str:=str+'[';
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_crm_client.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
if (i<>0) then str:=str+',';
dsstr:=CreateNewDjyCustStr;
str:=str+dsstr;
end;
str:=str+']';
sl.Add(str);
ScriptPath:=ExtractFilePath(ParamStr(0))+'JSON\';
if not DirectoryExists(ScriptPath) then
CreateDir(ScriptPath);
filenamestr:=ScriptPath
+FormatDateTime('yyyy',now)
+FormatDateTime('mm',now)
+FormatDateTime('dd',now)
+FormatDateTime('hh',now)
+FormatDateTime('nn',now)+'.txt';
sl.SaveToFile(filenamestr);
PostUrl:=get_parameters_value(3203,'http://60.209.125.238:25805/DataSync/SyncCustomerList');
// PostUrl:='http://60.209.125.238:25805/DataSync/SyncCustomerList';
TDsDjyThread.create(PostUrl,str,'','2b7957046d234d82a1b0a144324c466a','25d31b3b667fa77c875fd75153bf8debf93eb92433995136d7f3092ff10c51288962734153d8b63a');
ShowMessage('<27> ϴ<EFBFBD> <CFB4> <EFBFBD> <EFBFBD> ɣ <EFBFBD> ');
end;
procedure Tfrm_crm_client.bsSkinButton18Click(Sender: TObject);
var
afield : variant;
i:Integer;
begin
afield := vararraycreate([0,t_crm_client.fieldcount-1],varvariant);
for i := 0 to (t_crm_client.fieldcount-1) do
begin
afield[i] :=t_crm_client.fields[i].value ;
end;
t_crm_client.append;
for i := 0 to (t_crm_client.fieldcount-1) do
begin
if (t_crm_client.fields[i].FieldName<>'<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ') AND (t_crm_client.fields[i].FieldName<>'CLIENTID') then
t_crm_client.fields[i].value := afield[i] ;
end;
end;
end.
