mrkhts_bb.pas

Delphi数据库开发系统例子

unit MRKHTS_BB;

interface

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

type
  TFRM_KHTS_BB = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    RadioButton3: TRadioButton;
    ComboBox3: TComboBox;
    RadioButton4: TRadioButton;
    ComboBox4: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RadioButton5: TRadioButton;
    ComboBox5: TComboBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_KHTS_BB: TFRM_KHTS_BB;

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

procedure TFRM_KHTS_BB.FormShow(Sender: TObject);
var
  ini : Tinifile;
  ssp : string;
begin
  ssp := '客户投拆报表';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  with database.ADO_KHTS do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_Client_khts');
    open;
  end;

  combobox1.Clear;
  combobox2.Clear;
  combobox3.Clear;
  combobox4.Clear;
  combobox5.Clear;
  with database.ADO_bb do   //企业名称
  begin
    close;
    sql.Clear;
    sql.Add('select distinct khts_qymc from tb_Client_khts');
    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('khts_qymc').AsString));
      database.ADO_bb.Next;
    end;
  end;

  with database.ADO_bb do   //投拆人
  begin
    close;
    sql.Clear;
    sql.Add('select distinct khts_tsr from tb_Client_khts');
    open;
  end;
  if database.ADO_bb.RecordCount>0 then
  begin
    while not database.ADO_bb.Eof do
    begin
      combobox2.Items.Add(Trim(database.ADO_bb.fieldbyname('khts_tsr').AsString));
      database.ADO_bb.Next;
    end;
  end;

  with database.ADO_bb do   //投拆主题
  begin
    close;
    sql.Clear;
    sql.Add('select distinct khts_tszt from tb_Client_khts');
    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('khts_tszt').AsString));
      database.ADO_bb.Next;
    end;
  end;

  with database.ADO_bb do   //投拆受理人
  begin
    close;
    sql.Clear;
    sql.Add('select distinct khts_tsslr from tb_Client_khts');
    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('khts_tsslr').AsString));
      database.ADO_bb.Next;
    end;
  end;

  with database.ADO_bb do     //满意程度
  begin
    close;
    sql.Clear;
    sql.Add('select distinct khmyd_myd from tb_Client_khmyd');
    open;
  end;
  if database.ADO_bb.RecordCount>0 then
  begin
    while not database.ADO_bb.Eof do
    begin
      combobox5.Items.Add(Trim(database.ADO_bb.fieldbyname('khmyd_myd').AsString));
      database.ADO_bb.Next;
    end;
  end;

end;

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

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

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

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

  if RadioButton5.Checked = true then
  begin
    p := 'khts_khmyd';
    s := trim(combobox5.Text);
  end;

  if (s <> 'aa')and(s <> '') then
  begin
    with database.ADO_KHTS do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_Client_khts where '+p+'='+''''+s+'''');
      open;
    end;
  end
  else
  begin
    showmessage('查询条件不能为空。');
  end;


end;

procedure TFRM_KHTS_BB.BitBtn4Click(Sender: TObject);
begin
  with database.ADO_KHTS do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_Client_khts');
    open;
  end;

end;

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

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

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

end;

procedure TFRM_KHTS_BB.RadioButton3Click(Sender: TObject);
begin
  combobox2.Text := '';
  combobox1.Text := '';
  combobox4.Text := '';
  combobox5.Text := '';

end;

procedure TFRM_KHTS_BB.RadioButton2Click(Sender: TObject);
begin
  combobox1.Text := '';
  combobox3.Text := '';
  combobox4.Text := '';
  combobox5.Text := '';

end;

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

end;

procedure TFRM_KHTS_BB.RadioButton5Click(Sender: TObject);
begin
  combobox2.Text := '';
  combobox3.Text := '';
  combobox4.Text := '';
  combobox1.Text := '';

end;

procedure TFRM_KHTS_BB.BitBtn3Click(Sender: TObject);
begin
  application.CreateForm(TFRM_KHTSBB_DY, FRM_KHTSBB_DY);
  FRM_KHTSBB_DY.QuickRep1.PreviewModal;
end;

end.