mrlxrxx_cx.pas

功能强大,画面精致.是一款不可多得的客户管理系统acess数据库,用户名:yuansheng 密码:yuansheng 级别:高级用户 建议在xp系统下运行。

unit MRLXRXX_CX;

interface

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

type
  TFRM_LXRXX_CX = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_LXRXX_CX: TFRM_LXRXX_CX;

implementation
  uses DATA, MRLXRXX;
{$R *.dfm}

procedure TFRM_LXRXX_CX.FormCreate(Sender: TObject);
begin
  database.ADO_LXRXX.Active := false;
  database.ADO_LXRXX.Active := true;
end;

procedure TFRM_LXRXX_CX.FormShow(Sender: TObject);
begin
  combobox1.Clear;
  combobox3.Clear;
  combobox4.Clear;
  combobox2.Text := '';
  with database.ADO_bb do   //客户名称
  begin
    close;
    sql.Clear;
    sql.Add('select distinct lxrxx_qymc from tb_Client_lxrxx');
    open;
  end;
  if database.ADO_bb.RecordCount>0 then
  begin
    while not database.ADO_bb.Eof do
    begin
      combobox1.Items.Add(Trim(database.ADO_bb.fieldbyname('lxrxx_qymc').AsString));
      database.ADO_bb.Next;
    end;
  end;

  with database.ADO_bb do   //联系人姓名
  begin
    close;
    sql.Clear;
    sql.Add('select distinct lxrxx_xm from tb_Client_lxrxx');
    open;
  end;
  if database.ADO_bb.RecordCount>0 then
  begin
    while not database.ADO_bb.Eof do
    begin
      combobox3.Items.Add(Trim(database.ADO_bb.fieldbyname('lxrxx_xm').AsString));
      database.ADO_bb.Next;
    end;
  end;

  with database.ADO_bb do   //联系人职位
  begin
    close;
    sql.Clear;
    sql.Add('select distinct lxrxx_zw from tb_Client_lxrxx');
    open;
  end;
  if database.ADO_bb.RecordCount>0 then
  begin
    while not database.ADO_bb.Eof do
    begin
      combobox4.Items.Add(Trim(database.ADO_bb.fieldbyname('lxrxx_zw').AsString));
      database.ADO_bb.Next;
    end;
  end;
end;

procedure TFRM_LXRXX_CX.BitBtn1Click(Sender: TObject);
var
  s,p : string;
begin
  p := '';
  s := 'aa';
  if RadioButton1.Checked = true then
  begin
    p := 'lxrxx_qymc';
    s := trim(combobox1.Text);
  end;

  if RadioButton2.Checked = true then
  begin
    p := 'lxrxx_xm';
    s := trim(combobox3.Text);
  end;

  if RadioButton3.Checked = true then
  begin
    p := 'lxrxx_xb';
    s := trim(combobox2.Text);
  end;

  if RadioButton4.Checked = true then
  begin
    p := 'lxrxx_zw';
    s := trim(combobox4.Text);
  end;

  if (s <> 'aa')and(s <> '') then
  begin
    with database.ADO_LXRXX do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_Client_lxrxx where '+p+'='+''''+s+'''');
      open;
    end;
    if database.ADO_LXRXX.RecordCount> 0 then
    begin
      FRM_LXRXX.edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
      FRM_LXRXX.combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
      FRM_LXRXX.edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
      FRM_LXRXX.combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
      FRM_LXRXX.edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
      FRM_LXRXX.edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
      FRM_LXRXX.edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
      FRM_LXRXX.edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
      FRM_LXRXX.edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
      FRM_LXRXX.edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
      FRM_LXRXX.edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
      FRM_LXRXX.memo1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString;
      FRM_LXRXX.DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
      FRM_LXRXX.DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;
    end
    else
    begin
      FRM_LXRXX.edit1.Text := '';
      FRM_LXRXX.combobox2.Text := '';
      FRM_LXRXX.edit3.Text := '';
      FRM_LXRXX.combobox1.Text := '';
      FRM_LXRXX.edit5.Text := '';
      FRM_LXRXX.edit6.Text := '';
      FRM_LXRXX.edit7.Text := '';
      FRM_LXRXX.edit8.Text := '';
      FRM_LXRXX.edit9.Text := '';
      FRM_LXRXX.edit10.Text := '';
      FRM_LXRXX.edit11.Text := '';
      FRM_LXRXX.memo1.Text := '';
      FRM_LXRXX.DateTimePicker1.Date := now();
      FRM_LXRXX.DateTimePicker2.Date := now();
    end;
  end
  else
  begin
    showmessage('查询条件不能为空。');
  end;

end;

procedure TFRM_LXRXX_CX.RadioButton1Click(Sender: TObject);
begin
  combobox2.Text := '';
  combobox3.Text := '';
  combobox4.Text := '';
end;

procedure TFRM_LXRXX_CX.RadioButton2Click(Sender: TObject);
begin
  combobox2.Text := '';
  combobox1.Text := '';
  combobox4.Text := '';
end;

procedure TFRM_LXRXX_CX.RadioButton3Click(Sender: TObject);
begin
  combobox1.Text := '';
  combobox3.Text := '';
  combobox4.Text := '';
end;

procedure TFRM_LXRXX_CX.RadioButton4Click(Sender: TObject);
begin
  combobox2.Text := '';
  combobox3.Text := '';
  combobox1.Text := '';
end;

procedure TFRM_LXRXX_CX.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.