?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -