mrkhjb_cx.pas

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

unit MRKHJB_CX;

interface

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

type
  TFRM_KHJB_CX = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_KHJB_CX: TFRM_KHJB_CX;

implementation
  USES MRKHJB, DATA;
{$R *.dfm}

procedure TFRM_KHJB_CX.BitBtn1Click(Sender: TObject);
begin
  if RadioButton1.Checked = true then
  begin
    if combobox1.Text = '' then
    begin
      showmessage('查询条件不能为空。');
    end
    else
    begin
      with database.ADO_KHJB do
      begin
        close;
        sql.Clear;
        sql.Add('SELECT * FROM tb_Client_KHJB where KHJB_id='+''''+trim(combobox1.Text)+'''');
        open;
      end;
      FRM_KHJB.Edit1.Text := database.ADO_KHJB.fieldbyname('khjb_id').AsString;
      FRM_KHJB.edit2.Text := database.ADO_KHJB.fieldbyname('khjb_jbmc').AsString;
      FRM_KHJB.edit3.Text := database.ADO_KHJB.fieldbyname('khjb_zdywl').AsString;
      FRM_KHJB.edit4.Text := database.ADO_KHJB.fieldbyname('khjb_bz').AsString;
    end;
  end;

  if RadioButton2.Checked = true then
  begin
    if combobox2.Text = '' then
    begin
      showmessage('查询条件不能为空。');
    end
    else
    begin
      with database.ADO_KHJB do
      begin
        close;
        sql.Clear;
        sql.Add('SELECT * FROM tb_Client_KHJB where khjb_jbmc='+''''+trim(combobox2.Text)+'''');
        open;
      end;
      FRM_KHJB.Edit1.Text := database.ADO_KHJB.fieldbyname('khjb_id').AsString;
      FRM_KHJB.edit2.Text := database.ADO_KHJB.fieldbyname('khjb_jbmc').AsString;
      FRM_KHJB.edit3.Text := database.ADO_KHJB.fieldbyname('khjb_zdywl').AsString;
      FRM_KHJB.edit4.Text := database.ADO_KHJB.fieldbyname('khjb_bz').AsString;
    end;
  end;
end;

procedure TFRM_KHJB_CX.FormShow(Sender: TObject);
begin
  combobox1.Clear;
  combobox2.Clear;
  with database.ADO_KHJB do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * FROM tb_Client_KHJB');
    open;
  end;
  IF DATABASE.ADO_KHJB.RecordCount>0 THEN
  BEGIN
    while not database.ADO_KHJB.Eof do
    begin
      combobox1.Items.Add(Trim(database.ADO_KHJB.fieldbyname('KHJB_id').AsString));
      combobox2.Items.Add(Trim(database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString));
      database.ADO_KHJB.Next;
    end;
    database.ADO_KHJB.First;
  END;
end;

procedure TFRM_KHJB_CX.RadioButton1Click(Sender: TObject);
begin
  combobox2.Text := '';
end;

procedure TFRM_KHJB_CX.RadioButton2Click(Sender: TObject);
begin
  combobox1.Text := '';
end;

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

end.