mrcsbh_cx.pas

客户管理系统主要是以客户为基础

unit MRCSBH_CX;

interface

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

type
  TFRM_CSBH_CX = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_CSBH_CX: TFRM_CSBH_CX;

implementation
  uses DATA;
{$R *.dfm}

procedure TFRM_CSBH_CX.FormShow(Sender: TObject);
var
  ini : Tinifile;
  ssp : string;
begin
  ssp := '国内主要城市区号邮编查询';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  combobox1.Clear;
  combobox2.Clear;
  edit1.Clear;
  edit2.Clear;
  with database.ADO_bb do    //省份
  begin
    close;
    sql.Clear;
    sql.Add('select distinct csxx_sfmc from tb_Client_csxx');
    open;
  end;
  while not database.ADO_bb.Eof do
  begin
    combobox1.Items.Add(Trim(database.ADO_bb.fieldbyname('csxx_sfmc').AsString));
    database.ADO_bb.Next;
  end;

end;

procedure TFRM_CSBH_CX.ComboBox1Change(Sender: TObject);
begin
  combobox2.Clear;
  edit1.Clear;
  edit2.Clear;
  with database.ADO_bb do   //城市
  begin
    close;
    sql.Clear;
    sql.Add('select distinct csxx_csmc from tb_Client_csxx where csxx_sfmc='+''''+trim(combobox1.Text)+'''');
    open;
  end;
  while not database.ADO_bb.Eof do
  begin
    combobox2.Items.Add(Trim(database.ADO_bb.fieldbyname('csxx_csmc').AsString));
    database.ADO_bb.Next;
  end;
end;

procedure TFRM_CSBH_CX.ComboBox2Change(Sender: TObject);
begin
  with database.ADO_bb do   //城市
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_Client_csxx where csxx_csmc='+''''+trim(combobox2.Text)+'''');
    open;
  end;
  edit1.Text := database.ADO_bb.fieldbyname('csxx_dhqh').AsString;
  edit2.Text := database.ADO_bb.fieldbyname('csxx_yb').AsString;
end;

end.