salsreturn.pas

企业客户关系管理系统

unit salsreturn;

interface

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

type
  TF_salsreturn = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    Label11: TLabel;
    Edit11: TEdit;
    Label12: TLabel;
    Edit12: TEdit;
    Label13: TLabel;
    Edit13: TEdit;
    Label14: TLabel;
    Edit14: TEdit;
    Panel1: TPanel;
    btn_Search: TBitBtn;
    btn_Update: TBitBtn;
    btn_Add: TBitBtn;
    btn_Delete: TBitBtn;
    btn_Clear: TBitBtn;
    btn_Out: TBitBtn;
    Label15: TLabel;
    Edit15: TEdit;
    Label16: TLabel;
    Edit16: TEdit;
    Label8: TLabel;
    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_salsreturn: TF_salsreturn;
  strSQL:String;
implementation
uses datamodule;
{$R *.dfm}

procedure TF_salsreturn.btn_SearchClick(Sender: TObject);
begin
with DM_datamodule do
begin
if crmDB.Connected then
begin
if trim(edit1.Text)<>'' then
begin
with qry_SalsReturn do
begin
create(nil);
sql.Add('select * from SalsReturn where 单据编号=:f1');
Parambyname('f1').AsString:=edit1.Text;
prepare;
open;
if Recordcount<>0 then
begin
edit2.Text:=fieldbyname('开单日期').AsString;
combobox1.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;
edit13.Text:=fieldbyname('发出新货时间').AsString;
edit14.Text:=fieldbyname('发货人').AsString;
edit15.Text:=fieldbyname('创建人').AsString;
edit16.Text:=fieldbyname('创建日期').AsString;
Close;
end
else
begin
messagedlg('不存在该退货记录!查找失败!',mtinformation,[mbok],0);
close;
end;
end;
end;
end
else
messagedlg('请先登陆!',mtinformation,[mbok],0);
end;
end;

procedure TF_salsreturn.btn_UpdateClick(Sender: TObject);
begin
strSQL:='update SalsReturn set 开单日期=:f2,客户编号=:f3,相关联系人=:f4,联系人电话=:f5,到货日期=:f6,'+
         '退货原因=:f7,客户要求退款金额=:f8,客户要求退款期限=:f9,实际退款金额=:f10,'+
'实际退款日期=:f11,货物处理=:f12,发出新货时间=:f13,发货人=:f14,创建人=:f15,创建日期=:f16 where 单据编号=:f1';
with DM_datamodule do
begin
if crmDB.Connected then
begin
if trim(edit1.Text)<>'' then
begin
with qry_SalsReturn do
begin
create(nil);
sql.Add('select * from SalsReturn where 单据编号=:f1');
Parambyname('f1').AsString:=edit1.Text;
open;
if Recordcount<>0 then
begin
sql.Add(strSQL);
Parambyname('f2').AsDateTime:=strtodatetime(edit2.Text);
Parambyname('f3').AsString:=combobox1.Text;
Parambyname('f4').AsString:=edit4.Text;
Parambyname('f5').AsString:=edit5.Text;
Parambyname('f6').AsDateTime:=strtodatetime(edit6.Text);
Parambyname('f7').AsString:=edit7.Text;
Parambyname('f8').AsFloat:=strtofloat(edit8.Text);
Parambyname('f9').AsDateTime:=strtodatetime(edit9.Text);
Parambyname('f10').AsFloat:=strtofloat(edit10.Text);
Parambyname('f11').AsDateTime:=strtodatetime(edit11.Text);
Parambyname('f12').AsString:=edit12.Text;
Parambyname('f13').AsDateTime:=strtodatetime(edit13.Text);
Parambyname('f14').AsString:=edit14.Text;
Parambyname('f15').AsString:=edit15.Text;
Parambyname('f16').AsDateTime:=strtodatetime(edit16.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_salsreturn.btn_AddClick(Sender: TObject);
begin
strSQL:='insert into SalsReturn values(:f1,:f2,:f3,:f4,:f5,:f6,:f7,:f8,:f9,:f10,:f11,:f12,:f13,:f14,:f15,:f16)';
with DM_datamodule do
begin
if crmDB.Connected then
begin
if trim(edit1.Text)<>'' then
begin
with qry_SalsReturn do
begin
create(nil);
sql.Add('select * from SalsReturn where 单据编号=:f1');
Parambyname('f1').AsString:=edit1.Text;
open;
if Recordcount=0 then
begin
sql.Add(strSQL);
Parambyname('f2').AsDateTime:=strtodatetime(edit2.Text);
Parambyname('f3').AsString:=combobox1.Text;
Parambyname('f4').AsString:=edit4.Text;
Parambyname('f5').AsString:=edit5.Text;
Parambyname('f6').AsDateTime:=strtodatetime(edit6.Text);
Parambyname('f7').AsString:=edit7.Text;
Parambyname('f8').AsFloat:=strtofloat(edit8.Text);
Parambyname('f9').AsDateTime:=strtodatetime(edit9.Text);
Parambyname('f10').AsFloat:=strtofloat(edit10.Text);
Parambyname('f11').AsDateTime:=strtodatetime(edit11.Text);
Parambyname('f12').AsString:=edit12.Text;
Parambyname('f13').AsDateTime:=strtodatetime(edit13.Text);
Parambyname('f14').AsString:=edit14.Text;
Parambyname('f15').AsString:=edit15.Text;
Parambyname('f16').AsDateTime:=strtodatetime(edit13.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_salsreturn.btn_DeleteClick(Sender: TObject);
begin
strSQL:='delete from SalsReturn where 单据编号=:f1';
with DM_datamodule do
begin
if crmDB.Connected then
begin
if trim(edit1.Text)<>'' then
begin
if messagedlg('确定要删除吗?',mtinformation,[mbyes,mbno],0)=mrYes then
begin
with qry_SalsReturn do
begin
create(nil);
sql.Add('select * from SalsReturn where 单据编号=:f1');
Parambyname('f1').AsString:=edit1.Text;
open;
if Recordcount<>0 then
begin
sql.Add(strSQL);
ExecSQL;
Close;
messagedlg('删除成功!',mtinformation,[mbok],0);
edit1.Clear;
edit2.Text:=datetostr(now);
edit4.Clear;
edit5.Clear;
edit6.Text:=datetostr(now);
edit7.Clear;
edit8.Text:='0.0';
edit9.Text:=datetostr(now);
edit10.Text:='0.0';
edit11.Text:=datetostr(now);
edit12.Clear;
edit13.Text:=datetostr(now);
edit14.Clear;
edit15.Clear;
edit16.Text:=datetostr(now);
end
else
begin
messagedlg('不存在该退货记录!删除失败!',mtinformation,[mbok],0);
close;
end;
end;
end;
end;
end
else
messagedlg('请先登陆!',mtinformation,[mbok],0);
end;
end;

procedure TF_salsreturn.btn_ClearClick(Sender: TObject);
begin
edit1.Clear;
edit2.Text:=datetostr(now);
edit4.Clear;
edit5.Clear;
edit6.Text:=datetostr(now);
edit7.Clear;
edit8.Text:='0.0';
edit9.Text:=datetostr(now);
edit10.Text:='0.0';
edit11.Text:=datetostr(now);
edit12.Clear;
edit13.Text:=datetostr(now);
edit14.Clear;
edit15.Clear;
edit16.Text:=datetostr(now);
end;

procedure TF_salsreturn.btn_OutClick(Sender: TObject);
begin
combobox1.Clear;
edit1.Clear;
edit2.Text:=datetostr(now);
edit4.Clear;
edit5.Clear;
edit6.Text:=datetostr(now);
edit7.Clear;
edit8.Text:='0.0';
edit9.Text:=datetostr(now);
edit10.Text:='0.0';
edit11.Text:=datetostr(now);
edit12.Clear;
edit13.Text:=datetostr(now);
edit14.Clear;
edit15.Clear;
edit16.Text:=datetostr(now);
Close;
end;

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

edit2.Text:=datetostr(now);
edit6.Text:=datetostr(now);
edit8.Text:='0.0';
edit9.Text:=datetostr(now);
edit10.Text:='0.0';
edit11.Text:=datetostr(now);
edit13.Text:=datetostr(now);
edit16.Text:=datetostr(now);
end;

end.