reviewplanningsearch.pas

企业客户关系管理系统

unit reviewplanningsearch;

interface

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

type
  TF_reviewplanningsearch = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    btn_Search: TBitBtn;
    btn_Out: TBitBtn;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    tbl_customersinfo: TTable;
    ds_customersinfo: TDataSource;
    DBMemo1: TDBMemo;
    ComboBox4: TComboBox;
    Panel1: TPanel;
    Label4: TLabel;
    Panel2: TPanel;
    Label5: TLabel;
    Panel3: TPanel;
    Label6: TLabel;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure ComboBox1Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure btn_SearchClick(Sender: TObject);
    procedure btn_OutClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_reviewplanningsearch: TF_reviewplanningsearch;

implementation
uses datamodule;
{$R *.dfm}

procedure TF_reviewplanningsearch.ComboBox1Change(Sender: TObject);
begin
if (combobox1.Text='编号') or (combobox1.text='客户编号')  then
begin
edit1.Enabled:=true;
combobox4.Enabled:=false;
combobox2.Enabled:=false;
combobox3.Enabled:=false;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
end
else
begin
edit1.Enabled:=false;
if radiobutton1.Checked then
combobox4.Enabled:=true;
if radiobutton2.Checked then
begin
combobox4.Enabled:=true;
combobox2.Enabled:=true;
end;
if radiobutton3.Checked then
begin
combobox4.Enabled:=true;
combobox2.Enabled:=true;
combobox3.Enabled:=true;
end;
end;
end;

procedure TF_reviewplanningsearch.RadioButton1Click(Sender: TObject);
begin
edit1.Text:='';
if (combobox1.Text='开始日期') or (combobox1.text='结束日期') or (combobox1.text='下次回访日期') then
begin
combobox4.Enabled:=true;
combobox2.Enabled:=false;
combobox3.Enabled:=false;
end;
end;

procedure TF_reviewplanningsearch.RadioButton2Click(Sender: TObject);
begin
edit1.Text:='';
if (combobox1.Text='开始日期') or (combobox1.text='结束日期') or (combobox1.text='下次回访日期') then
begin
combobox4.Enabled:=true;
combobox2.Enabled:=true;
combobox3.Enabled:=false;
end;
end;

procedure TF_reviewplanningsearch.RadioButton3Click(Sender: TObject);
begin
if (combobox1.Text='开始日期') or (combobox1.text='结束日期') or (combobox1.text='下次回访日期') then
begin
combobox4.Enabled:=true;
combobox2.Enabled:=true;
combobox3.Enabled:=true;
end;
end;

procedure TF_reviewplanningsearch.btn_SearchClick(Sender: TObject);
begin
with DM_datamodule do
begin
if crmDB.Connected then
begin

with qry_ReviewPlanning do
begin
tbl_customersinfo.Active:=true;
close;

if trim(edit1.Text)<>'' then
begin
if combobox1.Text='编号' then
sql.Text:='select * from ReviewPlanning where 编号='+quotedstr(edit1.Text);
if combobox1.Text='客户编号' then
sql.Text:='select * from ReviewPlanning where 客户编号='+quotedstr(edit1.Text);
end;

if combobox1.Text='开始日期' then
begin
if radiobutton1.Checked then
begin
sql.Text:='select * from ReviewPlanning where convert(varchar,开始日期,20) LIKE '+quotedstr(combobox4.Text+'-%');
end;
if radiobutton2.Checked then
sql.Text:='select * from ReviewPlanning where convert(varchar,开始日期,20) like'
+quotedstr(combobox4.Text+'-'+combobox2.Text+'-%');
if radiobutton3.Checked then
begin
sql.Text:='select * from ReviewPlanning where 开始日期=:f1';
parambyname('f1').AsDateTime:=strtodatetime(combobox4.Text+'-'+combobox2.Text+'-'+combobox3.Text);
end;
end;

if combobox1.Text='结束日期' then
begin
if radiobutton1.Checked then
sql.Text:='select * from ReviewPlanning where convert(varchar,结束日期,20) like'+quotedstr(combobox4.Text+'-%');
if radiobutton2.Checked then
sql.Text:='select * from ReviewPlanning where convert(varchar,结束日期,20) like'
+quotedstr(combobox4.Text+'-'+combobox2.Text+'-%');
if radiobutton3.Checked then
begin
sql.Text:='select * from ReviewPlanning where 结束日期=:f1';
parambyname('f1').AsDateTime:=strtodatetime(combobox4.Text+'-'+combobox2.Text+'-'+combobox3.Text);
end;
end;

if combobox1.Text='下次回访日期' then
begin
if radiobutton1.Checked then
sql.Text:='select * from ReviewPlanning where convert(varchar,下次回访日期,20) like'+quotedstr(combobox4.Text+'-%');
if radiobutton2.Checked then
sql.Text:='select * from ReviewPlanning where convert(varchar,下次回访日期,20) like'
+quotedstr(combobox4.Text+'-'+combobox2.Text+'-%');
if radiobutton3.Checked then
begin
sql.Text:='select * from ReviewPlanning where 下次回访日期=:f1';
parambyname('f1').AsDateTime:=strtodatetime(combobox4.Text+'-'+combobox2.Text+'-'+combobox3.Text);
end;
end;

open;
if recordcount=0 then
begin
messagedlg('没有查到匹配记录!',mtinformation,[mbok],0);
close;
sql.Text:='select * from ReviewPlanning';
open;
end;
end;
end
else
messagedlg('请先登陆!',mtinformation,[mbok],0);

end;
end;

procedure TF_reviewplanningsearch.btn_OutClick(Sender: TObject);
begin
Close;
end;

procedure TF_reviewplanningsearch.FormCreate(Sender: TObject);
var
I:Integer;
begin
for i:=1979 to 2500 do
begin
Combobox4.Items.Add(inttostr(i));
end;
Combobox4.Text:=Combobox3.Items.Text;
Combobox4.ItemIndex:=25;
end;
end.