salesrecordsearch.pas

企业客户关系管理系统

unit salesrecordsearch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls,
  Buttons;

type
  TF_salesrecordsearch = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    btn_Search: TBitBtn;
    btn_Out: TBitBtn;
    Panel1: TPanel;
    tbl_customersinfo: TTable;
    tbl_productorinfo: TTable;
    ds_customersinfo: TDataSource;
    ds_productorinfo: TDataSource;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    DBGrid2: TDBGrid;
    Panel3: TPanel;
    Panel4: TPanel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    DBText11: TDBText;
    DBText12: TDBText;
    DBText13: TDBText;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Panel5: TPanel;
    DBMemo1: TDBMemo;
    procedure btn_SearchClick(Sender: TObject);
    procedure btn_OutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_salesrecordsearch: TF_salesrecordsearch;

implementation
uses datamodule;
{$R *.dfm}

procedure TF_salesrecordsearch.btn_SearchClick(Sender: TObject);
begin
with DM_datamodule do
begin
if crmDB.Connected then
begin
if trim(edit1.Text)<>'' then
begin
with qry_SalsRecord do
begin
close;
//create(nil);
if combobox1.Text='产品编号' then
sql.Text:='select * from SalsRecord where 产品编号=:f1'
else
sql.Text:='select * from SalsRecord where 客户编号=:f1';
Parambyname('f1').AsString:=edit1.Text;
//prepare;
tbl_customersinfo.Active:=true;
tbl_productorinfo.Active:=true;
open;
if recordcount=0 then
begin
showmessage('没有查到匹配记录!');
close;
sql.Text:='select * from SalsRecord';
open;
end;
end;
end;
end
else
messagedlg('请先登陆!',mtinformation,[mbok],0);
end;
end;

procedure TF_salesrecordsearch.btn_OutClick(Sender: TObject);
begin
edit1.Clear;
tbl_customersinfo.Active:=false;
tbl_productorinfo.Active:=false;
DM_datamodule.qry_SalsRecord.Active:=false;
Close;
end;

end.