customersaccuse.pas

企业客户关系管理系统

unit customersaccuse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TF_customersaccuse = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    Memo7: TMemo;
    Memo8: TMemo;
    btn_Search: TBitBtn;
    btn_Update: TBitBtn;
    btn_Add: TBitBtn;
    btn_Delete: TBitBtn;
    btn_Clear: TBitBtn;
    btn_Out: TBitBtn;
    ComboBox1: TComboBox;
    procedure btn_SearchClick(Sender: TObject);
    procedure btn_UpdateClick(Sender: TObject);
    procedure btn_AddClick(Sender: TObject);
    procedure btn_DeleteClick(Sender: TObject);
    procedure btn_ClearClick(Sender: TObject);
    procedure btn_OutClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_customersaccuse: TF_customersaccuse;
  strSQL:String;
implementation
 uses datamodule;
{$R *.dfm}

procedure TF_customersaccuse.btn_SearchClick(Sender: TObject);
begin
with DM_datamodule do
begin
if crmDB.Connected then
begin
if edit1.Text<>'' then
begin
with qry_CustomersAccuse do
begin
create(nil);
sql.Add('select * from CustomersAccuse where 编号=:f1');
Parambyname('f1').AsString:=edit1.Text;
prepare;
open;
if Recordcount<>0 then
begin
combobox1.Text:=fieldbyname('客户编号').AsString;
memo1.Text:=fieldbyname('投诉摘要').AsString;
memo2.Text:=fieldbyname('处理状态').AsString;
memo3.Text:=fieldbyname('投诉处理优先级').AsString;
memo4.Text:=fieldbyname('解决方案').AsString;
memo5.Text:=fieldbyname('批示意见').AsString;
memo6.Text:=fieldbyname('处理结果').AsString;
memo7.Text:=fieldbyname('客户反馈意见').AsString;
memo8.Text:=fieldbyname('客户满意度').AsString;
end
else
begin
messagedlg('不存在该投诉记录!查找失败!',mtinformation,[mbok],0);
close;
end;
end;
end;
end
else
messagedlg('请先登陆!',mtinformation,[mbok],0);
end;
end;

procedure TF_customersaccuse.btn_UpdateClick(Sender: TObject);
begin
strSQL:='update CustomersAccuse set 客户编号=:f2,投诉摘要=:f3,处理状态=:f4,投诉处理优先级=:f5,解决方案=:f6,'+
         '批示意见=:f7,处理结果=:f8,客户反馈意见=:f9,客户满意度=:f10 where 编号=:f1';
with DM_datamodule do
begin
if crmDB.Connected then
begin
if edit1.Text<>'' then
begin
with qry_CustomersAccuse do
begin
create(nil);
sql.Add('select * from CustomersAccuse where 编号=:f1');
Parambyname('f1').AsString:=edit1.Text;
open;
if Recordcount<>0 then
begin
sql.Add(strSQL);
Parambyname('f2').AsString:=combobox1.Text;
Parambyname('f3').AsString:=memo1.Text;
Parambyname('f4').AsString:=memo2.Text;
Parambyname('f5').AsString:=memo3.Text;
Parambyname('f6').AsString:=memo4.Text;
Parambyname('f7').AsString:=memo5.Text;
Parambyname('f8').AsString:=memo6.Text;
Parambyname('f9').AsString:=memo7.Text;
Parambyname('f10').AsString:=memo8.Text;
ExecSQL;
Close;
messagedlg('修改成功!',mtinformation,[mbok],0);
end
else
begin
messagedlg('不存在该投诉记录!修改失败!',mtinformation,[mbok],0);
close;
end;
end;
end;
end
else
messagedlg('请先登陆!',mtinformation,[mbok],0);
end;
end;

procedure TF_customersaccuse.btn_AddClick(Sender: TObject);
begin
strSQL:='insert into CustomersAccuse values(:f1,:f2,:f3,:f4,:f5,:f6,:f7,:f8,:f9,:f10)';
with DM_datamodule do
begin
if crmDB.Connected then
begin
if edit1.Text<>'' then
begin
with qry_CustomersAccuse do
begin
create(nil);
sql.Add('select * from CustomersAccuse where 编号=:f1');
Parambyname('f1').AsString:=edit1.Text;
open;
if Recordcount=0 then
begin
sql.Add(strSQL);
Parambyname('f2').AsString:=combobox1.Text;
Parambyname('f3').AsString:=memo1.Text;
Parambyname('f4').AsString:=memo2.Text;
Parambyname('f5').AsString:=memo3.Text;
Parambyname('f6').AsString:=memo4.Text;
Parambyname('f7').AsString:=memo5.Text;
Parambyname('f8').AsString:=memo6.Text;
Parambyname('f9').AsString:=memo7.Text;
Parambyname('f10').AsString:=memo8.Text;
ExecSQL;
Close;
messagedlg('新增成功!',mtinformation,[mbok],0);
end
else
begin
messagedlg('已经存在该投诉记录!新增失败!',mtinformation,[mbok],0);
close;
end;
end;
end;
end
else
messagedlg('请先登陆!',mtinformation,[mbok],0);
end;
end;

procedure TF_customersaccuse.btn_DeleteClick(Sender: TObject);
begin
strSQL:='delete from CustomersAccuse where 编号=:f1';
with DM_datamodule do
begin
if crmDB.Connected then
begin
if edit1.Text<>'' then
begin
if messagedlg('确定要删除吗?',mtinformation,[mbyes,mbno],0)=mrYes then
begin
with qry_CustomersAccuse do
begin
create(nil);
sql.Add('select * from CustomersAccuse where 编号=:f1');
Parambyname('f1').AsString:=edit1.Text;
open;
if Recordcount<>0 then
begin
sql.Add(strSQL);
ExecSQL;
Close;
messagedlg('删除成功!',mtinformation,[mbok],0);
edit1.Clear;
memo1.Text:='';
memo2.Text:='';
memo3.Text:='';
memo4.Text:='';
memo5.Text:='';
memo6.Text:='';
memo7.Text:='';
memo8.Text:='';
end
else
begin
messagedlg('不存在该投诉记录!删除失败!',mtinformation,[mbok],0);
close;
end;
end;
end;
end;
end
else
messagedlg('请先登陆!',mtinformation,[mbok],0);
end;
end;

procedure TF_customersaccuse.btn_ClearClick(Sender: TObject);
begin
edit1.Clear;
memo1.Clear;
memo2.Clear;
memo3.Clear;
memo4.Clear;
memo5.Clear;
memo6.Clear;
memo7.Clear;
memo8.Clear;
end;

procedure TF_customersaccuse.btn_OutClick(Sender: TObject);
begin
combobox1.Clear;
edit1.Clear;
memo1.Clear;
memo2.Clear;
memo3.Clear;
memo4.Clear;
memo5.Clear;
memo6.Clear;
memo7.Clear;
memo8.Clear;
Close;
end;

procedure TF_customersaccuse.FormShow(Sender: TObject);
begin
with DM_datamodule.qry_CustomersInfo do
begin
close;
sql.Clear;
sql.Add('select 客户编号 from CustomersInfo');
try
prepare;
execsql;
open;
first;
while not eof do
begin
combobox1.Items.Add(fieldbyname('客户编号').AsString);
next;
end;
finally
close;
end;
end;
combobox1.Text:=combobox1.Items.Text;
combobox1.ItemIndex:=0;

edit1.Clear;
memo1.Text:='';
memo2.Text:='';
memo3.Text:='';
memo4.Text:='';
memo5.Text:='';
memo6.Text:='';
memo7.Text:='';
memo8.Text:='';
end;

end.