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_crm_client_special.pas

328 lines
9.6 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

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

unit u_crm_client_special;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, DB, ADODB, StdCtrls, Mask,
DBCtrls, Grids, DBGrids, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
RxLookup, ComCtrls, bsSkinTabs;
type
Tfrm_crm_client_special = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinPanel1: TbsSkinPanel;
t_crm_client: TADOQuery;
t_crm_client1: TDataSource;
v_all_client: TADOQuery;
t_crm_client_yanzheng: TADOQuery;
p_update_client: TADOStoredProc;
t_crm_client_wrong: TADOQuery;
t_crm_client_wrong1: TDataSource;
t_crm_client_ti: TADOQuery;
t_crm_client_ti1: TDataSource;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinGroupBox1: TbsSkinGroupBox;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
bsSkinButton8: TbsSkinButton;
bsSkinGroupBox5: TbsSkinGroupBox;
Label8: TLabel;
Label14: TLabel;
Label18: TLabel;
Edit6: TEdit;
Edit7: TEdit;
bsSkinButton5: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
RxDBLookupCombo1: TRxDBLookupCombo;
bsSkinGroupBox4: TbsSkinGroupBox;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
DBEdit1: TDBEdit;
RxDBLookupCombo2: TRxDBLookupCombo;
bsSkinButton3: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinPanel2: TbsSkinPanel;
bsSkinGroupBox3: TbsSkinGroupBox;
Label1: TLabel;
Label3: TLabel;
Edit4: TEdit;
Edit5: TEdit;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinGroupBox2: TbsSkinGroupBox;
Label4: TLabel;
Label5: TLabel;
Label2: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit2: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridColumn;
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_crm_client_special: Tfrm_crm_client_special;
implementation
uses u_main, u_data_share, my_sys_chat;
{$R *.dfm}
procedure Tfrm_crm_client_special.bsSkinButton8Click(Sender: TObject);
var
str:widestring;
begin
str:='where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><>'+''''+'Ŀ<><C4BF>'+'''';
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;
t_crm_client.close;
t_crm_client.sql.clear;
t_crm_client.sql.add('select * from t_crm_client '+str+' order by <20><><EFBFBD><EFBFBD>');
t_crm_client.open;
if t_crm_client.RecordCount>1 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>پ<EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD>ң<EFBFBD><D2A3><EFBFBD>');
t_crm_client.close;
exit;
end;
if t_crm_client.IsEmpty then
exit;
bsSkinButton1.Enabled:=true;
end;
procedure Tfrm_crm_client_special.bsSkinButton1Click(Sender: TObject);
begin
if (trim(Edit4.text)='') or (trim(Edit5.text)='') then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µĴ<C2B5><C4B4><EFBFBD><EFBFBD>ͼ<EFBFBD><CDBC>ƣ<EFBFBD><C6A3><EFBFBD>');
exit;
end;
t_crm_client_yanzheng.close;
t_crm_client_yanzheng.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=DBEdit4.text;
t_crm_client_yanzheng.Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=DBEdit5.text;
t_crm_client_yanzheng.Parameters.ParamByName('new<65><77><EFBFBD><EFBFBD>').value:=trim(Edit4.text);
t_crm_client_yanzheng.Parameters.ParamByName('new<65>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').value:=trim(Edit5.text);
t_crm_client_yanzheng.open;
if t_crm_client_yanzheng.IsEmpty then
begin
bsSkinButton2.Enabled:=true;
showmessage('<27><>֤ͨ<D6A4><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
showmessage('<27><>֤ʧ<D6A4>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>󣡣<EFBFBD>');
end;
end;
procedure Tfrm_crm_client_special.bsSkinButton2Click(Sender: TObject);
VAR
old_name,old_code:STRING;
begin
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD>Ŀͻ<C4BF><CDBB><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
exit;
v_all_client.close;
v_all_client.open;
old_name:=DBEdit5.text;
old_code:=DBEdit4.text;
if v_all_client.IsEmpty then
begin
try
t_crm_client.edit;
t_crm_client['<27><><EFBFBD><EFBFBD>']:=trim(Edit4.text);
t_crm_client['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=trim(Edit5.text);
t_crm_client.post;
except
t_crm_client.Cancel;
t_crm_client.Refresh;
bsSkinButton2.Enabled:=false;
showmessage('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
end;
end
else
begin
try
t_crm_client.edit;
t_crm_client['<27><><EFBFBD><EFBFBD>']:=trim(Edit4.text);
t_crm_client['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=trim(Edit5.text);
t_crm_client.post;
p_update_client.Parameters.ParamByName('old_name').value:=old_name;
p_update_client.Parameters.ParamByName('new_name').value:=trim(Edit5.text);
p_update_client.ExecProc;
except
t_crm_client.Cancel;
t_crm_client.Refresh;
bsSkinButton2.Enabled:=false;
end;
end;
frm_main.t_sys_message_no.insert;
frm_main.t_sys_message_no['<27><><EFBFBD><EFBFBD>']:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
frm_main.t_sys_message_no['<27><><EFBFBD>ͷ<EFBFBD>']:=employee;
frm_main.t_sys_message_no['<27><><EFBFBD>͵<EFBFBD>ַ']:=LocalIP;
frm_main.t_sys_message_no['<27>Ƿ<EFBFBD>֪<EFBFBD><D6AA>']:=1;
frm_main.t_sys_message_no['ʱ<><CAB1>']:=now;
frm_main.t_sys_message_no['<27>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>']:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>ǰ:'+old_code+','+old_name
+';<3B><><EFBFBD>ĺ<EFBFBD>:'+Edit4.text+','+Edit5.text;
frm_main.t_sys_message_no.post;
{
SendMsg_gonggao('51','<27><><EFBFBD><EFBFBD>ǰ:'+old_code+','+old_name
+';<3B><><EFBFBD>ĺ<EFBFBD>:'+Edit4.text+','+Edit5.text);
}
showmessage('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ijɹ<C4B3><C9B9><EFBFBD><EFBFBD><EFBFBD>');
bsSkinButton1.Enabled:=false;
bsSkinButton2.Enabled:=false;
Edit4.text:='';
Edit5.text:='';
v_all_client.close;
end;
procedure Tfrm_crm_client_special.bsSkinButton4Click(Sender: TObject);
begin
t_crm_client_wrong.close;
t_crm_client_wrong.open;
end;
procedure Tfrm_crm_client_special.bsSkinButton3Click(Sender: TObject);
var
old_name:string;
begin
if t_crm_client_wrong.IsEmpty then
exit;
if RxDBLookupCombo2.DisplayValue=''then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD>滻<EFBFBD>ɵĿͻ<C4BF><CDBB><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
old_name:=t_crm_client_wrong.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
exit;
try
p_update_client.Parameters.ParamByName('old_name').value:=t_crm_client_wrong.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
p_update_client.Parameters.ParamByName('new_name').value:=RxDBLookupCombo2.DisplayValues[1];
p_update_client.ExecProc;
except
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
exit;
end;
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
t_crm_client_wrong.requery;
frm_main.t_sys_message_no.insert;
frm_main.t_sys_message_no['<27><><EFBFBD><EFBFBD>']:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
frm_main.t_sys_message_no['<27><><EFBFBD>ͷ<EFBFBD>']:=employee;
frm_main.t_sys_message_no['<27><><EFBFBD>͵<EFBFBD>ַ']:=LocalIP;
frm_main.t_sys_message_no['<27>Ƿ<EFBFBD>֪<EFBFBD><D6AA>']:=1;
frm_main.t_sys_message_no['ʱ<><CAB1>']:=now;
frm_main.t_sys_message_no['<27>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>']:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>:<3A><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>ʹ<EFBFBD>õĿͻ<C4BF><CDBB><EFBFBD><EFBFBD><EFBFBD>('+old_name
+')<29><><EFBFBD><EFBFBD>Ϊ('+RxDBLookupCombo2.DisplayValues[1]+')';
frm_main.t_sys_message_no.post;
end;
procedure Tfrm_crm_client_special.bsSkinButton5Click(Sender: TObject);
var
str:widestring;
begin
str:='where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><>'+''''+'Ŀ<><C4BF>'+'''';
if Edit6.text<>''then
begin
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit6.text+'%'+'''';
end;
if Edit7.text<>''then
begin
str:=str+' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
end;
t_crm_client_ti.close;
t_crm_client_ti.sql.clear;
t_crm_client_ti.sql.add('select * from t_crm_client '+str+' order by <20><><EFBFBD><EFBFBD>');
t_crm_client_ti.open;
end;
procedure Tfrm_crm_client_special.bsSkinButton6Click(Sender: TObject);
var
old_name:string;
str_tell:string;
begin
if t_crm_client_ti.IsEmpty then
exit;
if RxDBLookupCombo1.DisplayValue=''then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD>ϲ<EFBFBD><CFB2>ɵĿͻ<C4BF><CDBB><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
old_name:=t_crm_client_ti.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
str_tell:='<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>'+old_name+'<27><><EFBFBD>ϲ<EFBFBD><CFB2>ɡ<EFBFBD>'+RxDBLookupCombo1.DisplayValues[1]+'<27><><EFBFBD><EFBFBD>?';
if application.MessageBox(pchar(str_tell),'<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
exit;
try
p_update_client.Parameters.ParamByName('old_name').value:=t_crm_client_ti.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
p_update_client.Parameters.ParamByName('new_name').value:=RxDBLookupCombo1.DisplayValues[1];
p_update_client.ExecProc;
t_crm_client_ti.Delete;
except
showmessage('<27>ϲ<EFBFBD><CFB2>ͻ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
exit;
end;
showmessage('<27>ϲ<EFBFBD><CFB2>ͻ<EFBFBD><CDBB>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
t_crm_client_ti.requery;
frm_main.t_sys_message_no.insert;
frm_main.t_sys_message_no['<27><><EFBFBD><EFBFBD>']:='<27>ͻ<EFBFBD><CDBB>ϲ<EFBFBD>';
frm_main.t_sys_message_no['<27><><EFBFBD>ͷ<EFBFBD>']:=employee;
frm_main.t_sys_message_no['<27><><EFBFBD>͵<EFBFBD>ַ']:=LocalIP;
frm_main.t_sys_message_no['<27>Ƿ<EFBFBD>֪<EFBFBD><D6AA>']:=1;
frm_main.t_sys_message_no['ʱ<><CAB1>']:=now;
frm_main.t_sys_message_no['<27>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>']:='<27>ͻ<EFBFBD><CDBB>ϲ<EFBFBD>:<3A><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>ʹ<EFBFBD>õĿͻ<C4BF><CDBB><EFBFBD><EFBFBD><EFBFBD>('+old_name
+')<29>ϲ<EFBFBD>Ϊ('+RxDBLookupCombo1.DisplayValues[1]+')';
frm_main.t_sys_message_no.post;
{
SendMsg_gonggao('51','<27>ϲ<EFBFBD>ǰ:'+old_name
+';<3B>ϲ<EFBFBD><CFB2><EFBFBD>:'+RxDBLookupCombo1.DisplayValues[1]);
}
end;
end.
Reference in New Issue View Git Blame Copy Permalink