unit customersrelationerinfo;

interface

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

type
  TF_customersrelationerinfo = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    Label11: TLabel;
    Edit11: TEdit;
    Label12: TLabel;
    Edit12: TEdit;
    Label13: TLabel;
    Memo1: 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_customersrelationerinfo: TF_customersrelationerinfo;
  strSQL:String;
implementation
uses datamodule;
{$R *.dfm}

procedure TF_customersrelationerinfo.btn_SearchClick(Sender: TObject);
begin
with DM_datamodule do
begin
if crmDB.Connected then
begin
with qry_CustomersRelationerInfo do
begin
create(nil);
sql.Add('select * from CustomersRelationerInfo where 客戶編號=:f1');
Parambyname('f1').AsString:=combobox1.Text;
prepare;
open;
if Recordcount<>0 then
begin
edit2.Text:=fieldbyname('聯系人姓名').AsString;
edit3.Text:=fieldbyname('稱謂').AsString;
edit4.Text:=fieldbyname('職務').AsString;
edit5.Text:=fieldbyname('辦公電話').AsString;
edit6.Text:=fieldbyname('電子郵件').AsString;
edit7.Text:=fieldbyname('移動電話').AsString;
edit8.Text:=fieldbyname('部門').AsString;
edit9.Text:=fieldbyname('業余愛好').AsString;
edit10.Text:=fieldbyname('性格特點').AsString;
edit11.Text:=fieldbyname('家庭住址').AsString;
edit12.Text:=fieldbyname('郵編').AsString;
Memo1.Text:=fieldbyname('備注').AsString;
Close;
end
else
begin
messagedlg('不存在該客戶編號!查找失敗!',mtinformation,[mbok],0);
close;
end;
end;
end
else
messagedlg('請先登陸!',mtinformation,[mbok],0);
end;
end;

procedure TF_customersrelationerinfo.btn_UpdateClick(Sender: TObject);
begin
strSQL:='update CustomersRelationerInfo set 聯系人姓名=:f2,稱謂=:f3,職務=:f4,辦公電話=:f5,電子郵件=:f6,'+
         '移動電話=:f7,部門=:f8,業余愛好=:f9,性格特點=:f10,家庭住址=:f11,郵編=:f12,備注=:f13 where 客戶編號=:f1';
with DM_datamodule do
begin
if crmDB.Connected then
begin
with qry_CustomersRelationerInfo do
begin
create(nil);
sql.Add('select * from CustomersRelationerInfo where 客戶編號=:f1');
Parambyname('f1').AsString:=combobox1.Text;
open;
if Recordcount<>0 then
begin
sql.Add(strSQL);
Parambyname('f2').AsString:=edit2.Text;
Parambyname('f3').AsString:=edit3.Text;
Parambyname('f4').AsString:=edit4.Text;
Parambyname('f5').AsString:=edit5.Text;
Parambyname('f6').AsString:=edit6.Text;
Parambyname('f7').AsString:=edit7.Text;
Parambyname('f8').AsString:=edit8.Text;
Parambyname('f9').AsString:=edit9.Text;
Parambyname('f10').AsString:=edit10.Text;
Parambyname('f11').AsString:=edit11.Text;
Parambyname('f12').AsString:=edit12.Text;
Parambyname('f13').AsString:=Memo1.Text;
ExecSQL;
Close;
messagedlg('修改成功!',mtinformation,[mbok],0);
end
else
begin
messagedlg('不存在該客戶編號!修改失敗!',mtinformation,[mbok],0);
close;
end;
end;
end
else
messagedlg('請先登陸!',mtinformation,[mbok],0);
end;
end;

procedure TF_customersrelationerinfo.btn_AddClick(Sender: TObject);
begin
strSQL:='insert into CustomersRelationerInfo values(:f1,:f2,:f3,:f4,:f5,:f6,:f7,:f8,:f9,:f10,:f11,:f12,:f13)';
with DM_datamodule do
begin
if crmDB.Connected then
begin
with qry_CustomersRelationerInfo do
begin
create(nil);
sql.Add('select * from CustomersRelationerInfo where 客戶編號=:f1');
Parambyname('f1').AsString:=combobox1.Text;
open;
if Recordcount=0 then
begin
sql.Add(strSQL);
Parambyname('f2').AsString:=edit2.Text;
Parambyname('f3').AsString:=edit3.Text;
Parambyname('f4').AsString:=edit4.Text;
Parambyname('f5').AsString:=edit5.Text;
Parambyname('f6').AsString:=edit6.Text;
Parambyname('f7').AsString:=edit7.Text;
Parambyname('f8').AsString:=edit8.Text;
Parambyname('f9').AsString:=edit9.Text;
Parambyname('f10').AsString:=edit10.Text;
Parambyname('f11').AsString:=edit11.Text;
Parambyname('f12').AsString:=edit12.Text;
Parambyname('f13').AsString:=Memo1.Text;
ExecSQL;
Close;
messagedlg('新增成功!',mtinformation,[mbok],0);
end
else
begin
messagedlg('已經存在該客戶編號!新增失敗!',mtinformation,[mbok],0);
close;
end;
end;
end
else
messagedlg('請先登陸!',mtinformation,[mbok],0);
end;
end;

procedure TF_customersrelationerinfo.btn_DeleteClick(Sender: TObject);
begin
strSQL:='delete from CustomersRelationerInfo where 客戶編號=:f1';
with DM_datamodule do
begin
if crmDB.Connected then
begin
if messagedlg('確定要刪除嗎?',mtinformation,[mbyes,mbno],0)=mrYes then
begin
with qry_CustomersRelationerInfo do
begin
create(nil);
sql.Add('select * from CustomersRelationerInfo where 客戶編號=:f1');
Parambyname('f1').AsString:=combobox1.Text;
open;
if Recordcount<>0 then
begin
sql.Add(strSQL);
ExecSQL;
Close;
messagedlg('刪除成功!',mtinformation,[mbok],0);
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit11.Clear;
edit12.Clear;
Memo1.Clear;
end
else
begin
messagedlg('不存在該客戶!刪除失敗!',mtinformation,[mbok],0);
close;
end;
end;
end;
end
else
messagedlg('請先登陸!',mtinformation,[mbok],0);
end;
end;

procedure TF_customersrelationerinfo.btn_ClearClick(Sender: TObject);
begin
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit11.Clear;
edit12.Clear;
Memo1.Clear;
end;

procedure TF_customersrelationerinfo.btn_OutClick(Sender: TObject);
begin
combobox1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit11.Clear;
edit12.Clear;
Memo1.Clear;
close;
end;

procedure TF_customersrelationerinfo.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;

end;

end.