khxxcx.pas

delphi开发的完整的客户管理系统（带数据库）

unit khxxcx;

interface

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

type
  TForm1 = class(TForm)
    Panel2: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    Panel4: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox2: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Panel3: TPanel;
    Label2: TLabel;
    BitBtn8: TBitBtn;
    CheckBox1: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
  uses Data2;
{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  ComboBox1.Clear;
  DataSource1.DataSet := nil;
  CheckBox1.Checked := False;
  CheckBox1.Checked := False;
  with Datam.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Distinct 客户名称 from 客户信息反馈表');
    Open;
  end;
  if Datam.ADOQuery1.RecordCount >0 then
  begin
    while Not Datam.ADOQuery1.Eof do
    begin
      ComboBox1.Items.Add(Datam.ADOQuery1.FieldByName('客户名称').AsString);
      Datam.ADOQuery1.Next;
    end;
  end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if Trim(ComboBox1.Text)<>'' then
  begin
    if CheckBox2.Checked = False then
    begin
      with Datam.ADOQuery2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 客户信息反馈表 where 客户名称 = :a');
        Parameters.ParamByName('a').Value := Trim(ComboBox1.Text);
        Open;
      end;
      if Datam.ADOQuery2.RecordCount>0 then
        DataSource1.DataSet := Datam.ADOQuery2
      else
        DataSource1.DataSet := Nil;
    end
    else
    begin
      with Datam.ADOQuery2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 客户信息反馈表 where 客户名称 = :a and (反馈时间>= :b and 反馈时间 <= :c)');
        Parameters.ParamByName('a').Value := Trim(ComboBox1.Text);
        Parameters.ParamByName('b').Value := Int(DateTimePicker1.Date);
        Parameters.ParamByName('c').Value := Int(DateTimePicker2.Date)+0.9998;
        Open;
      end;
      if Datam.ADOQuery2.RecordCount>0 then
        DataSource1.DataSet := Datam.ADOQuery2
      else
        DataSource1.DataSet := Nil;
    end;
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = True then
  begin
    with Datam.ADOQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 客户信息反馈表');
      Open;
    end;
    if Datam.ADOQuery2.RecordCount>0 then
      DataSource1.DataSet := Datam.ADOQuery2
    else
      DataSource1.DataSet := Nil;
  end;
end;

end.